home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 April / 1987-04.d64 / secondary (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  29 lines
  1. 10 poke56,peek(56)-1:clr:h=peek(56):l=peek(55):sa=h*256+l
  2. 20 fori=satosa+214:reada:pokei,a:x=x+a:next
  3. 30 ifx<>27368thenprint"[144]data statement error.":stop
  4. 40 lv=sa+24:lh=int(lv/256):ll=lv-lh*256:pokesa+1,ll:pokesa+6,lh
  5. 50 sv=sa+141:sh=int(sv/256):sl=sv-sh*256:pokesa+11,sl:pokesa+16,sh
  6. 60 print"[147][144]sys"sa"to activate"
  7. 70 data 169,24,141,48,3,169,192,141,49,3
  8. 80 data 169,141,141,50,3,169,192,141,51,3
  9. 90 data 96,76,51,245,133,147,169,0,133,144
  10. 100 data 165,186,208,3,76,19,247,201,3,240
  11. 110 data 249,144,234,164,183,208,3,76,16,247
  12. 120 data 166,185,32,175,245,169,96,133,185,32
  13. 130 data 213,243,165,186,32,9,237,165,185,32
  14. 140 data 199,237,32,19,238,133,174,133,2,165
  15. 150 data 144,74,74,176,127,32,19,238,133,175
  16. 160 data 133,3,224,3,208,16,104,104,32,229
  17. 170 data 244,165,2,133,20,165,3,133,21,76
  18. 180 data 48,225,224,2,208,22,104,104,162,0
  19. 190 data 32,229,244,134,45,132,46,169,0,32
  20. 200 data 144,255,32,51,165,76,89,166,76,229
  21. 210 data 244,165,186,208,3,76,19,247,201,3
  22. 220 data 240,57,144,52,165,185,201,1,208,13
  23. 230 data 32,250,245,32,215,170,169,1,133,10
  24. 240 data 76,111,225,201,2,208,26,32,253,174
  25. 250 data 32,138,173,32,247,183,132,193,133,194
  26. 260 data 32,253,174,32,138,173,32,247,183,132
  27. 270 data 174,133,175,76,250,245,76,89,246,76
  28. 280 data 241,245,76,48,245
  29.