home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1988 June / 1988-06.d64 / pointerdemo (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  506b  |  16 lines
  1. 10 rem copyright 1988 compute! publications, inc. - all rights reserved.
  2. 20 ifa<>1thena=1:load"pointer",8,1
  3. 30 sys52992
  4. 40 dimc(39)
  5. 50 print"[147]";:gosubG(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)&(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)R(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)@tandimstr$jdimstr$iforcmd(NULL)(NULL)let(NULL)(NULL)@(NULL)(NULL){$60}(NULL)(NULL)d@j@(NULL)@(NULL)(NULL)dim(NULL){$60}(NULL)(NULL)d@jmid$(NULL)@str$@(NULL)(NULL)(NULL)@mid$(NULL)(NULL)let(NULL)(NULL)(NULL)let(NULL)(NULL)@(NULL){$60}(NULL)(NULL)d@jd(NULL)mid$(NULL)(NULL)(NULL)x(NULL)l=40*y%+x%
  6. 100 print"x=";x%;"y=";y%;"sl=";sl
  7. 110 geta$:ifa$=""then110
  8. 120 ifa$="q"thenprint"[147]":end
  9. 130 ifa$<>" "then110
  10. 140 fori=0to39:poke1024+i,c(i):next
  11. 150 goto70
  12. 160 print"[147][144]"tab(13)"copyright 1988"
  13. 170 printtab(7)"compute! publications, inc."
  14. 180 printtab(10)"all rights reserved."
  15. 190 return
  16.