' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`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- (   ՠ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`LP1NP(SET):S1S1(MXD(SET,LP,0))2:S2S2(MYD(SET,LP,1))2d&/S1(S1NP(SET)):S2(S2NP(SET))&&/23:1:" S.D. = ";S1;", ";S2;&0/LC$:23:1:CL:&D/ &E/ DOS COMMAND&F/&N/BM,20:&X/D$;IN$&b/CFĺD$;"READ ";CF$&l/BM,24:'/%.LC$:23:1:CL:%.;%. SIGMA - STANDARD DEVIATIONA%.U%.RESULT312040%.50200:RESULT3ER$"(SIGMA) BAD PARAMETER":50000:%.LS(WD$)("A"):LS0LSNSETSER$"(SIGMA) BAD SET":50200:%.SETLS:50500%/50700>&/S10:S20:LP,1)DUMMY(LP,1)::$|.'$}. MEAN-$~.A$.RESULT311940{$.50200:RESULT3ER$"(MEAN) BAD PARAMETER":50000:$.LS(WD$)("A"):LS0LSNSETSER$"(MEAN) BAD SET":50200:$.SETLS:50500:$.50700$.23:1:" MEAN = ";MX;", ";MY;11840G#,.LS(WD$)("A"):LSNSETSLS0ER$"(SORT) BAD SET":50000:`#6.SETLS:50500:50200#@.MODE$WD$:MODE$"Y"MODE$"X"#J.LP1NP(SET):DUMMY(LP,0)D(SET,LP,0):DUMMY(LP,1)D(SET,LP,1)::50600$T.LP1NP(SET):D(SET,LP,0)DUMMY(LP,0):D(SET,1730"-50200:F$WD$8"-D$;"OPEN ";F$:D$;"READ ";F$H"-LI0NSETST"-NP(LI)"-LJ1NP(LI):D(LI,LJ,0),D(LI,LJ,1):LJ"-LI".D$;"CLOSE ";F$:CFĺD$;"READ ";CF$".".". SORT"."!.RESULT3WD$"X":11840#".50200:RESULT3!R-!Z-RESULT311630,!d-50200:F$WD$o!n-D$;"OPEN ";F$:D$;"DELETE ";F$:D$;"OPEN ";F$:D$;"WRITE ";F$!x-LI0NSETS!-NP(LI)!-LJ1NP(LI):D(LI,LJ,0);",";D(LI,LJ,1):LJ!-LI!-D$;"CLOSE ";F$:!-!- LOAD!-"-RESULT31, -SETLS:D$;"PR#";PR:11550:D$;"PR#0":K -:"SET ";(LS("A"));":"[ '-NP(LS)0ıl (-LP1NP(LS) 2-OUT$"("(LP)") "(D(LS,LP,0))", "(D(LS,LP,1)):LI120(OUT$):OUT$OUT$" ":LI <-OUT$;:(LP4)4LPĺ F-LP:: P-!Q- SAVE$(LI)WD$L2LI',:L21SYMLSL2-,3,?, PRINTE,,RESULT3ĺD$;"PR#";PR:LS0NSETS:11550::D$;"PR#0":-RESULT2ER$"(PRINT) BAD PARAMETER":50000: -50200:LS(WD$)("A"):LSNSETSLS0ER$"(PRINT) BAD SET":50000:"CLOSE":+$, %, STOP&&,}.,23:1:"STOP PROGRAM? (Y/N) ";:LC$:LC$"Y"ĺD$"CLOSE":::"PROGRAM STOPPED.":,, SYMBOL,,LS0:50200:RESULT311440,WD$"SOLID"LS3,50200:WD$"POINT"LS0,L21:LI03:SYMLEAR 2*:*:*'* GRAPHICS-*9*GM,0:?*J* TEXTP*\+TM,0:b\+m]+ ECHOs^+f+ECHO1:RESULT3ıp+50200:WD$"OFF"ECHO0z+++ RESTART+ +23:1:"RESTART PROGRAM? (Y/N) ";:LC$:LC$"Y"ĺD$ Y MODE$*DDUMMY(1,1)DUMMY(2,1)6!*LP1NP(SET)"*Y1159(DUMMY(LP,1)Y0D2)YS:Y2Y1DYS:X(DUMMY(LP,0)X0)XS:Y10Y1159Y20Y2159X0X279ER$"(BARGRAPH) POINT OFF SCREEN":50000:10788#*0,Y1X,Y1X,Y20,Y2$*%*0*1* CDE$"Y"10780)*DDUMMY(1,0)DUMMY(2,0);*LP1NP(SET)*X1(DUMMY(LP,0)X0D2)XS:X2X1DXS:Y159(DUMMY(LP,1)Y0)YS:X10X1279X20X2279Y0Y159ER$"(BARGRAPH) POINT OFF SCREEN":50000:10778*X1,159X1,YX2,YX2,159***)LS(WD$)("A"):LSNSETSLS0ER$"(BARGRAPH) BAD SET":50000:m)SETLS:50500:RESULT3WD$"X":10740x)50200)MODE$WD$:MODE$"Y"MODE$"X")LP1NP(SET):DUMMY(LP,0)D(SET,LP,0):DUMMY(LP,1)D(SET,LP,1)::50600*NP(SET)2ı *MOO)X(DUMMY(1,0)X0)XS:Y159(DUMMY(1,1)Y0)YS:X0Y0X279Y159ēX,Y)I1NP(SET):X(DUMMY(I,0)X0)XS:Y159(DUMMY(I,1)Y0)YS:X0Y0X279Y159ēX,Y):) ) BAR GRAPH) )RESULT3WD$"X":10740)50200BSNSETSLS0ER$"(LINEPLOT) BAD SET":50000:Y)SETLS:50500:RESULT3WD$"X":10640d)50200)MODE$WD$:MODE$"Y"MODE$"X")LP1NP(SET):DUMMY(LP,0)D(SET,LP,0):DUMMY(LP,1)D(SET,LP,1)::50600)NP(SET)1ı)PT1NP(SET):50400::D")LS(WD$)("A"):LSNSETSLS0ER$"(PLOT) BAD SET":50000:V,)SETLS:50500~6)NP(SET)0āPT1NP(SET):50400::@)ER$"NO POINTS TO PLOT":50000:h) i) LINE PLOTj)q)RESULT3WD$"X":10640r)50200.|)LS(WD$)("A"):L6ȱ6,ɲ SOLID SQUARE966ɁLYY2Y2:X2,LYX2,LY:?6@ɱQ6ɲ SOLID DELTAw6ɓX2,Y1X2,Y2:X2,Y1X2,Y26ɓX1,Y1X1,Y2:X1,Y1X1,Y26ɓX,Y2X,Y26ɱ Y1X2,Y1:X2,Y1X2,Y1"5DZ/5Ȳ SQUARE\5 ȓX2,Y2X2,Y2X2,Y2X2,Y2X2,Y2b5ȱn5dȲ DELTA5nȓX2,Y2X2,Y2X,Y2X2,Y25xȱ5Ȳ SOLID CIRCLE5ȓX1,Y2X1,Y2:X2,Y1X2,Y1:X2,YX2,Y:X2,Y1X2,Y1:X1,Y2X1,Y2)";4C(KBD):C1285084154ƹKST,0:LC$(C128)D4ƭLC$"R"ĦW4ƭLC$"C"ī10004ƺD$"CLOSE";D$"PR#0":::"PROGRAM ABORTED!":46Dz47Dz ----------------------48Dz POINT4BǓX,Y:4Dz CIRCLE4ǓX1,Y2X1,Y2:X1,Y2X1,Y25ǓX2,SET,LP,0):S2S2D(SET,LP,1):=3 MXS1NP(SET):MYS2NP(SET)C3*ƱJ3pƲ c3qƲ ONERR GOTO ROUTINEi3rƲ3zEC(222):LN(218)(219)2563ƭEC5CFCF0:10003ER$"NUMBER "(EC)" IN LINE "(LN):500004Ƣ23:1:"RESUME/CONTINUE/ABORT? (R/C/AUMMY(SJ,0)T0:DUMMY(SJ,1)T12ŭMODE$"Y"DUMMY(SJ,1)DUMMY(SI,1)T0DUMMY(SI,0):T1DUMMY(SI,1):DUMMY(SI,0)DUMMY(SJ,0):DUMMY(SI,1)DUMMY(SJ,1):DUMMY(SJ,0)T0:DUMMY(SJ,1)T12ł::23:1:CL:2 Ʋ2 Ʋ MEAN2Ʋ3S10:S20:LP1NP(SET):S1S1D(źSYM$(S0);:CL1ű1Ų&1Ų SORT,1ŲO1Ţ23:1:"PLEASE BE PATIENT..."`1ŭNP(SET)2ıt1ŁSI1NP(SET)11ŁSJSI1NP(SET)2ŭMODE$"X"DUMMY(SJ,0)DUMMY(SI,0)T0DUMMY(SI,0):T1DUMMY(SI,1):DUMMY(SI,0)DUMMY(SJ,0):DUMMY(SI,1)DUMMY(SJ,1):D1500,516000ű0DŲ*0EŲ REDRAW SCREENA0NŢ22:1:CL:23:CL0XŢ21:1:CL:"FILE: ";F$;:25:" SET ";(("A")SET);:36::"DPCI";:0bŢ24:1:CL:ECHOĺ"ECHO";0kS0SYM0lŖ7:"#POINTS=";NP(SET);:20:"SYMBOL=";:SYM3ĺ"SOLID ";:S0SYM31v(IN$)1):IN$""50300"/ī50311(/IJ3/IJ PLOT9/IJS/X(D(SET,PT,0)X0)XSq/Y159(D(SET,PT,1)Y0)YS/ĭX0Y0X279Y159ER$"(PLOT) POINT OFF SCREEN":50000:/LSSYM:X2Y2X277Y157LS0 0ŴLS151000,51100,51200,51300,51400,5SULT2.hLC$(IN$,1)@.iĭ(IN$)1IN$(IN$,(IN$)1):50290h.jIN$"": IF LEN(IN$)= 1{.rĭIN$""50250.|WD$WD$LC$:RESULTRESULT1:: END OF IN$ REACHED .IJ REMOVE TRAILING BLANKS -.LC$(IN$,1):LC$" "ı/IN$(IN$,RD) EMPTY STRING":50000:RESULT3:4-6LC$(IN$,1)]-7ĭ(IN$)1IN$(IN$,(IN$)1):50240x-8IN$"": IF LEN(IN$)=1-@IJ REMOVE LEADING BLANKS --AĭLC$" "50220-JĭLC$" "LC$","50310-TWD$WD$LC$.^ĭ(LC$"0"LC$"9")LC$"-"LC$"."REN$)1):50120?,íL1$BS$(IN$)1ĺ" ";BS$;BS$;:IN$"":50120R,íL1$BS$50120,íL1$" "ER$"CONTROL CHARACTER IN INPUT LINE":50000:,íL1$" "ĺL1$;:IN$IN$L1$,ī50120,IJ ,IJ GETWORD,IJ,"WD$"":RESULT0#-,ĭIN$""ER$"(GETWO+Pò+Qò ERROR ROUTINE+Rò-+Zâ23:1:CLD+dúB$;"ERROR! ";ER$;^+nC(KBD):C12850030p+oùKST,0:1:CLv+xñ|+ò+ò INPUT ROUTINE+ò+ÌCL:IN$""+úU$;BS$;+þL1$+íL1$CR$ČCL: ,íL1$BS$(IN$)1ĺ" ";BS$;BS$;:IN$(IN$,(I(LS,LP,0)**1D(LS,LP,1)Y1Y1D(LS,LP,1)K* 1D(LS,LP,0)X2X2D(LS,LP,0)l* 1D(LS,LP,1)Y2Y2D(LS,LP,1)r* 1*1X0X1:Y0Y1*1X2X1XS279(X2X1)*$1Y2Y1YS159(Y2Y1)*.1*Lò*Mò ----------------------*Nò*Oò SUPPORT ROUTINES F)0LS(WD$)("A"):LS0LSNSETSER$"(AUTOSCALE) BAD SET":50000:p)0X1D(LS,1,0):X2X1:Y1D(LS,1,1):Y2Y1)0SETLS:12550:)0X1D(SET,1,0):X2X1:Y1D(SET,1,1):Y2Y1)1LS0NSETS:12550::)1NP(LS)1ı *1LP1NP(LS):D(LS,LP,0)X1X1D(z050200:RESULT0ER$"(ORIGIN) BAD PARAMETER":50000:(0X0(WD$):50200:RESULT1ER$"(ORIGIN) BAD PARAMETER":50000:(0Y0(WD$):(0(0 AUTOSCALE(0(0RESULT312540(050200:RESULT3ER$"(AUTOSCALE) BAD PARAMETER":50000: '/ SCALE'/M'/50200:RESULT0ER$"(SCALE) BAD PARAMETER":50000:'/XS(WD$):50200:RESULT1ER$"(SCALE) BAD PARAMETER":50000:'/YS(WD$):' 0' 0 DUMP'0'0ER$"NOT CONFIGURED FOR DUMP":50000:'p0'q0 ORIGIN'r0:W LIKE TO PRINT OUT THIS RECIPE ? "U$H$;:A$:A$:A$"Y"A$"N"Ģ11:1460[:rA$"Y"1250:2350 *** SEARCH *** :DASH$;::40):2:A$"*** RECIPE FILE SEARCH ***":70::DASH$34,3::4.X04:"<"(X65)">. . "CT$:"THERE ARE NO RECIPES CURRENTLY IN THE":Q$CT$(CG)Q$" FILE."::80::2350kx *** SCREEN OUTPUT *** :"RECIPE FOR ";::NM$::TP,2:X0LNGTH:X106:4:(A$(X),X1311,31)(VC)22ĺ:80::80::11S"WOULD YOU NO"PR: ACTIVATE PRINTER! B(9)"80N":"RECIPE FOR "NM$MDASH$}(X0LNGTH:X106:(A$(X),X1311,31)::2DASH$<:FD$"PR#0":RETURN TO SCREEN OUTPUTP80:::2350ZNO RECIPES IN CATEGORYdX13:BP::Ln11:10:"OUTPUT TO CREEN OR

