home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1990 October / 1990-10.d64 / bas_beg 1 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  1.4 KB  |  42 lines
  1. 10 s=54272:for t=s to s+24:poke t,0:next
  2. 20 poke s+3,8:poke s+5,12:poke s+6,29:poke s+24,15
  3. 30 print chr$(147)chr$(144):poke 53280,1:poke 53281,1
  4. 40 for t=1 to 8:print "                  [164][164][164]":next
  5. 50 print "[164][164][213][201][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]
  6. 60 [153] "totopeekpeektototototototototototototototototototototototototototototototototototo
  7. 70 print "[164][213][219][203][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]
  8. 80 [153] "topeek(NULL)right$tototototototototototototototototototototototototototototototototototo
  9. 90 print "[164][202][219][203][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]
  10. 92 [153] " mid$(NULL)               tototo
  11. 94 for t=1 to 7:print "                  [164][164][164]":next
  12. 100 v=53248
  13. 110 n=125
  14. 120 for j=12288 to 12350:read d:poke j,d:next
  15. 130 data0,0,3,0,0,3,0,0,3,0,0,3,0,0,3,0,0,3,0,0,3,0,0,3,0,0,3,0,0,3,0,0,3,0,0,3
  16. 140 data0,0,3,0,0,251,0,3,255,0,7,255,0,7,255,0,7,255,0,3,254,0,0,248,0,0,0
  17. 150 poke v+39,5
  18. 160 poke 2040,192
  19. 170 poke v,160
  20. 180 poke v+1,n
  21. 190 poke v+21,1
  22. 200 dim fu(41),fl(41),c(41)
  23. 210 k=256:for j=41 to 1 step -1:read d,c(j):fu(j)=int(d/k):fl(j)=d-fu(j)*k:next
  24. 220 data1072,5,1204,2,1351,3,1432,4,1607,12,1804,6,2025,7,2145,5,2408,2,2703,3
  25. 225 data2864,4,3215,12,3608,6,4050,7,4291,5,4817,2,5407,3,5728,4,6430,12,7216,6
  26. 235 data8101,7,8583,5,9634,2,10814,3,11457,4,12860,12,14435,6,16203,7,17167,5
  27. 240 data19269,2,21629,3,22915,4,25721,12,28871,6,32407,7,34334,5,38539,2
  28. 250 data43258,3,45830,4,51443,12,57743,6
  29. 300 js=56320
  30. 310 jd=peek(js)
  31. 320 if jd=126 then n=n-4:if n<49 then n=49
  32. 330 if jd=125 then n=n+4:if n>209 then n=209
  33. 340 if jd=111 then gosub 400
  34. 350 if jd=110 then gosub 400:n=n-4:if n<49 then n=49
  35. 360 if jd=109 then gosub 400:n=n+4:if n>209 then n=209
  36. 370 poke v+1,n:q=int(n/4-11)
  37. 380 poke v+39,c(q)
  38. 390 goto 310
  39. 400 poke s,fl(q):poke s+1,fu(q)
  40. 410 poke s+4,64:poke s+4,65
  41. 420 return
  42.