home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1985 Spring / rerun-1985-spring.d64 / screen (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  36 lines
  1. 10 data 1136,1059,1515,1764,1699,1690,1762
  2. 20 data 1823,1612,1993,1902,1747,1366,1640
  3. 30 data 1945,1578,1724,1493,1472,1865,1213
  4. 40 data 120,173,20,3,141,169,2,173,21,3,141,170
  5. 50 data 2,169,29,141,20,3,169,192,141,21,3,169
  6. 60 data 0,133,254,88,96,165,197,201,4,208,4,165
  7. 70 data 254,240,3,108,169,2,169,255,133,254,169,8
  8. 80 data 162,4,160,255,32,186,255,169,0,32,189,255
  9. 90 data 32,192,255,162,8,32,201,255,169,0,133,251
  10. 100 data 133,253,169,4,133,252,162,25,32,230,192,177
  11. 110 data 251,32,139,192,200,204,168,2,208,245,169,13
  12. 120 data 32,210,255,169,40,24,101,251,133,251,144,2
  13. 130 data 230,252,32,230,192,202,208,223,169,13,32,210
  14. 140 data 255,32,210,255,32,204,255,169,8,32,195,255
  15. 150 data 169,0,133,254,76,188,254,142,167,2,170,192
  16. 160 data 0,208,15,169,16,32,210,255,169,50,32,210
  17. 170 data 255,169,48,32,210,255,138,201,128,144,19,41
  18. 180 data 127,170,165,253,208,25,169,255,133,253,169,18
  19. 190 data 32,210,255,56,176,13,165,253,240,9,169,0
  20. 200 data 133,253,169,146,32,210,255,138,201,32,144,11
  21. 210 data 201,64,176,11,32,210,255,174,167,2,96,105
  22. 220 data 64,144,245,201,96,176,4,105,32,144,237,24
  23. 230 data 144,241,160,39,177,251,136,240,4,201,32,240
  24. 240 data 247,200,200,140,168,2,160,0,96
  25. 250 dimcs(21):sa=49152:ea=49400:l=1
  26. 260 fori=1to21:readcs(i):next
  27. 270 fori=sa to ea step 12:cs=0:forj=0to11
  28. 280 readk:pokei+j,k:cs=cs+k
  29. 290 ifi+j=eathenj=11:i=ea
  30. 300 nextj
  31. 310 ifcs<>cs(l)then600
  32. 320 l=l+1:nexti
  33. 330 print"upper or lower case";:input"   u[157][157][157]";a$:ifa$="l"thenpoke49203,7
  34. 340 sys49152:new
  35. 600 print"error in data statement #";40+(l-1)*10
  36.