0 IFB=0THENB=1:PRINT"[147]":LOAD"22",8,1
1 IFB=1THENB=2:LOAD"23",8,1
2 IFB=2THENB=3:LOAD"24",8,1
3 IFB=3THENB=4:LOAD"11",8,1
4 FORT=1984TO2023:POKET,160:NEXTT:FORT=1063TO2023STEP40:POKET,160:NEXT
5 FORT=1464TO1503:POKET,160:NEXT:FORT=1504TO1542:POKET,61:NEXT:PRINT:SYS24576
6 POKE24667,8:POKE24678,8:S=54272:V=53248:SI=54279
7 FORT=1TO7:POKE2040+T,248+T:NEXT:POKEV+40,250:POKEV+41,242:POKEV+42,252
8 POKEV+43,255:POKEV+44,246:POKEV+45,254:POKEV+46,7:POKEV+23,0:POKEV+29,254
9 POKEV+28,0:FORT=0TO24:POKES+T,0:NEXT:POKES+24,15:POKES+5,255:POKESI+5,255
10 POKE53282,14:POKE53283,9:GOSUB52:PRINT"Y[129]HJYYYYYYYY[158][160]YYYYYYYYYYYYYYYYYYYYYYYYYYY
11 [153]" LISTNM   G        SYST   <>?     LISTG     SYST
12 PRINT"TYYY<>?YYYY[155]BYYYYYYYYYYY[158]TYYYYYY[155][171][154][179][129][177][178][146]YY[158]TYY
13 [153]"  UI    SYST    OPENPOSAND     SYSO      SYST  LISTORCONT^*RNDWAIT   LISTG
14 PRINT"  [156]KL     [158]  T      T    [159][185][175]     [155][173][189][188][154][190]
15 [153]"     SYSPOSAND       T      T       ABS   T
16 PRINT"  [158][182]    [155][209][215][197][171][154][179][177] [158][182] [144]TYUI[146]     4567[146][158]      [155][163][183][184][162]
17 [153]"     ABS LISTATN(null)CONTSTR$OR^* STOP  GHJK@*^WAITABS STOP89+-WAIT OPWAIT ABS LISTFNFORSGNINTGET
18 PRINT"[144][208][162]_!#$ [155][218][216][154][195][173][189][188] [144]@ BNM,[186][192][255][146][162]5\[219][219][169]5L:[146] _$[155][182][129][191][144][170][167]":PRINT:PRINT
19 PRINT"[150]^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
20 [153]"[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
21 PRINT"[150]QWE[151]R[146] * [153][201][207]   [155][223][146] +    * [175][146][154] , . [153][160][146]   [161] +  @
22 [153]"DEFASDPOKEFWAITFOR   (null)(null) LIST(null)WAIT  (null)(null)VALDEF(null)(null)(null)FOR(null)RIGHT$]WAITFOR,>WAIT +   . ;  CONTSPC((null)NOT .
23 PRINT"[155] X[129]C[154]QWE[151]R[146]    [155]- [129][193][211][150][196][198][199][200][129][202][203][[146] [155][210][212][150][217][213][155][178][163][183][150][184]   [154][164][223][255]
24 [153]" LISTXFORCCONTASDPOKEFWAIT /LIST - .FOR(null)(null)DEFLEN(null)LISTPEEK(null)FOR(null)<(null)WAITLIST ASCDEFCHR$LEFT$MID$LISTRNDFNSGNDEFINT FORSPC((null)NOTLIST]+ PRINTCLOSE
25 PRINT"[129]QWE[151]R[155]X[129]C[146]   + [155]\ [162]  [155]X[129]C[146] @ [221][146] [129][214][194][155][206][205][190][191][129][170][167] [164][223][255][155]: [162]
26 [153]"FORASDPOKEFLISTZFORVWAIT GET FOR%&LIST'(  QWER .POSWAIT+  LIST_PRINT#1DEF2FOR3WAITPRINT RIGHT$(null)  /
27 PRINT" + . [162] ; [129])[219][151][221][129][169]  [155]ASDF[162] [185][146][153] [160][146] [155]![152]#[150]$[129]%[146] [203][204] .[129]  ;[155]=[146]
28 [153]"CLRSQRSQRSQRSQRSQRSQRSQRSQRSQRSQRSQRSQRSQRSQRSQRLISTZXCVCLRSQRSQRSQRSQRSQRSQRSQRSQRSQRSQRSQRSQRSQRSQRSQRSQRSQRSQRSQRSQR
29 PRINT"[152][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][155]X[129]C[146][152][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":POKEV+21,254
30 FORT=0TO15:POKEV+T,0:NEXT:FORT=0TO137STEP.5:POKE49216,T:POKE49217,T+30:SYS49408
31 GOSUB1000:NEXTT:FORT=138TO230STEP.4:GOSUB1000:NEXTT:POKEV,0:FORR=0TO3000:NEXT
32 POKE2040,248:POKEV+1,0:POKEV+16,1:POKEV+39,0:POKEV+21,255:POKEV+1,70:POKES+24,2:POKES+5,63
33 POKES+1,255:POKES+4,129:POKESI+4,0:POKESI+5,127:POKESI+1,255:POKESI+4,33
35 FORT=100TO0STEP-1:POKEV,T:NEXTT:POKEV,255:POKEV+16,0:FORT=255TO187STEP-1
36 POKEV,T:NEXTT:FORT=70TO113STEP.5::POKES+1,113-T:POKESI+1,255-T:POKEV+1,T:NEXT
37 FORT=142TO0STEP-.1:POKESI+1,T:NEXTT:FORT=0TO1000:NEXTT:POKESI+4,0:POKES+4,0
38 FORT=0TO1000:NEXTT:POKES+5,127:POKES+1,255:POKESI+5,127:POKESI+1,255:POKES+4,33
39 POKESI+4,129:FORT=113TO90STEP-.3
40 POKEV+1,T:NEXT:FORT=187TO0STEP-4:POKES+1,T:POKESI+1,T:POKEV,T:NEXTT:POKES+5,2
50 POKESI+5,2:FORA=0TO15:READX:FORB=0TO2:FORC=0TO3:POKE56111+B*40+C,X+8:NEXTC,B,A:RESTORE:GOTO50
52 PRINT"[144]YYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYY":DATA1,7,3,5,4,2,6,0,0,6,2,4,5,3,7,1
53 PRINT"   [155]B[158]     T     [155]  G     [158]T[155]     P    G":RETURN
1000 POKES+1,237-T:POKES+4,129:POKESI+1,237-T:POKESI+4,33:RETURN