home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_10_1986_Transactor_Publishing.d64 / input! (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  130b  |  4 lines
  1. 1 sys42336:forb=512to592:ifpeek(b)<>0thennext
  2. 2 in$="":pokepeek(71)+256*peek(72)+1,0:pokepeek(71)+256*peek(72)+2,2
  3. 3 pokepeek(71)+256*peek(72),b-512:in$=mid$(in$,1)
  4.