home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh3x / sh32b.d64 / druckerwahl_ega (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  38 lines
  1. 1 REM---------------------------------
  2. 2 REM--       DRUCKERWAHL/EGA       --
  3. 3 REM-- (C)22.03.1988 THOMAS BEIGEL --
  4. 4 REM---------------------------------
  5. 5 REM
  6. 10 POKE53280,11:POKE53281,0:PRINTCHR$(9)"[147]";
  7. 20 PRINT" [197][199][193] [214]3.2 [196]RUCKERWAHL ([195])22.03.1988 [212][194][195] "
  8. 30 PRINT"[152][197][199][193] [214]3.2 64'ER 3/88 [211].41FF"
  9. 40 PRINT"[155][194]ITTE DEN GEWUENSCHTEN [196]RUCKER"
  10. 50 PRINT"AUSWAEHLEN (MIT [195][210][211][210] UND [210][197][212][213][210][206])."
  11. 60 AN=5
  12. 70 M$(1)="[206][204]-10 EINFACHE [196]ICHTE ([214]ERZERRUNG!)":L$(1)="NL-10 EINFACH"
  13. 80 M$(2)="[206][204]-10 VIERFACHE [196]ICHTE (SCHNELL)":L$(2)="NL-10 VIERFACH"
  14. 82 M$(3)="[206][204]-10 VIERFACHE [196]ICHTE/[196]OPPELANSCHLAG":L$(3)="NL-10 VIERFACH/D"
  15. 84 M$(4)="[206][204]-10 VIERFACHE [196]ICHTE/[214]IERFACHANSCHLAG":L$(4)="NL-10 VIERFACH/V"
  16. 85 M$(5)="[197]PSON UND [203]OMPATIBLE":L$(5)="EPSON KOMPATIBLE"
  17. 90 PRINT" [196]RUCKER: "
  18. 95 X=PEEK(211):Y=PEEK(214)
  19. 100 G=2
  20. 110 POKE214,Y:POKE211,X:SYS58640
  21. 120 FORF=1TOAN
  22. 130 IFF=GTHENPRINT"";
  23. 140 PRINTM$(F):IFF=1ORF=4THENPRINT"";
  24. 145 NEXT
  25. 150 POKE198,0:WAIT198,1:GETI$:POKE198,0
  26. 160 IFI$=""THENG=G+1:IFG>ANTHENG=1
  27. 170 IFI$="[145]"THENG=G-1:IFG=0THENG=AN
  28. 180 IFI$=CHR$(13)THEN200
  29. 190 GOTO110
  30. 200 OPEN15,8,15
  31. 205 PRINT#15,"I"
  32. 210 PRINT#15,"S:EGA - PRINT"
  33. 220 PRINT#15,"C:EGA - PRINT="L$(G)
  34. 230 CLOSE15
  35. 300 OPEN15,8,15:INPUT#15,E1$,E2$,E3$,E4$:PRINT""E1$","E2$","E3$","E4$:CLOSE15
  36. 990 END
  37. 9990 N$="DRUCKERWAHL/EGA":OPEN1,8,15,"S:"+N$:CLOSE1:SAVEN$,8
  38.