home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh18a.d64 / epson-grafik (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  40 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 FOR X=0 TO 2880
  36. 80 U=INT(RND(1)*255)
  37. 82 POKE A+X,U:PRINT U;
  38. 84 NEXT X
  39. 86 RETURN
  40.