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