home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 202
/
202.d81
/
frank1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
35 lines
0 poke56,14:clr:v=53248:dv=peek(186)
1 pokev+32,.:pokev+33,.:f$="ringed":k=1
2 sys57812"unpacker",dv:poke780,0:poke781,0:poke782,201:sys65493
3 sys57812f$,dv,1:poke780,0:poke781,0:poke782,64:sys65493
4 sys57812"digiplayer.mod",dv,1:poke780,0:poke781,0:poke782,15:sys65493
5 print"[147]": poke249,224:poke250,204:poke251,0:poke252,64:poke253,0
6 poke255,0:sys51456:sp=10:rw$=".raw"
7 gosub20:a$=a$+rw$:gosub9:sys3849:close8:sp=peek(5120):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
13 print"[147]":return
14 rem ****** program designed by c. de boissiere ****** las vegas, nevada
15 load"frank2",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:poke214,10:print
32 printtab(5)v$
33 printtab(5)v1$
34 ifk=2thenfort=1to3000:next
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$="":return
53 v$="you're all clear, kid. now let's":v1$="blow this thing and go home."
54 return
10000 d=peek(186):n$="frank1":open15,d,15,"s0:"+n$:close15:saven$,d:end