home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 11
/
64er_Magazin_Sonderheft_11_86-11_1986_Markt__Technik_de_Side_B.d64
/
lauftext1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
636b
|
21 lines
1 poke46,128:clr
10 poke53280,0:poke53281,0:print"[147]"
20 print"lauftext - vorbereitung"
30 print"bitte legen sie eine diskette ein,"
40 print"auf der die einzelnen programme"
50 print"gespeichert werden koennen"
60 print"taste"
70 poke198,0:wait198,1:poke198,0
80 print"[147]danke"
90 print"die programme werden jetzt gespeichert"
99 print"bitte warten"
100 open2,8,2,"editor,p,w"
110 fori=2700to4697:print#2,chr$(peek(i));:next:close2
120 open2,8,2,"m^s+e3,p,w"
130 fori=4700to5754:print#2,chr$(peek(i));:next:close2
140 open2,8,2,"sa+lo(53240),p,w"
150 fori=5800to6257:print#2,chr$(peek(i));:next:close2
160 open2,8,2,"edisprite,p,w"
170 fori=6300to6813:print#2,chr$(peek(i));:next:close2
180 end:written by germano caronni