home *** CD-ROM | disk | FTP | other *** search
/ Publication 5 / Publication_05_19xx_High-Tech_de_Side_A.d64 / schreibmaschine! (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  522b  |  18 lines
  1. 10 open1,4,7:rem drucker oeffnen
  2. 11 print#1,chr$(17)
  3. 12 geta$:ifa$=""then12
  4. 13 ifa$=chr$(13)thenprint#1,a$;:x=-2:printa$;:goto12
  5. 14 x=x+3:rem zaehler erhoehen
  6. 15 print#1,a$chr$(27)chr$(0)chr$(x);:printa$;
  7. 16 goto12
  8. 17 rem
  9. 18 rem ********************************
  10. 19 rem *                              *
  11. 20 rem *  schreibmaschiene fuer mps:  *
  12. 21 rem * ---------------------------- *
  13. 22 rem *                              *
  14. 23 rem * verbesserte version fuer die *
  15. 24 rem *  publication von zeitgeist!  *
  16. 25 rem *                              *
  17. 26 rem ********************************
  18.