home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1990 November / 1990-11.d64 / beg_bas (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  1.4 KB  |  42 lines
  1. 10 s=54272:fort=stos+24:poket,0:next
  2. 20 pokes+3,8:pokes+5,12:pokes+6,29:pokes+24,15
  3. 30 printchr$(147)chr$(144):poke53280,1:poke53281,1
  4. 40 fort=1to8: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 fort=1to7:print"                  [164][164][164]":next
  12. 100 v=53248
  13. 110 n=125
  14. 120 forj=12288to12350:readd:pokej,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 pokev+39,5
  18. 160 poke2040,192
  19. 170 pokev,160
  20. 180 pokev+1,n
  21. 190 pokev+21,1
  22. 200 dimfu(41),fl(41),c(41)
  23. 210 k=256:forj=41to1step-1:readd,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 ifjd=126thenn=n-4:ifn<49thenn=49
  32. 330 ifjd=125thenn=n+4:ifn>209thenn=209
  33. 340 ifjd=111thengosub400
  34. 350 ifjd=110thengosub400:n=n-4:ifn<49thenn=49
  35. 360 ifjd=109thengosub400:n=n+4:ifn>209thenn=209
  36. 370 pokev+1,n:q=int(n/4-11)
  37. 380 pokev+39,c(q)
  38. 390 goto310
  39. 400 pokes,fl(q):pokes+1,fu(q)
  40. 410 pokes+4,64:pokes+4,65
  41. 420 return
  42.