home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 202
/
202.d81
/
frank
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
33 lines
0 poke56,14:clr:v=53248:dv=peek(186)
1 pokev+32,.:pokev+33,.:f$="ship3.shp":k=0
2 sys57812"digiplayer.mod",dv,1:poke780,0:poke781,0:poke782,15:sys65493
3 sys57812"unpacker.98",dv:poke780,0:poke781,128:poke782,200:sys65493
4 sys51328,f$,dv,224,204:poke252,224:poke253,204:sys51459
6 sp=10:rw$=".raw"
7 gosub20:a$=a$+rw$:gosub9:sys3849:close8:sp=peek(5120):rem:sys51459
8 poke3855,sp-1:sys3846:goto10
9 open8,dv,8,"0:"+a$+",p,r":return
10 z=z+1:fort=1to1000:next:ifz<3then8
11 sys51459:gosub12:goto15
12 goto30:remnt"[147][144] 'we're running out of time!'":fort=1to3000:next
13 print"[147]":return
14 rem ****** program designed by c. de boissiere ****** las vegas, nevada
15 load"frank1",dv
16 end
20 ifk=0thenk=1:a$="roger":return
21 ifk=1thenk=2:a$="force":return
22 ifk=2thenk=3:a$="clear":return
30 gosub50
31 pokev+32,0:pokev+33,0:pokev+24,20:poke214,10:print
32 printtab(5)v$
33 printtab(5)v1$
36 ifk<3thenreturn
37 ifk=3thenstop
38 fort=1to3000:next:print"[147]":return
39 stop
50 ifk=1thenv$=" we're running out of time":v1$="":return
51 ifk=2thenv$=" use the force, luke":v1$=""
53 v$="you're all clear, kid. now let's":v1$="blow this thing and go home."
54 return
10000 d=peek(186):n$="frank":open15,d,15,"s0:"+n$:close15:saven$,d:end