home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh9x
/
sh93b.d64
/
stonloader
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
630b
|
17 lines
10 REM STONWATER 90'LEIPZIG
20 POKE53280,0:POKE53281,0:OPEN15,8,15,"I0":OPEN2,8,2,"#":PRINT"[147]"
30 PRINT#15,"U1:2,0,18,0":PRINT#15,"B-P:2,144":FORI=1TO20:GET#2,A$:N$=N$+A$
40 NEXT:PRINT"[154][213][196][196][196][196][196][196][196][196][196][196][196][196][201] [213][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][201] [199] STONLOADER [200] [199] ";N$;
50 PRINT"[154] [200]":PRINT"[202][198][198][198][198][198][198][198][198][198][198][198][198][203] [202][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][203]":OPEN1,8,0,"$0"
60 IFLEFT$(D$,10)=LEFT$(N$,10)ORD$=""THEN90
70 A=A+1:IFA=16THEN150
80 PRINT"LOAD ";CHR$(34);D$;CHR$(34);" ";:PRINT TAB(35);"[154],8"
90 D$="":GET#1,B$:IF ST<>0 THEN130
100 IF B$<>CHR$(34) THEN90
110 GET#1,B$:IFB$<>CHR$(34)THEND$=D$+B$:GOTO110
120 IF ST=0 THEN60
130 CLOSE1:CLOSE15:CLOSE2
140 PRINT"RUN":PRINT"[154]AUSWAHL MIT CRSR_ (RETURN)":END
150 PRINT:INPUT"[154]WEITER";X$:IFX$="N"THEN 130
160 A=0:PRINT"":GOTO120