10 POKE53280,0:POKE53281,0:PRINT""
20 POKE55,0:POKE56,96:CLR
22 DV=PEEK(186):IFDV<8THENDV=8
25 REMGOTO45
30 SYS57812"SYS TOOLBOX.BHS",DV,0:POKE781,0:POKE782,192:SYS65493
40 SYS57812"PKNEES 84",DV,0:POKE781,0:POKE782,96:SYS65493
45 PRINT"[147]"
50 SYS49152,7,4,15,7,34,160,12
52 SYS49152,7,2,13,5,31,160,15
54 SYS49152,7,4,13,32,32,101+128,12
60 PRINTTAB(10)"[155][195][210][217][208][212][201][195] [195][210][207][211][211][215][207][210][196]"
62 PRINTTAB(10)"[163][163][163][163][163][163][163] [163][163][163][163][163][163][163][163][163]"
65 PRINTTAB(7)"1] [208]RINT [208]UZZLE
70 [153][163]7)"2] (null)RINT (null)OLUTION
75 PRINTTAB(7)"3] [211]OLVING [201]NSTRUCTIONS
77 [153][163]7)"4] (null)UZZLE VALXPLANATION
79 PRINTTAB(7)"5] [197]XIT"
80 PRINTTAB(5)"[155][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
81 SYS49152,7,19,20,0,39,98,11
82 SYS49152,7,23,24,0,39,98+128,11
83 SYS49152,4,0:POKE198,0
85 SYS49152,3,0,0,1,14,20,160,"[208]RESS 1-5 TO SELECT.
90 [161]K$:[139]K$[178]""[167]85
95 K[178][197](K$):[139]K[179]1[176] K[177]5[167]85
100 [145]K[141]1000,2000,3000,5000,4000
105 [137]85
110 :
1000 [158]49152,10,15,4:[158]49152,6,6,7,6,30,12
1002 [158]49152,3,0,0,1,14,20,160,"(null)RINTER READY?  (Y/N)"
1005 [161]K$:[139]K$[178]""[167]1002
1010 [139]K$[179][177]"Y"[167][158]49152,5,0:[142]
1012 [158]49152,10,4,3
1015 [158]49152,7,20,23,0,39,160,14
1020 [151]214,20:[153]:[153][163]15)"CONT(null)RINTING..."
1025 [158]24576:[158]49152,5,0:[142]
1030 :
2000 [158]49152,10,15,4:[158]49152,6,7,8,6,30,12
2002 [158]49152,3,0,0,1,14,20,160,"(null)RINTER READY?  (Y/N)"
2005 [161]K$:[139]K$[178]""[167]2002
2010 [139]K$[179][177]"Y"[167][158]49152,5,0:[142]
2012 [158]49152,10,4,3
2015 [158]49152,7,20,23,0,39,160,14
2020 [151]214,20:[153]:[153][163]15)"CONT(null)RINTING..."
2025 [158]24576[170]3:[158]49152,5,0:[142]
2030 :
3000 [153]"LIST":[158]49152,13,DV,[198]("\"),"CRYPTO INSTR"
3005 [158]49152,5,0:[142]
3010 :
4000 [158]49152,10,15,4:[158]49152,6,10,11,6,30,12
4002 [158]49152,3,0,0,1,14,20,160,"ATNRE (null)OU (null)URE?  (Y/N)"
4005 [161]K$:[139]K$[178]""[167]4002
4010 [139]K$[179][177]"Y"[167][158]49152,5,0:[142]
4012 [151]55,0:[151]56,160:[156]
4050 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER%:[160]15
4055 [139]ER%[179][177]63[167][128]
4060 [151]646,[194](53281)
4062 [153]"LOADWAITLOAD"[199](34)"HELLO CONNECT"[199](34)","8
4065 [153]"RUN"
4075 [151]631,13:[151]632,13:[151]633,13:[151]198,3:[128]
4080 :
5000 [153]"LIST":[158]49152,13,DV,[198]("\"),"EXPLANATION"
5005 [158]49152,5,0:[142]
5010 :
10000 [159]15,8,15,"S0:PXWORD":[160]15:[148]"0:PXWORD",8