home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8702b.d64 / drucken (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  313b  |  16 lines
  1. 10 A=A+1:IFA=1THENLOAD"MPPRINT",8,8
  2. 15 IFA=3THEN35
  3. 20 PRINT"[147]ABBRUCH DURCH RUN/STOP"
  4. 25 PRINT"DRUCKER AN?
  5. 27 [153]"<TASTE>
  6. 28 POKE198,0:WAIT198,1:GETA$
  7. 29 INPUT"REVERS (J/N)";R$
  8. 30 INPUT"BILDNAME";A$:LOADA$,8,8
  9. 35 IFR$="J"THENGOSUB60
  10. 40 SYS8192
  11. 50 A=1:GOTO10
  12. 60 FORT=1024TO2023
  13. 70 IFPEEK(T)<128THENPOKET,PEEK(T)+128:GOTO90
  14. 80 IFPEEK(T)>128THENPOKET,PEEK(T)-128
  15. 90 NEXT:RETURN
  16.