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