RINTER? "U$;:34:A$:A$:A$"S"A$"P"1230aA$"S"140013:"ENTER PRINTER'S SLOT # (DEFAULT=1)"::"OR BINARY DRIVER CALL: ";A$:PR(A$)A$""PR1:DEFAULT TO SLOT 1PR1PR7ČPR:1290D$"PR#"RETURN";::" FOR MENU: ";A$:N(A$)Q`A$""ė:2350:C/R SO BACK TO MENUajNREC1110lt:130~D$"OPENRF."CT$(CG)",L2000"D$"READRF."CT$(CG)",R"NNM$,LNGTHDLĺD$"CLOSE":X0LNGTHA$(X)D$"CLOSE"P ͍ŠР򍠠č퍠Ӡˍ͠àˠð ͍ð 䍠РΠ 占РŠŠ͍̠ð占󍠠РðŠ͠à󍻍ԠŠ砮퍠ðð ͍獠ð󍠠͠堦荠Ϋ 䍠΍Ӎ͠ōЍàڍҍҍҍҍڠĠƍӍРԍԠؠԱԭ؍Э؍ǭ؍؍ŠԱǍȍȍҠȍӍԠƍȍĠàÍàƍà̠̠̍̍̍̍̍ӍҍÍà̠Ġƍҍ̍̍̍̍ҍҍӍΠҍЍҠÍٍ̩űڠàŠҠԍРֲàڍӱӍҠ٠ƍŠҲР٠Ҳ٠ֲ٠ҳҍҠōٍ̠ҳӍàҍĠԍ؍ҠƍӍԠҍЍҠÍЍƍàˍàŰˠˍԱٍ̩ҠҍĠˍҠٍٍ̩̩ӍŠҠԍű٠ȲӠӱٍҠԱà 宍Ա  Բ  Գ Դ ˠ  卪 Š 占ԠƍUūūŠŠύӠ Š٠Š 占ŠҠŹƠ 占Рò 퍪 Ζ "TO OBTAIN A PRINT-OUT OF THEM ON YOUR":Z+ "PRINTER. WHEN YOU WANT A PARTICULAR":+ "RECIPE, OR WHEN A FRIEND WANTS A COPY OF"+ "ONE OF YOUR RECIPES, SIMPLY SELECT THAT":+ "RECIPE FROM THE PROGRAM'S 'MENU' AND IT":U, "WILL BE PRINTX):D$"CLOSE":TTLTTLCT(X):,*P ::20602*Z P*d *** INSTRUCTIONS *** *n ::"::::::::";::"RECIPE FILE INSTRUCTIONS";::"::::::::"*x :TP,3* " THIS PROGRAM WILL STORE YOUR MOST":* "OFTEN USED RECIPES ON DISK AND ALLOW YOU",+) D$"WRITERF."CT$",R0")) 0:CT(X)08)( D$"CLOSE"K)2 :216,0:2110)< THE PREVIOUS ROUTINE CREATES ALL 10 RECIPE FILES AND SPECIFIES IN EACH ONE THAT THERE ARE 0 RECORDS*F X09:CG$CT$(X):D$"OPENRF."CG$",L2000":D$"READRF."CG$",R0":CT(S MAY NOT EXCEED 16 CHARS IN LENGTH?( *** INIT FILES *** P( 33,3:2550v( D$"VERIFYRF."CT$(0):216,0:2630( (222)6ĉ:::ANERROR DID OCCUR, BUT IT WAS NOT A "FILE NOT FOUND" ERRORSO STOP( X09:CT$CT$(X)) D$"OPENRF."CT$",L2000"40' A$;::X' A$"I"160:A$"R"830:A$"S"1490:A$"D"1770:A$"H"2670:3190p' CATEGORY NAME DATA' BEVERAGES,BREADS,DESSERTS,FISH,HORS D'OEUVRES,MEAT,POULTRY,SOUPS,VEGETABLES,OTHER' CHANGE CATEGORY NAMES AS NEEDED#( CATEGORY NAMEEAD RECIPES ("TTL" ON FILE)":6:"EARCH FOR RECIPES":6:"ELETE RECIPES"&~ 6:"OW TO USE RECIPE FILE":6:"UIT":& 6:"SELECT:"U$H$;:A$:TTL(A$"R"A$"S"A$"D")A$"X"' A$"I"A$"R"A$"S"A$"D"A$"H"A$"Q"ČBP:24 %B A$"*** RECIPE FILE ***":60Y%L :A$".............................":60:29 PERIODS%V :A$"A PROGRAM WHICH ALLOWS YOU TO":60%` A$"ORGANIZE YOUR RECIPES ON DISK":60%j A$".............................":60:R&t 6:"NSERT A RECIPE":6:"CURSOR$NM$(150)2$X140:DASH$DASH$"-":8$c$ X09:CT$(X)::GET CATEGORY NAMES$ (768)32(769)227İ3220:POKE SEARCH ROUTINE$ 2520$$ *** MENU *** $. :3:3:36):X421:X:2:38)::22:3:36)$8 DL0:4:):SCORE#zH$(8):BCKSPC4#LFT32:LEFT MARGINM#WTH33:SCREEN WIDTHc#TP34:TOP MARGIN|#BM35:BOTTOM MARGIN#CT958:CLR WNDW#UP912:SCROLL UP#KB16384:KYBOARD#CB16368:CLR KBD#BP198:CALL BEEP$VC37:VERT. $":::(13)D$"CLOSE":D$"PR#0"?" ER(222):ER2553190z"*"ERROR #"ER" HAS OCCURRED IN LINE #"(218)(219)256"4X15:BP:::"> *** INITIALIZATION *** "H255"RD$(4):CTRL-D"\Q$(34):QUOTE"fS$(32):SPACE#pU$(95T$(CG)",R"CT(CG)!NM$,LNGTH7!X0LNGTH:A$(X):U!D$"WRITERF."CT$(CG)",R"Ne!NM$:LNGTH!X0LNGTH:Q$A$(X)Q$:!CT(CG)CT(CG)1:TTLTTL1!D$"WRITERF."CT$(CG)",R0"!CT(CG)!D$"CLOSE"!:2350"  *** ERROR TRAP *** Y/N>? "U$;, :17:A$:A$"Y"A$"N"1850D DA$:A$"N"ė:2350f N:"STAND BY -- NOW DELETING"l X lREC# TO DELETE: N vCATEGORY: CT$(CG) # RECS IN CAT: CT(CG) TOTAL # RECS: TTL !D$"OPENRF."CT$(CG)",L2000":D$"READRF."C90::2350, *** DELETE *** FDL1:FLAG FOR DELETEt::3:A$": DELETE RECIPES :":60::X10850:DL0:9"ARE YOU SURE YOU WANT TO ";::"DELETE";::" THE":&"RECIPE FOR ";::NM$;::" FROM" 0:"THE FILE <D$"READRF."CT$",R"X$|NM$,LNGTH4X10LNGTH<A$HA$,SS$Y(26)1740kSTRING FOUNDSFSF1:SF".";:5:NM$:X1LNGTH(37)22XCT(CS)ĺD$"CLOSE":24:90::(13)D$"OPENRF."CT$",L2000"::D$"CLOSE":5:10:SF:2440",,"ENTER SEARCH INGREDIENT:";SS$>6(SS$)1570@34,2::DASH$;:"CATEGORY:";::CT$;::34(SS$):"INGRED:";::SS$;:J"FOUND IN OF "CT(CS)" RECIPES CHECKED":DASH$T34,6:SF0^D$"OPENRF."CT$",L2000"hX1CT(CS)r(X)::4:X59:23:"<"(X65)">. . "CT$(X):9DASH$:"SEARCH CATEGORY :"U$H$;:CB,0:CT$:CS(CT$)65:CS0CS91760CT$:CT$CT$(CS)CT(CS)ČBP::"THERE ARE NO RECIPES CURRENTLY FILED IN THAT CATEGORY... PLEASE TRY AGAIN:":15MES AS CHARACTER WEAPONS..W214:WN$(W2)"NONE"NANA1:AN$(NA)WN$(W2):AD%(NA,2)2:AD%(NA,3)2:AD%(NA,4)1:AD%(NA,5)WO%(W2):AD%(NA,6)WT%(W2):AD%(NA,7)WD%(W2):AD%(NA,8)WS%(W2)::W248WZW2:WTWWZBW21WZ:A1NAWZ:AN$(A)WN$(W2)AN$O%(NW),WD%(NW),WP%(NW):A14:WN$(A),WT%(A),WO%(A),WD%(A),WS%(A)::DK$;"CLOSE"$DK$;"OPEN EAMON.DESC,L256":DK$;"OPEN EAMON.ROOM NAMES,L64":DK$;"OPEN EAMON.ROOMS,L64"- *** PLAY WITH WEAPON NAMES TO ASSURE MONSTER WEAPONS DON'T HAVE THE SAME NAOSE"& *** READ IN CHARACTER DATADK$;"OPEN FRESH MEAT":DK$;"READ FRESH MEAT":REC:MN$(0),MD%(0,1),MD%(0,2),CH:A14:SA%(A)::A15:WA%(A)::AE,SEX$,GOLD,BANK,AC *** READ IN DATA FOR CHARACTER'S WEAPONS.PNW15:WN$(NW),WT%(NW),WN.ARTIFACTS,R";A:AN$(A):A214:AD%(A,A2):A2:AD%(A,2)1āA258:AD%(A,A2):A2s *** READ IN MONSTER DATA.A:DK$;"OPEN EAMON.MONSTERS,L128":MN$(NM),MD%(NM,15):A1NM:DK$;"READ EAMON.MONSTERS,R";A:MN$(A):A2112:MD%(A,A2):A2,A:DK$;"CL7%* THE WORLD'S MOST *67&* DISORGANIZED COOK.*Q7'* *l7(* REQUIRES: *7)* 48K APPLESOFT *7** ONE DISK DRIVE & *7+* PRINTER (OPTIONAL)*7,* *7-********************* *(6* BY JIM GANZ *C6* 82 SPRING LANE *^6* W.HTFD, CT 06107 *y6* *6 * CALL -A.P.P.L.E. *6!* FEB, 1983 *6"* *6#* DEDICATION: *7$* TO SALLY GANZ, *,230,26,96,230,26,165,27,197,26,144,8,230,6,208,2,230,7,208,224,169,0,133,26,240,233o5 SUB-STRING SEARCH RTN5 BY LEE REYNOLDS,5 CALL -A.P.P.L.E. 1/81 5*********************5* *5* RECIPE FILE 1.4 * 6* 77,6,133,24,200,177,6,72,200,177,6,133,7,104,133,6,32,190,222,32,227,223,133,8,132,9,160,0,177,8,133,25,200,177,8,72,200,177,8,133,9T5 104,133,8,165,24,240,30,197,25,144,26,165,25,240,22,165,24,56,229,25,133,27,160,0,177,6,209,8,208,8,200,196,25,144,245U 3l END PROGRAM3v ::n3 "THANK YOU FOR USING "Q$"RECIPE FILE"Q$:"TODAY - AND ";::"ENJOY";::"!"t3 3 *** POKE SEARCH *** 3 1013,76:1014,0:1015,3:JMP $3003 X768879:X1:X,X1::4 32,227,223,133,6,132,7,160,0,132,26,180:2482& "OBTAIN A LIST OF ALL RECIPES CONTAINING":h20 "THAT INGREDIENT IN A GIVEN CATEGORY. FOR"2: "INSTANCE, YOU CAN FIND OUT HOW MANY OF":2D "YOUR DESSERT RECIPES USE PEANUT BUTTER.":2N ":::::::";:802X :3b 2350:RETURN TO MENIN MENU"81 "ALLOWS YOU TO DELETE A RECIPE FROM THE":h1 "FILE. NOTE THAT ONCE A RECIPE HAS BEEN":1 "DELETED, IT CANNOT BE RESTORED.":1 " WITH THE SEARCH OPTION YOU CAN ENTER"1 "AN INGREDIENT (OR OTHER KEYWORD) AND":2 ":::::::";:RE INOPERATIVE.":&0 ":::::::";:80T0 "PRESS CTRL-F WHEN YOU ARE COMPLETELY":0 "FINISHED TYPING IN THE RECIPE. TO RETURN"0 "TO THE MAIN MENU WITHOUT SAVING THE":0 "RECIPE, PRESS THE ESCAPE KEY.":1 " THE DELETE OPTION FROM THE MAACH THE BOTTOM OF THE CARD, IT":R/| "WILL SCROLL UPWARD SO YOU CAN CONTINUE.":/ "IT IS NOT NECESSARY TO TYPE THE TITLE OF"/ "THE RECIPE ON THE CARD, AND YOU SHOULD":/ "KNOW THAT BOTH THE QUOTATION MARK AND":0 "THE FORWARD ARROW (->) A RECIPE IS ENTERED ON A KIND OF":6.@ ":::::::";:80g.J "VIDEO RECIPE CARD. PRETEND THAT YOU ARE":.T "TYPING ON A REAL RECIPE CARD AND ENTER":.^ "ALL NECESSARY INFORMATION. YOU MAY":.h "JUSTIFY THE TEXT AS YOU WISH, AND WHEN":!/r "YOU RELLED 'RECIPE FILE,' ON A BLANK":Q- "DISK. THE 10 TEXT FILES WHICH ACCOMPANY"- "'RECIPE FILE,' WHICH ARE IDENTIFIED BY":- "THEIR PREFIX 'RF.', SHOULD BE THE ONLY":-" "OTHER FILES ON THE SAME DISK AS THIS":-, "PROGRAM.":".6 " EACHED OUT FOR YOU. FOR THOSE ":"WITHOUT A PRINTER THERE IS A SCREEN-ONLY":"OPTION.":i, ":::::::";:80, " BEFORE YOU ACTUALLY BEGIN ENTERING":, "YOUR RECIPES INTO THIS PROGRAM, IT IS":, "SUGGESTED THAT YOU SAVE THIS PROGRAM,":!- "CAD%(0,13)?*# *** DID MONSTER FOLLOW CHARACTER INTO ROOM? ****$M1NM:MD%(M,5)R3ĭMD%(M,14)3(MD%(M,14)1200(1)MD%(M,4))MD%(M,5)ROOM:3670*.MD%(M,5)ROOM3900*7 *** IF MONSTER HAS BEEN MET BEFORE, SKIP NEXT SECTION. ***+8MD%(M,/) :"YOU CAN'T GO THAT WAY!":V%(ROOM)0:100k) *** SUCCESSFUL MOVE. R2 IS NEW ROOM, R3 IS OLD ROOM.) R3ROOM:ROOMR2:3600)100) *** CHECK MONSTER REACTION: FRIENDLY, NEUTRAL, OR HOSTILE. *TD%(1)0:TD%(3)MD%(0,1):FD%(1)0:FD%(3)MYOU CAN'T GO THAT WAY. IF R2 IS NEGATIVE, MOVING THAT DIRECTION IS A 'SPECIAL MOVE.'c( R203500}( *** SPECIAL MOVES.( *** GOING TO ROOM -99 TAKES YOU HOME.( R299ĺ:"YOU SUCCESSFULLY RIDE OFF INTO THE":" SUNSET.":2000( R23490L,S6,D1")' ***** MOVE COMMAND ***** |' NBTLS$"FLEE"ĺ:"YOU CAN'T DO THAT WITH UNFRIENDLIES ABOUT!"::100' *** FIND DIRECTION PLAYER WANTS TO MOVE' D16:(V$,1)("NSEWUD",D,1)Ă' R2ED%(ROOM,D)T( *** IF R2 IS ZERO, 4:WN$(A):WT%(A):WO%(A):WD%(A):WS%(A):[& *** WRITE POINTER TO CHARACTER FILE ***& DK$;"OPEN THE ADVENTURER":DK$;"WRITE THE ADVENTURER":MN$(0):REC:DK$;"CLOSE"&S ***** RUN MAIN HALL PROGRAM ON MASTER DISK ***** 'T DK$;"RUN MAIN HALENTURER":2900W% *** WRITE CURRENT CHARACTER STATISTICS TO MAIN CHARACTER FILE ***% DK$;"OPEN CHARACTERS,L150,S6,D1":DK$;"WRITE CHARACTERS,R";REC:MN$(0):MD%(0,1):MD%(0,2):CH:A14:SA%(A):,& A15:WA%(A)::AE:SEX$:GOLD:BANK:AC:A1UE) ";:A$:)$ ***** GO HOME ***** O$ 2500:*** RESTART HERE ON ERROR$ :5:"(INSERT EAMON MASTER DISKETTE, THEN":" HIT THE 'C' KEY) ";:16368,0$ A$:A$"C"2520$ A$% DIEĺDK$;"OPEN THE ADVENTURER,S6,D1":DK$;"DELETE THE ADV BUYER FOR SUCH":"THINGS, HE EXAMINES YOUR GOODS AND":"PAYS YOU ";h# TP0:A1NA:AD%(A,4)12350# AD%(A,2)0AD%(A,1)AD%(A,1)CH10#$ TPTPAD%(A,1)#. A:TP;" GOLD PIECES.":#8 GOLDGOLDTP:GOLD0GOLD0 $B :"(HIT ANY KEY TO CONTINWN$(W21):WP%(W5)WP%(W21):W2W21:W252060"W14:WP%(W)WT%(W)AD%(WP%(W),6):WO%(W)AD%(WP%(W),5):WD%(W)AD%(WP%(W),7):WS%(W)AD%(WP%(W),8)" ***** SELL TREASURE ***** D# W::5:"AS YOU DELIVER YOUR TREASURES TO SAM":"SLICKER, THE LOCALONS":"TO KEEP THEM ALL--4 IS THE LEGAL LIMIT."::"YOUR WEAPONS ARE--"!W1W21:4);W;"--";WN$(W):::"ENTER THE NUMBER OF THE WEAPON TO SELL (1-";W21;") "! (37):23:A$:W5(A$):W51W5W21W5(W5)2080."*AD%(WP%(W5),4)1:WN$(W5)1WN$(W2)AN$(A):WP%(W2)A:W2W21:AD%(A,4)0q  *** CHECK FOR EXCESS WEAPONS. MAKE HIM GET RID OF THEM. *** A:W262300G! :5:"AS YOU START TO ENTER THE MAIN HALL,":"LORD WILLIAM MISSLEFIRE APPEARS AND":"TELLS YOU, 'YOU HAVE TOO MANY WEAP GAME ROUTINE ***** 255T:"(HIT ANY KEY TO CONTINUE) ";:16368,0:A$:}DK$"CLOSE":SPDMD%(0,2)MD%(0,2)2 *** IF CHARACTER IS DEAD, SKIP THIS STUFF. ***DIE2500- W14:WN$(W)"NONE"::W21:A1NA:AD%(A,2)1AD%(A,4)IS AT 59000F59000;k *** GOTO 100 TO START GAME. Dl100Xm *** DATA ***cv 24 NORTH,SOUTH,EAST,WEST,UP,DOWN,GET,TAKE,DROP,LOOK,EXAMINE,ATTACK,FLEE,GIVE,INVENTORY,BLAST,HEAL,POWER,SPEED,SMILE,WAVE,SAY,READY,SAVE **** END=X1NR:DK$;"READ EAMON.ROOMS,R";X:Y16:ED%(X,Y):Y,XJRN$(NR)X1NR:DK$;"READ EAMON.ROOM NAMES,R";X:RN$(X): *** RANDOM NUMBER FUNCTION TO RETURN INTEGER FROM 1 TO 100.R(X)((1)1001) E *** ERROR-HANDLING ROUTINE )NZ1:MD%(0,11)WD%(1):MD%(0,12)WS%(1):MD%(0,14)3`i *** READ COMMAND WORDS INTO AN ARRAYjNC:C$(NC):C1NC:C$(C):tS14:S2%(S)SA%(S)::V%(96):ROOM1 *** READ IN ROOM NAMES AND DATA ON WHICH ROOM CONNECTS WHERE.ED%(NR,6)(A)AN$(A)"#":A00::1090]LA,W2:EA0:MD%(0,8)0:A2(AC2):A22ACMD%(0,8)1:EA5VA2MD%(0,8)MD%(0,8)A2:EAEAA210:A23MD%(0,8)MD%(0,8)2:EAEA304`NANZMD%(0,10)(EAAE)(EAAE)WO%(1)WA%(WT%(1))2MD%(0,2):MD%(0,7)0:MD%(0,9* GET NUMBER OF ROOMS, ARTIFACTS, EFFECTS, AND MONSTERS.DK$;"OPEN EAMON.DESC":DK$;"READ EAMON.DESC":NR,NZ,NE,NM:DK$;"CLOSE":NANZ *** READ IN ARTIFACT DATA.RDK$;"OPEN EAMON.ARTIFACTS,L128":AN$(NA4),AD%(NA4,9):A1NA:DK$;"READ EAMO,14)1DFM2:7500:M2200:M2:490*M2h *** IF ANY FOES ARE LEFT ALIVE, WE'RE STILL IN BATTLE.NBTL(FD%(1)TD%(1)):NBTLĂM ***** LOOP TO LINE 100 FOR NEXT COMMAND ***** 100 ****** INITIALIZATION ROUTINE ****** 8 *** ,hOFM:TD%(3)MD%(0,1)DF0:7500:490{rM21NM:MD%(M2,5)ROOMMD%(M2,14)3(1).25DFM2:7500:M2200:M2:490|M2:DF0:7500:490 *** MONSTER IS FRIENDLY. HAVE HIM ATTACK AN ENEMY *** OFM"M21NM:MD%(M2,5)ROOMMD%(M2)R2:M2MD%(M,14):TD%(M2)TD%(M2)MD%(M,1):FD%(MD)FD%(M2)MD%(M,13):490X *** BRANCH ACCORDING TO MONSTER REACTION: 1=HOSTILE, 2=NEUTRAL, 3=FRIENDLY ***YMD%(M,14)360,490,390g *** MONSTER IS HOSTILE. HAVE HIM ATTACK SOMEONE ON OUR SIDE **TER IN ROOM.,@M1NM:MD%(M,5)ROOM490jI *** MORALE CHECK. SEE IF MONSTER TURNS TAIL AND RUNS.JM2MD%(M,14)(MD%(M,14)2):MR100FD%(M2)TD%(M2)(41(1)20)20(MD%(M,9)1)ITMD%(M,4)MRĞ:MN$(M);" FLEES OUT AN EXIT."::8500:MD%(M,5,3000,3000,4000,4000,5000,6000,6000,7000,8000,9000,10000,11000,12000,13000,14000,15000,15000,16000,17000,18000, ***** COMMANDS RETURN TO HERE: COMBAT LOOP ***** 5 *** IF NOT IN BATTLE, GOTO 5006NBTL500 ? *** DO COMBAT FOR EACH MONSLV)V$FF1:CA:F1275&:F290:"HUH? I ONLY UNDERSTAND THESE COMMANDS-- ";:C1NC:C$(C);20(C$(C)));::::210C$(C)S$S$V$:V$C$(C)200! ***** JUMP TO ROUTINE THAT HANDLES COMMAND ***** n"C3000,3000,3000,3000 SECOND WORD IS SUBJECT (S$).;V$(A$,A1):S$(A$,A1)HLV(V$)i(S$,1)" "S$(S$,2):260  **** SEARCH THROUGH LIST OF VERBS FOR MATCH WITH COMMAND *** C16:(C$(C),LV)V$290:F0:A7NC:C$(A)V$CA:290(C$(A),$,2):220J *** IF INPUT IS A NULL STRING, DO PREVIOUS COMMAND AGAIN.pA$""A$CZ$:(37):17:A$:275 *** FIND END OF FIRST WORD (THE VERB) BY LOOKING FOR A SPACECZ$A$:A2(A$):(A$,A,1)" "Ă *** FIRST WORD IS VERB (V$),PLAYER CHARACTER'S DROPPED WEAPONS.` AANA:AD%(A,4)ROOMĺ" -> YOUR ";AN$(A);" IS HERE."r A:V%(ROOM)1 ***** GET COMMAND ***** :"YOUR COMMAND?";::" ";A$ *** PARSE INPUT: GET RID OF LEADING SPACES. (A$,1)" "A$(A:A$""ĺA$::Q *** PRINT OUT NAMES OR DESCRIPTIONS OF ARTIFACTS IN ROOM.t A1NZ:AD%(A,4)ROOMĂ:190 AD%(A,9)ĺ" -- YOU SEE ";AN$(A)::190 DK$;"READ EAMON.DESC,R";A100:A$:DK$:A$:AD%(A,9)1::# *** PRINT OUT NAMES OF "READ EAMON.DESC,R";ROOM:A$:DK$:A$::V%(ROOM)1r *** PRINT OUT NAMES OR DESCRIPTIONS OF MONSTERS IN ROOM. M1NM:MD%(M,5)ROOMĂ:170 MD%(M,15)ĺ" >> ";MN$(M);" IS HERE."::170 DK$;"READ EAMON.DESC,R";M300:A$:DK$:MD%(M,15)1D%(0,10)2MD%(0,2):(1).8ĺ"YOUR SPEED SPELL HAS JUST EXPIRED!": *** PRINT ROOM DESCRIPTION. IF ROOM HASN'T BEEN SEEN BEFORE, *** GIVE A DESCRIPTION, OTHERWISE JUST PRINT THE ROOM NAME. V%(ROOM)ĺ"YOU ARE":" ";RN$(ROOM):1502 DK$;'T EXIST, THE ERROR WILL CAUSE A JUMP TO 50.W DK$(4):DK$"VERIFY GAME.PTRS":19000~ 2216,0:1000:*** SET UP THE GAME. d **** MAIN LOOP. GIVE ROOM DESC, THEN GET COMMAND. i255 nD xSPDSPDSPD1:SPDMD%(0,2)MD%(0,2)2:MD%(0,10)MvQ EAMON ADVENTURE BASE PROGRAM 2.1 BY DONALD BROWN WITH MODIFICATIONS BY JOHN NELSON & ROBERT PLAMONDON CALL -A.P.P.L.E. : MARCH 1983  50 *** IF 'GAME.PTRS' EXISTS, A GAME HAS BEEN SAVED., *** IF IT DOESN                                           (AN$(A)S$(AN$(A),(S$))S$(AN$(A),(S$))S$)AD%(A,4)1Ă::"YOU AREN'T CARRYING A ";S$::1000 *** DROP IT. ***0WTWTAD%(A,3):AD%(A,4)ROOM:AN$(A);" DROPPED.":0 *** TOO MUCH WEIGHT ROUTINE ***g1WT10MD%(0,1)ĺ"YOU SUDDECTS OF PICKING SOMETHING UP HERE ****/rh/$ *** ROUTINE TO GET S$ IF NOT PREVIOUSLY SPECIFIED. ***/)S$""ĺ:C$(C);" WHAT";:S$:4900/./ ***** DROP COMMAND ***** /4900/S$"ALL"5100/ *** DOES HE HAVE IT? ***j0A1NA:, READY THE WEAPON. ***".617000A.? *** GET ALL COMMAND **b.@A1NA:AD%(A,4)ROOM4190.J4200:WTAD%(A,3)10MD%(0,1)ĺAN$(A);" IS TOO HEAVY":4190.TAN$(A)" TAKEN.":AD%(A,4)1:WTWTAD%(A,3).^::300$/h *** INSERT SPECIAL EFFE! *** IS IT TOO HEAVY? ***e-"4200:WTAD%(A,3)10MD%(0,1)ĺ:"IT IS TOO HEAVY FOR YOU."::100|-+ *** GOT IT. ***-,:"GOT IT.":AD%(A,4)1:WTWTAD%(A,3)::AD%(A,2)2MD%(0,9)1300.5 *** IF ITEM IS A WEAPON, AND CHARACTER IS UNARMEDN OUT OF MONSTERS ***.,<M:NBTL(TD%(1)0):N, ***** GET COMMAND ***** X,4900k,S$"ALL"4160, *** IS ITEM HERE? ***,A1NA:(AN$(A)S$(AN$(A),(S$))S$(AN$(A),(S$))S$)AD%(A,4)ROOMĂ::"I SEE NO ";S$;" HERE!"::100-14)36700+A *** FIND REACTION OF MONSTER ***_+BFRMD%(M,3):FRFR100FRFR((CH10)2)+LMD%(M,14)1:FR(100(1))MD%(M,14)2:FR(100(1))MD%(M,14)3+VAMD%(M,14):FD%(A)FD%(A)MD%(M,13):TD%(A)TD%(A)MD%(M,1),7 *** LOOP UNTIL WE RU BY GENE HITE *0O* *MT* COPYRIGHT 1981 *jY*HEARTWOOD DESIGNS INC*[* *\* COMMERICAL RIGHTS *]* RESERVED *^* *h*********************** PRESS RETURN*+,* *H1***********************e2* *6* NOTE: THE CURSOR *7* WILL NOT BLINK *;* *=***********************@* *J* *&*3. PERFORM NORMAL DC *C* HAYES DIALUP *`* *}*4. NOW, SWITCH TO 70 ** COLUMNS BY: ** CONTROL-A ** CONTROL-X ** RUN DCH-70 *"* *! ***********************> * *[ * ** INSTRUCTIONS ** *x * * *1. BRUN SOFT SEVENTY * * * *2. ESC-Q TO GET 40 * * COLUMN MODE * * ***********************9 * *V * PROGRAM DCH-70 *s * * * ENABLES 70-COLUMN * *SOFT SEVENTY DISPLAYS* * WITH THE DC HAYES * * MICROMODEM * * ,32,174E x 153,165,71,32,140,149,32,140,153,104,168,104,170,104,96b ILOCLOC53:X:I,X:I 38144: ACTIVATE SOFT SEVENTY LOC: ACTIVATE THE DC HAYES PATCH (4)"IN#" X(1912HAYSLOT):1912HAYSLOT,X8: SET BACK TO TERM MODE PROGRAMS.5 2HAYSLOT2: SLOT THE DC HAYES IS INt <808,224:809,240:810,3:811,44:812,128:813,192:814,96 d 72,138,72,152,72,32,88,255,186,202,202,154,56,104,105,22,133,54,104 n 105,0,133,55,32,234,3,240,17,208,15,133,71,72,138,72,152,72START OVER.":(4)"BRUN SOFT SEVENTY"M MAKE SURE SOFT SEVENTY IS PRESENT. 784,141:785,0:786,224:787,14:788,0:789,224:790,173:791,0 (LOC768:LOCATION OF THE MACHINE LANGUAGE PROGRAM. CAN BE ANYWHERE IT DOESN'T INTERFERE WITH RUNNING  ********************6 ** PROGRAM DCH-70 **P ** 12 DEC 1981 **j ** BY GENE HITE ** ********************% (115)(116)149ė:10:"SOFT SEVENTY MUST BE LOADED FIRST.":(7):"SOFT SEVENTY WILL NOW BE LOADED.":(7):"THEN    (1)1)MD%(OF,10)):MD%(OF,10)MD%(OF,10)2INCf<DMD%(OF,11):SMD%(OF,12):A1:RL5ĺ"A HIT!":7635< *** CRITICAL HIT ROUTINE. CALCULATE EXTRA DAMAGE ***<:"A CRITICAL HIT!"::R2R(X):R251A0:7635<R286S1.5S:7635=R296D2%(OF,9)1:MD%(OF,4)MD%(OF,4)2:(1).5ĺ:P;y" BROKEN WEAPON HURTS USER!"a;~FR1007560;DMD%(OF,11):SMD%(OF,12):DFOF:A1:7635;DMD%(OF,11)2:SMD%(OF,12):DFOF:A0:7635; *** A HIT! CHECK FOR SKILL INCREASE ***.<INC((100OF,4)MD%(OF,4)2::+:lMD%(OF,9)07550;:oFR957550q:p *** HIGH-QUALITY WEAPONS BREAK LESS OFTEN. ***:qAD%(MD%(OF,9),5)3R(X)ĺ" FUMBLE RECOVERED."::-;t" WEAPON BROKEN!":AD%(MD%(OF,9),4)0:MD%(OF,10)MD%(OF,10)AD%(MD%(OF,9),5):MD *** A MISS. IS IT A FUMBLE? ***<9`RL97ĺ"A MISS.":Z9e:"A FUMBLE!"::FRR(X)9gFR3540(MD%(OF,9))ĺ" FUMBLE RECOVERED.":::jFR76ĺ" WEAPON DROPPED!":AD%(MD%(OF,9),4)ROOM:MD%(OF,10)MD%(OF,10)AD%(MD%(OF,9),5):MD%(OF,9)1:MD%(OF,4)2:,8K ***** ATTACK ROUTINE ***** I8LHIT0:MD%(OF,9)174008P *** PRINT ATTACK MESSAGE AND ROLL THE 'DICE'. ***8QMN$(OF);" ATTACKS ";MN$(DF):" --";:RL(100(1)1):HIT0:(RL5RLMD%(OF,10)MD%(DF,7))RL96HIT18VHIT7600$9_ONSTER TRIES TO PICK UP A WEAPON ****97MD%(OF,10)0ım7 *** SEE IF THERE'S A WEAPON ON THE FLOOR ***7A1NA:AD%(A,4)ROOMAD%(A,2)2Ă: 8MN$(OF);" PICKS UP ";AN$(A)::AD%(A,4)0:MD%(OF,9)A:MD%(OF,10)MD%(OF,10)AD%(A,5):MD%(OF,4)MD%(A2:EAAE1A156AEAEA:MD%(0,10)MD%(0,10)AP6MD%(DF,14)1DF03006 *** ATTACKING A MONSTER DECREASES ITS FRIENDLINESS. ***6MD%(DF,3)MD%(DF,3)2:M1NM:MD%(M,5)ROOMMD%(M,14)1MD%(M,14)06M:R3ROOM:3600:300%7 **** MIF IT DOESN'T WORK, SKIP.****<5OF0:DFM:7500:HIT7360e5 *** CHECK FOR SKILL INCREASE. ***5INCW2AD%(MD%(0,9),6):WA%(W2)WA%(W2)25 *** CHECK FOR INCREASE IN ARMOR EXPERTISE. ***5EAAE3005(100(1)1)MD%(0,10)73606** MAKE SURE VICTIM IS HERE. ***4pM1NM:(S$MN$(M)(MN$(M),(S$))S$(MN$(M),(S$))S$)MD%(M,5)ROOMĂ::"ATTACK WHO?"::1004y *** IS ATTACKER ARMED? ***4zMD%(0,9)1ĺ:"YOU HAVE NO WEAPON READY!"::1005 **** DO THE ATTACK. A1NM:MN$(A)S$MD%(A,5)ROOMĺDK$;"READ EAMON.DESC,R";A300:A$:DK$::A$::LK1e3A:LK3003 *** SET FLAG SO ROOM DESCRIPTION WILL BE GIVEN IN MAIN LOOP ***3V%(ROOM)0:3003X ********** ATTACK COMMAND ********** 3b4900 4o *A:WT0:5060/2p ***** LOOK COMMAND ***** X2 *** GIVE ARTIFACT DESCRIPTION ***2LK0:A1NZ:AN$(A)S$(AD%(A,4)ROOMAD%(A,4)1)ĺDK$;"READ EAMON.DESC,R";A100:A$:DK$::A$::LK12A:LK3002 *** GIVE MONSTER DESCRIPTION ***V3NLY FIND YOU CANNOT CARRY ALL OF THE ITEMS YOU ARE CARRYING, AND THEY ALL FALL TO THE GROUND."::51001MD%(0,9)0ĭAD%(MD%(0,9),4)1MD%(0,9)113001 *** DROP ALL ROUTINE ***1A1NA:AD%(A,4)1ĺAN$(A);" DROPPED.":AD%(A,4)ROOM2)(104)256 1065& P%(I)LOC1, 4 $70> )1080P .LINELZEROıe 3LOCNXTLIN:1065 8NXTLIN(LOC)(LOC1)256:LINE(LOC2)(LOC3)256: JAG:P%(5)? ::::::::: FAST 'GOTO' PSEUDO-COMMANDS:::::: A$"318:20 B1 00 20 E3 DF A0 01 B1 83 85 B8 88 B1 83 85 B9 60 ND9C6G" I1(A$):511I,128((A$,I,1))::72,0:144  5,20,30,40,50,60 C I1C LZERO LOC(103::AG792/ "FIRST TIME AROUND":1001M"SECOND TIME AROUND":71j"THIRD TIME AROUND":72("FOURTH TIME AROUND:GOTO 732"FIFTH TIME AROUND: GOTO 74<"SIXTH TIME AROUND:ENDFAG:P%(1)GAG:P%(2)HAG:P%(3) IAG:P%(4)  SUC(((RLS2%(S))(RL6))(RL96))1J,SUC11520iJ, *** IF ROLL=1 THEN SPELL HAS BEEN FORGOTTEN. ***J,R(X)1İ11600:J, *** FAILURE. ***J," NOTHING HAPPENS.":J, *** TEST FOR SKILL INCREASE. ***K-RL(100(1)1):RLS2%(S)S2%(*** ATTEMPT TO BLAST THE TARGET. SUC = SUCCESS FLAG ***PI,S1:11500:SUC300qI, *** SUCCESSFUL BLAST. ***I,:"DIRECT HIT!"::S6:D1:DFM:A0:7635::300I, *** BLAST SUBROUTINE. SEE IF SPELL IS SUCCESSFUL. ***"J,SUC0:SA%(S)RLR(X):120(AMD%(0,9))):A0A01:A015ĺ:"(HIT ANY KEY TO CONTINUE)";:A$::A00WH$':300wH* ***** BLAST SPELL ***** H+4900H, *** SEE IF TARGET IS BLASTABLE ***H,M1NM:S$MN$(M)MD%(M,5)ROOMĂ::"YOU CAN'T BLAST ";S$;"!"::1007I, ING THAT MUCH GOLD OF YOUR OWN!"::300uG&%GOLD(GOLD(S$)):MD%(M,14)0:MD%(M,3)MD%(M,3)(1(S$)100):9120G' ***** INVENTORY COMMAND ***** LH':"YOU ARE CARRYING THE FOLLOWING--":A00:A1NA:AD%(A,4)1ĺ" ";AN$(A);(" (READY WEAPON)",9)1QF#:"OKAY.":AD%(A,4)M1:MD%(M,14)0:MD%(M,3)MD%(M,3)(1AD%(A,1)100)F#MD%(M,10)0MD%(M,9)1MD%(M,9)A:MD%(M,10)MD%(M,9)AD%(A,5):MD%(M,4)2MD%(M,4)F#R3ROOM:3600:5050F% *** GIVE GOLD ***,G%(S$)GOLDĺ:"YOU AREN'T CARRY *** SEE IF S$ CONTAINS AN ARTIFACT NAME ***aEn#A1NA:(S$,(AN$(A)))AN$(A)AD%(A,4)19095Ew# *** IF NOT, GET AN ARTIFACT NAME ***Ex#:A22A23::"WHAT TO GIVE? ";S$:9065E#:"YOU AREN'T CARRYING A ";S$;"!"::100F#AMD%(0,9)MD%(0,21A22::"WHO TO GIVE TO? ";S$:9020QDP#:"NOBODY HERE BY THAT NAME!"::100jDZ#S$(S$,(MN$(M))1)Dd#(S$,1)" "S$(S$,2):9060Dh# *** IF VALUE OF S$ >0, S$ IS A NUMBER. ASSUME PLAYER WANTS TO GIVE GOLD PIECES. ***Di#(S$)09500,Em# ):K0K1K11:DR%(K1)K6C>!:RR(1)K11:R2DR%(RR)AMD%(DF,14):FD%(A)FD%(A)D2_> *** TELL PLAYER HOW HEALTHY THE DEFENDER IS. ***>:MN$(DF);:(MD%(DF,13)5MD%(DF,1)1)7655,7660,7665,7670,7675>" IS IN GOOD SHAPE.":>" IS LIGHTLY INJURED.":>" IS BADLY INJURED.":?D:7635 =R2100D3D:7635*=7700m= *** CALCULATE DAMAGE, SUBTRACT ARMOR VALUE FROM DAMAGE. ***=D20:D31D:D2D2(S(1)1)::D2D2AMD%(DF,8):D21ĺ" BLOW BOUNCES OFF ARMOUR"::>MD%(DF,13)MD%(DF,13)D2:MD%(DF,13)MD%(DF,1)Rz^X`HH$H(H)H67 ΍ (0)?i I ( ש67 h)h(h$hhE@ E AGILITY AND CHANCE TO HIT ***** ;P6S3:11500:SUC300xP6SPDMD%(0,10)MD%(0,10)2MD%(0,2):MD%(0,2)2MD%(0,2)P6SPDSPD(25(1)10)::"YOU CAN FEEL THE NEW AGILITY FLOWING":" THROUGH YOU!"::300 Q: ***** SMILE COMMAND: TRY TO MAKE F00O3 *** SONIC BOOM? ***{O3RR86ĺ:"YOU HEAR A VERY LOUD SONIC BOOM":" THAT ECHOES THROUGH THE TUNNELS."::300O!3 *** HEALING? ***O"3RR95ĺ:"ALL OF YOUR HITS ARE HEALED."::MD%(0,13)0:300O,314020"P6 ***** SPEED SPELL: INCREAS *** AN ARTIFACT VANISHES? ***cN2A1NA:AD%(A,4)ROOMRAISE1:AN$(A);" VANISHES!":AD%(A,4)0xN2A:RAISEĺ:300N3 *** ROOF COLLAPSES? ***O3RR(100(1)1):RR11ĺ:"THE SECTION OF TUNNEL YOU ARE IN ":" COLLAPSES AND YOU DIE.":DIE1:20M2S4:11500:SUC300HM2 *** RESURRECTION OF A DEAD MONSTER? ***M2RAISE0:M1NM:M2NZNMM:AD%(M2,4)ROOMAD%(M2,4)1RAISE1:MN$(M);" COMES ALIVE!":AD%(M2,4)0:MD%(M,5)ROOM:MD%(M,13)0:WTWTAD%(M2,3)M2M:RAISER3ROOM:3600:300 N2S2:11500:SUC300PL.:MD%(0,13)ĺ"SOME OF YOUR WOUNDS SEEM TO CLEAR UP.":L.MD%(0,13)MD%(0,13)(10(1)1):MD%(0,13)0MD%(0,13)0L/DF0:7650:300L2 ***** POWER SPELL -- RE-WRITE FOR SPECIAL EFFECTS ***** M2 *** RANDOM EFFECTS ***S)S2%(S)2:SA%(S)SA%(S)2/K -S2%(S)S2%(S)25K-]KO- *** FORGET SPELL SUBROUTINE. ***KP-:"THE STRAIN OF ATTEMPTING TO CAST THIS SPELL OVERLOADS YOUR BRAIN AND YOU FORGET IT COMPLETELY."::SA%(S)0:K. ***** HEAL SPELL ***** L.ȍҠ Ӎ ȍ̍ȍ ٍ؍à ɠ Ԡƍ0 썠àҠŰàҠԍ٠ ٠ 򿍠àЍҠԠ 占ؠ 占ؠ àЍư ң̍ưԠؠ Р٠ Р 占ҠԍٍŠЍ ٽҠÍР̩٠ ɠà ĠƠ 獠àñȍؠ РƬؠ ѠԠ 䍠Ҡԍؠ ŠРƠ ¸° ݬ ŬĬ ά Ү ԮčÍЍëɠ Ӎ ŪР Ƞ ̍ȍñ ң àՠñ ԠՠĸŠ ԠՠĠ 򍍠Ǡ 卍 ŪР Ƞՠ ̠ՠ Ƞՠ̠ՠ Ƞՠàՠ àՠŠ   𮍪 쮍  Ԡ ̮ ЮЮ̮Ů Ԡ    ">";:40(NM$(X)):NM$(X)Q$(37)21XREC1080:CHECK FOR FULL PAGE OF TEXT].:11108(DASH$,39):"ENTER # OR ";::"RETURN";::" FOR MORE: ";A$:N(A$)BA$""Ģ3::1070:RETURN FOR MOREL1130&VCT:(DASH$,39):"ENTER # OR ";::RECĺD$"CLOSE":1370(X1RECED$"READRF."CT$(CG)",R"XQNM$(X)WfD$"CLOSE"::A$":"S$Q$CT$(CG)Q$S$"FILE :":60:"NMBR";:34:"RECIPE":(DASH$,39)X1REC:". . . . . . . . . . . . . . . . . . .";:1:"<"XASH$,35)731:"TOTAL:";:39(TTL9)(TTL99):TTL:3:"PRESS THE LETTER OF":3:"YOUR CHOICE :"U$H$;:CB,0:CG$::(CG$)2350CG(CG$)65:CG0CG92350:130D$"OPENRF."CT$(CG)",L2000"D$"READRF."CT$(CG)",R0"RECEAD RECIPES *** =H::3:A$": READ RECIPES :":60::X10wR:"LTR";:5:"CATEGORY";:36:"RECS":5:(DASH$,35)\X09:CG$CT$(X):RECCT(X)f"< > . . . . . . . . . . . . . . . . . .";:2:(X65);:5:CG$;:39(REC9):RECpz5:(DREC1 D$"CLOSE"2CT(CG)CT(CG)1:TTLTTL1 PREVIOUS LINES OPEN THE FILE, ADD THE NEW DATA, REC 0 CONTAINS NUMBER OF RECIPESIN THIS FILE*:"THE RECIPE FOR "NM$" HAS":"BEEN ADDED TO THE "Q$CT$(CG)Q$" FILE."::80::42350> *** R9:"INSERT DISK CONTAINING":"RECIPE FILES..."::80@`D$"OPENRF."CT$(CG)",L2000"}D$"READRF."CT$(CG)",R0"RECD$"WRITERF."CT$(CG)",R"REC1NM$:LNGTHX0LNGTHQ$A$(X)Q$D$"WRITERF."CT$(CG)",R0"(STRING))1A$(STRING)(A$(STRING),(A$(STRING))1):600QD(A$(STRING))560cNA$(STRING)""nXA$S$;b(0)1(VC)C1Ģ(VC):B1l500vCB,0:BP:::LNGTHSTRING:NUMBER OF "CHUNKS" OF TEXT (EACH CHUNK=217 CHARS,7 X 31)A$(STRING)A$(STRING)A$:(A$(STRING))217STRINGSTRING1:A$(STRING)""lSTRING9ČBP:BP:BP:BP:630wH$A$;CB,0:440SPECIAL CHARACTERA$(134)630A$(155)ĹCB,0:::2350&A$(136)57001008:BP:5109:(A$T WINDOW7STRING0:A$(STRING)"":CLEAR FIRST STRINGWC::C:1:POSITION CURSORaCB,0t(X)B1470(VC)D1ČUP:(VC)::S$;::B1);:1:470(VC)2:1:U$;::KB,128:A$((KB)):(A$)160(A$)222(A$)162530I2:"";[ hA4:B32:C6:D21z r *** INPUT ROUTINE *** |MARGINS:A=LEFT,B=RIGHT, C=TOP,D=BOTTOM :XCD:X:A:B1):::DRAW "RECIPE CARD" LFT,A1:TP,C1:BM,D:WTH,B:SE>?"U$H$;:A$:A$:A$"N"290. 14:CT:210D "INPUT THE RECIPEo ,INPT1:FLAG FOR CENTERING SUBR 6:A$NM$" ("CT$(CG)")":60 @:A$".....TYPE THE RECIPE BELOW.....":60 JINPT0 T5:4:(DASH$,31):22:4:(DASH$,31)E ^24:CB,0:CG$:CG$:(CG$)ė:2350C CG(CG$)65:CG0CG9ė:2350y :"NAME OF RECIPE ";:X120:U$;::15:":";NM$ NM$(NM$,20) (NM$)ČBP:170 19:"NAME:";::NM$:::"CATEGORY:";::CT$(CG): :"IS THE ABOVE INFO CORRECT . . "CT$(X)::6:X59:23:"<"(X65)">. . "CT$(X): X5116:X:DASH$:  "ENTER THE LETTER OF THE":"APPROPRIATE CATEGORY :"U$H$;:TINE F20(A$)2INPT:A$:; PINPUT C/R TO CONTINUES ZCB,0:CLR KEYBOARD d:"PRESS ";::"RETURN";::" TO CONTINUE ";::U$;: nKB,128:(KB)141110 xCB,0:1:875: PRINT "READING" MESSAGE 12:16:(91)"READING]" /C RECIPE FILE BY JIM GANZ CALL -A.P.P.L.E. : FEB. 1983 o:::63000::1:5:CHEAP TITLE PAGEX135:A$A$"%"::A$:X223:5)(A$,7);:33:(A$,7)::5)A$;(1:(13)(4)"NOMONCIO"22110:INIT & MENU <CENTER A$ SUBROU                72 91 83 A0 B5 A2 3B A9 80 4C":9900P#HX$"340:E2 E5 C9 43 D0 1D A2 00 BD BB B4 9D BB B4 C9 0D F0 04 C9 20 90 06 E8 D0 EF 4C 95 D9 A9 20 9D BB B4 D0 F3 C9 4C D0 19 A2 00 BD BB B4 9D BB B4 C9":9900mZ#HX$"370:0A F0 06 E8 D0 F3 4C 95 D9 A9 20 9D BB B4255ij: ** BREAK ATTEMPTED!Y?MY@"*** ATTEMPTING TO RECOVER ***"::100SY_uY` *** THAT'S ALL, FOLKS! ***9,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96:768yX|X(0):** THIS ALSO HELPS KILL BUGS.X}X~ *** PRINT ERROR #, LINE # *** XCODE(222):LN(218)256(219)X(7);"**** ERROR #";CODE;" IN LINE ";LNYCODEGAME.STR"fWtJDK$;"OPEN EAMON.DESC,L256":DK$;"OPEN EAMON.ROOMS,L64":DK$;"OPEN EAMON.ROOM NAMES,L64"oW~J100WPò ***** ERROR HANDLING ROUTINE ***** Wx *** FIRST POKE IN A ROUTINE TO HELP DEFEAT APPLESOFT'S 'ONERR GOTO' BUGS. ***OXy768,104:76* ;VBJ:"DO YOU WANT TO RESTART THIS GAME?":" Y OR N:";ZVLJA$:A$"Y"A$"N"19020lVVJA$:A$"N"ĀyV[JDK$(4)V`JDK$"BLOAD GAME.PTRS":DK$"BLOAD GAME.SVAR":DK$"BLOAD GAME.STR" WjJDK$;"DELETE GAME.PTRS":DK$;"DELETE GAME.SVAR":DK$;"DELETE (106)256;",L";(109)(110)256(105)(106)2561UFDK$"BSAVE GAME.STR,A";(111)(112)256;",L";(115)(116)256(111)(112)2561UF:"THE GAME IS NOW SAVED. BOOT ON THIS":" DISKETTE TO RESTART THE GAME."UFV8J *** RESTART OLD GAME **:"READIED."::300,TPF *** SAVE GAME *** aTZF:"DO YOU WANT TO SAVE THIS GAME? ":"(Y/N) :";TdFA$:A$"Y"A$"N"18020TnFA$:A$"N"100TsFDK$(4)TxFDK$;"CLOSE":X(0)TFDK$"BSAVE GAME.PTRS,A$69,L8"4UFDK$"BSAVE GAME.SVAR,A";(105)N'T CARRYING IT!"::100>SB *** IS IT REALLY A WEAPON? ***oSBAD%(A,2)2ĺ:"THAT ISN'T A WEAPON!"::100S;F *** READY IT. ***SS$"HEAL"12000@R>S$"POWER"13000VR>S$"SPEED"14000uRB:"OKAY, '";S$;"'"::300RhB ***** READY A WEAPON. ***** RrB4900R{B *** IS HE CARRYING THE WEAPON? ***S|BA1NA:AN$(A)S$AD%(A,4)1Ă::"YOU ARERIENDS ***** 1Q::M1NM:MD%(M,5)ROOM15100RQ:MD%(M,14)15030,15040,15050vQ:MN$(M);" GROWLS AT YOU":15100Q:MN$(M);" IGNORES YOU":15100Q:MN$(M);" ";V$;"S BACK":15100Q:M::300Q> **** SAY COMMAND ***** Q>4900R>S$"BLASA5 50 85 06 A5 51 85 07 20 BE DE 20 67 DD 20 52 E7 A0 00 A5 50 91 06 C8 A5 51 91 06 60 N300G":2000: A$A$" N D9C6G":I1(A$):511I,((A$,I,1))128::72,0:144:03 8D F7 03 A9 0B 8D F6 03 60 C9 E2 F0 07 C9 B9 F0 34 4C C9 DE 20 B1 00 20 67 DD 20 52 E7 A0 01 B1 50 48 88 B1 50 A8 68 20 F2 E2 A5 A2 10 07 A0 03 A9 42 20 BE E7 20 BE DE 20 E3 DF AA 20 2B EB 60":2000e A$"342:91 00 00 00 00 20 B1 00 20 67 DD 20 52 E7 111,FR7 ""RESET HIMEM =";HI;" FREE SPACE=";FRST= ,N 6PBTX:34,12} @"MEMORY ADDRESS NEXT LINE PTR LINE #": JPB,NS:PB2,LN TNS0ī380 ^6);PB;22);NS;34);LN hPBNS r330 |6);PB;22);NS :: A$"300:A9 105,VA* "START OF VARIABLE=";VA7 107,ART "START OF ARRAYS =";ARa 109,ST~ "END OF ARRAYS =";ST 111,FR "BOTTOM OF STRING=";FR;" FREE SPACE=";FRST 115,HI "HIMEM =";HI 24576 115,HI: PEEKPOKE DEMO AND BASIC LOADER BY KEN KASHMAREK CALL -A.P.P.L.E. : FEB 1983 USING 16 BIT PEEK/POKE ROUTINES d1000x34300:::103,TX"START OF PROGRAM =";TX175,EN "END OF PROGRAM =";EN;" SIZE = ";ENTX    AVAILABLE":216,0:110)b(222)255Ħ3l::t'2::4:"CALL -APPLE ANTHOLOGY, VOL 9A ":::34,5:11000:*8:"NOT ALL PROGRAMS ON THIS DISKETTE APPEAR IN THE MENU, THOSE WITH A [.S] SUFFIXARE BIG MAC SOURCE FILES.";+"OTHERS NEED ADDIT11);(7);"GPLE NOT INSTALLED": SEQUENCE IS:"::"'";::(93);::":987F<4B7F.4FFFM N 3D0G";::"M":::X12:10)"ARE YOU ";::"SURE";::"? (Y/N) ";:A$:A$:A$"Y"ıb:HM34304260:HM34305250::16300,0:IP21P2(A$):I,((A$,IP2,B1))B7::144:!10:(KB)B7:KS,0:A27ı_::" FOR MOVING TABLES TO PLE.LC & PLE.DM":"THE SEQUENCE IS:":D"'";::(93);::":200:2C 89 C0 2C 89 C0 60 N200G N DB7F<4B7F.4FFFM N 200:2C 82 C0 60 N200G3D0G";::"M":KN::" FOR MOVING TABLES TO PLE.48":"THEҩٍҠϠ 占àҍŠčàҫ ͍ĠϠ ÍРҍɍàҫŠҍР  ï ĠˍԠƍMŠĠ 덠ˠ ҍҠ͠ ҠҠ ͍Ҡ͠ ҍҠ͠ ҠԠ ÍҠ䍠ˠ ҍҠ͠ ҠҠ ͍٠РƱ٠ ͩ٠ 占ٍŠЍӍ͠Рϧ 俍 뮮 Ԡ̠Рͧ 俍Š͠ Ѡ̠ ʠؠ ŠР 迍Р 卪̠ 占Ʊؠ Šʠ Ԡ CHINE CODE INTO MEMORY WITH S H LAM ROUTINE x&HX$HX$" N D9C6G":I1(HX$):511I,((HX$,I,1))128::72,0:144:S 7%STBL(0,1)0:STBL(0,2)6:STBL(0,3)12:STBL(0,4)3m%STBL(1,1)9:STBL(1,2)15:STBL(1,3)14:STBL(1,4)5%STBL(2,1)11:STBL(2,2)2:STBL(2,3)8:STBL(2,4)7%STBL(3,1)13:STBL(3,2)4:STBL(3,3)10:STBL(3,4)1%4000: ,& POKE RWTS STRING MA%(49),BLOCK%(49,17): w$::2:"[CP/MUFFIN] CP/M->DOS FILE CONVERTER"::34,3:"SOURCE SLOT, DRIVE: ";SLOT%,DRIVE%$SLOT,SLOT%16:DRIVE,DRIVE%$35,16:20:11:::" READING CP/M DIRECTORY ":::: % SET UP 4 SECTOR READ SEQUENCE PATTERNB DA 00":9900n#736: Tx# RELOCATABLE MACHINE CODE MODIFIED BY DAVID SPARKS n#BFPTR(1)22016:22016#RWCODE45121:SLOT46583:DRIVE46584:$TRACK45975:SECTR45976:MOD4:E5$(229)$USERRW45111:PREGISTER72$DIR$(49),FILNAME$(49),NR D0 F3 C9 4D D0 18 20 AA D9 C8 20 98 D9 20 67 DD 20 52 E7 A0 00 B9 BB B4 91 50 C8 D0 F8 60 C9 4F D0 2E":9900d#HX$"3A0:20 AA D9 C8 20 98 D9 20 67 DD 20 52 E7 20 BE DE 20 67 DD 20 F2 EB B1 50 20 5C DB E6 50 D0 02 E6 51 A5 A1 C5 50 A5 A0 E5 51 B0 EB 4C Fm `ɹ4L g RPHPh ⥢B ߪ +` g RPQ g RPȥQ`z#? ԠŠϠ ЯΠ ƮӠ ŠŠŠ ǠŮӠǠŠ ՠ Ƞ Ȯ Š͠SŮӠ Š Π ԠŠϮӠ  !Ԯ̠Ġ"ŮӠ ŠŠϠŠŠ1 ѠЮӠ ѠР ҠDzӠDzĮӠĠàĠ ٠Ϡà  ĠԠ0ĮӠĠŠϠԮӮӠ ԮӠ  -      9 -  1983  LjUGETSOUND PROGRAM LIBRARY EXCHANGE 304 MAIN AV. SOUTH RENTON, WA. 98055 `IONAL SUPPORT. CONSULT APPROPRIATE CALL -APPLE FOR INFO.":B + l*+::"HIT ANY KEY FOR MENU"::32,0:.756:4:958:2"Call -Apple Anthol- ogy, Vol 9A, Jan-Mar 1983 Version 1 Release date 2.20.83"c" APPLE PëijР ıı 占ŵӍٲؠ±¬ìԠƍ 䍪Š 獠Íōë٠Ԡٲ٠ ٲéٍٍ٠ٲ 荠ѠԱРԍԱà 箮ijԍԍ٠ 占Ơ ƩčīÍԫԫŠ Š 卪ҠŠ 卪ĠԠՠà ĠՠŠ ŠՠŲà ŠՠðĠՠðàՠİ Šՠ³ àՠРՠ占 Ԡ ͮ ЮЮ̮Ů ԠǠԠՠ     AV. SOUTH RENTON, WA. 98055 5:"U";:40:"E";& H17:"N":18:"D" R:::10:" ":10:" P R E S E N T S ":10:" " \:34,23:I11200::::& " APPLE PUGETSOUND PROGRAM LIBRARY EXCHANGE 304 MAIN L E":2:"P U R I X" *3:"P G O B C":4:"L E G R H" 45:"E T R A A":14:"S A R N" >15:"O M Y G":16:9:" ";:17:" ";:25:" ";:33:" "g " ";:5:" ";:9:" ";:17:" ";:25:" ";:33:" " " ";:5:" ";:7:" ";:9:" ";:15:" ";:17:" "; 23:" ";:25:" ";:31:" ";:33:" ";:39:" " :6 "A P P '=d " M E N U " BY VAL J GOLDING - 2.80 Yi2000:::"CATALOG":c::1:2:" ";:9:" ";:17:" ";:25:" ";:33:" "" ";:5:" ";:9:" ";:13:" ";:17:" ";:21:" ";:25:" ";:33:" ". " "; a?ЅC= ,T L)01`$(Hk(hl8 OU DON'T KNOW THE PASSWORD":::(4);"PR#6"2 8 ? 8G 10n 5:"THAT IS THE CORRECT PASSWORD" :10)"LETS GET TO WORK." POKE 214,0:POKE 1010,191:POKE 1011,157:POKE 1012,56I PASSWORD 9/14/82H NORMAL 214=0 1010=191 1011=157 1012=56 N[(214,128i21010,102<1011,213:1012,112FP12Z"PLEASE ENTER THE PASSWORD : ";PW$d PASSWORD GOES HEREnPW$"GLORIA"140, x::12:6:"SORRY, Y (50200:RESULT0ER$"(EDIT) BAD PARAMETER":50000:(D(SET,PT,0)(WD$):50200:RESULT1ER$"(EDIT) BAD PARAMETER":50000:(D(SET,PT,1)(WD$):)) PLOT))RESULT310550)50200:RESULT3ER$"(PLOT) BAD PARAMETER":50000IT) BAD SET":50000: (50200S(RESULT1ER$"(EDIT) BAD PARAMETER":50000:(PT(WD$):PT1PTNP(SET)ER$"(EDIT) BAD POINT":50000:(SETLS:50500(23:2:"(";PT;") ";D(SET,PT,0);", ";D(SET,PT,1)(22:"EDIT: ";:50100:IN$""ı7";D(LS,LP1,1)(b(NP(LS)(NP(LS)2)2ĺ"(";NP(LS);") ";D(LS,NP(LS),0);", ";D(LS,NP(LS),1)m(LC$:s(~( EDIT((50200:RESULT1ī10440(RESULT2ER$"(EDIT) BAD PARAMETER":50000:(LS(WD$)("A"):LSNSETSLS0ER$"(EDSNSETSLS0ER$"(DISPLAY) BAD SET":50000:Yd(SETLS::BM,20::10350:GM,0:BM,24:xn(:"SET ";(LS("A"));":"w(NP(LS)210380x(LP1(NP(LS)2)212(1:"(";LP;") ";D(LS,LP,0);", ";D(LS,LP,1);(20:"(";LP1;") ";D(LS,LP1,0);", 1:D(SET,LP,0)D(SET,LP1,0):D(SET,LP,1)D(SET,LP1,1):N(NP(SET)NP(SET)1T((Z<(h=( DISPLAYn>(F(RESULT3ĉ:BM,20::LS0NSETS:10350::GM,0:BM,24:P(RESULT2ER$"(DISPLAY) BAD PARAMETER":50000:-Z(50200:LS(WD$)("A"):LLETE) BAD PARAMETER":50000:a'LS(WD$)("A"):LSNSETSLS0ER$"(DELETE) BAD SET":50000:l'50200(RESULT1ER$"(DELETE) BAD PARAMETER":50000:(SETLS (PT(WD$):PT1PTNP(SET)ER$"(DELETE) BAD POINT":50000:8(LPPTNP(SET)'NP(SET)NP(SET)1m'D(SET,NP(SET),0)(WD$):50200:RESULT1ER$"(APPEND) BAD PARAMETER":50000:10140'D(SET,NP(SET),1)(WD$):ECHOPTNP(SET):50400'50500:10140'' DELETE''50200:RESULT1ī10240'RESULT2ER$"(DE0200:LS(WD$)("A"):LSNSETSLS0ER$"(APPEND) BAD SET":50000:O'SETLSZ'50500'NP(SET)PMAXER$"(APPEND) TOO MANY POINTS":50000:'22:1:"APPEND: ";:50100:IN$""ı'50200:RESULT0ER$"(APPEND) BAD PARAMETER":50000:10140------------------' -' DPPM COMMANDS3'9'G' DESTROYM'a'RESULT310040$'50200:LS(WD$)("A"):LSNSETSLS0ER$"(DESTROY) BAD SET":50000:.'SETLS8'NP(SET)0B't'u' APPENDv'~'RESULT310140D'5 * COMM1ER$"BAD COMMAND":50000 $COMM110000,10100,10200,10300,10400,10500,10600,10700,10800,10900,11000,11100,11200,11300,11400,11500,11600,11700,11800,11900,12000,12100,12200,12300,12400,12500 )F(0) .50500:1000 ' ' ----AND FILE: ";:50100:CF$IN$:CF1D D$;"OPEN ";CF$:D$;"READ ";CF$T :50500:3Z u  --------------------{   MAIN CONTROL LOOP  22:1:"COMMAND: ";:50100 IN$""1010 50200:COMM1 I0NC:COMM$(I)WD$COMMIP1:ECHO0:F$"WORKFILE":XS1:YS1:X00:Y00B @SET0:PT0P  STARTUP ::18::"DPCI"::::5:"DATA PLOT COMMAND INTERPRETER"::9:"BY TOM LITTLE MAY 1982" 20:"INTERACTIVE MODE? (Y/N) ";:IC$:IC$"N"450 "NO":"NAME OF COMMESTROY,APPEND,DELETE,DISPLAY,EDIT,PLOT,LINEPLOT,BARGRAPH,CLEAR,GRAPHICS,TEXT,ECHO,RESTART,STOP,SYMBOL,PRINT,SAVE,LOAD,SORT,MEAN,SIGMA,DOS,SCALE,DUMP,ORIGIN,AUTOSCALE SYM$(3) I03:SYM$(I): POINT,CIRCLE,SQUARE,DELTA , INITIAL VALUES3 613):U$(95)H xCL868:GM16304:TM16303:KBD16384:KST16368:BM35\ NSETS5:PMAX20e PR1q 50800w SET UP DATA STRUCTURES D(NSETS,PMAX,1),NP(NSETS),DUMMY(PMAX,1) NC25:COMM$(NC) I0NC:COMM$(I): D. ********************************* * DATA PLOT COMMAND INTERPRETER * * ( D P C I ) - BY TOM LITTLE * * CALL -A.P.P.L.E. : JAN. 1983 * ********************************* de DEFINE CONSTANTSf nD$(13)(4):B$(7):BS$(8):CR$(               čҠŸŠ ÍҠ دÍ éŠ à à ū ÍƍčԴ 占 ÍԳ 獠ԲԱ 덠Բ 獠ԱӠҠ Ӡ 롍Ҡؠ ŠР Š Š 占Գ 䍠à ԴààӠ 占Դ 占 Գ Р̠Ա ̠Բ ̠Գ ̠Դà Ա 퍠à ŭ Բ 獠à ͠Ġ ѠŠ 占 占̠ōРű ٢Š٠Š ؠŠ Ҡ²  í 򮍠ؠƳ Ҡù٠ 䍠Ġ˭٠ 䍠Ա٠ 䍠٠ ź Ω Šҍ 󮍪Ǡƴ àТ ͠ ͠ Í٠ Í 퍪 ծ 퍪 獪 թ ō  卪  䍪 卪 荪 卪 ӧ ө 䍪 䍪 䍪 䮍 䍪 婮 宍 卪 ΍ 箩 퍪 ̯ ЮЮ̮Ů Ԡ 䍪  Ԡ      RTS,10-HEARTS,J-HEARTS,Q-HEARTS,K-HEARTS,A-HEARTS  2-DIAMONDS,3-DIAMONDS,4-DIAMONDS,5-DIAMONDS,6-DIAMONDS,7-DIAMONDS,8-DIAMONDS,9-DIAMONDS,10-DIAMONDS,J-DIAMONDS,Q-DIAMONDS,K-DIAMONDS,A-DIAMONDSS,8-CLUBS,9-CLUBS,10-CLUBS,J-CLUBS,Q-CLUBS,K-CLUBS,A-CLUBS l 2-SPADES,3-SPADES,4-SPADES,5-SPADES,6-SPADES,7-SPADES,8-SPADES,9-SPADES,10-SPADES,J-SPADES,Q-SPADES,K-SPADES,A-SPADES1 v2-HEARTS,3-HEARTS,4-HEARTS,5-HEARTS,6-HEARTS,7-HEARTS,8-HEARTS,9-HEA1 J YXF1 Y) Y1217 A(Y)B(Y)> YE IO 34,1U [ &c 011 :"YOUR CARD IS ";A$(X9);(7);(7);(7) D:"ANOTHER GAME?";:A$(0) N(A$(0),1)"Y"60 X: b 2-CLUBS,3-CLUBS,4-CLUBS,5-CLUBS,6-CLUBS,7-CLUB13* ,A$(X);14);A$(X1);28);A$(X2):1 6X9 @23B J255v T"INPUT COLUMN # CONTAINING YOUR CARD:";:A$(0) ^X(A$(0)) hX1X3320 rF0 |I3530 Y13 L1 F1L15 YXL8 JYY183 B(L)A(J) LLȂY xA(X)T X ; A$(0)"APPLE - THE MAGICIAN"X (40(A$(0)))2);A$(0)^ i I13o { X121 A$(X)DECK$(A(X)) X 34,1 4 "COLUMN #1";14);"COLUMN #2";28);"COLUMN #3":: 200 "X12Y APPLE - THE MAGICIAN BY LUIS M. HERNANDEZ CALL -A.P.P.L.E. : MAR. 1983 m(978)190140A(21),B(21),DECK$(52),A$(21)X152(DECK$(X)2X<X121FT((1)53)PT070ZY1X1dA(Y)T70 n    LL   9`PL +...8HHHHhhhhhhhhۅ . i8   ` L#Ġ Ԡ̠ ĠҠ  ȍ ҠԱ Ԡ̡čӍˠ 獠Ԡƍ ̠ ̠׍ ؠ נǍҬؠ ҠԠ 忍ŠԠ ˠӍԠ ԠǠ àύűҮԻ̍ҠԠ 荠ŠŠ Ų ŠǍȠؠ 荠Ǡ ԠѠű 占РˠѠŲРˠ׿ѠȍРˠſŠˠ Ԡ̠ ҠŠ Ԡ̡čԠРԠ Ԡ ҠȠ Рű ԠԠ̡čРč ٠Ԡ̡ġōŠ̩٠ ̩٠ čٍŠōà̫Šō Ƞ 䮍Ԡ̡čҮԫ٠ Ԡ̡ō 俍à 䩍РÍŠԠ ë Рà ҍҮԻҫҮƸ̍ðĠŠϠҠÍݱݲݱݲ΍ǠԠ̡ġōԠà 俍àԠ īРŠ ÿŠР鰍 溍  Ԡ±Ԡ·ǠŶ ȠĶ ẍˠ ˠ ˠ  溍̭ ð̠̠Ų ĠijԠҠƵҠðàŰȠö òŠõԱ Ԡ Ů ЮЮ̮Ů ԠԠĠ 퍍  JF279F:V191(1NC(J)M):JF,VJF,191:Je n49168,0:"CONTINUE ";KB$::20:RESUME COMPUTING YET: 2L:NC(T)NC(T)1:NN1:N,T:KEEP TRACK OF RESULTSy <(49152)14120:SEE IF USER PRESSES RETURN FOR DISTRIB. F49168,0:M0:F1:J50011:NC(J)MMNC(J) PNC(J)0FJ:FIND START OF PLOT AND MAX VALUE ZJ::49234,0:7:DRAW IT/ dfB LICENSE PLATE SIMULATION JOHN RUSS : CALL -A.P.P.L.E. g N0:NC(500)::(4)"BRUN USRND"T0:L025:T COUNTS NUMBER OF TRIES, L IS A LETTER (A...Z)L(26)L(26)L(26)50:LOOK FOR 1 MATCH IN 3 LETTERS (TT1:30:NO MATCH   ,,PWɞ,CLr  ̠`  L KL,Lɯ#ɿ#ɗ3, X,LB67 @   ʅT `H$P, "h ,`ŠΠΠӠԠƍ ҍDZ 卪 ٠Ơ Π٠ Ƭ٠ ѠΠ 獠DZ٠  ҍٍЫԩ٠ 占Ӎ 󍪍Šԩ٠ 獠ٍԩ٠ ҍDZ 占ٍԩ٠ Ҡ ؠ٠ ҠҠ ٠ Ӡ ԩ٠ 荠ٍЍԩ٠ DZՠ   􍪍٠ 占Рԩ٠ 䍠àŠ ѠŠ 荪ʍҠԠ ؠҠҠ ؠӠ 獠ҠӠ 獠Ӡ  󍪍Ơՠ 󍪍ӠՠĵԠՠųՠŴҠՠŵŲҠՠķ 󍪍РՠƠ ōԠՠ ԍӠՠĠ 獪Ǡ ЮЮ̮Ů Ԡ Ƶ Ҥ ҍ ⍪ Ԭ  +Ԡ      8D F6 03 A9 02 8D F7 03 60 A2 CF 86 0D 86 0E C9 52 D0 48 20 AA D9 C8 20 98 D9 20 E3 DF A9 80 20 52 E4 A0 00 91 83 C8 A5 71":9900%F#HX$"310:91 83 C8 A5 72 91 83 A0 B4 A2 BB A9 80 20 E2 E5 20 BE DE 20 E3 DF A9 80 20 52 E4 A0 00 91 83 C8 A5 71 91 83 C8 A5 ? ";:CHOICE$:CHOICE$7 CHOICE$"Y"CTRLCHR1:: yd:"REMOVE CONTROL J'S FROM TEXT (Y/N) ? ";:CHOICE$:CHOICE$nCHOICE$"Y"JCTRLCHR1x: (# INITIALIZATION 2#:12:11::" LOADING HEX DATA ":<#HX$"2E0:A9 4C 8D F5 03 A9 F0 (FILNAME$(DIR))61307" [";DIR;"] ";FILNAME$(DIR)CDIR: 8:"WHICH FILE NBR ? [PRESS RETURN TO QUIT]";CHOICE$:SNGL(CHOICE$):SNGLĭ(CHOICE$)6200BSNGLĹ34,0:L6400:3020: :"REMOVE ALL CONTROL CHARACTERS FROM TEXT (Y/N)J)((DIR$(I),J16,1));dBLOCK%(K,J)0J16:J:5410: BJI"Il,LSTFILEK: FALL THRU TO 6000 p COPY OPTIONS MENU z35,24::9:"COPY ENTIRE DISK (Y/N) ";:CHOICE$:CHOICE$:CHOICE$"Y"İ6400:3000: :DIR1LSTFILEFILENAME SUFFIX kJ1(FILNAME$(K)):(FILNAME$(K),J,1)" "X$X$(FILNAME$(K),J,1): REMOVE SPACES :FILNAME$(K)X$:X$""NREC%(K)((DIR$(I),16,1)): CHECK FOR DUMMY FILE NR%(K)FILNAME$(K)"":5410: PJ116ZBLOCK%(K,RECTORY K0:I148B(DIR$(I),2,1)E5$I48:I:5420: x(DIR$(I),1)E5$5410: CHECK IF DELETED FILE KK1:FILNAME$(K)(DIR$(I),2,11)TEST$((DIR$(I),13,1)):TEST$(0)FILNAME$(K)FILNAME$(K)"."((TEST$)48): CHECK FOR 14:ENTNBRENTNBR19DIR$(ENTNBR)(BUFFR$(1),NDX,32)ONDXNDX32::J: phNDX1:J14:ENTNBRENTNBR1rDIR$(ENTNBR)(BUFFR$(2),NDX,32)|NDXNDX32:J: SECTR%SECTR%6SECTR%15SECTR%SECTR%15I:  INTREPRET CPM DI SECTR%STBL(PTN,J)! 2000^ MOVEBFPTR(2):BFPTR(2)BFPTR(2)256:10:28:BFPTR(2)1h J: r K: | t1000 ~SNGLĹ34,3::6100 I :  READ CPM DIRECTORY TRACK%3:SECTR%0:ENTNBR0 I16:2000: NDX1:J RNUM0:SNGLISNGL: Q J015:BLOCK%(I,J1)0NUMOFBLOCKSJ:J15:J:3220g J:NUMOFBLOCKS16 (FILNAME$(I))3710: BFPTR(2)BFPTR(1) 10:"DATA LOCATED FROM ";BFPTR(1);" TO ";: H K0NUMOFBLOCKS1 R 500: J14 ";:::TR%;" ";::" SECTOR: ";::SECTR%;" ":P RWCODE,1:PREGISTER,0^ USERRWTSy RWCODE,2:PREGISTER,0 CTRLCHRįCTRLKILL JCTRLįLINEFEEDKILL *RBUFFR$(1),BUFFR$(2) 4: READ AND WRITE A BLOCK I1LSTFILE ,BFPTR(2)1 .(4);"NOMONO"0 8(4);"CLOSE"> B34,5::G L: l  CALL RWTS TO READ CPM SECTOR TRACK,TRACK%:SECTR,SECTR%:DRIVE,DRIVE% 4:1:"READING BLOCK: ";::BLOCK%(I,K1);" ";::" OF: ";::FILNAME$(I):5 "TRACK: ((BLOCK%(I,K1)MOD))(MOD).05)(BLOCK%(I,K1)MOD)B : Y  WRITE ONE FILE 7:"WRITING ";NUMOFBLOCKS4;" SECTORS..." 34,11: (4);"MONO" (4);"OPENT.";FILNAME$(I);",D2" (4);"WRITET.";FILNAME$(I) $OUTPUTBFPTR(1)y [CP/M]UFFIN BY VAL J GOLDING WITH DAVE SPARKS AND BILL PARKER CALL -A.P.P.L.E. : MARCH 1983 CONVERTS CP/M TEXT FILES TO DOS d9000:  GET TRACK NBR & PATTERN FOR BLOCKTRACK%(BLOCK%(I,K1)MOD)38 PTN((BLOCK%(I,K1))         K ߢ u 9եу R ȥoȥp`ȱȱȹ` 卪̠ 占Ʊؠ Š̠ àР̧Š̍ؠ РƱؠ Ʊ؍Р ʿŠÍؠ РƱؠ Ʊ؍РčѠ̠ Р 쿍Ԡ̠ ̠ؠ ŠР 迍Р媍 箬 ±² ± ² ԠРçٍëԩٍ٠Ʋ栲驍ؠƲ栲祉栲􍍠РҍӠԠ Ʊ祉婠ҠҠ占Ҡ͠Ҡԍ堲Ҡ٠ԩٍٍÍԩٍҮ٠ԩ٠ٍà獠ԩ٠ٍë獠ԩ٠򍍠٠Ʊ驍ؠˍҠԠ婠 箍 Ҡ 卪 ͵ Ӳ ±² ԠΠؠؠčؠō˴ӠРҧ ӲҍŠӠӠë΍ë ӍԠ ӲҺ ´®µ ΠĹĠĹϠµÍ͠Ķ͠ōԠųŴӠŵĴҠŵŲҠŷԠƲˠÍҠčٍҠ΍ǠŰԠÍÍ΍ ЮЮ̮Ů Ԡ͠ҠàԠɠϠDZԠ±àƵƱ´ƲµĹ  Ԡ 󮮮     Ș 0 L, ,L /,,0Ɂͬ,c0 ې II ,Pɛ,0@L,?ɛ&,! Ǘ0Η $L$,pɕ ڔ`( S8nN 2ɧ )ɧ8AeC@BB@@BBBACA8ejlg@hA@ @@A@ȱ@ȱ@ȩ@@BACȄ @8e@@@AȦ @L'd ȱ@ȱ@/8ȥ0qȥq BȩB Ҡ΍ٍ٠ӠҲԍРŠàРŠӍҠԍҠԍР̍ӠРѠҳРҍҳҠԍҠӍ٠ԍҠΠҠԍҠ͍ҠҍӍ٠РŠȍҠԍҠӍ٠ԍ٠ҲӠҍРԍȠРŠ֍ҠԍҠ΍٠Ȳ٠ӠҲ٠ԍРō֠РŠàҠԍōǠРŠٍҠԍРŠDZҠԍӍԍҠвȍҠвҍҍӍDZРѠұҠРҍұҠԍӍԍҠȍҠвҍԠԍѠĠвҠҍԍҠЍĠЍԍȍ͍в֠֍РвϠРƍŠǍҠԍРвύ̍΍ȍҠԍӍԠРŠύҠԍРŠԲҠԍԠҍҠȍРԍԲРѠҍРҍҠҠԍвԠҍҠвȍвȠëԍ̍ԍȍвԍ̍вԍȍ²ƷҠԍӍȠëԱ̍ԱȍԠвԠ٠č̠вԍԠԠРв̍вԠȍРӠԍٍ̩àȍàȍàȍàȍٍ̩Ġƍٍ̩ԠР΍ввŠ٠ֱЍ֍٠٠ȍвбҠвڍҠвڍ٠àР͍àвбв±Ҡв²Ʒ٠ֱӍвԠ٠č٠ŠԍàР͍Ӡв̳Ҡвڍвٍ̲̩Ӳٍٍ̩̠в̲ɠв̱в̳٠ҠвڍӠв±вڠвٍٍ̲̩٠ȍàв̲Ӎ̍РčѠвԍԠ٠ֱРԱٍ̠̠ȍРàв̍Ƞ٠ȍٍ̩в̠ȍЍҠвڍв̱̍Ӳ̍ȍӲȍ٠ȍٍԱՠưРԍв ֍вڠҠÍàԍ̍ŲȠРӠβàȍβӍԠҠŲ٠ֱ٠֍ٍ٠͍àԍ٠ȍٍ٠ȍӠύҠՠðҠՠðӠՠðȠՠĶ͠ՠōԠՠųԠՠŶƸƠՠ²Ԡՠ¹ӠՠƱÍҠՠƲΠՠƲԠՠ³àՠñΠՠıֱՠ̠ՠȠՠ̠ՠȠՠȠՠȠՠ°Ԡՠ±ԠՠưԠՠРՠƸǠՠưĠՠð ՠðҠՠðԠՠðԠՠð ԠǠčԠՠȠՠРՠ͠ՠȠՠ֠ՠ̠ՠȠՠ̠ՠȠՠӲ̠ՠӲȠՠȲՠÍֲՠčˠՠōҠՠ  䍍Ԡ ЮЮ̮Ů          E DEFAULT SLOT & DRIVE OR":"SPECIFY NEW ONES. FOLLOW THE MENU.":"FOR EXAMPLES OF ESCAPE FUNCTIONS THAT":"WILL REPLACE THE CURRENT ESCAPE TABLE,":"AND TO EXIT THE PROGRAM, PRESS ."23:" PRESS ANY KEY TO CONTINUE":KS,0:KB,B7&A8)"(C)1982 - BY NEIL KONZEN":"TO SAVE YOUR CURRENT ESCAPE TABLE PRESS":"'S' OR TO ACCEPT THE DEFAULT."::"TO LOAD A PREVIOUSLY SAVED ESCAPE TABLE":"PRESS 'L'."::"TO ERASE THE CURRENT ESCAPE TABLE ":"PRESS 'E'.":C"YOU MAY USE TH01000::1:CL:216,0:450:460O20:"DOS ERROR #";(222):216,0:450:46010)"PRESS TO EXIT":7)"ANY OTHER KEY TO CONTINUE":KS,0:KB,B7:A(KB)128:KS,0:A27570:20:A$"":16)"USE WITH":7)"GLOBAL PROGRAM LINE EDITOR":)"THAT FILE NOT ON THIS DISK!";:I01000::1:CL:216,0:450:460(222)8Ģ22:(7)"I/O ERROR:":" CLOSE DRIVE DOOR OR INIT DISK":I01000::22:CS:216,0:450:460 (222)9Ģ22:"URP!";:I025:X(16336):I:" I'M STUFFED!!";:I15)"DRIVE: ";:DR$:DR$:DR$(27)390:(DR$)1(DR$)2370Z|DP$",S"SL$",D"DR$:hA$""::(222)4Ģ21:"DISK WRITE PROTECTED:":"REMOVE PROTECT TAB AND PRESS A KEY":450:KS,0:KB,B7:A(KB)B7:21:A2720:CS:C(222)6Ģ22:(7M N 200:2C 82 C0 60 N 200G N 6G":1000: ^15:CS:10)"THIS DISK? (Y/N) ";:A$:A$:A$(27)390:A$"Y"DP$""::FROM WITHIN THIS ROUTINE PRESS ESC FOR THE MENU h17:CL:15)"SLOT: ";:SL$:SL$:SL$(27)390:(SL$)4(SL$)6360>r18:CL:0 N 6G":1000:795 400L D$"BSAVE";ET$;DP$;",A$4B7F,L$480":216,0:y 12:CL:"WHICH TABLE: ";:80:350:400 D$"BLOAD";ET$;DP$:216,0 HM34305A$"987F<4B7F.4FFFM N 6G":1000:( A$"200:2C 89 C0 2C 89 C0 60 N 200G N DB7F<4B7F.4FFFT$,1))47((ET$,1))60)(ET$)30)İ70. ZQ d12:CL:"SAVE AS: ";:80:350 HM34305A$"4B7F<987F.9CFFM N 6G":1000:180: A$"31B:A9 4B 85 43 A9 64 85 42 A9 DB 85 3D A9 64 85 3C A9 DF 85 3F A9 FF 85 3E 2C 88 C0 2C 88 C0 20 00 03 2C 82 C0 6:"L";::"OAD, OR ";::"E";::"RASE AN ESCAPE TABLE? S";BS$;:A$:A$(13)A$"S" <A$:A$"S"100:A$"L"200:A$"E"600:A$(27)570:A$"?"500::20 F24:(7);7)"*** INVALID FILE NAME ***";:T0500::::( P"";ET$:ET$""70:((((E 60 N 6G":1000:HM34304A$"304