home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh18a.d64 / rahmen (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  44 lines
  1. 10 REM PROGRAMM EPSON-GRAFIK
  2. 12 REM DRUCKERKURS 64'ER (AW)
  3. 14 PRINT CHR$(147)
  4. 16 REM*********************************
  5. 18 REM KANAL ZUM DRUCKER OEFFNEN
  6. 20 REM*********************************
  7. 22 OPEN 1,4
  8. 24 A=8192:GOSUB 78
  9. 26 PRINT#1,CHR$(27);CHR$(51);CHR$(24)
  10. 28 REM*********************************
  11. 30 REM ZEILENABSTAND AUF 24/216
  12. 32 REM*********************************
  13. 34 FOR M=1 TO 3:REM DREI ZEILEN
  14. 36 REM*********************************
  15. 38 REM GRAFIMODUS ESC "*" M=1 (960)
  16. 40 REM*********************************
  17. 42 PRINT#1,CHR$(27);CHR$(42);CHR$(1);CHR$(195);CHR$(3);
  18. 44 REM*********************************
  19. 46 REM EINE ZEILE DRUCKEN (960) PUNKTE
  20. 48 REM*********************************
  21. 50 FOR Z=0 TO 960
  22. 52 B=PEEK(A+Z)
  23. 54 PRINT#1,CHR$(B);
  24. 56 NEXT Z
  25. 58 A=A+960
  26. 60 REM*********************************
  27. 62 REM EINEN ZEILENVORSCHUB
  28. 64 REM*********************************
  29. 66 PRINT#1,CHR$(13)
  30. 68 NEXT M
  31. 70 END
  32. 72 REM*********************************
  33. 74 REM ZUFALLSMUSTER AB 8192
  34. 76 REM*********************************
  35. 78 POKE 8192,255
  36. 80 FOR X=8193 TO 9150:POKE X,128:NEXT X
  37. 82 POKE 9151,255
  38. 84 POKE 9152,255
  39. 86 FOR X=9153 TO 10110:POKE X,0:NEXT X
  40. 88 POKE 10111,255
  41. 90 POKE 10112,255
  42. 92 FOR X=10113 TO 11070:POKE X,1:NEXT X
  43. 96 RETURN
  44.