11 POKE53280,0:POKE53281,0:GOSUB50
12 DIMT(12):FORX=0TO11:READD:T(X)=D:NEXT
13 DATA219,91,219,91,219,91,91,219,91,219,91,219
14 CR=91:RC=219:SP=32:PO=1430:TS=1630
15 PRINT"[147][150]    KEYS 1 TO 6 TO TOGGLE CHARACTERS"
16 PRINT"            RETURN [146] TO EXECUTE."
17 FORX=0TO4STEP2:POKEPO+X,CR:NEXT:FORX=6TO10STEP2:POKEPO+X,RC:NEXT
18 GETA$:IFA$=""THEN18
19 IFA$=CHR$(13)THEN27
20 A=VAL(A$):IFA<1ORA>6THEN18
21 A=(A-1)*2:GOSUB23
22 GOTO18
23 N=PEEK(PO+A):IFN=RCTHENN=CR:POKEPO+A,N:GOTO25
24 POKEPO+A,RC
25 RETURN
26 END
27 PRINT"HERE WE GO!":L=0:L1=0
28 C=PO+L:C=C-40:C1=PEEK(PO+L):POKEPO+L,32
29 FORX=0TO11-L1:POKEC+X ,C1:POKEC-1+X,32:FORY=0TO40:NEXTY,X:FORY=0TO75:NEXT
30 POKEC-1+X,32:C=C+40:POKEC+X,C1:
31 C=PO+2:C=C+40:C1=PEEK(PO+L+2):POKEPO+L+2,32
32 FORX=LTO-2+L1STEP-1:POKEC+X,C1:POKEC+1+X,32:FORY=0TO30:NEXTY,X:
33 FORY=0TO75:NEXT
34 FORN=1TO4:POKEC+1+X,32:C=C+40:POKEC+1+X,C1:FORY=1TO75:NEXTY,N
35 L1=L1+2:L=L+4:IFL<>24THEN28
36 FORX=12TO0STEP-2
37 IFPEEK(TS)<>T(0)THENX=7:Y=2:GOTO39
38 X=1:Y=2
39 IFPEEK(TS+Y)=T(X)THEN41
40 GOTO 44
41 X=X+1:Y=Y+2
42 IFY<>12THEN 39
43 PRINT"[158]YEAH!!! - WELL DONE!":GOSUB63:GOTO45
44 PRINT"[151]OOPS,  NOT QUITE!"
45 PRINT"ANOTHER GO   <Y/N>?
46 [161]A$:[139]A$[178]""[167]46
47 [139]A$[178]"Y"[167][153]"DEF":[140]:[138]12
48 [153]"LOADCONT":[151]53281,6:[151]53280,14
49 [128]
50 [153]"LOADDEF              THE SHUFFLE"
51 [153]"CONT         (null)TANRIGHT$ = = TANTANRIGHT$ TANTANRIGHT$ =  ORTANTAN"
52 [153]"LIST         (null) (null) (null) (null)  (null)(null)  (null)(null) (null)  (null) "
53 [153]"POKE         -TAN(null) (null) (null) (null)(null)  (null)(null)  (null)  -TAN"
54 [153]"PRINT#         (null)   (null) (null) (null)   (null)   (null)  (null) "
55 [153]"         >   MID$TAN(null)CLOSEMID$TAN(null) MID$TAN(null)CLOSE/TANTAN/TANTAN"
56 [153]"            ANY KEY TO START "
57 [161]A$:[139]A$[178]""[167]57
58 [142]
63 [129]X[178]0[164]96:[151]53280,X:[151]53281,X:[130]:[142]