home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 September / 1993-09.d64 / screenbouncer.pp (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  801b  |  17 lines
  1. 4 print"[147]":poke53280,6:poke53281,6
  2. 5 d=90:rem screen bouncer by bob broderick
  3. 10 read a:ifa=-1then40
  4. 20 ifa>256then50
  5. 30 b=b+a:poke49152+c,a:c=c+1:goto10
  6. 40 print "all done! sys 49152[146] to install.":poke16383,170:end
  7. 50 d=d+10:ifb=athenb=0:goto10
  8. 60 print"[147]you typed line"d"in wrong. recheck andrun[146] again!"
  9. 70 print "list"d"[145][145][145]":poke631,13:poke 198,1
  10. 100 data 169,147,32,210,255,120,162,1,142,26,208,202,142,32,208,2056
  11. 110 data 169,49,141,18,208,169,127,141,13,220,169,27,141,17,208,169,1986
  12. 120 data 42,162,192,141,20,3,142,21,3,88,96,238,25,208,238,112,192,1923
  13. 130 data 173,112,192,16,11,41,127,141,111,192,169,128,56,237,111,192,170,2179
  14. 140 data 208,2,162,1,172,18,208,152,56,233,2,41,7,9,16,141,17,1445
  15. 150 data 208,204,18,208,240,251,200,202,208,236,173,18,208,208,251,169,27,3029
  16. 160 data 141,17,208,173,13,220,76,49,234,0,0,0,1,1132,-1
  17.