' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` `33`>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"_]` L/浍굺L  !"#$%&'()*+,-./0123456789:;<=>?  1#"""  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0EB H  @H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   vLDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-}#(# @3͠٠ˠ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` wi d ֠3z# 3u`3z#???     ήĮΠӠ͠٠ˠàҠĠҠ ӮʰӮà ήҠӠŠήĠŠRECTORY !!!": |:1000"X138:B$B$"=":3 ,X10511:NAME$(X)B$:I 6NAME$(0)(B$,19)U @D$(4)} E12:12:"READING CATALOG ":12:29 Y63075 ^2054:D$"CATALOG" c216,0:D$"PR#0":D$"IN#0": h(NA$(0),1)" "Ģ12:868:"!!! ERROR - UNABLE TO READ DI85:34,22 23:958T "SELECT A FILE BY NUMBER -->";A$:A(A$):AMAX2010_ A1Ĭ} :::T(A)66T$"BRUN " T(A)84T$"EXEC " T(A)65T(A)73T$"RUN " 23:T$A$(A) 23:D$T$A$(A)  NAME$(105),A$(105),T(105) ((NA$(N),8,1))942000! XX1: A$(X)(NA$(N),8,30)T T(X)((NA$(N),2,1))h X21İ30:2000 X21X61X101İ80 X41İ40:2000 $X41X81İ90 .X61İ30:2000 8X81İ40:2000 BX101İ30:2000 L40  MAXX 32,0:23:1::U Z85:23:"IS YOUR PROGRAM LISTED HERE? Y/";::"N";::" ";:A$:w dA$"Y"MAXN1:N105::2000 n23:958:34,1:35,21::35,24: 60:X0 N1105 ((NA$(N),8,1))652000 ((NA$(N),8,1))61N105:2000 8(ST6UVk,ȱk-`),-`G ::63000]Y140:"=";::qX;:5:A$(X):(" "X" ";:6:(A$(X),15):2X" ";:5:(NA$(X),8,15):<1:20:22:20:34,1:2:FP33,21:32,19:1:1:: U33,40:     POSSIBLE VALUES <C1NCMF(1280C)128(LT$)Ĺ(128020C),(V$)128~P(1408C)128(LT$)Ĺ(140820C),(V$)128Z(1664C)128(LT$)Ĺ(166420C),(V$)128dCnxCALCULATE POSSIBLE VALUES 34,7:C1NCA1280C)6(1408C)128(LT$)Ĺ1408C20,(1408C)e(1664C)128(LT$)Ĺ1664C20,(1664C)lCv1390| INSERT LETTERS AND CARRIES (LT$)48(LT$)ī1340(102420(NC1(LT$)),(V$)12821390:GOTO CALCULATE OF COLUMN ";LT$;" = ";VV$2`V$(13)ī1160JjV$"0"V$"1"1110RtV$\~1280byREINSERT LETTERS (LT$)48(LT$)ī1220102420(NC1(LT$)),("?")1281390C1NC(1280C)128(LT$)Ĺ1280C20,(V$ %CHECK FOR CONFLICTS +7C1NCp((128020C)128)V$((1280C))LT$ĺ(7):780$((140820C)128)V$((1408C))LT$ĺ(7):780.((1664C20)128)V$((1664C))LT$ĺ(7):7808CB1280L"CARRY T$(19)ī520:CTRL-S RESTARTS PROBLEM 8pLT$" "820VzLT$"1"LT$(NC)ī1100bC1NCz(R1$,C,1)LT$960(R2$,C,1)LT$960(R3$,C,1)LT$960C820LT$;" = ";V$V$(13)ī1160V$"0"V$"9"970)" IS EVEN."C ,TAKE A GUESS 2 ?*34,22:H4LT$q>LT$(17)Ĺ34,0::: CTRL-Q QUITS HLT$(9)640:CTRL-I RE APPLIES INITIAL RULES RLT$"?"LT$"/"İ1800:SHOW HELP SCREEN \LT$(18)ī80: CTRL-R RESTARTS 'fL;" & ";C1;" ARE 0 OR":" =9 & CARRY OF COLUMNS ";C;" & ";C1;" ARE 1"(R1$,L,1)(R3$,L,1)C1ĺ(R2$,L,1)"=0 & CARRY OF COLUMN 2 IS 0"(R2$,L,1)(R3$,L,1)C1ĺ(R1$,L,1)"=0 & CARRY OF COLUMN 2 IS 0" (R1$,L,1)(R2$,L,1)C1ĺ(R3$,L,1CARRY OF COLUMNS ";C;" AND ";C1;" ARE 0":770(R1$,L,1)(R3$,L,1)C1ĺ(R2$,L,1)"=0 & CARRY OF COLUMNS ";C;" & ";C1;" ARE 0 OR":" =9 & CARRY OF COLUMNS ";C;" & ";C1;" ARE 1"F(R2$,L,1)(R3$,L,1)C1ĺ(R1$,L,1)"=0 & CARRY OF COLUMNS ";CC3PERFORM INITIAL VARIABLE RESTRICTION 9E34,7:QC1NCaL(NCC1)CNC(R1$,L,1)" "(R2$,L,1)" "ĺ(R3$,L,1)"=1 & THE CARRY OF COLUMN "NC" IS 1".(R1$,L,1)(R2$,L,1)(R1$,L,1)(R3$,L,1)ĺ(R1$,L,1);" IS 0 & 02421,("0")128 DC1NCX N1280C,((R1$,C,1))128:1280C20,((R1$,C,1))128 X1408C,((R2$,C,1))128:1408C20,((R2$,C,1))128 b1536C,("-")128:1536C20,("-")128 l1664C,((R3$,C,1))128:1664C20,((R3$,C,1))128v" " C R1$T$R1$# T$""9 NC(R2$)0510L C1NC(R2$)Z T$T$" "a Cp R2$T$R2$z T$""  DO THE INITIAL DISPLAY  &34,0: 0NC1āC1NC1:102420C,("?")128:C:102420NC,("0")128 :NC1Ĺ11$)1NC(R2$)1(R1$)NC(R2$)NCĺ:"YOU HAVE ENTERED AN UNSOLVABLE PROBLEM."::"PRESS ANY KEY TO RESTART"::JK$:10 ^ hPAD THE STRINGS TO ALL THE SAME LENGTH r |NC1510 T$"" NC(R1$)0460 C1NC(R1$) T$T$ R2$""1902 :"ENTER THE THIRD LINE ";R3$V C1(R3$):(R3$,C,1)" "230] Cm R3$""230s  SET THE NUMBER OF COLUMNS TO THE LONGEST ROW " ,NC(R3$) 6 @MAKE SURE IT ISN'T OBVIOUSLY UNSOLVABLE J{ TNC(ROW HELP SCREEN d. n34,0::1800:34,0:4 xL TAKE INPUT PROBLEMR u :"ENTER THE FIRST LINE ";R1$ C1(R1$):(R1$,C,1)" "150 C R1$""150 :"ENTER THE SECOND LINE ";R2$ C1(R2$):(R2$,C,1)" "190 C ************************=* *[*CRYPTARITHMATIC HELPER*y(* *2* BY KEVIN LEPARD *<* *F************************P ZSET NORMAL HEIGHT TEXT WINDOW, SH           CURRENT PROBLEM"<N"CTRL-I RE-APPLIES THE INITIAL RULES"gX"CTRL-Q QUITS CRYPTARITHMATIC HELPER"b"/ OR ? RETURNS YOU TO THE HELP SCREEN"l:"PRESS ANY KEY TO CONTINUE":::JK$::34,22:: (YB);" OR ";Z10(YB){Y(Y$)Z(Z$)A(A$)B(B$)ĺX$;" = ";ZY;" OR ";Z(Y1);" OR ";Z10Y;" OR ";Z10(Y1)C:780HELP &34,7:0"HELP"::"CTRL-R RESTARTS CRYPTARITHMATIC HELPER"D"CTRL-S RESTARTS THE" = ";ZX;" OR ";Z(X1);" OR ";Z10X;" OR ";Z10(X1)xY(Y$)Z(Z$)A(A$)B(B$)ĺX$;" = ";(Z(10A))(YB)Y(Y$)Z(Z$)A(A$)B(B$)ĺX$;" = ";(Z(10A))Y;" OR ";(Z(10A))(Y1)Y(Y$)Z(Z$)A(A$)B(B$)ĺX$;" = ";Z$)Z(Z$)A(A$)B(B$)ĺY$;" = ";(Z(10A))(XB)X(X$)Z(Z$)A(A$)B(B$)ĺY$;" = ";(Z(10A))X;" OR ";(Z(10A))(X1)X(X$)Z(Z$)A(A$)B(B$)ĺY$;" = ";Z(XB);" OR ";Z10(XB)8X(X$)Z(Z$)A(A$)B(B$)ĺY$;0A)QX(X$)Y(Y$)A(A$)B(B$)ĺZ$" = ";XY(A10)" OR ";XY1(A10)X(X$)Y(Y$)A(A$)B(B$)ĺZ$" = ";XYB10;" OR ";XYBX(X$)Y(Y$)A(A$)B(B$)ĺZ$" = ";XY;" OR ";XY1;" OR ";XY10;" OR ";XY1105X(X(X$)Y(Y$)Z(Z$)A(A$)B(B$)ĭXYBZXYBZ10ĺ"ERROR IN COLUMN ";C:1790|X(X$)Y(Y$)Z(Z$)A(A$)B(B$)ĭXYZXY1ZXYZ10XY1Z10ĺ"ERROR IN COLUMN ";C:1790X(X$)Y(Y$)A(A$)B(B$)ĺZ$" = ";XYB(1PTX(X$)Y(Y$)Z(Z$)B(B$)CNCXYBZĺ"ERROR IN COLUMN ";NC:1790^X$" "Y$" "ĭZ(Z$)Z1ĺ"ERROR IN COLUMN ";NC:1790hX(X$)Y(Y$)Z(Z$)A(A$)B(B$)ĭXYZ(10A)XY1Z(10A)ĺ"ERROR IN COLUMN ";C:1790WrX"Y48(Y$)YY48-,Z48(Z$)ZZ48o6X(X$)Y(Y$)Z(Z$)A(A$)B(B$)XYB(10A)Zī1790@X(X$)Y(Y$)Z(Z$)A(A$)B(B$)XYBZ(10A)ĺ"ERROR IN COLUMN ";C:1790JX(X$)Y(Y$)Z(Z$)B(B$)CNCXYBZī1790(102421NCC1)1280B(102421NCC)128JX(128021NCC)128dY(140821NCC)128~Z(166421NCC)128A$(A)B$(B)X$(X)Y$(Y)Z$(Z)A48(A$)AA48B48(B$)BB48X48(X$)XX483:X(SQ((SQ22)22))710:Y(SQ22)710Eb(SQLO)Ĕ9X,190YOlSQ:jv PLOT GRID AND BORDERs:3X61607:Y291837:X,YX1,YX1,Y1X,Y1:Y:X: PLOT GRID6,296,184161,184161,296,29: BORDERS:SQ:[&768,32:769,227:770,3:771,76:772,217:773,3:47092,1: READ SECTOR ROUTINE043624,DRV:47082,DRV:47083,0:47084,TRK:47085,SEC:47088,LO(LOTF)TF:47089,(LOTF):47090,0:47091,0:768DN EFFECTS LOCATIONS,XSQ048ETERMINE ROOM CONFIGURATIONSSQ0483:X(SQ((SQ22)22))710:Y(SQ22)71024576,(SQLO): PUT INFO INTO MEMORY FOR MACHINE CODE25000: DETERMINE WHERE WALLS GOS14:32((S1)32)80(S2):(24576S)Ĕ(24576S)5X,190YEC1:LOLO256:550:LOLO256: EFFECTSJ 590: DRAW EFFECTS LOCATIONSP q  SEND ALL LEVELS TO PRINTER~ 24999,1 LVL(24999):640:360:READ INFO & DRAW LEVEL 230: PRINT LEVEL LVL15ı 24999,LVL1 Q(0):440 D( 6:21:"LEVEL TO DRAW (1-16): ";LVL$7 @LVL$""ıG JLVL(LVL$)] TLVL1LVL16310f ^640 hTRK15((LVL2.5)):SEC15(((LVL2)2LVL)8) r550:SECSEC1:LOLO256:550:LOLO256:READ INFO |490:DRAW LEVEL( SECSEC1:550:SECS300,420 60! MENU TOGGLE8 49234M,0:M(M0)> b SEND HI-RES SCREEN TO PRINTERx (13)(4)"PR#1" ::28);M$(LVL) (9)"2,3H": DUMP ROUTINE FOR PKASO-U CARD. (12): FORM FEED (4)"PR#0" " , DRAW A LEVELb Z22:"P)RINT LEVEL ON SCREEN":"A)LL LEVELS TO PRINTER":"M)ENU TOGGLE";:23:25::M$(LVL):o d49168,0 nX(49152):X128110 x49168,0 X141Ĺ43624,1:47082,1::21: A14 (X128)(A$,A,1)180 60 A200,230,TOR ROUTINE 2NONE,CELLARS(1),SEWERS(2),SEWERS(3),SEWERS(4),CATACOMBS(5),CATACOMBS(6),CATACOMBS(7),CASTLE(8),CASTLE(9),CASTLE(10),TOWER(11),TOWER(12),TOWER(13),TOWER(14),TOWER(15),TOWER(16) < MENU F P21:"D)RAW LEVEL";13);"'RETURN' TO QUIT"7 (4)"BLOAD SSSS.OBJ0,D1,A25000":232,209:233,97j1:LO16384:TF256:M0:DRV2:A$"MPDA":M$(16)A016:M$(A)::READ LEVEL NAMES (POKE 768,32: POKE 769,227: POKE 770,3: POKE 771,76: POKE 772,217: POKE 773,3: POKE 47092,1: REM READ SEC     a````n``n```` -9CGcjrz|~+-%)$V--+--$--+-----n$MIIMII----t%--%-00 .HS05 .HS00  .HS00  .HS00 ( .HS00 2 .HS000HS92  .HSDB $ .HS2D . .HS74 8 .HS25 B .HS0E L .HS2D V .HS00 ` .HS92 j .HSDB t .HS2D ~ .HS25 .HS0E .HS2D .HS05 .HS00 .HS05 .HS00 .HS05 .HS00 .HS05 .HS00 .HS05 .HS.HS1C 4.HS1C >.HS1C H.HS1C R.HS1C \.HS1C f.HS4D p.HS49 z.HS49 .HSF1 .HS1E .HS1E .HS1E .HS1E .HS06 .HS00 .HS92 .HSDB .HS2D .HS2D .HS2D .HS05  .HS00  . D.HS2B N.HS2D X.HS2D b.HS2D l.HS2D v.HS2D .HS00 .HSBC .HS6E .HS24 .HS00 .HS17 .HS17 .HS17 .HS17 .HS17 .HS4D .HS49 .HS49 .HSE1 .HS1C .HS1C .HS1C *2D ^.HS25 h.HSB4 r.HS29 |.HS24 .HS56 .HS2D .HS2D .HS00 .HS92 .HSD2 .HSDB .HS2B .HS2D .HS2D .HS24 .HS8E .HS2D .HS2D .HS05 .HS00 &.HS92 0.HSD2 :.HSDB.HS00 x.HS6A .HS00 .HS72 .HS00 .HS7A .HS00 .HS7C .HS00 .HS7E .HS00 .HS80 .HS00 .HS82 .HS00 .HS05 .HS00 .HS05 ".HS00 ,.HS92 6.HSD2 @.HSDB J.HS2B T.HSC1RORH6000BCCH61CCINCH6000,XINCH6000,XH61CCCPX#$04BNEH61B8RTSH61D1.HS0C .HS00 .HS20 .HS00 .HS2D .HS00 (.HS39 2.HS00 <.HS43 F.HS00 P.HS47 Z.HS00 d.HS63 nCH6001=$6001H6002=$6002H6003=$6003H6004=$6004H6000=$6000$.OR$61A8. 8LDA#$00BSTAH6001LSTAH6002VSTAH6003`STAH6004 jLDX#$00 tH61B8INX~RORH6000BCCH61C1INCH6000,XH61      SWAP CONTROLLER FOR MDIIEHTK3:LT35:ST15:LS15:CDWR:FAST1[360:490:610~360:490:610:(TRK)LT1050TK(TRK):ST(SCT):1020:"COPYDONE":'(4)"BLOAD RWTS.MD,A$1900"  BTKLT1020% L:A$"ALL DONE":c V47505,207:47413,207:47426,24:TK2(TK2)Ĺ47445,212 [TK2(TK2)Ĺ47445,213 `WORD MAZE CONTROLLER - 19TK0:ST0:LT35:CDWRNT1TK:490:1110q430:100:STST1:STDOS1030~BF1060ST0:TKTK1:1110:TKLT1030$230:490:TKT1:ST0.430:100:STST1:STDOS10708ST0:TKTK1:BF0TKLT1070 829,213:2306 .TKT1:LT35:490:610:(TRK)LT1090\ 8TK(TRK):ST(SCT):LTTK1:1020q B:"COPY DONE": :CC2: 213,170,150 212,170,1502400 A.D. CONTROLLER;TK0:LT1:ST15:LS15:CDWRg47405,24:47406,96:47497,24:47498,9647829,3:T1TK:490190:CC1:610C2İ2000TKTK1:LTLT1:(BUF)MBTK351040 $47405,208:47406,19:47497,208:47498,183:474 3243-8265 3278-9832"H "3303-6727 3369-7684 3414-9682"u "3463-4306 3538-7509 3547-1065" "3587-7452 3779-6269 3816-1374" "3852-4943 3868-3350 3996-9299"F 2451-8981": "2470-3160 2480-2293 2770-8866"g "2788-2544 2800-1764 2812-9871" "2892-5107 2897-4925 2910-1315" "2919-3105 2922-3479 2941-1190" "2990-1102 3014-5023 3032-8839" "3137-3205 , "1607-9125 1669-1330 1712-9012"Y "1735-8696 1753-6704 1757-8556" "2138-4261 2194-9354 2219-8449" "2293-1026 2301-7565 2313-9190" "2338-6375 2362-3161 2377-8896" "2395-6353 2437-6150   ::"Authorization codes"K " Code 1 Code 2 Code 3"x "1080-8771 1086-0000 1193-0000" "1211-1280 1219-1488 1282-8510""1386-6528 1516-7814 1529-9475""1556-8090 1588-9399 1602-1451"