home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 57 / 64er_Magazin_Sonderheft_57_19xx_Markt__Technik_de_Side_A.d64 / korrektur-prg (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  253b  |  8 lines
  1. 100 open 1,8,0,"[w]hardcopy"
  2. 110 open 2,8,1,"[w]hardcopy neu"
  3. 120 for i=0 to 483+2: get#1,x$: print#2,left$(x$+chr$(0),1);: next i
  4. 130 for i=484 to 492: read d: print#2,chr$(d);: get#1,x$:next i
  5. 140 for i=493 to 1567: get#1,x$: print#2,left$(x$+chr$(0),1);: next i
  6. 150 close 2: close 1
  7. 200 data 173,13,221,173,0,221,76,65,79
  8.