home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 March / 1994-03b.d64 / xbasic.ml (.txt) < prev   
Commodore BASIC  |  2022-09-20  |  438b  |  18 lines
  1. 90 rem program for commodore 64 only
  2. 100 data 169,160,160,0,132,253,133,254
  3. 110 data 177,253,145,253,200,208,249
  4. 120 data 230,254,166,254,224,192,208,241
  5. 130 data 169,85,141,162,160,141,251,160
  6. 140 data 169,65,141,5,161,141,14,161
  7. 150 data 169,54,133,1,96
  8. 200 for j=828 to 871
  9. 210 read x:t=t+x
  10. 220 poke j,x
  11. 230 next j
  12. 240 if t<>7094 then stop
  13. 250 sys 828
  14. 270 print "[147]basic is now in ram!"
  15. 280 print "(with minor changes)"
  16. 290 print "poke 1,55 to restore!"
  17. 900 rem $033c-0367, 828 to 871
  18.