home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_1997-10_1997_CSW_Side_A.d64 / print.anl.ascii (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  430b  |  18 lines
  1. 0 l=0:o=4
  2. 1 input"[147][193]usgabe auf [196][146]rucker oder [194][146]ildschirm ";a$
  3. 2 ifa$="d"ora$="[196]"theno=4:goto5
  4. 3 ifa$="b"ora$="[194]"theno=3:print"[211][200][201][198][212] druecken um [193]usgabe anzuhalten!":goto10
  5. 4 goto1
  6. 5 input"[204]inefeed senden (j/n) ";a$
  7. 6 ifa$<>"j"anda$<>"n"then5
  8. 7 ifa$="j"thenl=1
  9. 10 open1,8,0,"anleitung.ascii,s,r"
  10. 20 open2,o
  11. 30 get#1,a$:a=st
  12. 35 iflthenifasc(a$)=13thena$=a$+chr$(10)
  13. 40 print#2,a$;
  14. 41 ifpeek(653)then41
  15. 45 ifst=-128thenclose1:close2:print"[196]rucker reagiert nicht!":end
  16. 50 ifa<>64then30
  17. 60 close1:close2
  18.