home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1989 March / 1989-03.d64 / onbreak64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  33 lines
  1. 10 rem copyright 1989 compute! publications, inc. - all rights reserved
  2. 20 print"[147]":poke53281,6:poke53280,14:printtab(11)"[152]copyright 1989"
  3. 30 printtab(6)"compute! publications, inc."
  4. 40 printtab(9)"all rights reserved":ck=0
  5. 50 fori=49152to49270:reada:ck=ck+a:pokei,a:next
  6. 60 if ck <> 12952 then print"error in data statements.":end
  7. 70 i=i-1:ln$="280":rem on break line
  8. 80 for a=1 to len(ln$):poke i+a,asc(mid$(ln$,a,1)):next
  9. 90 poke i+a,13:poke i+a+1,19:poke i+a+2,0:sys 49152
  10. 100 printtab(10);"on break activated."
  11. 110 print"press the stop key to jump to line "ln$
  12. 120 goto120
  13. 130 data 173,40,3,201,49,208,20,173
  14. 140 data 41,3,201,192,208,13,173,103
  15. 150 data 192,141,40,3,173,104,192,141
  16. 160 data 41,3,96,173,40,3,141,103
  17. 170 data 192,173,41,3,141,104,192,169
  18. 180 data 49,141,40,3,169,192,141,41
  19. 190 data 3,165,145,201,127,208,47,169
  20. 200 data 147,32,210,255,169,105,133,251
  21. 210 data 169,192,133,252,160,0,177,251
  22. 220 data 240,6,153,0,4,200,208,246
  23. 230 data 169,17,32,210,255,169,2,133
  24. 240 data 198,169,19,141,119,2,169,13
  25. 250 data 141,120,2,169,0,168,96,0
  26. 260 data 0,16,18,9,14,20,34,211
  27. 270 data 34,58,7,15,20,15,32
  28. 280 rem
  29. 290 rem your code goes here...
  30. 300 rem
  31. 310 print"now at line "ln$:sys 49152
  32. 320 end
  33.