home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh18a.d64 / interface (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  847b  |  29 lines
  1. 10 PRINT"[147]       ****  PRINTER-BASIC  ****"
  2. 20 PRINT"         INTERFACE -ANPASSUNG"
  3. 30 PRINT"  DISKETTE MIT PRINTER-BASIC[146] EINLEGEN,"
  4. 40 PRINT"      SCHREIBSCHUTZ ENTFERNEN UND"
  5. 50 PRINT"            RETURN[146] DRUECKEN"
  6. 60 GETA$:IFA$<>CHR$(13)THEN60
  7. 65 PRINT"[147]              BITTE WARTEN"
  8. 70 OPEN2,8,2,"PRINTER-BASIC,P,R"
  9. 80 DIMW$(1900):I=0
  10. 90 GET#2,A$:W$(I)=A$:IFST=0THENI=I+1:GOTO90
  11. 100 CLOSE2
  12. 110 PRINT"[147] DEVICENUMMER  ";ASC(W$(799)+CHR$(0))
  13. 115 INPUT"[145]";A
  14. 120 W$(799)=CHR$(A)
  15. 130 PRINT" FILENUMMER    ";ASC(W$(797)+CHR$(0))
  16. 135 INPUT"[145]";A
  17. 140 W$(797)=CHR$(A):W$(822)=W$(797)
  18. 150 PRINT" SEKUNDAERADR. ";ASC(W$(801)+CHR$(0))
  19. 155 INPUT"[145]";A
  20. 160 W$(801)=CHR$(A)
  21. 170 PRINT" SIND SIE SICHER (J/N) ?"
  22. 180 GETA$:IFA$="N"THEN110
  23. 190 IFA$<>"J"THEN180
  24. 195 PRINT"              BITTE WARTEN"
  25. 200 OPEN1,8,15,"S:PRINTER-BASIC"
  26. 210 OPEN2,8,2,"PRINTER-BASIC,P,W"
  27. 220 FORI=0TO1900:PRINT#2,CHR$(ASC(W$(I)+CHR$(0)));:NEXT
  28. 230 CLOSE2
  29.