home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 March / 64er_Magazin_87-03_1987_Markt__Technik_de_Side_A.d64 / listing (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  498 b   |  24 lines
  1. 1 rem einstellen des zeilenabstandes
  2. 2 rem mit n/216 zoll
  3. 5 printchr$(147)
  4. 10 input"wieviel n/216 zoll";zo
  5. 20 open1,4
  6. 25 rem definition eines kastens
  7. 30 print#1,chr$(27);":";chr$(0);chr$(0);chr$(0);
  8. 40 print#1,chr$(27);"%";chr$(1);chr$(0);
  9. 50 print#1,chr$(27);"&";chr$(0);"aa";
  10. 60 print#1,chr$(139);
  11. 70 for n=1to11
  12. 80 reada
  13. 90 print#1,chr$(a);
  14. 95 data 255,0,255,0,255,0,255,0,255,255,0
  15. 100 nextn
  16. 105 rem festlegen des zeilenabstandes
  17. 110 print#1,chr$(27);chr$(51);chr$(zo)
  18. 115 for a=1to3
  19. 118 rem ausdruck einer zeile des neuen
  20. 119 rem zeichens
  21. 120 print#1,"aaaaaaaaaaaaaaaaaaaaaaaa"
  22. 130 next
  23. 200 run
  24.