home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 93xx / 9302b.d64 / microsetup (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  922b  |  41 lines
  1. 999 DR=4:SE=1
  2. 1000 OPEN1,8,15,"S:PR-MICRO"
  3. 1010 PRINT#1,"C:PR-MICRO=MICRODRUCK"
  4. 1020 OPEN2,8,2,"PR-MICRO,P,A"
  5. 1030 PRINT#2,CHR$(DR);CHR$(SE);:C$=""
  6. 1040 READA$:IF A$="*" THEN 1070
  7. 1050 C$=C$+CHR$(VAL(A$))
  8. 1060 GOTO 1040
  9. 1070 PRINT#2,CHR$(LEN(C$));C$;
  10. 1080 C$=""
  11. 1090 READA$:IF A$<>"*" THEN 1050
  12. 1100 CLOSE2:CLOSE1
  13. 1110 END
  14. 2000 REM CODE FUER ZEILENVORSCHUB
  15. 2010 DATA 13,*
  16. 2100 REM CODE FUER 1920 PUNKTE/ZEILE
  17. 2101 REM BZW. 240 PUNKTE/ZOLL
  18. 2110 DATA 27,42,3,*
  19. 2200 REM CODE FUER 0/216 ZOLL VORSCHUB
  20. 2210 DATA 27,51,0,*
  21. 2300 REM CODE FUER 1/216 ZOLL VORSCHUB
  22. 2310 DATA 27,51,1,*
  23. 2400 REM CODE FUER 14/216 ZOLL VORSCHUB
  24. 2410 DATA 27,51,14,*
  25. 2500 REM CODE FUER 22/216 ZOLL VORSCHUB
  26. 2510 DATA 27,51,22,*
  27. 2601 REM BZW. 60 PUNKTE/ZOLL
  28. 2610 DATA 27,42,0,*
  29. 2700 REM CODE UM DAS BLATT UM 400/216
  30. 2701 REM ZOLL VORZUSCHIEBEN
  31. 2710 DATA 27,74,200,27,74,200,*
  32. 2800 REM CODE UM DAS BLATT UM 400/216
  33. 2801 REM ZOLL ZURUECKZUZIEHEN
  34. 2810 DATA 27,106,200,27,106,200,*
  35. 2900 REM DRUCKERINITIALISIERUNG
  36. 2901 REM (HIER NUR EIN PIEPSER)
  37. 2910 DATA 7,*
  38. 3000 REM DRUCKER ZURUECKSETZEN
  39. 3010 DATA 27,50,*
  40. 9999 DATA *
  41.