home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magic Disk 64
/
Magic_Disk_64_95-06_1995_-_de_Side_A.d64
/
vektor-reset
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2023-02-26
|
848b
|
26 lines
50 poke53280,12:poke53281,11
100 print"[147] [214][197][203][212][207][210]-[210][197][211][197][212] [146]"
110 print"[196]ieses [208]rogramm setzt die [196]atei"
120 print"'[214][197][203][212][207][210].[207][194][202]' wieder in ihren [213]rsprungs-"
130 print"[218]ustand zurueck, indem es sie mit den"
140 print"[196]aten von '[214][197][203][212][207][210].[207][204][196]' ueberschreibt."
150 print"[215]enden [211]ie dieses [208]rogramm nur bei in-"
160 print"korrekter [198]unktion von '[214]ektorrechnung'"
170 print"an. [200]ierbei gehen ggf. gemachte [196]rucker-";
180 print"[197]instellungen [150]unwiederruflich verloren!"
190 print:print"[153][205]oechten [211]ie das [208]rogramm wirklich"
200 print"zuruecksetzen ([202]=[202]a, [206]=[206]ein) ? ";
210 geta$:ifa$=""then210
220 printa$:ifa$="j"then300
230 print:print"[150]*** [208]rogramm abgebrochen!"
240 end
300 print:print"[211]etze [208]arameterfile zurueck...";
305 open1,8,15
310 print#1,"s:vektor .obj"
320 print#1,"c:vektor .obj=vektor .old"
330 close1
340 print"fertig!"
350 print:print"[194]itte laden und starten [211]ie '[214]ektor-"
360 print"[210]echnung' nun von neuem."
370 end