home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh1x
/
sh11b.d64
/
lauftext1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
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