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