JJJJ ( X ,0 ,b9 LԠ  Рààè       Ԡˠ ͭ͠Рӧ$%L"ȹ0  ` L 2%LL( Í  ߠP L ) L QRTU SSRU``ee ΙΜ` aO tP ~ɂ<P)MENUPLANRNER )CONVERTERHIRES.BOOTCODER.BOOTiTABLE.BOOT(REMEMORY 8'INDEXER+#INDEX.BOOTpMUSIC.DEMOMUSIC.BOOTx-DEMONSTRATIONr.IIEC.ASCII.SET`-II..ASCII.SET`HIRES.TEXTPHIRES.FADENP*EUCHRE.BIN'㨌SHAPEBOOTm-SHAPETABLE3X6ox-SHAPETABLE5X7rx-SHAPETABLE7X9vxDISPLAYSHAPEzF(BARCHART|BARTABLEL*EUCHRE.MAR**HROUT@X#MLXB PROOFREADERL$MENUN*SHAPEMAKERR5COMPUTE' #,SS80.SYSTEM. %AASETUPCASE5*NORMAL.SET(APPLCODRER.MAR APPLCODR2.MAR( >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@LLnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8Rɀ )? OȄ툆J H80 HT hU m ti ~NP$J i8T (U  aLYZT`((((PPPPЭFOUGPV8IG mVVJK 1L ȱȊ`D,0 )L* L* )L* L ,0  ` `KB:PHH8 hh` ܠL La DMcL  0 Ϡ ɱ ɸ 8鰍 XL#Ӝ n  ɍL8鰐* &.... L 8L0`8JK   Q`mm8UVeI  Q` nmUU))? @HR  hLn FGj' L'j R#L9s2_e ` `aŵ L6UVmUUmVV  | LE`m  ```VV` L`Ƀ)?ʈ`(`6Å7`V`)L  L} L}  ` v L "LSGsU8FlVGm0_ e ` ŵLS ŵ  `Q` q hh`L#QRtflmcpqӜɺ8 0 hLhh L< /)ߝuX` _ LL a DMc x ? ) : 5 LI : LI : iLILK  L `8  L W _ X X ɛ7ɍ9ɈL} L}) WL UmVmIhhL#mm8UV nUmUVmV`RIR`߅` )` 0 8L L <VLl L] <GL 8ee8P OP`FGL ɠVUVL$Lee8UV8 18UUVV`a DMc0LL ɠL]  `  <ȑ  L{ 8mM  Q`mm 18UV 18UUVV`  8`  Lc x  )H h)W  LS  LP  L`8Oɿ<FL ɠL& L FGL a DMc0Liɮɡɿ<VLl VLl ɠɮɡɿ>< 'tr *, 000 ">">~@`0 !9-'!!?!  !? !!!!!!!!!> >> < > !!  ?!?-!!!!!#%)1!!!!!!!!!!!%)1>!! !! !>!!!!!!!!!!! !!!!-?!!! !!""" 0`8@@@@8>> !"#$%&':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. KY0 <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,***"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "ȱ`ȱa{i>222###?>&##> #### 000001## >SSCC&&&&#######> #>0&####### CCSS>  ###> ? ?𘘌0CATALOG,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' WIIF 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.":E 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.":"REDO 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-TYPDR;" 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.":"O 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$"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 TT$"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$:ATBTTBNFWNB 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)OLINE 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 NFAOTE440BOTEBBOTET"":OT$"SCR"ĢEI:(HT):LLWN:" LINE #";LnTRZRTFF: SET A MAXIMUM OF 256 CHARACTERS PER INPUT LINE^SIS:DRID:D$"READ"IN$hA$::D$: USE 'GET' RATHER THAN 'INPUT' SO -ALL- CHARACTERS CAN BE CAPTURED$rA(A$):ARTN510: END OF EP'":X((16368)): CLEAR KEYBOARD STROBE. L" ** ENCODE/DECODE **z,SIS:DRID:D$"OPEN"IN$",S";IS;",D";ID6OT$"SCR"ė:330@SOS:DROD:D$"OPEN"OT$",S";OS;",D";OD:D$"CLOSE"OT$:D$"DELETE"OT$:D$"OPEN"OT$:HTEIEIPF.JO$ THE DISKETTE FOR"::OT$;" IS IN SLOT #";OS;", DRIVE #";OD RD1:XYZ((KY))::"HIT TO CODE, TO RESTART ";:A$:A$(13)A$(27)250:A$(27)160:: :::(4):ED1ĺ"EN"; ED1ĺ"DE";0"CODING. PLEASE WAIT FOR 'BEST 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"ĺ"ANDLL 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 MUR1: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.":%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$"CL0,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(J 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,0,Y(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 ","09: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),CS(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:J": 11:29:EW$' 17:29:EW$C 19:29:"?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:"PI*(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:"OSE"N$E x"'"N$"'"" HAS BEEN CREATED.":"CREATE.PHRASE DONE."K ):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 3DE1500:/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(DL)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),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)TPPT(IF: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(S(P12000: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 G1600:((TP4ĺ" PASS ";:2090=)BDP:ME$(TP5);_*(PDL)(TP4)PSPS1:2075i421099KU1:(BD0)(DL2)LH1:2120=TP42140>(LH1)(BD0)2120?BD0İ1615:2140@1625CLH02140H1:2:"LONEHAND" \DEURNED ":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) &DE0(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ĺ" TK1491950*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:204DDFSP(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:ANLOANHIF1TPKS9LO2: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)DF1865"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,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$TYLH0: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)SP():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)SP(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:J03: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:LH1PSPS))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:52051ZHT05240;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(WP35400;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)1/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/ 0PSTL0SPTP: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)05125-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-5100.(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-5160((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,C2009* 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:(F1)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,4200,4N 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) 15:K' 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 WOPP& :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:I,T1% 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))WxEFG >0 e()) $20I$ i EFGXL ` 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 255)=: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 : :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):CC255(C13Ė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(F)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 K2+ 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)ĺ(ACDEFGHIJKA$: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$;": ";:L&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":& G ɠ?2i@ 2 (᩠Lɩ8@A H@Ah@AAd  A LL$* i` .Qt >: ($   )  L H8H   G  !% "L "0 1 z L m ANOTHER DIRECTORY ?$ ɍ L m SOURCE   ɍ ɛ ܩhi ȥJJJJLUJKi ԅlL| $ v SLOT= DRIVE ";A$(JDE)::700 <J;" ";A$(JDE);" "7 FXI ZR$:R$""90g _R$(32)PGPG1:DEPG9| 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) nPNMOPGRAMS ";::"MARCH-MAY '87":E "(C) 1987 COMPUTE! PUBLICATIONS" "PAGE ";PG1;" OF ";TP;" PRESS ";::"";::" FOR NEXT PAGE" PAGE1MT18:35 MT18 #X2MT2 (JJ1 -JDE34X17: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:(4);"PR#A$300"A$(36),B$(36)TP2 FI18:4000 ::51,1:62454Y61:22:J0 "COMPUTE!'S APPLE PRO9,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,16Ҡ!@` 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ȊȱE 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 FILee   Z *   LU  L H8     4 h    4  LQ8*i8e` m INSERT SOURCEL m INSERT TARGET s PRESS s RETURN  ɍ` 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` (R$)48 sPNPNDE& xTPN:60005 D$;"PR#0"D D$;B$(PN)J _ T1FI:A$(T):t T1FI:B$(T):z   EUCHRE,APPLECODER,APPLECODER FILEMAKER  MENU PLANNER,SPEEDSCRIPT 80,FILE CONVERTER,BUILT-IN MUSIC,MAGAZINE INDEXERb  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 APPLCODR,RUN CODER.BOOT,RUN MENUPLANR b -SS80.SYSTEM., 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:LOCLOC2:1,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: USE: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:ADDRARROW 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,CODEAPACITY":::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 OR 0 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 PRESENT C2,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 @C0R1501553)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 TAN 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(TAQSTUVWXYZ[\]^_`abcdefghijkl) 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":" 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 (OLDRUN 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 MLXd680: 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"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"$f3);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 TARY, 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>":"N'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ĺ"SOR130: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! CART 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:KTKT1KT2KT02I:"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 STAES"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(22E 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;" SHAP:"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 THD 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"::"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:"LOA 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 MEMORY"3);"(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":"A"(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"#BLE: ":"";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)256(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:" "@%&2::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 SHDS(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 # ";DS(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,BH/(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,(HIS 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)256ESIGN 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:"INSERT T 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) TO D":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"::"DELETE1: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 TABLEN1)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( SNSNHAPE #";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)(TB2A1: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 AS SAPE"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 SNNBLEOZ1: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 MANYnp$-'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>'$$ 6!$:v|&).49@GIQYajt{ $@3 $!$'6wn$'$n0<, &6# @$# v$ $28 , ג&!6v 6o!-( ?6?8$ 66&8) 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"d,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;" SHAPEEN2: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:3306X 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 NC1 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 ITA2START22&66 !$66.(&, 2 $$d6, ?2-2d%6)(((o%I$$$$6  d) $6nJ- $%$ -66%$$$$--@(--* @(( --%I$$$$MI8?D V---- 888(--%@(- ?88I$$$@@$M6 $<'(556D(87$ 6(-- ?? --島   I c )m'e.@` -&uwxy d@' $$$-?- )<,$$oI) #  d ; - % -? ( t-<I $$$ 6& -( DKNVjt)5HYlz(5GXhs +;HSeqz %6CNV`j#$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'!$ )-?`-q$$ 66?-- ?6<(-& $d-? $<(-66?$$$--;*-$$$--;' $d-+5?$$$M16?o6)$$(%- $<(%$$$M--$$$$$$f(066&$$$!$$$ $d-66?$$$-6? $d-6g!$$$-?- ? - $$$?M% $$M166? 8 $l 66 $$M166 qst%) l)/8`@) <&I$$ ) $((# #' $m%!5@--!5(((( $d-66?(( )= $$--d- ?p- /(?I$?,((06p- ?',-%)- ?7&d- $  ??)- ?&d-&)- $?v-)<(< '%8,H98` --8?'  (( 8)-$?6$$ -d$19>DHN\dq|(5AJVbjr~ #*28@EKXclv#-7AIOWas| $$@ l6!< < l6o> & - 7((,((( 3%2@ $I$$ I $$` -#$8?- ?$I $?g $*%) <@(--% ` )-- $$??666 )-#$$$---c e ??p-- ?' --6I $,?? 66p-- ??'$,--%)-- ??76@$ -- $d ???'$$,-566??  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 >>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> " <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,***"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "ESS A KEY WHEN READY...";:A$/ P848: $350= U16368,0[ ZR1400:(16384)127Ăi _16368,0q d20"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"PRASSOCIATED 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::"LOADING "*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">       ۑܑ U``$ۑܑߑijnߑJnߑJnߑߑ****)mܑܑmۑۑ` Uԑݑ` ᥡ`_WUW_GGGwUUW__~z~~~~zz~~xxccבёޑ | @ԑޑё` 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漀氌漀 RWTPQ8f&'&%&&'') X,T,Q` ' ()8 0( & &ii`)E)(8)` <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,***@sssssssccD`cI  :::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!"03,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:Y496,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,103,1,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,96, 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,44),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,CO110( :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)):(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"ė: :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 FBNOMPUTE! FOR MORE INFORMATION":"ON HOW TO USE THESE PROGRAMS."::e 2" ";w <R$:R$""60 F(4):(4);"RUN MENU" : :::"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 C:"MAGAZINE. <::9 F" ";K PR$:R$""80g Z(4):(4);"RUN MENU";RO1G 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), 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$):NM1NM27NM27' 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):81 0,8,34,8,34,8,34,861 8,42,28,8,28,42,8,0136,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,34,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,170,8,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,128%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,180,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,224, 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,19134,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# 0,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,188,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,25A::. 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,140,,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:I,: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,26N213: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):" 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(T2256S1INF1: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 `INO 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:ELETE 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: H D70: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$""T1$-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:152270: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 :2: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):200 -:' 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$(P1)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 DATA0NA: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 INDEX )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(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:PPİ2T1@&"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$:T3$ 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:T92I":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:B%(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;:T9: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))!SG384,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$;'16N$"":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$ZL1ĺITE 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$ZL1II1NF: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$"WR0 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)380>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$)1230Z120: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::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"@) "C14: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:M17: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:CLD$(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) PN(4):(4);"RUN MENU" : ::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 FIC 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 DATA0FI768777: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 MUSG ISSUE OF COMPUTE!" (:A 2" ";S <R$:R$""60n F(4):(4);"RUN MENU" : ::"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 ":"CORRESPONDIN73,1,3,45,3,3,240,5,169,1,141,4,3,96 d,"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,1OMMODORE64","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 RECORD"N$(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! ^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 YO6 "ENTER SPEEDSCRIPT FILE NAME TO CREATE :";A$[ (4);"BLOAD ";B$;",A$2000,TTXT"| L(48859)(48860)2568192 I8192L1 (I)141ĹI,60  'D$;"BSAVE ";A$;",A8192,E";L1 ( ER TEXT FILE NAME TO CREATE":":";B$D xD$;"BLOAD ";A$;",A$2000"e }L(48859)(48860)2568192u I8192L1 (I)60ĹI,141 D$;"CREATE ";B$;",TTXT" D$;"BSAVE ";B$;",A$2000,E";L1;",TTXT"  "ENTER TEXT FILE NAME":":";B$ D$(4)*("DO YOU WANT TO:"c2" (1) MAKE A SPEEDSCRIPT FILE INTO A TEXT FILE"<" (2) MAKE A TEXT FILE INTO A SPEEDSCRIPT FILE"FA$:A(A$)PA1A270ZA100,200d"ENTER SPEEDSCRIPT FILE NAME":":";A$& n"ENTDDINGN JELLO,SORBET,BROWNIES,FUDGE,FRUIT PIE,CREAM PIE,SWEET ROLL,TORTE~( BOMBE,BAKED ALASKA,DRIED FRUIT,JELLY ROLL S,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,PUPINACH,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,ROLLMELETTEM 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 BEANS,SS,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 SOUP,O?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,HAMBURGER;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$:350N)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:4)UR 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$(  :::"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 F(4):(4);"RUN MENU"