home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
86xx
/
8611a.d64
/
startool
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
536b
|
21 lines
5 IFA=0THENA=1:LOAD"PATCH.MODE",8,1
10 PRINT"[147]";CHR$(14)
20 A$="[211]TARTOOL.[208]ATCH +"
30 PRINTTAB(20-LEN(A$)/2)A$:PRINT
40 PRINT" [194]ITTE GEBEN SIE DIE [198]ARBEN EIN !":PRINT
45 HF=9:RF=0:SF=7
50 INPUT"[200]INTERGRUNDFARBE";HF:PRINT
60 INPUT"[210]AHMENFARBE";RF:PRINT
70 INPUT"[211]CHREIBFARBE";SF:PRINT
110 INPUT"OKAY";A$:IFLEFT$(A$,1)<>"J"THEN10
200 PRINT
210 PRINT"[194]ITTE LEGEN SIE JETZT EINE SICHERHEITS-";
220 PRINT"KOPIE VON [211]TAR[212]OOL IN [204]AUFWERK 8 EIN";
230 PRINT" UND DRUECKEN DANN EINE [212]ASTE !"
250 POKE198,0:WAIT198,255
300 OPEN1,8,15,"R:STARTOOL.OLD=STARTOOL.OBJ":CLOSE1
310 POKE49311,RF
320 POKE49316,HF
330 POKE49231,SF
340 SYS49152