home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 180
/
180.d81
/
win
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
42 lines
8 dv=peek(186):ifdv<8thendv=8
10 rem win-jc hilty-9/92-escape route
11 ifa=0thena=1:load"pic.now",dv,1
12 ifa=1thena=2:load"zippack",dv,1
13 poke49167,dv
14 ifa=2thena=3:load"writer",dv,1
16 ifa=3thena=4:load"escape1.font",dv,1
17 ifa=4thena=5:load"play",dv,1
18 sys49152,"pic12",40960,24576
19 poke147,0:sys57812"mus1",dv,1:sys62631:sys57812"mus2",dv,1:sys62631
21 open3,dv,3,"stats,s,r":input#3,dy:input#3,ms:input#3,sc:input#3,ft:close3
22 sys860:sys52222,40960
23 sys16384,2,24576,14336,23552
24 sys16439,0,1,21,"[215]ell, [201]ce[204]ady, [201] hope you have learned"
26 sys16439,0,1,22,"that crime does not pay."
28 sys16439,0,1,23,"[217]ou can never escape from a great"
30 sys16439,0,1,24,"detective like myself."
32 wait56320,16,16:gosub500
34 sys16439,1,1,21,"[193]ll right, all right."
36 sys16439,1,1,22,"[196]id you have to chain me to the car."
38 sys16439,1,1,23,"[193]nd how about slowing down..."
40 sys16439,1,1,24,"[201] am not motorized, you know."
42 wait56320,16,16:gosub500
43 sys16439,1,8,22,"score":sys16439,1,15,22,sc:wait56320,16,16:gosub500
45 sys16439,1,8,22,"[208]lay again y or n"
46 poke198,0
50 geta$:ifa$=""then50
52 ifa$="y"thensys52225:goto60
54 ifa$="n"thensys52225:goto80
56 goto50
60 poke56576,(peek(56576)and252)or3:poke53265,27:poke53270,200:poke53272,21
62 poke53281,0:poke53280,0:print"[147]"
64 a$="b.escape route":q$=chr$(34)
66 print"[144][147]load"q$a$q$","dv
68 print"run":poke631,13:poke632,13:poke198,2:end
80 poke56576,(peek(56576)and252)or3:poke53265,27:poke53270,200:poke53272,21
82 print"[147]":new
84 end
500 fort=21to24:sys16439,0,1,t," ":next
502 return
10000 d=peek(186):n$="0:win":open15,d,15,"s"+n$:close15:saven$,d:end