home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 16
/
Tiger_Disk_016_19xx_Tiger-Crew-Disk_de_Side_B.d64
/
game-loader
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
600b
|
21 lines
10 print"[147]":poke788,52:ifa=0thengosub39000
11 ifa=0thenprint"[147][144] bitte waehlen :":goto13
12 sys49152
13 fori=1to5:reada$(i):next
14 datadetonation,flap,platforms,scavenger-hunt,speedway
15 print"":fori=1to5:print" ";i;" -> ";a$(i):next
16 getb$:b=val(b$):ifb<1orb>5then16
17 a=1:loada$(b),8,1
39000 poke53280,6:poke53281,6:poke646,1
39001 print"[147] tiger-disk 16 / 02 [146] einlegen !!!!"
40000 poke198,0:wait198,1
40010 open15,8,15:print#15,"i":open1,8,3,"#":print#15,"u1 3 0 18 0"
40020 print#15,"b-p 3 162":get#1,a$,b$,c$,d$,e$
40030 close15:close1
40031 ifa$<>"1"then40000
40032 ifb$<>"6"then40000
40033 ifc$<>"/"then40000
40034 ifd$<>"0"then40000
40035 ife$<>"2"then40000
40036 poke646,0:poke53280,15:poke53281,15:poke198,0:return