home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 202
/
202.d81
/
frank2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
32 lines
0 poke56,14:clr:v=53248:dv=peek(186):poke53265,11
1 pokev+32,.:pokev+33,.:f$="orbit":k=2
3 sys57812f$,dv,1:poke780,0:poke781,0:poke782,64:sys65493
5 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):poke53265,27: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
14 rem ****** program designed by c. de boissiere ****** las vegas, nevada
15 load"h",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$
36 ifk<3thenreturn
37 fort=1to3000:next:print"[147]"
38 v$=" t h e e n d ":v1$=" "
39 ifk=3thenk=4:goto31
40 goto15
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$="frank2":open15,d,15,"s0:"+n$:close15:saven$,d:end