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