JJJJ ( X ,0 ,b9 LԠ  Рààè   3.3     Ԡˠ ͭ͠Рӧ$%L"ʹ0  ` (+) (-) () ()  ( , , , )   "# X`U X D \m D  \mɀɠ) 婍 mР \ˠ D \Ҡ D \Ġ ȠǠ͠ŠҠҠ̠͠ÍL X \         --------------------------------------- [ \--------------- ----------------()   ()    ()  () (){    - = H  [%$  8 r -L  r eL L L L L Lɫ A "Lɭ A LL L fL LL"# X \ŠՠΠҠ     * <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,**"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "5ȱ`ȱa{i2 >222###?>&##> #### 000001## >SSCC&&&&#######> #>0&####### CCSS>  ###> ? ?𘘌0!!?!!!!!!!!!!!!!!!!9!!!!!?!!!>> !!  ?!?-!!!!!#%)1!!!!!!!!!!!%)1>!! !! !>!!!!!!!!!!! !!!!-?!!! !!""" 0`8@@@@8>> 6$$>>< 'tr *, 000 ">">~@`0 !9-'!!?!  !? !!!!!!!!!> >> < TO CODE, TO RESTART ";:A$:A$(13)A$(27)250:A$(27)160:: :::(4):ED1ĺ"EN"; ED1ĺ"DE";0"CODING. PLEASE WAIT FOR 'MUST DIFFER!":"DISASTROUS RESULTS OCCUR OTHERWISE.":200 :"ENTER KEY FOR CODE: ";A$:KY(A$):KY0ĺ"RANGE FOR KEY IS 1E-38 <--> 1E+38.":230= L0::"MAKE CERTAIN THAT THE DISKETTE WITH"::IN$;" IS IN SLOT #";IS;", DRIVE #";ID::OT$"SCR"ĺ"AWILL SEND OUTPUT TO SCREEN ONLY.":OT$:OT$"?"170:(OT$)15(OT$,1)"A"200:OT$"SCR"ĺ"OUTPUT TO SCREEN.":230 "SLOT#, DRIVE# OF ";OT$;": ";:S$,DR$:S$"1"S$"7"DR$"1"DR$"2"210:OS(S$):OD(DR$)9 IN$OT$ISOSIDODĺ:BL$"FILENAMES "CATALOG,S"S$",D"DR$:w :"NAME OF INPUT FILE: '?' FOR CATALOG.":IN$:IN$"?"170:(IN$)15(IN$,1)"A"180 "SLOT#, DRIVE# OF ";IN$;": ";:S$,DR$:S$"1"S$"7"DR$"1"DR$"2"190:IS(S$):ID(DR$)t :"NAME OF OUTPUT FILE: ":"'SCR' 0:590* ::(13):"APPLECODER":34,1F ** GET USER INPUT ** ED(0):::(8):"NCODE OR ECODE ";:A$:A$:A$"E"A$"D"160:ED1:EDED2(A$"D"):180 "SLOT #, DRIVE # FOR CATALOG: ";S$,DR$:S$"1"S$"7"DR$"1"DR$"2"170:D$=dRTN13: ASCII VALUE OF CHARACTER MEANING 'END OF LINE'onD$(4):BL$(7): DISK ACCESS : BELL CHAR. xZR0:PF.5:WN1:EI8:TW20:TT32:NF95:OH100:OTE128:SX160:TFF255: THE USE OF THESE VARIABLES SPEEDS UP THE 'ENCODE/DECODE' LOOP. KY     hhLɀɠL L` [$ \ؠŠ `  `JJJJ i0 Le ) i0 Lz ` [$ \mmmTEXTmTYPE`IN`DATA`WITH`CoR`TO`ENDmmm [%$  8ɍ=- H  Nhɀɠ)H)i$h 9   HL9 [$ \---------------------------------------`` [$ \WRITE`hYoNi 8ɀɠ)H)i$h    HL [$ \---------------------------------------` [$ \hFiLASHING`( ) Ω̠ƯɯΩ 8 L? L LɀɠL L [$ \`hhlL8` -`" -` -` -` -`" -` A [$ #$ )`  D  Nhhl [$ \mmHEXmSPACE`BETWEEEN`EACH{`CoR`TO`ENDmm   Ϡ 8` \BAD`SECTORaԠ٠٠Ϡ 8` \`, \,ɀɠ` `EGFhh HHEFG`8hhlL8`ihhl8i( i`LhhlLii)H hL ` X \IoO`ERRORԠ٠٠Ϡ 8hh``   X9 \DISK`IS`WRITE`PROTECTEDaԠ٠٠Ϡ 8`@` \DRIVE`ERRORl`CANgT`READoWRITETRACKoSECTORԠ٠٠ NT`8JJJi [) mi$`TU\P ] NH``a`حTU\P ] NH`  X   8` N ,,ɍ D `ɠ D `I "NO BIDDERS") (13:29:"HAND DUMPED"Q 2:1400:X20:I04:YI45:9000:o 3DLNP(DL):X8:Y13:9000} 71900:25 F12:30:"TRUMP : ";S$(TP) K13:30:"BIDDER: ";:BD0ĺ"YOU";:90 P"P";BD Z:KU0135 dDL0125 s15:29:"**(4);"BLOADEUCHRE.BIN,A36008"R(190256)76ĺ(4);"PR#A36008":4l54,168:55,140:10026,0:7,141:230,6449232,0:49237,0:49239,0:230,64:28,42:624541100 1000:2700:13002000:TP470 #12:30:                CLOSE"N$E x"'"N$"'"" HAS BEEN CREATED.":"CREATE.PHRASE DONE."K L%PD$(4): DISK COMMAND PREFIX ZN$"STRANGE":D$"OPEN"N$:D$"WRITE"N$: CREATE THE TEXT FILE 'STRANGE' AND PREPARE TO WRITE TO IT.d"5L+>AYF&4S;": THIS IS THE PHRASE WHICH APPLECODER WILL DECODE. CAN YOU GUESS WHAT IT SAYS NOW? nD$"":R1:780h:"HIT TO RESTART, TO END ";:A$:A$:A$(13)A$(27)790:A$(13)ı :"VERIFY: EXIT APPLECODER":"ES OR O ";:A$:A$;:A$"Y"A$"N"800:A$"N"790::::"APPLECODER DONE.":./DECODE' LOOP. KYO IF THIS IS THE CASE.":790:240"ERROR NUMBER: ";ECN:"IN LINE NUMBER: ";ELN:"PLEASE REFER TO YOUR PROGRAMMING":"MANUAL FOR A FULL DESCRIPTION.":"THIS SCREEN WILL REMAIN DISPLAYED":"UNTIL YOU HIT .":R0  R0780:::"APPLECODER DONE.YPE MISMATCH.":"ONLY TEXT FILES CAN BE CODED.":"PLEASE CHECK YOUR FILE-TYPE BY":"LOOKING AT THE 'CATALOG'":790:180!ECN255ĺ"YOU TYPED A .":"IF THIS WAS DONE DURING CODING,":"THE MAY HAVE BEEN SENT":"TO THE OUTPUT FILE.":"RED"UNLOCK IT NOW?":"ES OR O ";:A$:A$:A$"Y"A$"N"710A$"Y"ĺD$"UNLOCK"OT$",S";OS;",D";OD:"FILE HAS BEEN UNLOCKED."790:240ECN11ĺ"ERROR IN FILE NAME.":"FILE NAME MUST CONFORM TO YOUR DOS.":790:180wECN13ĺ"FILE-T";DR;" IN SLOT #";S;"."D:"CODING MUST BE RESTARTED.":790:240ECN9ĺ"THE DISKETTE IN SLOT #";S;", DRIVE #";DR:"IS FULL. PLEASE INSERT A DISKETTE":"WITH MORE SPACE AND RESTART.":790:240ECN10740A"THE FILE ";OT$;", IS LOCKED.": TO CONTINUE.";:X(16368):A$:A$;:A$(13)Ė(1):630?ECN4ĺ"THE DISKETTE IN SLOT #";S;", DRIVE #";DR:"IS WRITE PROTECTED. PLEASE REMOVE THE":"WRITE PROTECT TAB.":790:240ECN8690"INPUT/OUTPUT ERROR. ":"CHECK DISK DRIVE #A$:A$"Y"A$"N"560:A$"Y"Ĭ@:::"APPLECODER DONE.":[D ** ERROR HANDLING **NECN(222):ELN(218)256(219)X:D$"CLOSE"IN$:bD$"CLOSE"OT$::BL$;lECN5560: 'END OF FILE' HAS BEEN REACHED.9v"ERROR! HIT OT$"SCR"530-SOS:DROD:D$"WRITE"OT$5O$=D$&330: KEEP 'GET'TING UNTIL THERE'S AN END-OF-DATA ERROR, WHICH WILL BE CONSIDERED THE END OF THE FILE"0"CONVERSION COMPLETE.":"WOULD YOU LIKE TO DO ANOTHER ?":"ES OR O ";:A$:TTBTTBNFWNB 460;BTFFBB(TFFWN)SXOBSXBNFWNBBRTNRDZR:490: CAN'T USE A 'RETURN' IN OUTPUT STRING (BTT)(BOTEBSX)RDZR:490: DON'T ALTER NON-ALPHANUMERIC OUTPUT ABO$O$(A)F LINE SIGNALLED BY 'RETURN' INPUT k|(ATT)(AOTEWNASX)490: PASS ALL NON-ALPHANUMERIC INPUT BAED((RD)NF):RDZRRDWN: CREATE A NEW ASCII VALUE USING THE OLD VALUE AND A RANDOM # FROM 0 TO NFAOTE440BOTEBBOTEF1TPKS9LO2:HI3:XP14:YP10:1910IAN3TPKSOpSP(P,KS)PU(NS(P,KS))TPKSvLO4:HI8:XP14:YP10:1910 AN5KS1800 AN4TPAN5:DF0:I03:IKS1865?SP(P,I)MS(NS(P,I),PS)DF18650:SP(P,TP)GA(NS(P,TP))LH1#^HrNP(NP(P))DLİ1625:FLH:1685\vF0:KC2ī1660{wSP(P,KS)OU(NS(P,KS))F1|SP(P,KS)OB(NS(P,KS))F1(F0)(PNP(DL))1685SBCP(KC):KC5SB3I03:IKSĭSP(P,I)(SP(P,KS)SB)F0P(P,KS)4: SP(P,KS)SP(P,KS)CP(KC):NS(P,KS)NS(P,KS)1@`@LO0:HI1:XP14:YP10:1910pEAN1TPKSvJO14:8:"LONEHAND";PLO12:HI13:XP14:YP18:1910:LH0RAN13LH1:MX(BD):MY(BD):"LONEHAND";S14:8:BL$TYLHP(P,S)CP(C):NS(P,S)NS(P,S)1bC2SS2:S(S4(S4))4:SP(P,S)SP(P,S)6:NS(P,S)NS(P,S)1C5āJ03:SP(P,J)SP(P,J)4:SS0:I04:NS(P,I)0SP(P,I)0:SSSS1:I03:SP(P,I)SP(P,I)SS:PDL1550 KC5SP(P,KS)SDL):9000d1x15:29:" HIT RETURN ";(7);PK(49152):K127Ĺ49168,0aK1411410k1450qI1216:I:29:EW$::I02:XI:Y:NM$(N,I)::I03:SP(P,I)FC(B1(P)):NS(P,I)0:I04:SS(P,I):CC(P,I):SP(P,S)SDE1500:/7(DC(CC)2)(B1(DS(CC)))1355K8XCX(DL):YCY(DL):9000[9DE1100:x<CCCC1:DLNP(DL):1330K1450:12:30L:DL01370P" PLAYER ";(DL)U13:31:" DEALS";:1375Z"YOUR DEAL";_:1400 `XCX(DL):YCY((J):DC(J)T-TDS(I):DS(I)DS(J):DS(J)T:?J03:I04~C(J,I)DC(J5I):S(J,I)DS(J5I):I,J:KCDC(20):KSDS(20):13:29:"FIRST BLACK":14:30:"JACK DEALS"(:1250:DL0:CC02CDC(CC):SDS(CC):XCX(DL):YCY(DL):1200 30,0,16 0,0,0,0,0,0,0,143 0,0,0,0,0,0,0,09b(STP)(C6)SS2:S(S4(S4))4vC1C:C15C1236568,S6C11,Y72,X8X20:U04:YU45CC(0,U):SS(0,U):1200: I023:J((1)24):TDC(I):DC(I)DC," YES "6I03:MX(I),MY(I):: 1,2,8,2,2,10,8,18|I06:OB(I),OU(I),PU(I),MS(I,0),MS(I,1),MS(I,2),MS(I,3),GA(I):99,99,99,99,99,99,99,99 99,99,99,99,99,99,99,99 99,99,14,14,14,13,13,99 20,12,8,8,8,8,7,19 14,0,0,0,0,,CY(I):: 18,13,11,5,4,13,11,21CI05:CP(I):: 1,1,8,1,2,-1YI013:ME$(I): " PASS "," ORDER UP "," PASS "," PICK UP "," PASS "," DIAMONDS "," CLUBS " " HEARTS "," SPADES "," NORMAL ","AGGRESSIVE"," YES "," NO "J09:NM$(J,I):J,I;g #@," @",>@,>@,=@,#>,#>,#@,#@,#@ch =@," @",#>,>@,$@,>@,#@," @",#@,>@i @@," @",@@,@@," @",@@,@@," @",@@," @"~J03:I05:DC(J6I)I:DS(J6I)J:I,JI03:PY(I),PX(I):: 13,14,7,8,13,2,19,8 I03:CX(I)),S(3,4),MS(6,3),CL(7,3),DC(23),DS(23),SP(3,5),NS(3,5),ME$(15),NM$(9,2)aNB1(X)((X2)X2)QNP(X)((X1)4((X1)4))4VBL$"/././././.":EW$"@@@@@@@@@@@@"[I03:S$(I):: %&,(),*+,",-"`I06:NF(I):: 4,0,1,2,3,4,0eI02: ;": 11:29:EW$' 17:29:EW$C 19:29:"0 e()) $20I$ i EFGXL,TK' 1:2:BL$)' BTB1(BD):15:29<' TR(BT)33108O' TR(BT)53097h' PW(BT)PW(BT)2LH2' BT0ĺ" YOU WON ":16:29:" ALL TRICKS ":3200' BT1ĺ"COMPUTER WON":16:29:" ALL TRICKS ":3200' PW(BT)PW(BT)1( TR(0)2ĺ"YOU WPP& :DE1400:W& J115:I311:YPX(WP)82:XPY(WP)75:X1X22:Y1Y27& I:X,YX1,YX1,Y1X,Y1X,Y:DE15:DE,I,J& LDWP:WTB1(WP):TR(WT)TR(WT)1& X21:Y326WT:NTR(WT):1465' I03:XPX(I):YPY(I):9000:C(I,PC(I))1:IS1% SL(S(P,PC(P)))10% S(P,PC(P))TPTL1O% I13:PNP(P):PDM3060l% PSPS1:3500:TL03050% S(P,PC(P))TPĭC(P,PC(P))C(WP,PC(WP))WPP% 3060% S(P,PC(P))TPWPP:TL1:3060& S(P,PC(P))S(WP,PC(WP))ĭC(P,PC(P))C(WP,PC(WP))3:CL(I,J)0:J,I:CL(2,B1(TP))17$ I03:SL(I)0:If$ LDNP(DL):DM4:TR(0)0:TR(1)0:LH03015$ BD2X20:I04:YI45:9000:$ DMNP(NP(BD))$ LH1ĭLDDMLDNP(LD)$ TK04:PLD:PS0:TL0:DMPPNP(P)% 3500:WPP:LH1PSP)2C(I,J)6:S(I,J)TP;# NS(I,S(I,J))NS(I,S(I,J))1:J,IA# t# 2:2:"PARTNER?";:LO9:HI10:XP2:YP12:1910# FC(0)0:AN10FC(0)2# 2:2:"OPPONENTS?";:LO9:HI10:XP2:YP14:1910# FC(1)0:AN10FC(1)2# 2:2:BL$:!$ I07:J0(I)C(P,I)10:2350/"$ C(P,I)5PT(I)9:2350i") (S(P,I)S(P,NF(I)))(S(P,I)S(P,NF(I2)))PT(I)1o". "3 L99:I04:PT(I)LFI:LPT(I)"8 :" I03:J03:NS(I,J)0::J04:C(I,J)22515" S(I,J)TPC(I,J)7:2515# (S(I,J)TP(P,I))B1(TP))(C(P,I)2)C(P,I)6:S(P,I)TP3! [! I04:J03:S(P,J)S(P,J1)2331! S(P,J)S(P,J1)ĭC(P,J)C(P,J1)2331! TC(P,J):C(P,J)C(P,J1):C(P,J1)T! TS(P,J):S(P,J)S(P,J1):S(P,J1)T! J,I" I04:PT(I)0:S(P,I)TPPTGF:K1362250, FNF(F):C(0,F)022306 2215G K1492275d FNF(F2):C(0,F)02255n 2215x 2220 X(G45)75:Y158:X1X22:Y1Y27:1:X,YX1,YX1,Y1X,Y1X,Y  I04:(S(P,I)TP)(C(P,I)2)C(P,I)7:2310-! (B1(SE12000:a1900f#F1=FF1:C(0,F)12205EGFX(G45)75:Y158:X1X22:Y1Y27:1:X,YX1,YX1,Y1X,Y1X,YX(F45)75:Y158:X1X22:Y1Y27:3:X,YX1,YX1,Y1X,Y1X,YK(49152):K127Ĺ49168,0K1412280 E1600:((TP4ĺ" PASS ";:2090=)BDP:ME$(TP5);_*(PDL)(TP4)PSPS1:2075i421099KU1:(BD0)(DL2)LH1:2120=TP42140>(LH1)(BD0)2120?BD0İ1615:2140@1625CLH02140H1:2:"LONEHAND" \D TURNED ":MX(DL)1:MY(DL):" DOWN ":2070gBDP:" PICKED ":MX(DL)1:MY(DL):" UP "xDE12000:(BD0)(TP4)2105X8:Y13:9000:TP421051900:PS0PNP(P) P0İ1800:2090%1850:MX(P):MY(P) &D040(PDL)2202041625:LH1TPKS:2025>1650PMX(P):MY(P)nTP4ĺ" PASS ":2040BDP:" ORDER UP "PNP(P):(PDL)(TP4)2010PDL:1500:TP42105DL0İ1700:20701750:MX(DL):MY(DL)0 TP4ĺ" K1491950*ANAN1:ANHIANLO<K141ī1915oX1XP:Y1YP::ILOHI:X1:Y1:BL$;:X1X11:u1250:1220:PNP(DL):TP4:BD0:KU0X8:Y13:CKC:SKS:1200DL0ĢMX(DL):MY(DL):" DEALER "1500P0İ1600:2"DDFSP(P,I)MS(NS(P,I),PS):TPI(I.NUlI13:J02:MX(I)J:MY(I):BL$^qJ,IdsnvANLO{X1XP:Y1YP:ILOHI::IANĞX1:Y1:ME$(I);:X1X11:K(49152):J(1):K127Ĺ49168,0K1361940ANAN1:ANLOANHI i  HhH h` p SELECT FILE, FOR A NEW DIRECTORY` p SELECT COMMAND, FOR ANOTHER FILL $ v RETURN OR ESC `"@Ȅȱ  Z m TARGET   ɛ=ɍ  $JJJJ $( ɍIH h $ ɍI ȑ` (Ȅ$ ɛ L ! ɛ !` $$)? @( ɍɛ)Ɉ&ɕ $ (&Hɠ)?(h` !% "L "0 1 z L m ANOTHER DIRECTORY ?$ ɍ L m SOURCE   ɍ ɛ ܩhi ȥJJJJLUJKi ԅlL| $ v SLOT= DRIVE | G ɠ?2i@ 2 (᩠Lɩ8@A H@Ah@AAd  A LL$* i` .Qt >: ($   )  L H8H   G  ` s VOLUME | $$A⩰ v FILEө$ P v FREE SECTOR` % L s Rĩ s Wҩ  s T=$ S=` s SEPTEMBER 1980`$L[($H(h)JL G ! RUN BRUN LOAD BLOAD EXEC LOCKUNLOCK COPYRENAMEVERIFYDELETERESTORREMOVE hhH hHHL ,,,` ,L L   .L %$ $ L m ERR$ " ` ~)J(  08 j( Ɉɕɛɍ 9 % " H H` L  -r. 8i$L[i ii i ()?` HBhi T ii / X v DISK SELECT (BY MAC)  1 x ."# R ()(>( H hɛL} Ɉ%ɍZɕi p б0ߥᰧ8#H $ʝ!h"0 H $(*0(C255)=:F18:CC2255(C127)V(F):CC255(C255)::DI(0):A$"":I1L:T(A16):A$("0123456789ABCDEF",A16T1,1)A$:AT::N"FROM ADDRESS ";:530:SAEAA0B0:XBS8((AS)8):b"DISK ERROR":150aMICRO-WARE : F):DD1& D0C$" "D2D0:FF17 :D0FF1= [ J(C$):JJ487(J64):} A0:A$:A$(A$,4):(A$)0ı P1(A$):C$(A$,P,1):C$"0"C$"9"C$"A"C$"Z"A0: &520:AA16J::0C(B256):CB254C255(C127):CC255K13Ė7:A$;" ";:D K32K47K58K64K71A$L$(K)R$:PP1V K4A$L$R$x K9A$L$" "(A$,P1,1)R$ K8PP(P0) K21PP(PL) 330 F1:D0:P1(A$):C$(A$,P,1):FNC$" "ı C$" "İ520:V(F)J16(D1)V((7);:290, @F18:BF1,V(F)::::150K J(A$)33A$O$:PO:(7);w TL(A$):O$A$:OP:L$"":P0L$(A$,P) ^R$"":PL1R$(A$,LP1) h7:L$;::PLĺ(A$,P1,1);::R$; r" ";: |K(49152):K128380 49168,0:KK128 :L2+ F07:V(F1)(BF)::560:V(9)C^ F1N:AV(F):580:A$" ";:::(49152)128Ăp 49168,0:150 590:B0150 BBE8 "1:AB:L4:580:A$;": ";:64668:A$"":P0:330:L0150 ,470:FNĺ(7);:290 6N9İ560:CV(9)ĺA$:I15:A$("EDLSQ",I,1)Ă:160E I270,220,180,200:34,0:z "FILENAME: ";A$:A$""ĺ(4);"BLOAD";A$;",A";S 150 "FILENAME: ";A$:A$""ĺ(4);"BSAVE";A$;",A";S;",L";ES 150 590:B0150 BBE8:L4:AB:580:A$;": ";&dN9:::"APPLE MLX":34,2:610Xn1:20:"START ADDRESS";:530:A0ĺ(7):110`xSA2:20:"END ADDRESS ";:530:SAA0ĺ(7):130EA:"CHOOSE:(E)NTER DATA";:22:"(D)ISPLAY DATA":8:"(L)OAD FILE (S)AVE FILE (Q)UIT":&         Xx tezd\ } 8OP 8OFPG OP 8YZOmNOPiP LO `8UHVI HUIV8FG FG`8UV`UV`a DMcUL a DMc   L `E0 DEL/ E QH h ZL ɍ<) H H<R h 8UViUiV  L H h L ʊ HH H H` Y#!,0a DMc `D`` RFHJL`զ ]"iGIKM x I߅ Ѡ Q`  Q` L P J L `{%L"'{`< )? L L  HT hU m ti ~NP$J i8T (U  aLYZT`((((PPPPЭFOUGPV8IG`  ` )`,,EL( Í  ߠP L ) L QRTU SSRU``ee ΙΜ` aO tP ~ɂ<Pɀ )? OȄ툆J H80                169,0 x72,189,255,1,201,160: 240,8,104,10,125,255 R 1,105,0,72,202,208k 238,104,170,41,15,9 48,201,58,144,2,233 57,141,1,4,138,74 74,74,74,41,15,9 48,201,58,144,2,233 57,141,0,4,104,170 169,141,96 ' C0:I76876868:A:CCA:I,A:^C7258ĺ"ERROR IN PROOFREADER DATA STATEMENTS":(190256)76Ĺ56,0:57,3:1002:50((4);"IN#A$300"234,0::34,1:2:"PROOFREADER INSTALLED"<d216,32,27,253,201,141 n208,60,138,72,  Ҡ!@` p INSUFFICIENT SPACE s ANOTHER TARGET ?$hh LT L"ȱ& 01`߿߿8<@DHLPTX\`dhlptx|!ϥL  m REPLACE EXISTING FILE ? $ L> m RENAME TARGET FILE ? $ hhLT@ m RENAME $ ɛLL# 0uȊ 4 0S4Ȋ  4 0-4ȊILE L> m FORMAT ERROR   0LTL LbLȱ"퐏 ӥ  8     ҥ `ȱ`hhL  +  @` > 1 L HH   ^ hhH h`    m F$pؠ HhL5#R8=$0pI1`I1 m DISK ERROR L> m CANNOT RESTORE Fee   Z *   LU  L H8     4 h    4  LQ8*i8e` m INSERT SOURCEL m INSERT TARGET s PRESS s RETURN  ɍ`쭥iL S!0@ / R R RL` /C8SJ8 RL)E8S8U Ic $МB RL) 8HUIV $Q`DIDE`Ԡ٠îΠˮҠP V6eiUV8  `  Q`a DMc0#  qXL 8bee8UV 18UUVV& mL LȱɽLL HhB Lȱ< /L,X Wrs2_e ` `aŵ  L6UVmUUmVV hhL'  h   LL a DMc0&  qL XL iL1<`WLRTBSNHF@PXMIG}csSI@)ȩL L L L LL L L L L LȘH h`  Lȱ<` ! L18 0 RS…֩!   R R R1*8   v S…֩   R 0 R` R`m R` L ʊ HH"H!H`8eB MrFG0@L<,TɠTLȱɠT8ei u 8.TS…֩   8UV*(   L`D,0 )L* L* )L* L ,0  ` `KB:PHH8 hh` ܠL La DMcL  0 Ϡ ɱ ɸ 8鰍L ` v mP 8鰐* &.... L 8L0`8JK   Q`mm8UVeI  Q` nmUUmVVJK 1L ȱȊ L'j rs2_e ` `aŵ L6UVmUUmVV  | LE`m  ```VV` L`Ƀ)?ʈ`(`6Å7`V`)L XӜ n  ɍLFrGsU8FlVGm0_ e ` ŵLS ŵ  `Q` q hh` QRtflmcpqӜɺ8 0 hLhh L< /)ߝuX` _ ))? @HR  hLn FGj' ) : 5 LI : LI : iLILK  L `8  L W _ X X ɛ7ɍ9ɈL} L}) W  L} L}  ` v L8UV nUmUVmV`RIR`߅` )` 0 8L L <VLl L] <GL 8ee8LL a DMc x ? ՅɠVUVL$Lee8UV8 18UUVV`a DMc0LL ɠL]  `  <ȑ  L{ L UmVmIhhL#mmmm 18UV 18UUVV`  8`  Lc x  )H h)W  LS  LP  L`8OP OP`FGL FGL a DMc0Liɮɡɿ<VLl VLl ɠɮɡɿ 54,240:55,253:1002M D$;B$(PN)S h T1FI:A$(T):} T1FI:B$(T):   EUCHRE,APPLECODER,APPLECODER FILEMAKER,DISKCHECK  MENU PLANNER,SPEEDSCRIPT 80,FILE CONVERTER,BUILT-IN MUSIC,MAGAZ ";A$(JDE)::70. <J;" ";A$(JDE);" "5 FXG ZR$:R$""90e _R$(32)PGPG1:DEPG9z aPGTPPG0:DE0 cR$(32)10 d(R$)49(R$)57Ė6:17:90 fJDE35ĭ(R$)55Ė6:17:90 gB$((R$)48)"MONTH"90 iD$(4) nPNPROGRAMS ";::"MARCH-MAY '87":F "(C) 1987 COMPUTE! PUBLICATIONS" "PAGE ";PG1;" OF ";TP;" PRESS ";::"";::" FOR NEXT PAGE" PG2MT1:35 MT18 #X2MT2 (JJ1 -JDE35X18:70 2Y:X 7B$(JDE)"MONTH"Ğ:" 40196,189:40197,1588(768)216ĺ(4);"IN#0"P(4);"BLOAD HROUT"h(4);"BLOAD AASET"6,0:7,138:54,0:55,3:1002A$(36),B$(36)TP3 FI19:4000 ::51,1:62454Y61:22:J0 "COMPUTE!'S APPLE      Y KEY TO CONTINUE" 3::* X13000> (49152)128ĂK 49168,0Q d D$;"RUN MENU"NS" U& Z3:"Spring/Summer 1987"S _:3:"(Set computer to 40-column mode)"] d::d n3 x"After running any program, type:" } 3:"FP" 3:"RUN MENU": 3 "to return to the Table of Contents." 3:23 "PRESS ANe * FOR II'2 AND PLUSESB(64435)6ĺ(4);"BRUN UPCASE"N D$(4)T^3:4("Before attempting to RUN any programs"23793<"please refer to the instructions in"AF3M3 P"COMPUTE!'S APPLE APPLICATIO   216,0 ! "D$;"CLOSE ";B$D 'D$;"BSAVE ";A$;",A8192,L";L1J ( W(B);  ( D$;"CLOSE ";B$. R "ENTER TEXT FILE NAME":":";B$ "ENTER SPEEDSCRIPT FILE NAME TO CREATE :";A$ D$;"OPEN ";B$ D$;"READ ";B$ L0 270 C$:A(C$(0))128:A141A60 8192L,A:LL1:250 IPT FILE NAME":":";A$D n"ENTER TEXT FILE NAME TO CREATE":":";B$b xD$;"BLOAD ";A$;",A$2000" }L(43616)(43617)2568192 D$;"OPEN ";B$ D$;"DELETE ";B$ D$;"OPEN ";B$ D$;"WRITE ";B$ I8192L1 B(I) B60B141 L 8191 D$(4)1D$;"MAXFILES1"H("DO YOU WANT TO:"2" (1) MAKE A SPEEDSCRIPT FILE INTO A TEXT FILE"<" (2) MAKE A TEXT FILE INTO A SPEEDSCRIPT FILE"FA$:A(A$)PA1A270ZA100,200 d"ENTER SPEEDSCR ӠĺԠŠȺŠٯݿ`̠ҠŠӬ׬ЩŠՠſٯΩŠ̠ŠӬ׬ЬΠϠҠԠźźϠĺӠϠϠԠΠҮԠϺάҿԠҿǮԠԠԬкD$;"PR#0" 350P RW2:CL3:900:"NUMBER OR MENU TO SAVE";NO$:NO$""350r FF$"MENU"NO$:D$;"OPEN";FF$ D$;"WRITE";FF$:N17:I03:SE$(I,N):I,N D$;"CLOSE";FF$:350 RW2:CL3:900:"NUMBER OF MENU TO LOAD";NO$:NO$""350 FFD$(4):I$(9)(XRW0:CL0:900QbB$A$:B$"P"ĺ:D$;"PR#1":I$;"80N"l"MENU:":B$"P"ĺ45)"ON HAND NEED TO BUY"vN17::20(DA$(N))2)DA$(N):I03:4);TI$(I);14(TI$(I)));SE$(I,N):B$"R"ľA$ B$"P"  WP))1F12:"2D10:A04f2S(P,A)S(WP,PC(WP))EC(P,A)C(WP,PC(WP)):(ED)(E0)DE:FAn2":2(#36568,0,Y71,X8:152051ZHT05240;1_A04:S(P,A)TPĭC(P,A)HTF1A1dG1x~1F1:A04:C(P,A)1ĭ(S(P,A)TP)(C(P,A)5)F01:1F0:A04:S(P,A)S(WP,PC(WP))ĭC(P,A)C(WP,PC(WP))F11: 2F0:A04:S(P,A)S(WP,PC(WP))ĭC(P,A)C(WP,PC(PS35400;0V1:A04:S(P,A)SPĭC(P,A)VVC(P,A):FAC0#:S0(V10:A040)S(P,A)SPĭ(C(P,A)0)(C(P,A)V)VC(P,A):FA0-:0<V10:A04:S(P,A)TPĭC(P,A)1ĭC(P,A)VVC(P,A):FA0AA:0PHT8:F01UHTHT1:HT0ĭCL(HT,TP)25/SP1:A04J/S(P,A)TPĭ(C(P,A)5)(NS(P,S(P,A))1)SPS(P,A)]/A:SP15160g/5180{/V4:F1:A04/S(P,A)TP5135/ (NS(P,S(P,A))1)(SL(S(P,A))1)5135/ (C(P,A)0)(C(P,A)V)VC(P,A):FA/:F15180/ 0.TL0SPTP:51600.5300:F1SPTP:5400:.5100W.F0:A04:C(P,A)5F1_.:.F1:A04:(SL(S(P,A))0)(S(P,A)TP)ĭC(P,A)5FA.:F15070.LC1:A04:S(P,A)TPĭC(P,A)LCLCC(P,A):FA../NS(P,TP)051-NS(P,TP)5TK42702-SPTP:(WPP)25160A-TL05160U-5300:F15400_-5160t-NS(P,TP)05100-(WPP)24310-(TL1)(PS3)5100-C(WP,PC(WP))55100-C(WP,PC(WP))4SPTP:5160-5250:F1SPTP:5160-5100C(LD,PC(LD))5SPTP:51602,"BDPSPTP:5160M,'5250:F1SPTP:5160W,,5100v,hNS(P,S(LD,PC(LD)))04235,iSPS(LD,PC(LD)),m(SPTP)(TL1)5160,r(WPP)24225,w5300:F1İ5350:F05150,|5160,5300:F15150-51601)((BDP)2)SPTP:51509+5250:(F1)(PBD)5050T+5200:I1SPTP:5150p+NS(P,TP)2SPTP:5160z+5050+NS(P,S(LD,PC(LD)))04115+ 5300:SPS(LD,PC(LD)):F15150+5160+NS(P,TP)5TKSPTP:5160+NS(P,TP)05100,,42009* PC(P)F:YPY(P):XPX(P):CC(P,F):SS(P,F):1200m* NS(P,S(P,F))NS(P,S(P,F))1:CL(C(P,F),S(P,F))1s* *NS(P,TP)5TK4015*SPTP:5200:F1ī5150*5160*(LH1)(BDP)4030*NS(P,TP)0SPTP:5150*5050+5000:(F:29:" YOUR PLAY ";:2200U) LSS(LD,PC(LD)):(PS0)(S(P,F)LS)(NS(P,LS)0)3507e) 2215:3503) X20:YF45:9000:3530) 15:29:EW$) X20:YF45:9000:3530) TK53515) K04:C(P,J)1FI) :3530* (PS1)4000,4100,4200WON HAND";:3200K(! TR(1)2ĺ" COMPUTER ":16:29:" WON HAND ":3200c($ PW(1BT)PW(1BT)2(& TR(0)3ĺ"YOU'VE BEEN":16:29:" EUCHRED! ":3200(+ TR(1)3ĺ" COMPUTER ":16:29:" EUCHRED! "( DE14000:( ( P03509) 15SKCHECK,RUN MENU PLANNER b BRUN SPEEDSCRIPT.80,RUN FILE CONVERTER,RUN MUSIC.BOOT,RUN INDEX.BOOT,RUN REMEMORY,RUN SHAPEBOOT,RUN BARCHART,RUN TABLE.BOOT,RUN DISPLAYSHAPE,RUN HIRES.BOOT,RUN HIRES.BOOT,RUN DEMONSTRATION l RUN PROOFREADER,RUN MLXdINE INDEXERu  REMEMORY,SHAPE MAKER II,BARCHART,SHAPE TABLES,SHAPE DISPLAYER,HI-RES TEXT,HI-RES FADE,DEMONSTRATION  AUTOMATIC PROOFREADER,APPLE MLX p::"LOADING......"::A$(T):: X RUN EUCHRE.MAR,RUN APPLECODER.MAR,RUN CODER.BOOT,BRUN DI);"(2) ESTABLISH SIZE OF DOT MATRIX"Op3);"(3) CHANGE STARTING COORDINATES"wz3);"(4) SAVE SHAPE TABLE TO DISK"3);"(5) LOAD OR START A NEW SHAPE TABLE"3);"(6) REVIEW A SHAPE TABLE"3);"(7) COPY SHAPES FROM OLD TO NEW TABLE"#SNSN1:SF1:SNND1ADDRTA:TA2SN2,D1256(D1256):TA2SN3,(D1256)g4A$"N"A$"Y"800r>TA,SNH::" SHAPEMAKER";32);"MAIN MENU":4:"PLEASE MAKE A SELECTION:"::RFLAG0:EX0:BL(0)\3);"(1) DESIGN A NEW SHAPE"$f32:680: 2 SKIP-UPS AND 2 OFFSETTING MOVES SIDEWAYSw FLAG1Ĺ232,TC(TC256)256:233,(TC256):1200,100:2270TA,SN1:232,TA(TA256)256:233,(TA256):SN1245,100 ::22:"SAVE THIS AS SHAPE NUMBER ";SN1;"(Y/N)";:A$N*A$"Y"SE ALL 3 VECTORSFBYTEV18V2: 3RD VECTOR NOT USED FROM HERE ONV20ĹADDR,BYTE:ADDRADDR1:LOCLOC2:680: 2 VECTORS USEDV10ĹADDR,BYTE:ADDRADDR1:LOCLOC1:680: 1 VECTOR USED5BYTE0ĹADDR,24:ADDR1,8:ADDRADDR2:LOCLOCDR1,0:ADDRADDR2:780XV3(LOC2):V3255ĹADDR,V18V2:ADDR1,0:ADDRADDR2:780oBYTEV18V264V3BYTE0ĹADDR,64:ADDR1,24:ADDRADDR2:LOCLOC3:680: USES 3 SKIP-UP VECTORSV30V34ĹADDR,BYTE:ADDRADDR1:LOCLOC3:680: UDE:2048!XH(7):X(9):Y(8).bH8520FADDR,H:ADDRADDR1O510yFLAG1ADDR(TC2)TC:LOCADDR:680ADDR(TASN22)256(TASN23)TA:LOCADDRV1(LOC):V1255ĹADDR,0:ADDRADDR1:780V2(LOC1):V2255ĹADDR,V1:ADR ARROW KEYS"223:"PRESS: P TO PLOT A POINT"V24:9);"Q TO END THIS SHAPE";aCODE01460:H8: DRAW BLINKING CURSERM$"P"CODE4:IX1X1:I,Y1I,Y1:I:520&M$"Q"ĹADDR,CODE:ADDR1,255:660N6,(M$):8,Y:9,X:252,CO CAPACITY":::2120:840:FLAG1ADDR(TC2)TC:440dADDR(TASN22)256(TASN23)TA232,0:233,3: CURSOR TABLE:21:"TABLE CAPACITY: ";N;" SHAPES-THIS IS # ";FLAG0ĺSN1:480IS 22:"TO MOVE CURSOR, USE IJKM O550 JIR1506:0,IC,I:I9 TIOC6:I,RI,150:IG ^F11370[ hA1FLAG1390 r:21:"ORIGIN OF SHAPE? LOWER LEFT IS (1,1)" |"COLUMN ";X1:"ROW ";Y1 X6X13:Y1536Y1 F112240SNNFLAG0ĺ"TABLE IS FILLED TO PRESENTTA2,D1256(D1256)) TA3,(D1256)F ITA4TA2N3:I,0:Ip :"CHOOSE SIZE OF SHAPE DESIGN GRID" ""NUMBER OF COLUMNS (1 - 35) ";C:C6C:C210290 ,"NUMBER OF ROWS (1 - 25) ";R:R1506R:R0300 6:250,R:251,C @C0R1501A3)2)29 SN(TA)::SNNĺ"TABLE FULL"::2120:840c ADDR(TASN22)(TASN23)256TAx 3400:2120:840 ::"PLEASE ENTER THE DESIRED NUMBER":"OF SHAPES FOR THIS TABLE: ";N:N255N1ĺ:EN2:1580 TA,0:TA1,0 D12N2 N TO START A NEW SHAPE TABLE":::"PRESS ANY OTHER KEY FOR MAIN MENU"::n x"YOUR SELECTION: ";:A$:A$~ A$"N"220 A$"L"840 :"NAME OF TABLE ";N$ 1540: GET DRIVE # (4);"BLOAD ";N$;",A";TA;",D";AN N((TA2)256(TLD) TABLES 2TC7938:FLAG0M <768,1:769,0:770,4:771,0: CURSOR TABLEx F772,112:773,30:774,7:775,32:776,0 PTC,1:TC1,0:TC2,4:TC3,0: EDIT TABLE Z840 d::SN0M n"PLEASE PRESS:"::" L TO LOAD A SHAPE TABLE FROM DISK":"5 3420d ::(103)256(104)16385ĺ:"RUN SHAPEBOOT TO SET START OF BASIC"::2120:1040BL0:KT0:X0:Y0:I0:CODE0:M$"":Q0:XZ0:BH0:P0:H0:R0:C0:ADDR01560 (3:1:0:TA30720:TB2304:TB,0:TA,0: $7800 (NEW) $900 (O                        $"MENU"NO$:D$;"OPEN";FF$K D$;"READ";FF$:N17:I03:SE$(I,N):I,Nd D$;"CLOSE";FF$:350l :r  RW1:CL1:  A$:dT21:1:"ENTER SOURCE SHAPE NUMBER TO COPY: ";:"";AN$:AN(AN$)N%0AN0840%:AN1ANOSĺ"SORRY, NO SUCH SHAPE IN TABLE":"PLEASE PRESS A KEY ":AN$:1810%D232,TB(TB256)256:233,(TB256)%NAN200,100:FLAG12630&X:21:"COPY THIS AS256(TB3)2)2$OS(TB)]$OA(TBOS22)(TBOS23)256TB: ADDRESS OF OLD TABLE$"THE SOURCE TABLE CAN HOLD ";NO;" SHAPES"::"IT NOW HAS ";OS;" SHAPES IN IT"::2120:$::24:"ENTER 0 TO RETURN TO MAIN MENU"$21:36:" "@%&TABLE: ":"";OT$:#1540&#1690M#(4);"BLOAD ";OT$;",A";TB;",D";AN#:N0ĺ"THERE IS NO TARGET TABLE AVAILABLE IN":"MEMORY. PLEASE INITIALIZE A NEW TABLE":"OR LOAD ONE FROM MEMORY"::"RETURNING TO MAIN MENU"::2120:840$NO((TB2)Ⱥ"LET'S RETURN TO THE MAIN MENU AND":"TRY AGAIN"::2120:840O"OT$"":1560u"SNNĺ"TABLE IS FULL":2120:840":OT$""ĺ"THE SOURCE SHAPE TABLE IN MEMORY IS:":OT$::"IS THAT OK? (Y/N):":AN$:AN$"Y"1760#:"ENTER NAME OF SOURCE SHAPE ORRY, THAT DISK IS ALREADY FULL OF DATA"Z!^EN10ĺ"SORRY, CAN'T WRITE TO A LOCKED FILE"!hEN11EN16ĺ"THERE'S SOME SORT OF SYNTAX ERROR HERE"!rEN53ĺ"SORRY, THAT NUMBER IS NOT LEGAL"!|EN77ĺ"OH OH! WE'RE OUT OF MEMORY!"!1560>":CAN'T DO THAT":(7)" "EN(222)T ,EN2EN3ĺ"THAT NUMBER IS TOO BIG OR SMALL" 6EN4ĺ"SORRY, CAN'T WRITE TO A WRITE":"PROTECTED FILE" @EN6ĺ"SORRY, CAN'T FIND THAT FILE" JEN8ĺ"THERE'S SOME SORT OF INPUT/OUTPUT":"ERROR"(!TEN9ĺ"SI130:BL(49152):BL127M$(BL128):BL0:15209IC1470TKT1ĕ1X,YZ:"ENTER DISK DRIVE NUMBER: ";:AN$:AN$:AN(AN$):::"THERE'S NO SHAPE DESIGN MATRIX IN MEMORY":"PLEASE ESTABLISH ONE"::2120:840 :::"OOPS! TART A NEW SHAPE":"TABLE. DO YOU REALLY WANT TO DO":"THAT? (Y/N) ";(7);TnAN$exAN$"Y"100AN$"Y"AN$"N"ĺ::13808401540(4);"CATALOG,D";AN:2120:840XZ(49168):KT01X,Y:KTKT1KT2KT0222:"ENTER NUMBER OF NEXT DESIRED SHAPE,":868:"OR ENTER 0 TO RETURN TO MAIN MENU ";AN$:AN$"0"8402DS220,100:DS(AN$)<DSSSDS1ĉ:(7):1230FDS0840P1310Z:SF0100Kd"THE SHAPE TABLE IN MEMORY WILL BE":"LOST IF YOU SAPES"SS0ĺ:2120:840F:"ENTER 0 TO RETURN TO MAIN MENU":"OR ENTER NUMBER OF DESIRED SHAPE ";DS$:DS(DS$):DSSS1230DS0840 232,TT(TT256)256:233,(TT256)DS220,100:21:868:"CURRENT SHAPE IS # ";DSg(THE SOURCE (OLD) TABLE ":AN$0AN$"1"1200FTTTA:SSSN:1220XAN$"2"840hTTTB:SSOS232,TT(TT256)256:233,(TT256):"THERE ARE ";SS;" SHAPE(S) IN THE TABLE"NN((TT2)256(TT3)2)2:"TABLE CAPACITY IS ";NN;" SH::"PRESS A KEY ":BL$%`SF0:840/j::rt(TB)0(TA)0ĺ"THERE ARE NO TABLES IN MEMORY"::2120:840~(TA)01210(TB)01190:"WHICH SHAPE TABLE DO YOU WANT TO SEE?"::"PRESS:":3:"1 FOR THE TARGET (NEW) TABLE":3:"2 FOR OAD SHAPEMAKER":!"NAME ";N$+$1540Q.BL(TASN2)256(TASN21)TA}8EOBLBL2000:(EO)0LEOTA2:1100BEOL(4);"BSAVE ";N$;",A";TA;",L";L;",D";ANV:"FILE : ";N$:"SAVED AT: ";TA;" DECIMAL":"FILE LENGTH: ";L;" DECIMAL"Y":"DO YOU REALLY WANT TO DO THAT? (Y/N) ";:AN$:AN$"Y"840::103,1:104,8:2048,0:2049,0:2050,0:7:"THE APPLESOFT POINTER HAS NOW BEEN RESET":"TO ITS NORMAL LOCATION IN MEMORY.":11:"TO LIST THIS PROGRAM FIRST USE COMMAND:"14:12:"L"A SHAPE TABLE BEFORE DESIGNING SHAPES."::2120:840pSN255A4::"THE SHAPE TABLE IS FULL"::2120:840A310,280,310,1050,1370,1140,1700,2125,1020SF01040?:"YOU ARE ABOUT TO PERMANENTLY LOSE";(7):"THE SHAPE TABLE FILE IN MEMOR3);"(8) EDIT THE NEW SHAPE TABLE"D3);"(9) LEAVE THE PROGRAM"s::"(PRESS KEY TO CATALOG A DISK)"::"YOUR SELECTION: ";:A$:A$:A(A$)(A$)271430A1A98405:N0A5ĺ"NO TABLE AVAILABLE. LOAD OR INITIALIZE":NY SHAPES? ";NC$:NC(NC$)$5 3340E5 START(TA2)256(TA3)TAT5 PL032305 NNC255ė:"TOO MANY SHAPES!"::2120:8405 3410:SF15 IOESTART15 I2NC,(I)5& I50 ISTARTTA2(NNC)15: I,05D I6N ITA2START22Z1:TA2SN,BL(BL256)256:TA2SN1,((BLTA)256)\4 EX2ĹTA2SN2,0:TA2SN3,0~4 SNSN1:TA,SN:EX0:ADDREO14 :22:"DELETION OF SHAPE NUMBER ";DS;" COMPLETED"::2120:8404 3400:PL0ĺ"SUBTRACT ";:30354 "ADD ";5 "HOW MASHAPE"3@ BL(I):ZZ1:BL02900)3J I63T Z1Z2X3^ ISTARTZEO: MOVE VECTORSf3h IZ,(I)m3r I3| EX0:SNNEX23 ITA2DS2TA2SNEX23 BH(I1):BL(I):BLBLZ:BL0BLBL256:BHBH13 I2,BL:I1,BH3 I84 SNNBLEODS::SF112 ADDR(TASN2)256(TASN21)TAP2 (ADDR)0EOADDR1:2850|2 EOADDRADDR1000: FIND END OF TABLE2 BL(EO):BL028502 EO2" START(TA2DS)256(TA2DS1)TA2, Z036 ISTARTSTART1000: FIND LENGTH OF DELETE $:DS(AN$):DS1DSSNĺ:"NO SUCH NUMBER IN TABLE"::2120:840j1 232,TA(TA256)256:233,(TA256)|1 :DS200,1001 :22:"DELETE THIS AS SHAPE # ";DS;"? (Y/N) ";:AN$:AN$"Y"AN$"N"8401 AN$"N"2740 2 :22::"DELETING SHAPE # ";)(TB2AN1)256TB: ADDR OF SHAPE.0d Z0P0n I01000: PUT IT IN TABLE_0x BI(OAI)n0 TC4I,BI0 BI0Z027300 BI0ĹTC4I1,0:27300 I0 2290A1 :"ENTER NUMBER OF SHAPE TO DELETE FROM THE":"TARGET (NEW) SHAPE TABLE ";AN/ I,BL:I1,BH/ I>/ SNS11:NNNEX2:TA,SN:D12N2/( :23:"INSERTION OF SHAPE NUMBER ";IS;" COMPLETE";::2120:840/2 N02250/< 1710/F :21:"INSERT THIS AS SHAPE # ";IS;" (Y/N)";:A$:A$"N"1810/P A$"Y"840&0Z OA(TB2AN(I) . I. BH0+. A12:SN1NA10H. ITA2SNA1TA2IS2. BH(I1):BL(I):BLBLNLEX:BL255BLBL256:BHBH1:I3,BH. I2,BL:I3,BH. I. ITA2ISTA22. BH(I1):BL(I):BLBLEX:BL255BLBL256:BHBH1:I1,BH56(TAIS21)TA: FROM IS TO END9-L IOESTART1K-V INLEX,(I)R-` IZ-j Z0-t ITC4TC4NL1: INSERT NEW SHAPE-~ STARTEXZ,(I):ZZ1- I- BEGIN(TA2)256(TA3)TA: ADDRS OF #1 SHAPE- ISTART1BEGIN1. IEX, THIS AS SHAPE NUMBER ";IS;" (Y/N)?";:AN$B,AN$"Y"ĉ::2130s,:24::"INSERTING SHAPE NUMBER ";IS::SF1|,NL0, ITC4TC1000, BL(I):NLNL1:BL0NL12350, BL0NL2:2350,$ I,. SNNEX2,8 3340&-B START(TAIS2)2 DESIGN NEW SHAPE #";IS:3);"(2) TO GET IT FROM THE SOURCE TABLE ";:AN$:AN$:AN$"1"AN$"2"2210r+AN(AN$)+AN2240,2610+F10:C0R150F11:280+N0ĺ:"NO TARGET TABLE AVAILABLE"::2120:840+310*,:16368,0:22:1:"INSERTTE A SHAPE BEFORE ADDING TO TABLE":2120:840I*AN2190,2740,3025,3025*:"ENTER NUMBER OF SHAPE TO BE INSERTED":"INTO THE NEW TABLE ";IS:IS1ISSNĺ:"THAT NUMBER IS OUT OF RANGE"::2120:840*FLAG1:S1SN:NNNd+:"PRESS:"::3);"(1) TOLE":3);"(2) TO DELETE A SHAPE FROM TABLE")\3);"(3) TO INCREASE TABLE CAPACITY":3);"(4) TO DECREASE TABLE CAPACITY ";:AN$:AN$:AN$"1"AN$"4"840)fAN(AN$))pPL0:AN3PL1-*zAN1SN255ĺ:"SORRY, THE NEW SHAPE TABLE IS FULL"::"DELEN1:SNND1ADDRTA:TA2SN2,D1256(D1256):TA2SN3,(D1256)s(*23:1:"DONE, PLEASE PRESS A KEY ";:AN$(4SNNė:23:1700(>1810(H"PRESS ANY KEY TO CONTINUE ";:AN$:(MN01760+)R:"PRESS:"::3);"(1) TO INSERT A SHAPE IN TABAN1)256TB'Z10$'I11000M'232,TB(TB256)256:233,(TB256)Z'BI(OA)'232,TA(TA256)256:233,(TA256)'ADDR,BI'ADDRADDR1'OAOA1'BI0Z10ĹADDR,0:ADDRADDR1:2080'BI02080' Z1Z11'IE( SNS SHAPE #";SN1;" (Y/N) ";:AN$0&bAN$"N"1810B&lAN$"Y"840e&v24:1::"COPYING DATA";::"&ADDR(TASN22)256(TASN23)TA&SF1:SNND1ADDRTA:TA2SN2,D1256(D1256):TA2SN3,(D1256)&TA,SN1 'OA(TB2AN)(TB26&8$-'8d2$ -66&8(p2 8$-66& (( %8 ,5%66 $`766e$#$-2?$!<866. @?66-`8766@?66.%$($66n$$< 606  66n$>'$$!$066 $$66n< $$!$?66.%(766!<66=($ 766 $8`2'$$< 1>'$$ 6x:v|&).49@GIQYajt{ $@3 $!$'6wn$'$n0<, &6# @$# v$ $28 , ג&!6v 6o!-( ?6?8$ 6  ) THIS PGM RESETS THE START OF BASICHIT ALSO RUNS SHAPEPROGRAM103,1:104,64:16384,0:PUT BASIC ABOVE HIRES PAGE 1((4);"RUN SHAPEMAKER""<úI$;"80N"<ü1,4000*<úD$;"PR#0"d50,197,8,176,57,56,165,8,233,6,133,8,32,58,255,169,8; 133,7,76,177,8,201,74,240,4,201,8,208,32,24,165,252,105,3,133,7,56,165,9,233,6; 133,9,165,9,201,240,144,12,24,105,6,133,9,32,58,255,169,8,133,7,96;PD$(4):I$(9);dúD$;"PR#1" OEADDR:09H :"THIS TABLE CAN HOLD ";N;" SHA1EN2:1580b7 SNNNCĺ"DO YOU WANT TO LOSE ";SNNNC;" SHAPE(S)? (Y/N) ";:AN$:AN$"Y"840q7 3410:SF17 ISTARTOE:I2NC,(I):I7 ITA2START22NC27 BL(I):BH(I1):BL0BH033207 BLBL2NC8 BL0BLBL256:BHBH1:3&6X BL(I):BH(I1):BL0BH0321056b BLBL2NCY6l BL255BLBL256:BHBH1:3180k6v I,BL:I1,BHr6 I6 BH((OETA2NC1)256):BLOE2NC1TABH256:TASN22,BL:TASN23,BH:NNNC6 3400:2120:8406 NNC1NNC2552130 7 NCz# îϠ!îԠծΠ" ծ Ե ՠҠ Ůؠ ŮΠҮԠŮԠ٠Ҡ%خԠ Ԡ  ŠΠîɮԠ ɫɮԠӮԠӮŠ ӮԠ Ҡ9Ԡųض ŵط ŷع Š Ԡؠ Ҡ Ԯ ŠҠ Ԡ ՠԠ Š̮Ԡˠ ҮҠҲҠŮҠ,`j d@' $$$-?- )<,$$oI) #  d ; - % -? ( t-<I $$$ 6& -( DKNVjt)5HYlz(5GXhs +;HSeqz %6CNV     q#$g* $M6v' $3v) V $36 M- $M--c ?? # d% $$$) '@  )-8?g-8?g-8?g- $$M, $$ 0%* ((8')%??&`-!$<`-')-6?'$,-6&$$$6&)$< r- $$'$$$M&)= $$'$$6n$$'!$ 6& d-6?$$$-6? d-668'!$ )-?`-$$ -$$ 66?-- ?6<(-& $d-? $<(-66?$$$--;*-$$$--;' $d-+5?$$$M16?o6)$$(%- $<(%$$$M--$$$$$$f(066&$$$!$$$ $d-66?$$$-6? $d-6g!$$$-?- ? - $$$?M% $$M166? 8 $l 66 $$M16%2%) l)/8`@) <&I$$ ) $((# #' $m%!5@--!5(((( $d-66?(( )= $$--d- ?p- /(?I$?,((06p- ?',-%)- ?7&d- $  ??)- ?&d-&)- $?v-)<(< '%8,H98` --8?'  (( 8)-$?6xd$19>DHN\dq|(5AJVbjr~ #*28@EKXclv#-7AIOWas| $$@ l6!< < l6o> & - 7((,((( 3  !$66 !$66.(&, 2 $$d6, ?2-25),22 I I142 C(I):C(I)57I5,229 IR 3285,24:31213,24a 3010,150 24:"PRESS ANY KEY ";:AN$::   4,10,160,108,42,168,110,148,111,127  1,2,3,0,4,2,2,3,0,7,1,6,1,5,0,8,6,9,4,3,8,08  10,11,12,13,14,15,,0:233,112- ,(4);"BLOAD BARTABLE,A$7000"9 6I1NBA @K0M JJ110c TC(J):C(J)0380 ^C(J)I(WSWB)5,156K9 hKK1 rJ |INB400 I I125 C(I) C(I)18(I9),13 I I14 C(I) C(I)185(I:1:3' 0,00,159279,159279,00,03 I1NBl X,159X,159SCLBAR(I)XWB,159SCLBAR(I)XWB,159z XXWBWS I XWSWB13:BWWB5 INB12NB X,159X,159SCLBAR(I)XBW,159SCLBAR(I)XBW,159 XXWBWS I "232n::MAX0xNB,WB4WS(280NBWB)(NB1)?XWS1WNB(WBWS)280170(7);"CHART IS TOO WIDE":"PLEASE PRESS A KEY ":AN$:490BAR(2NB),C(50)I12NBBAR(I)MAXBAR(I)MAXBAR(I)ISCL130MAX :0  IJX,Y J ID :22:"PLEASE PRESS A KEY ";:AN$:::dF  ::1:0:3,232,0:233,112v(22:"ENTER NAME OF TABLE:":"";N$:"ENTER DRIVE #: ";:AN$:AN(AN$)~2AN<(4);"BLOAD ";N$;",A28672,D";ANFX1:Y1PI020020ZJ120dXX10:J1X1:YY15nIJ(28672)150 x66 $l 6 $l6o) $$ %?8hI-- $$$66- -- 8??I-# $ -I $$)- d$?@@`- $$$$5666.$$$$5666.$$$$5666.$$$$@@@I$)m< $?6$$e-6? $$)-$d-)m< < $?6&)-#--%?& $$?M d-- $$$86v- $$$$ 6&I$$<-- $$$$$$$Ior $$$$$$,66M$$'$$ -66)- $?6&$$$$(6? I $$$$86v- $$t -p-- -I-#$$;M%)- $& 6666$$$$6$$$ -( $?66$$$$--6?? -  $$?66$$$$--6??p-- ?? d--I$$$$?o -)-- $$$666&I$$lI166$$$$MI666688 d lI1&I$$lI1---c """"""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>"`>>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "PRESS A KEY WHEN READY...";:A$/ P848: $350= U16368,0[ ZR1400:(16384)127Ăi _16368,0q d20 ZR1400:(16384)127Ă _16368,0 d20D)"abcdefghijklmnopqrstuvwxyz"(123)(124)(125)(126)(127)u @T$"+"T$"":D$"BLOADII+.ASCII.SET": ,A$6000 B(T$)ĺD$"BLOADIIEC.ASCII.SET": ,A$60000 DL$(13)ĺD$"BLOADHIRES.FADE": ,A$350 F:"THIS IS STILL THE TEXT SCREEN. " H"G ASSOCIATED FILES." ::"THE NEXT FEW LINES ARE IN LOWER-CASE:"::"Now is the time for all good men":"to come to the aid of their country." <:" !"(34)"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ"(91);A >(92)"]^"(95)(96 'C' COMPACT ";:T$:T$1 +T$"Q"T$"q"ė::i ,T$"+"T$"E"T$"e"T$"C"T$"c"Ģ(37):42 2:"HIRES.TEXT WILL BE USED TO TURN":"THIS SCREEN INTO GRAPHICS." 4:"PRESS RETURN TO SEE HIRES.FADE":L$: 6L$(13)52 8::"LOADINr  D$(4)/D$"BLOAD HIRES.TEXT":,A$300A(26)"1"::d"DEMONSTRATION OF HIRES.TEXT""" AND HIRES.FADE"(::"WHICH TYPE OF APPLE ARE YOU USING?")(37)3:" 'Q' WILL QUIT":(37)2 *"'+' PLUS 'E' ENHNCD$$lI166p-- ?? d--$$$$--6?? -( $?66--- $$??666)-- $$$666& --$$ -$$$$6$$$ 6o8$-66&8d2$8$-'8(p2 $$$$----------6666?????????'@  $$,----66>???'$$,-566??x BN[frz &6ESasu|$$ 66?- ? - $$M166?$$$-?- $<(%$$$-6?$$$!$$$$$$--;*- $d-66?$$$$--6??---#$-$,--%---#$$$$$$ -6??oJ16I$$$$?o -)-#$$$?M%I  16,11,24,17,14,11,11,12,24,18,10,19,20,21,22,14,15,19,23W  25,26,27,28,25,26,29,25(7);:290, @F18:BF1,V(F)::::150K J(A$)33A$O$:PO:(7);w TL(A$):O$A$:OP:L$"":P0L$(A$,P) ^R$"":PL1R$(A$,LP1) h7:L$;::PLĺ(A$,P1,1);::R$; r" ";: |K(49152):K128380 49168,0:KK128 :L2+ F07:V(F1)(BF)::560:V(9)C^ F1N:AV(F):580:A$" ";:::(49152)128Ăp 49168,0:150 590:B0150 BBE8 "1:AB:L4:580:A$;": ";:64668:A$"":P0:330:L0150 ,470:FNĺ(7);:290 6N9İ560:CV(9)ĺA$:I15:A$("EDLSQ",I,1)Ă:160E I270,220,180,200:34,0:z "FILENAME: ";A$:A$""ĺ(4);"BLOAD";A$;",A";S 150 "FILENAME: ";A$:A$""ĺ(4);"BSAVE";A$;",A";S;",L";ES 150 590:B0150 BBE8:L4:AB:580:A$;": ";&dN9:::"APPLE MLX":34,2:610Xn1:20:"START ADDRESS";:530:A0ĺ(7):110`xSA2:20:"END ADDRESS ";:530:SAA0ĺ(7):130EA:"CHOOSE:(E)NTER DATA";:22:"(D)ISPLAY DATA":8:"(L)OAD FILE (S)AVE FILE (Q)UIT":&     PN RWTPQ8f&'&%&&'') X,T,Q` P ' ()8 0( & &ii`)E)(8)`**> <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,*"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>"`>>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "    * <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,**8:4000:13:5:4500>PS$(26,2),BN(5,8):1500:10000(3000:RO0:CO0:PX1:PY1:MF0:TS0:I01:TR(I)0:SC(I)0::1000:PL0:109522000:BN(RO,CO)275071200:R1RO:C1CO<2000:(BN(RO,CO)27)((R1RO)(C1CO))60A1200I F        c@sssssssccD`cI        ۑܑ U``$ۑܑߑijnߑJnߑJnߑߑ****)mܑܑmۑۑ` Uԑݑ` ᥡ`_WUW_GGGwUUW__~z~~~~zz~~xxcБבёޑ | @ԑޑё` U`ڑڑّ`Бґ֑mבґؑ ӑ֑ >ґґ -ӑ`ؑnґ10 ֑u1 `~|xp`@?ԑ)?ԑ),ԑpi(i(mՑ`澀昀怀怀漘 Џ~ 䐰y Itّᑩ*Uᑩ⑩Бבܑ֑ۑՑ 폩ё | @ԑёّ ڑ lڑ lّ l ّ l``   ޑ\ȹ\ȭۑՑ\mܑՑ֑\mݑԑ漀漀ఘ漀氘怀憆澀澀澀怀漀涞怀怀怀漀澆쀀怀挰澀'xEFG >0 e()) $20I$ i EFGXL00000@PTP@  ``xx`TTP@ @p||`********UUUUUUUU漀氌漀dPL(C255)=:F18:CC2255(C127)V(F):CC255(C255)::DI(0):A$"":I1L:T(A16):A$("0123456789ABCDEF",A16T1,1)A$:AT::N"FROM ADDRESS ";:530:SAEAA0B0:XBS8((AS)8):b"DISK ERROR":150F):DD1& D0C$" "D2D0:FF17 :D0FF1= [ J(C$):JJ487(J64):} A0:A$:A$(A$,4):(A$)0ı P1(A$):C$(A$,P,1):C$"0"C$"9"C$"A"C$"Z"A0: &520:AA16J::0C(B256):CB254C255(C127):CC255K13Ė7:A$;" ";:D K32K47K58K64K71A$L$(K)R$:PP1V K4A$L$R$x K9A$L$" "(A$,P1,1)R$ K8PP(P0) K21PP(PL) 330 F1:D0:P1(A$):C$(A$,P,1):FNC$" "ı C$" "İ520:V(F)J16(D1)V(I,A::. 0,0,0,0,0,0,0,08. 1,3,6,12,24,48,96,64S. 64,96,48,24,12,6,3,1q/ 65,99,54,28,28,54,99,65/ 152,152,152,143,135,128,128,128/ 128,128,128,135,143,152,152,152&/ 140,140,140,248,240,128,128,128 0/ 128,128,128,240,248,1426,144,2) + 230,27,165,40,133,8,165,41F*+ 41,3,5,230,133,9,162,8d4+ 160,0,177,26,36,50,48,2>+ 73,127,164,36,145,8,230,26H+ 208,2,230,27,165,9,24,105R+ 4,133,9,202,208,226,165,69\+ 166,70,164,71,88,76,240,253.I3276833359:A:':10990:12000:.'(190256)76ĺ(4);"PR#A768":10050P8'54,0:55,3:1002hB'6,0:7,128:230,64nL'*I768855:A:I,A::* 216,120,133,69,134,70,132,71+ 166,7,10,10,176,4,16,62 + 48,4,16,1,232,232,10,134+ 27,24,101,6,133,TBN(SJ,SK):BN(SJ,SK)BN(J,K):BN(J,K)T:K,J2 ^11:5:"NUMBER OF PLAYERS (1 OR 2)? ";K(49152):R(1):K127Ĺ49168,0K177K1784005NPK177"NUMBER OF MATCHES (1 TO 27)? ";S$NM(S$):NM1NM27NM274RO1G PY:PX:(32);:PX4:(32):PY2:PX:(32);:PX4:(32); Y:X:(62);:X4:(60):Y2:X:(62);:X4:(60); PXX:PYY  I0:J042:K08:BN(J,K)I:BN(J1,K)I:II1:K,J J05:K08:SJ((1)5):SK((1)9), ,103,104,1032500fK$:K$(32)ĢPY:PX:(32);:PX4:(32):PY2:PX:(32);:PX4:(32):K$"I"ĭRO0RORO1:2500K$"M"ĭRO5RORO1:2500K$"J"ĭCO0COCO1:2500K$"K"ĭCO8COCO1:2500 2010 X4CO1:Y6,96,96,32,32,321 97,97,97,97,97,97,97,97,97R 98,33,33,34,34,34,99,33,99v 34,33,100,100,34,33,34,33,100 32,96,32,39,59,36,38,59,37 32,39,37,32,38,36,32,32,32 101,102,101,101,102,101,101,102,101  103,104,103,103,104,10344,32,43)v 39,32,37,32,93,32,38,32,36J{ 36,37,38,39,59,37,37,38,39k 46,46,46,46,46,46,46,46,46 94,93,94,94,93,94,94,93,94 91,92,91,91,92,91,91,92,91 92,91,92,92,91,92,92,91,92 95,95,95,95,95,95,95,95,95 32,32,32,9! 0 33,32,34,32,35,32,34,32,33B : 47,46,46,47,46,46,46,47,47c D 36,38,37,32,39,36,39,36,39 N 64,91,64,92,91,92,64,91,64 X 61,61,61,61,61,61,61,61,61 b 91,91,91,91,91,91,91,91,91 l 92,91,92,64,64,64,91,92,91q 45,32,42,32,94,32,CO),J);:: I026:J025 PS$(I,J)(I):J,IH I026:J02v T0,T1,T2:PS$(I,J)(T0)(T1)(T2):J,I|   35,35,35,35,35,35,35,35,35  58,63,58,63,58,63,58,63,58  64,64,43,64,43,32,43,32,32 & 32,44,64,42,32,44,64,42,32):("00"S$,3)8 8PR2:38:S$(SC(PL)):("00"S$,3)@ B: G:8NP(1PL)4NP10:38:(32):PR8PL4NP10:PR:38:(105):: L:1150:R1RO:C1CO:1150:: ~X4C12:Y4R11:Y:X:E$:X:E$:X:E$;: J02:PYJ:PX1:PS$(BN(RO, 110( :E$"":I02:E$E$(32):D K0:I023:2:K4K0f K3āJ08::E$;::1);:r I23ĺ~ KK1: PL0NP::J06:8PL4NP9J:38:E$::8PL4NP10:39:(PL1):1070: $ .:PR8PL4NP12:PR:38:S$(TR(PL)BN(R1,C1)BN(RO,CO)SC(PL)SC(PL)1:TSTS1:BN(RO,CO)27:BN(R1,C1)27:80_ KI11000::1100 PTR(PL)TR(PL)1:1070:BN(RO,CO)27PLNPPL ZTSNMİ1095:50 d8:8:"ANOTHER GAME (Y OR N)? "; nK$:K$"Y"Ģ12:4:4500::40 xK$"N"ė:!":"MAGAZINE. <::9 F" ";K PR$:R$""80g Z(4):(4);"RUN MENU";Ri  :::h"THIS PROGRAM CREATES A FILE ON DISK.":"WE SUGGEST THAT YOU SAVE THIS PROGRAM"("TO ANOTHER DISK BEFORE USING IT. FOR":"MORE INFORMATION ON HOW TO USE THIS":"PROGRAM PLEASE REFER TO THE" 2"CORRESPONDING ISSUE OF COMPUTE ΠΩΩԠҠɠϠԠèɤɩèΠɤɩŤɬΩԠƠ¤ҢΠԠԠƠ¤ТΠԠĤңϠנ̠ ԠōĤҤɤҤנ̠ ¤Ơ¤ТΠԠԠĤңԠɤ΢ԠպƠ¤ТΠԠèΠĠĠϠ٢ҠΠϠԠԠè  4,81 0,8,34,8,34,8,34,861 8,42,28,8,28,42,8,00,136,136'`1 85,127,42,0,85,127,42,0Aj1 0,8,42,42,42,42,8,0bt1 74,109,85,74,106,73,123,43~1 96,96,96,96,96,96,96,961 3,3,3,3,3,3,3,31 0,0,0,0,0,0,0,1271 85,85,85,85,85,85,85,851 42,42,42,42,42,42,42,421 0,8,34,8,34,8,3%1 128,230,230,230,188,230,230,128K$1 128,230,230,230,188,152,152,128q.1 128,254,176,152,140,134,254,12881 170,170,170,170,170,170,170,170B1 213,213,213,213,213,213,213,213L1 162,162,170,136,136,170,162,162 V1 136,136,170,162,162,17188,230,230,230,182,236,128A0 128,190,230,230,190,230,230,128g0 128,188,230,140,176,230,190,1280 128,254,152,152,152,152,152,1280 128,230,230,230,230,230,190,1281 128,230,230,230,230,230,152,1281 128,230,230,230,230,254,230,1284,224,230,188,12870 128,230,230,182,158,230,230,128]0 128,134,134,134,134,134,254,1280 128,230,254,230,230,230,230,1280 128,190,230,230,230,230,230,1280 128,188,230,230,230,230,188,1280 128,190,230,230,190,134,134,1280 128,190,128-R0 128,190,230,230,230,230,190,128S\0 128,254,134,134,190,134,254,128yf0 128,254,134,134,190,134,134,128p0 128,188,230,134,246,230,190,128z0 128,230,230,230,254,230,230,1280 128,152,152,152,152,152,152,1280 128,224,224,22 0 157,178,149,181,128,173,205,186I0 128,140,152,176,152,140,128,128o 0 128,188,230,176,152,128,152,128*0 255,255,255,255,255,255,255,25540 128,252,230,230,254,230,230,128>0 128,190,230,230,190,230,254,128H0 128,188,230,134,134,230,8,134,190,230,230,188,128?/ 128,254,224,176,152,140,140,128e/ 128,188,230,188,230,230,188,128/ 128,188,230,230,252,176,152,128/ 128,152,128,152,176,230,188,128/ 140,140,140,255,255,140,140,1400 128,152,140,134,140,152,128,128#25,76,102,51,255/ 128,188,230,246,238,230,188,128[/ 128,152,156,152,152,152,188,128/ 128,188,230,176,140,230,254,128/ 128,188,230,176,224,230,188,128/ 128,176,184,180,254,176,176,128/ 128,254,134,190,224,230,188,128/ 128,180,140,140/:/ 128,176,152,140,140,152,176,128UD/ 128,134,140,152,152,140,134,128pN/ 0,1,3,7,15,31,63,127X/ 127,63,31,15,7,3,1,0b/ 127,126,124,120,112,96,64,0l/ 0,64,96,112,120,124,126,127v/ 25,51,102,76,25,51,102,76/ 76,102,51, COMPUTE! FOR MORE INFORMATION":"ON HOW TO USE THESE PROGRAMS."::e 2" ";w <R$:R$""60 F(4):(4);"RUN MENU"R);"RUN MENU"R : :::"THE FOLLOWING SHAPE TABLES HAVE BEEN":"INCLUDED ON THE DISK FOR USE WITH THE":"SHAPE DISPLAYER PROGRAM:":"SHAPETABLE3X6":"SHAPETABLE5X7":"SHAPETABLE7X9":"BARTABLE"D (:"PLEASE REFER TO THE CORRESPONDING":"ISSUE OF IN6IN0ı#jIN1INN011080\tJSIN1:IN1160,1260,1320,1390,1440:D$"PR#0":1080b}:u~ :BY COMPUTER{:2280:1910:S1ı:2090:S2S:PPİ2380768,C1(C1256)256:769,C1256'2280:2000:I1NF:2160:770,T2(T22:S1INF1:1050%PPİ2350:1040/220092040j:2020:D$"PR#0":S1Ė12:"LIST TERMINATED"v$:2320|-:. SEARCH FILES/:82270BI0N01:12:I1") BY "SS$(I):L12:N01") "SS$(N0)V:12:"COMMAND:";:1570 `"NO FILE DELETED"::2320:9:"CONDUCTING DELETE:";IKNF1950gJK1NF:L%(J1)L%(J):sNFNF1"COMPLETE":JKEDĺ:2320: LIST FILES:2270:PP01010D$"PR#"SN:TK$(4)LF$CR$2000:I1NF:2160 DELETE DATAI: R2270:K0L\"NAME:";:MLMN:1650:T4$IN$:IN$""ıyf2000:I1NF:FPL%(I):JI:BYN2:2:AR$p(AR$,(T4$))T4$920z:21602200:2020::"DELETE THIS FILE? ";:1740:2000IDKI:I1E6:2020:I1E6ĺ:$(T2)&T2(T1$):S1IN$""7500 2270o"NAME:"T4$:"DATE:"T5$" / PAGE: "T6$:"COMMENT:"T7$:T3T1y 2210*:"IS THIS CORRECT? ";:1740:ID05904P1(T0$):C1(T1$):AR$T4$:DT$T5$:PG(T6$):CM$T7$>KFM:930:390:G: H1570:IN0INPGT6$(IN)72270:"COMMENT:"CM$f:"COMMENT:";:MLMC:1650:IN$""IN$CM$rT7$IN$T8T1:2270:1820:T80T0$(P1):IN$""T0$(T1)T1(T0$):S1IN$""720T8T2:2270:1910:T80:T1$(C1)IN$""T100-X:"MAKE ANY CHANGES? ";:1740:ID630:bFMNFıPlLFM1:2270:540hv2270::"NAME:"AR$:"NAME:";:MLMN:1650:IN$""IN$AR$T4$IN$2270:"DATE:"DT$::2090:T5$IN$:IN$""T5$DT$2270::"PAGE:"PG::"PAGE:";:ML3:2270:L1:"NAME:";:MLMN:1650:T4$IN$:IN$""ık6:"SCANNING FOR FILE:":2000:ILNF:FMI:FPL%(I)}&BYN2:2:AR$0(AR$,(T4$))T4$I1E4::2020:I1E4Ģ6:19:"NOT FOUND"::2320D6:19:"FOUND"NIFM:2000:2160:2020::22000:D$"WRITE"Z$",R"FP:T0$CR$T1$CR$;KD$"WRITE"Z$",R"FP",B"N2:AR$CR$;D$"WRITE"Z$",R"FP",B"N3:DT$CR$;:D$"WRITE"Z$",R"FP",B"N6:T6$CR$;D$"WRITE"Z$",R"FP",B"N5:CM$CR$;2020:NFNF1:RLRL1:JKEDı320: EDIT :21):T1$(C1):T6$(PG) 2000K I1::"SEARCHING FOR INSERTION POINT"\ L%(I)0450r FPL%(I):BYN2:2 A$:AR$A$II1:410 2020:"CONDUCTING INSERT:"; JNF1I1:L%(J1)L%(J)::"COMPLETE" 2020:L%(I)RL2%FPL%(I):2TA -:' 62270:2090::DT$F1$:SıY @2270:"NAME:";:MLMN:1650:AR$IN$:IN$""ı J"PAGE:";:ML3:1570:PGIN:IN$""320 T2270:1820:S320 ^2270:1910:S320 h2270:"COMMENT:";:MLMC:1650:IN$""IN$"NONE" rCM$IN$ |T0$(PX POINTERS"- D$"OPEN "Z$",L"FL:D$"CLOSE"3 :C MAIN MENUI :] NF0IN1:290 JK0:2270:I0N1:15:I1") "I$(I): :15:"COMMAND:";:1570 IN1INN11250 "JKIN:IN310,530,850,990,1080,1510,1530:250 +: , ADD DAI0NA:A$(I)::I0NK:TK$(I):I I0NS:TS$(I)::I011:M$(I):b I773799:A:I,A:l :10 "IS THIS A COLD START? ";:ML3:1740:ID250 D$"OPEN INDEX POINTERS"::D$"READ INDEX POINTERS":RL,NF I1NF:L%(I)::D$"CLOSE INDE):N213:N3N241:N6N37:N5N66:UL$(95)O FL100:ED2:PP0:Z$"INDEX1.DAT"v MNN3N21:MCFLN5:ML1:LF$(10) I$(N1),SS$(N0),C$(NC),A$(NA),TK$(NK),TS$(NS),M$(11),L%(1500),GB%(9) I0N1:I$(I): I0N0:SS$(I)::I0NC:C$(I):" +# 50  POSITION COMMAND>D$"READ"Z$",R"FP",B"BY:D:U( TITLE PAGE[):a2<7:12:"THE INDEX PROGRAM"Z11:12:"ONE MOMENT PLEASE"c:d INITIALIZATIONe:nN1,N0,NC,NA,NK,NS* xCR$(13):DL$(8):D$(4):I$(9             3T1@&"CLASS:";:JNA01:M2J:T1M0T1T1M:A$(J)",";T&:DL$" ":T1T3m&"COMPUTERS:";:T3T2&JNC01:M2J:T2M0T2T2M:C$(J);",";&:DL$" ":T2T3::&:& CLEAR SCREEN&:&:20(TK$(JK))2)TK$(JK):2290('$: %e:%f GET DISK DATA#%g:8%pFPL%(I):BY0:2S%rI1$,I2$:BYN2:2:AR$k%sT1(I1$):T2(I2$)%zBYN3:2:DT$:BYN6:PG$%{PG(PG$)%BYN5:2:CM$:%:% PRINT DATA%:&"NAME:"AR$:"DATE:"DT$" / PAGE:"PG:"COMMENT:"CM$:T$ A$CR$PP0S11$#$:B$  INPUT DATE, STORE IN F1$H$!:~$*S1:"DATE (MON"(95)"YR):";:ML6:1650:IN$""ı$4IN011:(IN$,3)M$(IN)IN1E3$>:IN152130$H(IN$,4,1)" "2140$R"NOT CORRECT FORMAT"::2090%\S0:F1$IN#:# OPEN FILE#:5#D$"OPEN "Z$",L"FL:;#:O# CLOSE FILE(S)U#:f#D$"CLOSE":l#:# WAIT FOR KEY PRESSING#:#S10:(16384)128ı#A$((16384)128):16368,0$A$" "Ĺ1024,32:16384,128:16368,0:1024,160:T9T92I":O"14:12:"WHICH OF ABOVE:";:868:MLNC1:1570:IN$""ıe"I09:GB%(I)1:"C10:I1(IN$):IN((IN$,I,1))"(IN1)NCIN0Ģ14:12:" ILLEGAL ENTRY":1910"GB%(IN)01982"C1(2(IN1))C1:GB%(IN1)0#:S0:GB%(IN1)01892E!X(IN1)NAIN0Ģ14:12:" ILLEGAL ENTRY":1820f!bP1(2(IN1))P1:GB%(IN1)0r!d:S0:x!k:!l INPUT COMPUTER!m:!vS1:3:I0NC:12:I1") "C$(I)::T801950!T9T8:INC01:998:T92I01940 ":12:I1;::5 S1:3:I0NA:12:I1") "A$(I)::T801860_ &T9T8:INA01:998:T92I01850y 0:12:I1;:T9T92I :: D14:12:"WHICH OF ABOVE:";:868:MLNA1:1570:IN$""ı II09:GB%(I)1: NP10:I1(IN$):IN((IN$,I,1))!S16384,128:A$((16384)128):16368,0]ZL(IN$):A$DL$ZL1ĺA$;:IN$(IN$,ZL1):1750A$DL$ZL1IN$"":A$;:1750A$CR$ZLĺ" ":ID((IN$,1)"Y"):A$"A"A$"Y"ZL31760A$;:IN$IN$A$:1750: INPUT APPLICATION ĺA$;:IN$(IN$,ZL1):1660>A$DL$ZL1IN$"":A$;:1660VA$CR$ĺ" ":ML1:fZLML1660(A$" "A$"9")(A$";"A$(91))A$","ZLML1670A$;:IN$IN$A$:1660: INPUT YES/NO:IN$""UL$;:868:DL$;'IN$"":A$;:15804JA$CR$ĺ" ":IN(IN$):ML1:RTA$"0"A$"9"ZLML1590l^A$;:IN$IN$A$:1580rg:h INPUT LETTERS AND SO ONi:rIN$""|UL$;:868:DL$;16384,128:A$((16384)128):16368,0ZL(IN$):A$DL$ZL1WRITE INDEX POINTERS":RL;CR$;NF;CR$;:I1NFKL%(I)CR$;::D$"CLOSE":Q:d INPUT NUMBERj:u"IN$"",UL$;:868:DL$;616384,128:A$((16384)128):16368,0@ZL(IN$):A$DL$ZL1ĺA$;:IN$(IN$,ZL1):1580EA$DL$ZL1I1NF:2160:(AR$,(T1$))T1$1230AS20DT$F1$1230K1200Q:l CHANGE PRINTER MODESr:PP0ĺ:"WHAT SLOT FOR PRINTER:";:1560:SNIN:IN7IN1ıPP1PP:: QUIT:-D$"OPEN INDEX POINTERS ":D$"200 c:d :ISSUEe:Dn2280:"ISSUE ";:2090:DT$F1$:SıRxPPİ23802280:2000:I1NF:2160:DT$IN$12301200: :TITLE:2280:"TITLE:";:MLMN:1650:T1$IN$:IN$""ı2090:S2S:PPİ23802280:2000)2380>2280:2000:I1NFCA768,C1(C1256)256:769,C1256F2160:770,T2(T2256)256:771,T2256:773:(772)01230K768,P1(P1256)256:769,P1256P2160:770,T1(T1256)256:771,T1256:773:(772)0(S20DT$F1$)1230Z1(P1256)256:769,P1256m2280:2000:I1NF:2160:770,T1(T1256)256:771,T1256:773:(772)01230 S20DT$F1$12301200: :BY COMPUTER AND CLASS:(2280:1910:S1ı22280:1820:S1İ2380<:2090:S2S:PP56)256:771,T2256:773:(772)01230?S20DT$F1$1230SPPİ2350:1220]2200r2040:S1INF1:2020:S1ĺ:"SEARCH TERMINATED":2320: :BY CLASS:2280:1820:S1ı:2090:S2S:PPİ2380768,P1ΠΠԠΠՠϠĢϤƠϤΠƤբϤԠĤ΢ƤԠĤĢƤҠΠϠҠɠϠԠŤɬΩԠɬ΍ԠĤŢƤϠŠĠŠ נ ҠҠՠϠŢϤƠϤΠƤբϤԠĤ΢ƤԠĤŢƤҠΠϠҠɠϠԠŤɬΩԠɬ΍ԠĤŢƤϠנ̠ ԠҠƠ,173,1,3,45,3,3,240,5,169,1,141,4,3,96 dND","EDIT A RECORD","DELETE A RECORD"H* "LIST FILES","SEARCH SYSTEMS"* "COMPUTER","CLASS","COMPUTER AND CLASS","ISSUE","TITLE"* "JAN","FEB","MAR","APR","MAY"* "JUN","JUL","AUG","SEP","OCT","NOV","DEC")+ 169,0,141,4,3,173,0,3,45,2,3,208,8"COMMODORE64","COMMODORE 128","AMIGA","TI-99/4A","APPLE","ATARI"i) "IBM PC/PCJR","ATARI ST","GENERAL") "GAME","UTILITY","APPLICATION","SUBROUTINE","DATASORT") "MACHINE LANGUAGE","REVIEW","LANGUAGE","GENERAL INTEREST"$* "INDEXER","ADD A RECOR:D$"PR#0"(B :(L D$"PR#"SN:"SEARCH BY "TS$(JS)LF$CR$J(V D$"PR#0":P(_ :[(` DATAa(a :r(j 6,5,8,8,5,4(t "ADD","EDIT","DELETE","LIST","SEARCH","PRINTER MODE","QUIT"(~ "COMPUTER","CLASS","COMPUTER AND CLASS","ISSUE","TITLE","RETURN"@) :15(TS$(JS))2)"SEARCH BY "TS$(JS)C'1:PPĞ:"PRINTER";:O':::U' :h' PRESS RETURNn' :' S10:13:"PRESS RETURN:";:1650:(IN$,1)"Q"S11' '# :'$ OUTPUT TO PRINTER'% :'. D$"PR#"SN:AR$; (8 50)DT$" / PAGE:"PG:$:350C RW2:CL3:900:"NUMBER OF MENU TO LOAD";NO$:NO$""350e FF$"MENU"NO$:D$;"OPEN";FF$ D$;"READ";FF$:N17:I03:SE$(I,N):I,N D$;"CLOSE";FF$:350 :  RW1:CL1:  A$:dD3:4);TI$(I);14(TI$(I)));SE$(I,N):7 B$"R"ľA$= T B$"P"ĺD$;"PR#0"] 350 RW2:CL3:900:"NUMBER OR MENU TO SAVE";NO$:NO$""350 FF$"MENU"NO$:D$;"OPEN";FF$ D$;"WRITE";FF$:N17:I03:SE$(I,N):I,N D$;"CLOSE";FFKD$(4):D$"OPEN MENU.A":D$"WRITE MENU.A":5,32767:D$"CLOSE MENU.A"_D$(4):I$(9)rXRW0:CL0:900bB$A$:B$"P"ĺ:D$;"PR#1":I$;"80N"l"MENU:":B$"P"ĺ45)"ON HAND NEED TO BUY"vN17::20(DA$(N))2)DA$(N):' I0   ING ISSUE OF COMPUTE!" (:A 2" ";S <R$:R$""60n F(4):(4);"RUN MENU""p : ::"THE PROGRAM 'MAGAZINE INDEXER' WRITES":"FILES TO DISK. WE SUGGEST THAT YOU":"SAVE THIS PROGRAM TO ANOTHER DISK":"BEFORE RUNNING IT." :"FOR MORE INFORMATION ON HOW TO USE THIS":"PROGRAM PLEASE REFER TO THE ":"CORRESPOND ,OMELETTEM FETTUCINI,CANNELLONI,MANICOTTI,CREPES,SCRAMBLED EGGS,BURRITOS MEAT LOAF,LEG OF LAMB,VEAL SCALOPPINE,HALIBUT,FISH,LOBSTER,CRAB$ CHOW MEIN,CHOP SUEY,BEEF VEGETABLE SOUP,EAT OUTK VEGETABLES:(L CORN,PEAS,TOMATOES,GREEN BEANSERS,PORK CHOPS,STEAK,ROAST BEEF,ROAST PORK,LAMB CHOPS| VEAL CUTLETS,ROAST CHICKEN,FRIED CHICKEN,CHICKEN SALAD,SPAGHETTI LASAGNA,TACOS,TUNA PATTIES,TUNA SALAD,TUNA NOODLE CASSEROLE,BEEF STEW  TURKEY,POTATO CHEESE SOUP,COTTAGE CHEESE,PEA SOUP50?RW2:CL3:900:"NUMBER OF MENU TO LOAD";NO$:NO$""350aFF$"MENU"NO$:D$;"OPEN";FF$D$;"READ";FF$:N17:I03:SE$(I,N):I,N D$;"CLOSE";FF$:350 :RW1:CL1:A$: ENTREES:5 HOT DOGS,HAMBURG4);TI$(I);14(TI$(I)));SE$(I,N):3B$"R"ľA$9PB$"P"ĺD$;"PR#0"Y350RW2:CL3:900:"NUMBER OR MENU TO SAVE";NO$:NO$""350FF$"MENU"NO$:D$;"OPEN";FF$D$;"WRITE";FF$:N17:I03:SE$(I,N):I,ND$;"CLOSE";FF$:3$(N)FL1:150F:RW4:CL3:910:"DAY MUST BE SPELLED OUT IN FULL"[R12000::350nXRW0:CL0:900bB$A$:B$"P"ĺ:D$;"PR#1":I$;"80N"l"MENU:":B$"P"ĺ45)"ON HAND NEED TO BUY"vN17::20(DA$(N))2)DA$(N):#I03:YOUR CHOICE"0 930:L17:A$(CH$,L,1)460S L140,600,600,700,750,510,800Y b 440 920:RW10:CL0:910:"CHOICE";IM$ IM$(32)IM$""480 R46:RW10:CL0:910:EL$;EL$: RW2:CL5:900:"DAY TO EDIT";DA$N17:DA$DA^RW1:CL14:900:"MENU PLANNER"E hRW5:CL9:910:"AKE A MENU"_ rRW6:910:"EVIEW"x |RW7:910:"

RINT" RW8:910:"AVE" RW9:910:"OAD" RW10:910:"DIT" RW11:910:"UIT" RW15:CL6:910:"TYPE LETTER OF MN$(I,R);EL$ 930) A$(13)280O RNI(I)1İ480:SE$(I,N)IM$:310j SE$(I,N)MN$(I,R):310{ A$"C"ī150 "A$(32)RR1:RNI(I)1220 ,230 6SE$(0,N)"EAT OUT"330 @II1:I4210 JFL1FL0:350 TNN1:N8150! CL14:900:"MENU PLANNER"5 RW3:CL0:910:DA$(N)[ RW12:CL11:910:" TO CANCEL" RW13:910:" TO SELECT" RW14:910:" TO CYCLE" I0:K03:SE$(K,N)"": RW5I:CL0:910:TI$(I) R1 RW5I:CL15:910:N17:DA$(N):N Z SUNDAY,MONDAY,TUESDAY,WEDNESDAY,THURSDAY,FRIDAY,SATURDAYu dI03:TI$(I):TI$(I)TI$(I)":": n ENTREE,VEGETABLE,STARCH/BREAD,DESSERT xI03:N1NI(I):MN$(I,N)::MN$(I,N)"CHOICE": CH$"MRPSLEQ":350 N1 RW1: D$(4):I$(9)6 NI(0)40: NUMBER OF ENTREESZNI(1)20: NUMBER OF VEGETABLESNI(2)20: NUMBER OF STARCH/BREADS(NI(3)20: NUMBER OF DESSERTS2I117:EL$EL$(32):<T0:I03:NI(I)TTNI(I)F:MN$(3,T1),SE$(3,7) P   ATE IN DATAIUSIC SWITCH 5 96,27,96,29,96,25,96,13,240,20h 24,5,24,6,48,8,48,5,52,6,52,3,52,5,52,1,130,3} DUELING PLANETS DURATION AND PITCH ALTERNATE IN DATAA,52,1,130,3 DUELING PLANETS DURATION AND PITCH ALTERN0FI768777:X:I,X::INSTALL MUSIC SWITCHZP173,128,192,32,23,215,173,129,192,96qZ765,2:SET TIMBREdI15:140:n765,32:CHANGE TIMBRExI19:140:DUR:766,DUR:DURATIONPITCH:767,PITCH:PITCH 768:CALL M  PUDDINGN JELLO,SORBET,BROWNIES,FUDGE,FRUIT PIE,CREAM PIE,SWEET ROLL,TORTE~( BOMBE,BAKED ALASKA,DRIED FRUIT,JELLY ROLL LLS,PILAF,PITA,KASHA,MATZOHS,CRACKERSi SWEET POTATOES,RICE,FRENCH FRIES,MASHED POTATOES,BAKED POTATO BREAD STICKS,GARLIC BREAD,FRIED RICE,POILED POTATOES,BUNS,PASTA DESSERTS: ICE CREAM,POPSICLE,CAKE,DOUGHNUT,FRUIT,CHEESECAKE,COOKIES,,SPINACH,GREEN SALAD,FRUIT SALAD,CARROTSV BROCCOLI,CAULIFLOWER,SQUASH,ZUCCHINI,LETTUCE,CUCUMBER,PICKLE,MUSHROOMS 1120 DATA CELERY,ONIONS,GREENS,LIMA BEANS` CELERY,ONIONS,GREENS,LIMA BEANS STARCH/BREADS:% BREAD,FRIED POTATOES,NOODLES,RO F(4):(4);"RUN MENU":  :::"THIS PROGRAM WILL NOT RUN FROM THE":"MENU. FOR MORE INFORMATION ON HOW TO ":"USE THIS PROGRAM PLEASE REFER TO THE ":"CORRESPONDING ISSUE OF COMPUTE!":"MAGAZINE."(::2" ";<R$:R$""60 ԬҠɽϠĠŠɬԍ      (4):(4);"RUN MENU" 6 : ::f"THIS PROGRAM WILL NOT RUN FROM THE":"MENU. FOR INSTRUCTIONS ON HOW TO USE""THIS PROGRAM PLEASE REFER TO THE":"CORRESPONDING ISSUE OF COMPUTE!":"MAGAZINE.(::2" ";<R$:R$""60 F!! E,POILED POTATOES,BUNS,PASTA, DESSERTS:t ICE CREAM,POPSICLE,CAKE,DOUGHNUT,FRUIT,CHEESECAKE,COOKIES,PUDDING JELLO,SORBET,BROWNIES,FUDGE,FRUIT PIE,CREAM PIE,SWEET ROLL,TORTE( BOMBE,BAKED ALASKA,DRIED FRUIT,JELLY ROLL S,LIMA BEANS2` CELERY,ONIONS,GREENS,LIMA BEANSG STARCH/BREADS: BREAD,FRIED POTATOES,NOODLES,ROLLS,PILAF,PITA,KASHA,MATZOHS,CRACKERS SWEET POTATOES,RICE,FRENCH FRIES,MASHED POTATOES,BAKED POTATO BREAD STICKS,GARLIC BREAD,FRIED RIC6$ CHOW MEIN,CHOP SUEY,BEEF VEGETABLE SOUP,EAT OUTHK VEGETABLES:L CORN,PEAS,TOMATOES,GREEN BEANS,SPINACH,GREEN SALAD,FRUIT SALAD,CARROTS V BROCCOLI,CAULIFLOWER,SQUASH,ZUCCHINI,LETTUCE,CUCUMBER,PICKLE,MUSHROOMS 1120 DATA CELERY,ONIONS,GREENNA PATTIES,TUNA SALAD,TUNA NOODLE CASSEROLE,BEEF STEWv TURKEY,POTATO CHEESE SOUP,COTTAGE CHEESE,PEA SOUP,OMELETTE FETTUCINI,CANNELLONI,MANICOTTI,CREPES,SCRAMBLED EGGS,BURRITOS MEAT LOAF,LEG OF LAMB,VEAL SCALOPPINE,HALIBUT,FISH,LOBSTER,CRAB:RW4:CL3:910:"DAY MUST BE SPELLED OUT IN FULL"GR12000::350V ENTREES: HOT DOGS,HAMBURGERS,PORK CHOPS,STEAK,ROAST BEEF,ROAST PORK,LAMB CHOPS VEAL CUTLETS,ROAST CHICKEN,FRIED CHICKEN,CHICKEN SALAD,SPAGHETTI5 LASAGNA,TACOS,TU0:L17:A$(CH$,L,1)460? L140,600,600,700,750,510,800E N 440u 920:RW10:CL0:910:"CHOICE";IM$ IM$(32)IM$""480 R46:RW10:CL0:910:EL$;EL$: RW2:CL5:900:"DAY TO EDIT";DA$ N17:DA$DA$(N)FL1:1502MENU PLANNER"1 hRW5:CL9:910:"AKE A MENU"K rRW6:910:"EVIEW"d |RW7:910:"

RINT"| RW8:910:"AVE" RW9:910:"OAD" RW10:910:"DIT" RW11:910:"UIT" RW15:CL6:910:"TYPE LETTER OF YOUR CHOICE" 9330 A$(13)280; RNI(I)1İ480:SE$(I,N)IM$:310V SE$(I,N)MN$(I,R):310g A$"C"ī150 "A$(32)RR1:RNI(I)1220 ,230 6SE$(0,N)"EAT OUT"330 @II1:I4210 JFL1FL0:350 TNN1:N8150 ^RW1:CL14:900:"ANNER"! RW3:CL0:910:DA$(N)G RW12:CL11:910:" TO CANCEL"l RW13:910:" TO SELECT" RW14:910:" TO CYCLE" I0:K03:SE$(K,N)"": RW5I:CL0:910:TI$(I) R1 RW5I:CL15:910:MN$(I,R);EL$ 9 SUNDAY,MONDAY,TUESDAY,WEDNESDAY,THURSDAY,FRIDAY,SATURDAYa dI03:TI$(I):TI$(I)TI$(I)":": n ENTREE,VEGETABLE,STARCH/BREAD,DESSERT xI03:N1NI(I):MN$(I,N)::MN$(I,N)"CHOICE": CH$"MRPSLEQ":350 N1 RW1:CL14:900:"MENU PL " NI(0)40: NUMBER OF ENTREESFNI(1)20: NUMBER OF VEGETABLESmNI(2)20: NUMBER OF STARCH/BREADS(NI(3)20: NUMBER OF DESSERTS2I117:EL$EL$(32):<T0:I03:NI(I)TTNI(I)F:MN$(3,T1),SE$(3,7)PN17:DA$(N):: Z"" " " " " """""