' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"{ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0:$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌```葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`  LOARUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE PROBLEM RANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNREBOOT DISC I/O ERRODISK FULFILE LOCKETYPING ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT AVAILABLE $3>L[dmx- ( ` @跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L ` `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(`i d` קӠz# u`:1:J&@Z022:Z$(Z)Z$(Z)" ":|&DZ022:ZZ22Z1:ZZ1:(Z$(Z),40);:::&r180:V:Z1(Z$):(Z$,Z,1);:ZZ(16336)(16336):255:::&34,V&ZZ(L$):ZZ2(ZZ2)L$L$" "'ZZ(L$)290:Z11500::58350:1%ZB22:ZA022:34,ZAZ%ZC0ZB:1:Z$(ZC);:(Z$(ZC))40ĺd%::r%23:38:~%Z522%Z$(Z)Z$(Z)" "%&33,1:Z039:32,Z:24:ZZ522:(Z$(ZZ),Z1,1);:::" ":190:Z122:::255i$$34,TZW1:35,BZW1:33,WZ2W2:32,LZW1:MODE0:20000:TT1900:TT:::t$21998$69:7:" "$:10:7:" "%>11:7:" ":59500:600(32)0Ĺ32,(32)1:33,(33)2:34,(34)1:35,(35)1G#MODE1ğU#MODE2Ğe#(34)1:1# TZ(34):BZ(35):WZ(33):LZ(32):Z1(BZTZ)WZ1:CH$;::(BZ17)1291136,(CH$)128MODE64$":34,TZW:35,BZW:33,WZ2W:32,LZW:(35):I124:I:1:868:J122:::60000["~:I124:I:1::40):I:1::40):::60000"I124:24::J122:::60000":::I2411:I:JI(I2)21402:J:" ";::::" SET MODE,BORDER WIDTH W & CH$"MODE0:W7:CH$":":9#:)!I140:33,I::J122:::60000\!I3901:32,I:33,40I::J122:::60000!I120:32,20I:33,2I::J122:::60000!Z1901:32,Z:33,402Z:34,(Z2):35,24(Z2):::!I2411:I:1:868:J122:::60000&"L4,Z:35,24Z:32,Z::32,39Z::j Z011:33,22Z:32,19Z:34,11Z:35,13Z::34,11Z:35,13Z:: :Z1211:Z:868:25Z:868:: 24:Z120:33,Z:32,0::32,40Z::::Z124:::60000!RA140:33,A:B110::::A115::0,58800,58850EZ124::ZZ(16336)(16336):ZQ150:::::~24:Z3901:32,Z:33,40Z:::Z124:::60000X24:Z140:33,Z:::Z124:::6000024:Z1901:32,Z:33,(20Z)2:::Z124:::60000! 33,1:Z1101:3$"Y"ĺ"RUN WW"14:10:7::"'BYE NOW"::\XX((((78)(79)256)15)1):58020XX((((78)(79)256)6)1)XX58100,58200,58300,58350,58400,58450 XX58100,58200,58300,58350,58400,58450,58500,58550,58600,58630,58650,58700,5875RK ";NAME$:7500::8:8::"MAGNIFICENT ";NAME$:7500TL60060:ZZ11000:ZZ\V:@::6::"ANOTHER GO AT THIS PROGRAM Y/N?"::ZZ$:ZZ$"Y"Ĭ֜:18::"WOULD YOU LIKE A":"DIFFERENT PROGRAM...ON THIS DISC Y/N?":ZZ$::ZZ,7304,7305,7306,7307B:8:8::"WELL DONE ";NAME$:7500j:8:8::"GOOD WORK ";NAME$:7500:8:8::"FINE JOB ";NAME$:7500:8:8::"EXCELLENT ";NAME$:7500:8:8::"KEEP IT UP ";NAME$:7500:8:8::"TOP NOTCH WO(1))|Y(2080(1))/XY(XY)67005;Xka **************************************b SELECTS FROM 7 CONGRATULATORY MESSAGESc **************************************dPICK(17(1))PICK7301,7302,7303l ***************2m HARDER PROBLEMSJn ***************PoVpmX(5001001(1))8Y(67(1))XY(XY)6100dX(100010000(1))Y(137(1))XY(XY)6500,TX(5000500000:40150+ ***********B SUBROUTINESY ***********_e ***************** NORMAL DIFFICULTY *****************Y(27(1))PX(100401(1))XY(XY)5100k - ANOTHER BATCH ?-  *****************3 _:17:3::"ANOTHER GO ";NAME$;" ?"::"( PRESS Y FOR YES...N FOR NO)":@YN$:YN$JYN$"Y"1000MYN$"N"1550N O ******P FINISH Q ******R5875 *******************4 GIVES OVERALL SCOREO *******************U{"YOU HAVE CORRECTLY ANSWERED ":8:RIGHT;" OUT OF ";PROBS;" PROBLEMS"ZZ13000:ZZ:58850  *****************  PROBLEMS FINISHED 9,178:251,H4:A$:I12500:I:1210J SC$(SC$,II1)(X)(SC$,II1)f FF1:CC1:C(A$)190 EN(C11((A$)1)):IJSTEN:IJ32,36,64,54,40,43,45,24,48,28,58:IJ:STEN:190<8,6:9,47::16302,0:3:0,0279,0279,1910,1910,0:2,227127IV:I150:X(16384):X128ĂI:1220X16368,0:X206X217ĺ(7);:I:1220~I50:I:X217Ĺ254,0:62450:100:40150(16384)127Ĺ16368,0:(7);%W$"BAD LUCK??":249,29:251,10:W$:W$"THE WORD WAS":249,50:251,8:W$:240364:W$"=":249,88I:251,12:W$:J15:J:66:W$">":249,86I:251,12:W$:J15:J:66:Iq768:768:3IV0:W$"CONGRATULATIONS??":I110:249,70:251,3:254,IV:IV127IV:W$:IW$"ANOTHER GAME[":IV0+254,IV:249,100:251,7:W$:IV,I1:WW$:20:J110:J,Ix~249,80:251,7:W$:249,97:251,7:W$:0:56,9756,94:4:249,111:251,9:254,127:W$:W$3:254,0:91,11692,11696,11296,111:IC10130066I120:66:J120:J:(16384)127Ĺ16368,0:(7);I`I:251,1:W$:249,133:251,0:WW$:20j249,133:251,0:W$:249,124:251,0:WW$:20:249,124:251,0:W$:249,115:251,1:WW$:20:249,115:251,1:W$:249,111:251,2:WW$:20o(16384)127Ĺ16368,0:(7);tI26:249,111:251,I:W$:249,111:25116368,0:(7);KL249,AY:251,BJ:W$:249,AY26:251,BJ:WW$:20:IVI1631:249,146:251,I:W$:249,146:251,I1:WW$:20:J110:J,I:ST111300[(16384)127Ĺ16368,0:(7);$`249,146:251,2:W$:249,142:251,1:WW$:20:249,142249,50:251,34:W$:20:ST7130013ST1013008W$" ":WW$"&":I14:Y12:A26I4:B374I:J12:249,AY:251,BJ:W$:YY2:249,AY:251,BJ1:WW$:20:JBJ34:249,AY:251,BJ:W$:YYY:249,AY:251,BJ1:WW$:20:JG(16384)127 LACHLAN ARNOTT 1988 C/:************************* :*************************P.: THIS VERSION {.: MODIFIED AND AUGMENTED .: FOR THE .:COMPUTER EDUCATION CENTRE .: BY/: :::::::::"=-s19:3:"OR...PRESS ESCAPE TO SEE DEMO. AGAIN"j-t10:H:" ";(CURSR$,C,1);" ";:I133:-vKEY(16384):KEY155MO1-wKEY12761566-xM1CC14(C4):HH1:H39M1-zM1CC14(C1):HH1:H2M1-|61556-~).5V:A128VH(984((V1)8))895:BA1:PA(A):PB(B):A,221:B,96:0,10V:1,9:771:J125::A,PA:B,PB:{,d23::,nCURSR$"!/-\":H1:CH:MH:Q$(34),p:11:" :::::::PRESS ANY KEY WHEN READY:::::::" -r12:" :::::::::::::TO CONTINUE:::::,202,208,245,174,0,3,76,2,3,96 1+TN100105P+768,TN:769,10:770:TN:+<771,173:772,48:773,192:774,136:775,208:776,4:777,198:778,1:779,240:780,8:781,202:782,208:783,246:784,166:785,0:786,76:787,3:788,3:789,96o,PV123:H2S):II: *KKKK1:KK160072/*I770790=*J:I,J:* 173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96*TN100102*768,TN:769,10:770:TN**I770790*J:I,J:+ 173,48,192,136,208,5,206,1,3,240,9 )V:240')Z1(L$):Z$(L$,Z,1)R)ZZ32255:(ZZ);:(ZZ)Z$Č1008:)X(16336)(16336)X(16336)(16336)X(16336)(16336)X(16336)(16336):Z)255::)`*SS16336:II150:JJ(SS)(SS)(SS)(SS)(SS)(SZ$Z$" "^( 240:Z039:V:40Z:(Z$,Z1)::255:(:235:Z1(Z$):V:1:(Z$,Z)::255:(l235:Z(Z$):Z2(Z2)Z$Z$" ":ZZ1(pZ10:V:ZZZ211:20Z1:Z1Z11:(Z$,Z1);(Z$,Z1);:::255: '160:23G'Z1(L$)2:1:(L$,ZZ1Z,1);:40:(L$,ZZZ,1);:O'65d'Z123VZZ::m'225'Z1ZZ:V:1:(L$,ZZ1Z,Z);:41Z:(L$,ZZ1,Z);:24::'Z120ZZ:V:Z:" ";(L$,ZZ);:41ZZZ:(L$,ZZ);" ";:'255:34,0:0(^^Ӝu`".Q`pNФbptťܥm2<(-Py0\|66e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUiY?AyC@B@B|ACLT$VXZdflpx|~**7777(*3]67V<<8:=???@#topmnU^_R ij^_lk 󅔆nmLY^^ȱ^ȱ^eȱ^e(ӊ0ЦeLA@@&E&&A@@&AA)߅CBBH&E&&A@B& ChLQhBAȌy8zx8v{v I7H7@)*AL@m{@AAA,+i(ˢ3Z@[A@ /@v wm{@8/e@@eAA3]ͥ@\Ɗ28(WW$(IL)));WW$(ILL);Yp:I::I176:(95);:I:::(13)(4)"PR#0":175gFF1:182::W$"RUNNING CRACKAWORD":V10::20::(13)(4)"RUNCRACKAWORD":@::6::"ANOTHER GO AT THIS PROGRAM Y/N?"::ZZ$:ZZ$"Y"ĬG֜:': LACHLAN ARNOTT 1988 U':************************* **** B:&d23::;&:*************************b&: THIS VERSION &: MODIFIED AND AUGMENTED &: FOR THE &:COMPUTER EDUCATION CENTRE &: BY(92:774,136:775,208:776,4:777,198:778,1:779,240:780,8:781,202:782,208:783,246:784,166:785,0:786,76:787,3:788,3:789,96&PV123:H25V:A128VH(984((V1)8))895:BA1:PA(A):PB(B):A,221:B,96:0,10V:1,9:771:J125::A,PA:B,P/N?":($ZZ$::ZZ$"Y"ĺ"EXEC WB":L$4:10:7::"'BYE NOW"::61500v$4 TITLES STARTUP$9 ROUTINE$;KK0$>(47721)123Č1401$C$`AX16336:S120:SOUND(AX)(AX)(AX):S:%<771,173:772,48:773,1(13)(4)"READCRACKAWORD "F$:N:UW(N):(13)(4)"CLOSECRACKAWORD "F$T#@10g#hSE1:SNS1q#r4040#@::6::"ANOTHER GO AT THIS PROGRAM Y/N?"::ZZ$#:ZZ$"Y"Ĭ$֜:18::"WOULD YOU LIKE A":"DIFFERENT PROGRAM...ON THIS DISC Y:X1364050%"X141ĺ(7);:41004"6,WS1:W"":10:15::"READING WORDS":",(13)(4)"OPENCRACKAWORD CATALOG,L20":(13)(4)"READCRACKAWORD CATALOG,R";(6):F$:(13)(4)"CLOSECRACKAWORD CATALOG"L#6(13)(4)"OPENCRACKAWORD "F$::22:1::"SELECTION";::":":34,6:35,193!S1I!:ES10:ENENw!ISE:8IS:1:(IS65);". ";F$(I):I!22:12:W$:W$(10)W$(13)ĺW$;!W$" "4200!W(W$)64:W1WES1ĺ(7);:4060!8WS:4::F$(WS1): "70CKAWORD CATALOG,R0":N:F$(N):I1N:(13)(4)"READCRACKAWORD CATALOG,R";I:F$(I):I:(13)(4)"CLOSECRACKAWORD CATALOG" ::3:"SELECT THE WORD SET YOU WISH:":I140:5:I:(95):20:I:(95):I+!24:"PRESS THE SPACE BAR FOR FURTHER SETS";1,80X2,126:25,23:849,7:848:IW$" !"(34)" #":I15:WW$(W$,I,1):249,80:251,6I1:WW$:25,23:849,7:J110:848:J:J1100:J,I(13)(4)"BLOADCRACKAWORD CHARACTERS"} (13)(4)"OPENCRACKAWORD CATALOG,L20":(13)(4)"READCRA7,2277,1892,1892,2<FW$")*+":254,0:249,9:251,11:W$ePW$"%&'%(":254,0:249,80:251,5:W$ZW$"$,":249,129:251,14:W$dI11500:In0:I15:X1((1)21035):X2((1)21035):Y1((1)4280):Y2((1)4280)!x35,Y1259,Y2:X\.......................................W"\.......................................#\.......................................$\.......................................%\.......................................&\.............................................C\.......................................q\.......................................\.......................................\....................................... \.......................................)!./\.......................................]\.......................................\.......................................\.......................................\.......................................\.............................................I\.......................................w\.......................................\.......................................\.......................................\.............................................5 \.......................................c \....................................... \.......................................\.......................................\.......................................\.............................................O\.......................................}\.......................................\....................................... \....................................... \................................vK!1o1+3//8/x=//V1/€gI_/nOd/yXi/h"gn/&i(`08!`/'/?ة,161ku//10}./ޖ#1Z/d!/%*ܱ/'1{1xpw00x0wx0vp7`7 vssvww6667vw[7v3Xv7w;7v3v6@O@_Y@AY@OY@OY@AY@O@3lowno 6m7m7l6l6l &e&E|?~@``````@@p8HH8>`c3f`]56f`Z1v>`wwf`p7ff06>f06<<>~~f~~fff~~>f~>~fv~@@pp@@|Ap?~`|`|@?@?@?@?>>>>~?~?~?~?||w|w|wxwxcxc|cw@@p  #:::- $" PRESENT TENSE"I &" -------------"x (::"THE WORD 'PRESENT' MEANS THAT IT IS" *"HAPPENING NOW !!!":: ,"HERE IS AN EXAMPLE OF PRESENT TENSE" .:" THE BOY IS PEELING A POTATO !!!" 0:"THIS SENTENuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿ----------------------------"*)PRİ7508)S22510f)12:868:12::"<< SEARCHING >>"::VT2o):Z)FO0:I1NR)NA$:(NA$,1)(92)1040)SK0SK1ĭ(NA$,(S$))S$1075)II1(NA$)*$(NA$,II,(S$))S$FOFO1:1100:10 CHARACTER (SLOW)"^(14:868:20:"WHICH: ";SK$:SK(SK$):SK1SK2(SK$)1ĺ"":1007(:11:5:"PLEASE ENTER THE SEARCH KEY:":13:5:"";S$:S$""25000(PRİ700:" ":" "):1:" NAME PHONE NUMBER":"------------ON RECORD, AND PRESS 'RETURN' ";:"";S$G'HI11500:::I12000::'R:12:"THE PROGRAM AND DATA HAVE BEEN SAVED!!":40000'z40000' SEARCH '3000:OP11010(:9:5:"WOULD YOU LIKE TO SEARCH BY"::10:"1 WORD (FAST)":7:"OR 2 SLOW SEARCH &0OP0$&:25000>& ACTIVATE PRINTER H&SL:e& DE-ACTIVATE PRINTER n&0:&  END ROUTINE &*MF0890&4DISKĺ(4)"SAVE PHONE LIST":::22:976:40000''>:11:"INSERT A NEW TAPE INTO THE RECORDER, SET";:"...............................9% SET PRINTER SLOT C%SL1Z% DISK SYSTEM?? y%(994)(1001)192DISK1%DISKĺ(4)"NOMON C,I,O":% GET ADDRESS OF FIRST DATA STATEMENT %START((103)(104)256458):45995&& SET FAST/...........9$Y\.......................................g$Z\.......................................$[\.......................................$\\.......................................$]\.......................................%^\.............................................S#T\.......................................#U\.......................................#V\.......................................#W\....................................... $X\.............................................?"N\.......................................m"O\......................................."P\......................................."Q\......................................."R\.......................................%#S\..H\.......................................Y!I\.......................................!J\.......................................!K\.......................................!L\......................................."M\.............................................E C\.......................................s D\....................................... E\....................................... F\....................................... G\.......................................+!...1=\......................................._>\.......................................?\.......................................@\.......................................A\....................................... B\.............................................K8\.......................................y9\.......................................:\.......................................;\.......................................<\.............................................72\.......................................e3\.......................................4\.......................................5\.......................................6\.......................................7\.............................................Q-\........................................\......................................./\.......................................0\....................................... 1\.............................................='\.......................................k(\.......................................)\.......................................*\.......................................+\.......................................#,\....TER EDUCATION CENTRE 55: BY_5: LACHLAN ARNOTT 1988 5:************************* '+PRİ700:" ":" ":" ":" ":750m+22:868:"THAT'S ALL OF THEM! - PRESS 'RETURN' ";:"";S$:25000s++ GOT A FULL PAGE +22:958:"ENTER 'RTN' TO CONT - 'ESC' FOR MENU ";:T$+(T$(27)ġ:25000,2T$(13)Ģ3:1:958:VT3:75 *.II*3I:FO1200_*812:868:12::"<< NOT FOUND >>"::PRİ700:S14:" "::750}*B(7):I11500:I:25000*K*L GOT ONE! *NVTVT1:VT21PR1İ1300*PFO1Ģ12:868*QPRİ700*VVT:1:NA$*`PRİ750+tINRZ$:ZZ$"N"40500'4lZZ$:"RUN WW"F44:10:7::"'BYE NOW"::r4:*************************4: THIS VERSION 4: MODIFIED AND AUGMENTED 4: FOR THE 5:COMPUTER OF THE WORD IS PLACED IN THE ":"SPACE DENOTED BY..."::5:"4 ACROSS AND 6 DOWN.":12000g3bR3@::6::"ANOTHER GO AT THIS PROGRAM Y/N?"::ZZ$3ZZ$"Y"Ĭ3֜:6::"WOULD YOU LIKE A":"DIFFERENT PROGRAM...ON THIS DISC Y/N?":4ZRE PRINTED LAST !":120002DR3:"THE PRINTED FORM OF THE PUZZLE IS ":"DIFFERENT FROM THE ' EXPECTED ' FORM OF ":"A CROSSWORD PUZZLE."::"CLUES ARE GIVEN AS FOLLOWS..."2NR:5:"[ 4 , 6 ]":a3XR"THIS SYMBOLISM MEANS THAT THE FIRST ":"LET ":"CLUES.THE NUMBER OF CHARACTERS PER LINE ":"OF CLUE IS ALSO DEFINED BY THE USER.":1200010R2:"THE PROGRAM PRINTS THE PUZZLE INITIALLY ":"FOLLOWED BY THE CLUES IN THE ORDER ... "::15:"ACROSS":::15:"DOWN"2:R::"ANSWERS TO THE PUZZLE A** 0R:0R2:"THIS PROGRAM WILL CREATE A CROSSWORD. ":"THE PUZZLE IS RECTANGULAR IN FORM AND ":"WORDS OF VARYING LENGTH CAN BE USED."::"THE MAXIMUM LENGTH OF THESE WORDS IS SET":"BY THE USER."_1&R12:"EACH WORD HAS TWO LINES SET ASIDE FOR:"*";23);"*":X00/VJ15:7:X0125:"*";:X06/^JZ/_J10:9:"C O - O R D I N A T E"~/`J11:9:" C R O S S W O R D "/cJ12:9:" P U Z Z L E "/eJ13:9:" M A K E R ":/jJX012500:X0/tJ0R*** INFORMATION ROUTINE *:11000:*** YES/NO ROUTINE ***9.::(YN$,1)"N"15060[.::100:*** PROGRAM START ***{.:(4);"MAXFILES 3"::22016.:(1023)123ė:10:18:"E N D".:40000.8J*** TITLE ROUTINE ***.BJ:45995:8:7:X0125:"*";:X0/LJX0914:X0:72070%-/*** KEY DEPRESSED ***E-/15060:*** PROGRAM END ***i-&/*** KEY DEPRESSED ***-0/K$(13):R$K$12100-:/12030-D/:-:*** END ROUTINE ***-:::5-:10:"DO YOU WANT TO USE THIS PROGRAM AGAIN";:868:" ?";YN$.0,\+:10:3@,f+"I'M ASSUMING THAT YOU MEAN ' NO '":YN$"NO"Q,p+X12000:XW,z+s,.*** PAGING ROUTINE ***,.17:X15::X,.10:"PRESS TO CONTINUE",.23:5:"PRESS TO EXIT THIS PROGRAM ":23:39:R$-/K$(27):R$K$1R ANY YES/NO QUESTION IS ' YN$ ' ***P++*** YES/NO ANSWER CHECKING ROUTINE ***Y+ +MS0_+++ +(YN$,1)"N"(YN$,1)"Y"11130+*+MSMS1:MS211100+4+10:5:+>+"PLEASE ANSWER ' YES ' OR ' NO '"+H+,R+20:"PLEASE TRY AGAIN ! ";YN$:1104000*#(YN$,1)"Y"9000 *#@*'*** PRINTER ON ROUTINE ***Q*'(4);"PR#1"W*$'|*)*** PRINTER ' OFF ' ROUTINE ****)(4);"PR#0"*)*)*** 10 SECOND PAUSE ****)X003000:X0*)$+**** THIS ROUTINE ASSUMES THAT THE INPUT STRING FO5CS309140)#91707)#CS20:*** DEFAULT VALUE ***i)#:8:"YOU HAVE SET THE FOLLOWING VALUES ...")#12:5:"MAXIMUM WORD LENGTH IS ";WL;" AND"::5:"MAXIMUM CLUE LINE LENGTH IS ";CS"."*#18:"DO YOU WISH TO CHANGE EITHER OF THESE ";:YN$:1182(#"DO YOU WISH TO SET THE MAXIMUM NUMBER OF"q(#958:"CHARACTERS ALLOWED FOR EACH CLUE LINE ";YN$:11000(#(YN$,1)"N"9160(#15:"ENTER YOUR MAXIMUM CHARACTER LENGTH" )#17:958:"(IN THE RANGE 15 TO 30) ";CS$:CS(CS$):(CS)CS$CS17'F#10:958:"THE WORDS IN THE PUZZLE ? ";YN$:11000N'P#(YN$,1)"N"9080x'Z#15:"ENTER YOUR MAXIMUM WORD LENGTH"'d#17:958:"(IN THE RANGE 10 TO 20 ) ";WL$:WL(WL$):(WL)WL$WL10WL209060'n#9090'x#WL15:*** DEFAULT VALUE ***(#:Z1,3)B;" ]";& 5);A$(Z1)%& AS-& :S& "------------------------------"w& 10500:*** PRINTER ' OFF ' ***& :2:868& FACE255İ12000& 15000&(#*** PUZZLE PARAMETERS ***&2#:'<#8:"DO YOU WISH TO SET THE MAXIMUM LENGTH OF"%" -%, :"------------------------------"5%6 :H%@ "THE ANSWERS"[%J "-----------"c%T :q%^ "ACROSS"%h "------":%r AS1R%| R11AS2970% "DOWN"% "----":% Z11N% ASA(Z1,5)3000% Z1 & "[ ";A(Z1,2)A;" , ";A(2B34C$ Z31NA$ A(Z3,2)Z1A(Z3,3)Z2A(Z3,1)D2760K$ RR1Y$ A(Z3,5)Ry$ "[ ";Z1A;" , ";Z2B;" ]";$ 5);B$(Z3,0);" ";B$(Z3,1):$ 2770$ Z3$ Z2$ Z1$ D22850$ "DOWN"$ "----":$ D2$ R1R$ 2670# Z1B134C # AS12530)# Z803# 2540<# Z81c# Z9((Z1B)AS)Z8((Z1B)10)10p# " ";Z9;x# Z1~# # AS# :#( *** PRINT CLUES ***#2 "THE CLUES"#< :#F "ACROSS"#P "------"#Z #d D1#n Z1A131$x Z START ***"$ "[ ";9". C%(AS,Z2)0C%(AS,Z21)02380C"8 2390\"B *** WORD ENDING ***g"L "]X";"V C%(AS,Z2)0C%(AS,Z21)02420"` 2430"j *** LETTER DIVIDE IN PUZZLE ***"t "I ";"~ Z2" " AS" AS1019" BC1);# 3AS2210!CC1!AS*!ASA135DA!BC((ASA)9));R!1(ASA10)a!ASA;" ";p!Z2B34C!C%(AS,Z2)0C%(AS,Z21)02300!2310!*** BLACK SQUARES ***!"XX";! C%(AS,Z2)0C%(AS,Z21)02340! 2350 " *** WORD*** FIT PUZZLE INTO DEFINED AREA C% ***2 :? AS135L Z1134c C%(AS,Z1)02130k Z1} *A1AS2110 4AA1 >AAS2130 HDD1 RAS352210 \Z1135 fC%(Z1,AS)02210 pZ1 zB1AS2190 BB1!BY, I COULDN'T GET THEM ALL IN.":1980-:3Q*** HEADING YES/NO ? ***6:"WHAT HEADING DO YOU"::868:"WANT ON THE PUZZLE ? ";H$10000:*** PRINTER ' ON ' ***:2:16::"WORKING"::4:34,3:34(H$)2);:1:H$* &FS19400SS1:TS9D*** MAT C% = ZER ***cNNN035:NM035:C%(NN,NM)0:NM:NNoXAS1NbA(AS,1)0:A(AS,2)0:A(AS,3)0lASvA0:B0:C0:D0:H0:H10:R0:W0:X0:Y01280*** PUZZLE IS FINISHED ***%:3:"SORR36)rA(AS,2)A(Z1,2)Z22|A(AS,3)A(Z1,3)Z3:Z5R(A(Z1,1)1)01710`A(AS,1)1j1720xA(AS,1)21760Z3Z2Z1AST1AS1N:A(AS,1)0HH1ASH01960H1H1830H1H:H0:1340300C%(A(Z1,2)Z2,A(Z1,3)A(AS,4)Z3)017308Z4Q"Z5Z3A(AS,4)1Z3`,Z501670t6A(Z1,1)21640@C%(A(Z1,2)Z5,A(Z1,3)Z2)A(AS,Z5Z36)JA(AS,2)A(Z1,2)Z3TA(AS,3)A(Z1,3)Z2^1670hC%(A(Z1,2)Z2,A(Z1,3)Z5)A(AS,Z5Z1730,C%(A(Z1,2)Z31,A(Z1,3)Z2)01730ZC%(A(Z1,2)A(AS,4)Z3,A(Z1,3)Z2)01730d1560C%(A(Z1,2)Z21,A(Z1,3)Z4)01730C%(A(Z1,2)Z2,A(Z1,3)Z4)01730C%(A(Z1,2)Z21,A(Z1,3)Z4)01730C%(A(Z1,2)Z2,A(Z1,3)Z31)0176)A(Z1,Z26)1730RA(Z1,A(Z1,1)1)Z32A(Z1,A(Z1,1)1)A(AS,4)1Z3341730kZ4Z3A(AS,4)Z31zZ401560A(Z1,1)21510C%(A(Z1,2)Z4,A(Z1,3)Z21)01730C%(A(Z1,2)Z4,A(Z1,3)Z2)01730C%(A(Z1,2)Z4,A(Z1,3)Z21)0ğ:"WORKING OUT THE PUZZLE":,N015000=AS1A(T,4)X C%(17,12AS)A(T,AS5)`ASmA(T,1)1{(A(T,2)172A(T,3)13<ASTNFA(AS,1)01760PZ11NZA(Z1,1)01750dZ20A(Z1,4)1nZ30A(AS,4)1xA(AS,Z3$(AS,0);",";B$(AS,1)AS0D$;"CLOSE ";N$;216,0::8:"THE WORD LIST YOU HAVE JUST CREATED"::"CAN BE USED ONLY FOR CROSSWORD."14:"THE NAME OF THE LIST IS '";N$;"'."::10700*** WORD PLACEMENT ***::12:9: DISKETTE.":12000:1060`CCCC1:CC1ĺ"MAKE SURE THE DISKETTE IS IN PLACE"::"AND THE DRIVE DOOR IS CLOSED.":12000:1060j"I AM UNABLE TO USE THIS FILE.":12000:1060tD$;"WRITE ";N$~"CROSSWORD":N:WL:CSAS1NA$(AS);",";BAS1(FI)NAS$(FI)1250Q*** WRITING WORDS AND CLUES TO DISK ***Z$CC0l.216,0:11008D$;"OPEN ";N$B1140LER(222):216,0::17VER4CC0:"PLEASE REMOVE THE "::" WRITE-PROTECT":::"STICKER FROM THE EDGE OF THEDD0Ģ8:958:790e(B$(AS,DD))CSĢ20:"MAXIMUM LENGTH IS ";CS;" LETTERS PER LINE.":10700:890mDDA(AS,4)(A$(AS))Z11(A$(AS))C8$(A$(AS),Z1,1)P9164C9$(P9)C8$1000P9A(AS,Z15)P91Z1AS:AS WORD LENGTH IS ";WL;" LETTERS.":10700:7906H958VR*** ENTERING THE CLUES ***v\*** A CLUE = B$(AS,DD) ***f11:"CLUE"pDD01z133DD:958:4:DD0Ą"FIRST LINE: ";B$(AS,DD):910"SECOND LINE: ";B$(AS,DD)B$(AS,DD)""*** ENTER THE WORDS ***< *** A WORD = A$(AS) ***}8:958:"WORD #";AS;:": ";A$(AS):A$(AS)""ASAS1:1030 I8(A$(AS)):L22I8:(A$(AS),L2,1)" "A$(AS)(A$(AS),L21)(A$(AS),L21)*L24(A$(AS))WL840,>11:"MAXIMUM TEXT WINDOW ***=9000:*** PUZZLE PARAMETERS ROUTINE ***QT1:ST:FT:R0YD0(FI)N60:1:"PRESS WHEN YOU HAVE FINISHED EACH LINE":4:"PRESS WHEN ASKED FOR A WORD TO FINISH...":8:34,6AS1N(FI)940.":12000:17:958:550+NN$N$".XWORD">SD$;"OPEN ";N$IX216,0\bD$;"READ ";N$glTS$""qv670TS$:216,0D$;"CLOSE";N$216,0:D$:17:"SORRY, YOU CAN'T USE THAT NAME.":12000:490216,0:*** MESSAGE ABOVE58:(YN$,1)"N"700910:"WHAT DO YOU WANT TO CALL "Z12:958:"THE FILE ? ";N$iN$""530z&216,0:5700590:ER(222):216,0:ER13660D17:"PLEASE REMOVE THE "::"WRITE-PROTECT":::"STICKER FROM THE EDGE OF THE DISKETTE0`216,0:D$:10:958:"'";N$;"' ISN'T ON THIS DISK.":D$;"CLOSE ";N$:D$;"DELETE ";N$:270v(YN$,1)"Y"710*** ESTABLISHING A FILE CALLED ' N$ ' ***4:"DO YOU WANT THE WORDS AND CLUES SAVED AS ":"A FILE ? ";YN$:1100092:9::"CHOOSING RANDOM WORDS"::ND470D1D:X81N:R((1)(D1X8)):RDR:T$A$(R):A$(R)A$(X8):A$(X8)T$:T$B$(R,0):B$(R,0)B$(X8,0):B$(X8,0)T$:T$B$(R,1):B$(R,1)B$(X8,1):B$(X8,1)T$:X8TSN1D:A$(TS)"":B$(TS,0)"":B$(TS,1)"":TS:47|TS1D:A$(TS),B$(TS,0),B$(TS,1):TS: D$;"CLOSE";N$ :3:"THERE ARE ";D;" WORDS IN THIS LIST. HOW"::"MANY DO YOU WANT IN THE PUZZLE?" MAXD:D60MAX60 7:868:"(1 - ";MAX;:") ?";AC$:N((AC$)):N1NMAX(N)AC$420*::1216,0:ER13Ģ17:868:"'";N$;"' IS NOT A WORD LIST.":260q T:17:868:"'";N$;"' ISN'T ON THIS DISK.":260 ^216,0:460 hTS$:216,0:TS$"CROSSWORD"ĺD$:10:958:18:"SORRY, I CAN'T USE '";N$;"'.":D$;D$;"CLOSE ";N$:270 rD:WL:CS' ST"::868:"ALREADY ON THIS DISK? ";YN$:11000N (YN$,1)"N"FI0::480W "FI1 ,13:"WHAT'S THE NAME OF THE LIST? ";N$:N$""Ģ13:958:270 6958:216,0:330 ;N$N$".XWORD" @D$;"OPEN ";N$:216,0:D$;"READ ";N$:350< JER(222):&","$","*","(","%",AT","?","!",",","AT"\ "0","1","2","3","4","5","6","7","8","9","",";"t "/",".","AT","AT" C9$(64) P9164 C9$(P9) P9 A$(100),B$(100,1),A(60,20),C%(35,35) D$(13)(4):ZM24:0 8:"IS YOUR WORD LI1" n28000 x255:* D$(13)(4)L :ZM24:(4);"NOMON C,I,O": "AT","[","]","#","AT"," ","A","B","C","D","E","F" "G","H","I","J","K","L","M","N","O","P","Q","R" "S","T","U","V","W","X","Y","Z",")","-","+","<"' "=",">","-/ *** WRITTEN FOR APPLE BY A.D.SALVAS. ***g(*** ASSOCIATED PROGRAMS AND FILES : TEXT FILES ***2*** TEXT FILES ARE USER DEFINED ***<19000:*** TITLE ROUTINE ***F12000P21000:*** INFORMATION ROUTINE *** d(13);(4);"MAXFILES                              ING":"2 LIST THE ENTIRE FILE"S9b"3 ENTER NEW LISTINGS":"4 DELETE A LISTING"9 b"5 EDIT A LISTING":"6 PRINTER ON/OFF"9b"7 EXIT THIS PROGRAM":32,0:9 b32,0:9*b22:20:868:"WHICH: ";S$:S(S$)94bS1S7ĺ(7):25130:>bS1000,S";48a:"ROOM FOR "(150NR)" ADDITIONAL LISTINGS"]8a8:"THE PRINTER IS";:PRĺ" OFF";8aPRĢ9:" ":250708a" ";::" ON ":8a10:"YOU MAY CHOOSE FROM THE FOLLOWING:":32,5::9a"1 SEARCH FOR A LIST7]7a MAIN MENU -7a:NR:NRNR1000g7a::1:"----------------------------------------";:7a" APPLE PERSONAL TELEPHONE DATABASE ";::"----------------------------------------"8a"PROGRAM CURRENTLY CONTAINS "NR" LISTING";:NR1ĺ",1)"N"İ50706"":602066 GO EDIT THE LINE P6:8:NN$:4020:4360[625000{6 REMOVE CONTROL CHARS. 6B$""6(A$)ı6I1(A$)6((A$,I,1))26B$B$(A$,I,1)6I66] PRINTER ON/OFF 6]PRPR:25050 EDIT A DATA LINE !5z:30005|:10:"PLEASE ENTER THE NAME OF THE PARTY WHOSE";:"LISTING YOU WISH TO EDIT AND PRESS":"'RETURN'.":5020513:868:"DO YOU WISH TO EDIT THIS DATA (Y/N) ";S$:S$""250005(S$,1)"Y"NN$NA$:6050 6(S$UU14:11:NA$:S5ıg4 13:868:"DO YOU WISH TO DELETE THIS DATA (Y/N) ";S$:(S$,1)"Y"52004(S$,1)"N"ĺ"":5130450814P OK THEN, KILL IT! 4ZUD1:42504dCU(START((LN201)46))4nCU,((92))4x4450:250005p&314:"-> ";K$:K$""S5ġ:2500073K$""25000T3 FIND AN EXACT MATCH b3:Z:UU13NA$:(NA$,(K$))K$51003(NA$,1)(92)UUNR50703UUUU13UUNR50703:250003 FOUND A MATCH 4LN(123)(124)256:UUCU(CU39)&2DI,((NN$,I1CU,1)):?2b SET UPDATE FLAG W2lMFMF1:S4S5ıb2v25000h22 DELETE DATA CONTENTS 2:30003:10:"PLEASE ENTER THE NAME OF THE PARTY YOU":"WISH DELETED FROM THE DIRECTORY AND":"PRESS 'RETURN'.":TTUD:CU(START11)-1T$(T):I1(T$)H1(CUI),((T$,I,1)):S1S4ıq1 FIND EMPTY DATA LINE 1T$:(T$,1)(92)43101LN(123)(124)2561 CALCULATE OFFSET 1CU(START((LN201)46))10 POKE DATA LINE 2:I:(S$,1)"Y"4180006(S$,1)"Y"S5ġ:6000M0@(S$,1)"N"ĺ"":4100W0J4000e0OS54200s0TS54200}0^UD10h PAD TO 40 CHARACTERS 0rI(NN$)(39(NP$)):NN$NN$".":0|NN$NN$NP$:S5ı0 UPDATE DATA NUMBER 1:T25000/NP$""Ĺ32,0:250009/(NP$)12ĺ"":4050T/ IS ENTRY CORRECT? /::8:"HERE IS THE ";::"NAME";::" ENTRY:":10:14:NN$/12:"AND THE ";::"PHONE NUMBER";::":":14:14:NP$0,18:8:868:"ARE THEY CORRECT (Y/N) ";S$UM.)"?.14:"-> ";A$:6100:NN$B$:NN$""S5Ĺ32,0::25000X.NN$""Ĺ32,0:25000r.(NN$)25ĺ"":4020.10:958:"ENTER NEW NUMBER THEN PRESS 'RETURN'.":"(USE THE FORMAT: XXX XXX XXXX)"/13:"-> ";A$:6100:NP$B$:NP$""S5Ĺ32,0::N FILE >>"::I12000:I::25000*- B- ENTER LISTINGS -:NR150Ģ12:12:"DATA TABLE FULL!":I12000::25000.32,3:10:958:"ENTER NEW NAME AND PRESS 'RETURN'.":"(USE NO COMMAS, COLONS OR QUOTES.":"TWENTY-FIVE CHARACTERS, MAXIM,<(7):1300, /, LIST EVERYTHING 9, 3000C, 1012L, :Zc, VT2:FO0:I1NR, NA$:(NA$,1)(92)INR2540, 1100, VT22VT2:3:958, I, 1200, IS DATA FILE EMPTY? $- ::NR0Ģ12:9::"<< NO NAMES O040Z,1)"0"1116$[(WA$,3,1);8\(WA$,4,1);"."B]10401SSED QUESTION ";)C(WA$,1,1)"0"1093:D(WA$,1,1);NE(WA$,2,1);"."XL1040xV:"YOU MISSED QUESTIONS ";W(WA$,1,1)"0"1113X(WA$,1,1);Y(WA$,2,1);" AND ";Z(WA$,3,1)"0"1116[(WA$,3,1);\(WA$,4,1);"."]110(WA$,WA,1);-(WA$,WA1,1);", ";3@"AND ";`(WA$,(WA$)1,1)"0"1033x(WA$,(WA$)1,1); (WA$,(WA$),1);"."15:"COME BACK SOON......""RUN MENU"$"YOU GOT 1 QUESTION RIGHT".9808B:"YOU MIM...ON THIS DISC Y/N?":16ZZ$:ZZ$"N"40500<6l1370[64:10:7::"'BYE NOW"::5ZZ$"Y"ĬY5֜:6::"WOULD YOU LIKE A":"DIFFERENT PROGRAM...ON THIS DISC Y/N?":q5ZZ$:ZZ$"N"40500|5l137054:10:7::"'BYE NOW"::GO AT THIS PROGRAM Y/N?"::ZZ$5ZZ$"Y"Ĭ6֜:6::"WOULD YOU LIKE A":"DIFFERENT PROGRADATA"(34)C$(Q3)(34)","(34)D1$(Q3)(34)/4: =4D "SAVE ";H4N FILE$h4X "LOAD ACHIEVEMENT BUILDER"x4b "RUN 1230"4l D$"CLOSE RETRIEVE TESTER"4v D$"EXEC RETRIEVE TESTER"4 "RUN HELLO2"4@::6::"ANOTHER GO AT THIS PROGRAM Y/N?"::ZZ$"RUNWW")34:10:7::"'BYE NOW":::IEVE TESTER"R3 "LOAD ";FILE$k3 "19 DATA ";Q;",";Q13 Q217Q5319Q333 Q3Q313 Q2"DATA"(34)Q$(Q3)(34)","(34)CA$(Q3)(34)3& Q21"DATA"(34)A$(Q3)(34)","(34)B$(Q3)(34))40 Q22"N 1230"&2l D$"CLOSE RETRIEVE TESTER"D2v D$"EXEC RETRIEVE TESTER"K2 2@::6::"ANOTHER GO AT THIS PROGRAM Y/N?"::ZZ$2ZZ$"Y"Ĭ2֜:6::"WOULD YOU LIKE A":"DIFFERENT PROGRAM...ON THIS DISC Y/N?":2ZZ$:ZZ$"N"40500 3lZZ$:Q217Q5319Q331 Q3Q31Q1 Q2"DATA"(34)Q$(Q3)(34)","(34)CA$(Q3)(34)1& Q21"DATA"(34)A$(Q3)(34)","(34)B$(Q3)(34)10 Q22"DATA"(34)C$(Q3)(34)","(34)D1$(Q3)(34)1: 1D "SAVE ";1N FILE$1X "LOAD ACHIEVEMENT BUILDER"2b "RU(Q1)(D1$(Q1),X1)(91)0 K0 :"ANSWER, HOLD DOWN THE CTRL KEY AND"q0 D$(4):D$"OPEN RETRIEVE TESTER"0 D$"DELETE RETRIEVE TESTER"0 D$"OPEN RETRIEVE TESTER"0 D$"WRITE RETRIEVE TESTER"0 "LOAD ";FILE$0 "19 DATA ";Q;",";Q11 $(Q1),X1)":"(D1$(Q1),(D1$(Q1))X)t/ (D1$(Q1),X,1)(2)D1$(Q1)(D1$(Q1),X1)(91)(D1$(Q1),(D1$(Q1))X)z/ / (D1$(Q1),X,1)(5)D1$(Q1)(D1$(Q1),X1)","/ (D1$(Q1),X,1)(18)D1$(Q1)(D1$(Q1),X1)":"0 (D1$(Q1),X,1)(2)D1$),X,1)(2)C$(Q1)(C$(Q1),X1)(2)b.T (D1$(Q1),1)(2)D1$(Q1)(91)(D1$(Q1),(D1$(Q1))1)v.^ X2(D1$(Q1)).h X(D1$(Q1))2970.r (D1$(Q1),X,1)(5)D1$(Q1)(D1$(Q1),X1)","(D1$(Q1),(D1$(Q1))X)&/| (D1$(Q1),X,1)(18)D1$(Q1)(D1MODIFIED AND AUGMENTED ;(: FOR THE h(:COMPUTER EDUCATION CENTRE (: BY(: LACHLAN ARNOTT 1988 (:************************* TZ: FOR THE :COMPUTER EDUCATION CENTRE : BY +'4 TITLES STARTUP='9 ROUTINEF';KK0`'>(47721)123Č1401f'C'`AX16336:S120:SOUND(AX)(AX)(AX):S:':*************************': THIS VERSION (: ....":23::"PRESS RETURN TO PROCEED";XZ$:d&@::6::"ANOTHER GO AT THIS PROGRAM Y/N?"::ZZ$u&:ZZ$"Y"Ĭ&֜:18::"WOULD YOU LIKE A":"DIFFERENT PROGRAM...ON THIS DISC Y/N?":&ZZ$::ZZ$"Y"ĺ"RUN WW"'4:10:7::"'BYE NOW"::4075%5:"GOOD WORK, ";Z$N%7:"YOU GOT ";M;" PROBLEMS RIGHT OUT OF 10"%15:"WOULD YOU LIKE TO TRY SOME MORE PROBLEMS?"%"TYPE Y OR N":15:42:C$% C$"Y"345%C$"N"4045,&::"THANKS FOR WORKING WITH ME TODAY. SEE YOU LATER$ SORRY TRY AGAIN, NOT QUITE RIGHT TRY AGAIN, WHOOPS!!!, DARN MISSED IT, SHUCKS TRY AGAIN$ SORRY NOT QUITE RIGHT, WHOOPS MISSED IT, DARN TRY AGAIN, GOOD TRY BUT NOT QUITE RIGHT, SORRY YOUR ANSWER IS NOT CORRECT$:: GIVE NUMBER RIGHT%M8#sRR13995##}Y%(9)25598#Y%1Y%103965I#Y%X%3965O## THAT'S RIGHT, GREAT!!! RIGHT AGAIN, GOOD WORK!!!!, WOW!!!!!, SUPER RIGHT AGAIN# GOOD JOB, YOU'RE A GOOD WORKER, RIGHT ON TARGET, NICE WORK!!!!!, RIGHT!! YOU DID IT\:"IT IS ";PP"PP0"50%"8" SQUARE/ AREAA":7M"I839Z"11,29Ia"#Ig"-|"7 RECTANGLE/AREA"A:9"K SUBROUTINE TO PRODUCE RANDOM NUMBERS WHICH ARE NOT EQUAL"UX%(9)2559"_RR1X%43925#iX%1X%10392512 !3:12!=3,519%!G3,5232!Q19,231?![19,233L!e19,235R!od!yU%(9)2556y!U%1U%103705!21:868!R$(U%)!:50!!W%(9)2556!W%1W%103765!21:868!22:W$(W%)!PP0PPP%"23P C 5 M 19,211" W 19,213/ a 19,215; k 1,319G u 1,521M  Z 9 SIDEa 5m 1,319y 1,321 1,323 19,211 19,233 12 :12 21,231 21,235 1,519 1,521 1,523 !)S 2,521] g 7 SIDE$q 60{ 1,319= 19,233C O 8 TOPW 10d 19,211q 19,213~ 19,215 1,519 1,521  8 SIDE 10 1,319 1,321 1,323 19,231% 19,233/  9 9 TO 1,321m 1,323w 1,20( 3,22. : 6 TOPA 5N 19,211[ 19,213h 19,215t 1,519 3,521  6 SIDE 5 1,319 1,321 1,323 19,231! 21,233+ 5 7 TOP? 6I 19,211 Z$:ZZ$"N"40500#l"EXEC WB":B4:10:7::"'BYE NOW"::S:s } 4 TOP 11% 19,2131 1,319= 2,521C P 4 SIDEX 11d 1,321q 19,211~ 20,233  5 TOP 9 19,211 19,213 19,215' 1,3191 3,521; E 5 SIDEO 9Y 1,319c  3,519  2 SIDE' 123 1,319? 1,321K 1,323X 19,213e 21,231k w 3 TOP 10 19,211 19,213 19,215# 1,521- 7 3 SIDEA 10K 1,319U 1,321_ 1,323i 19,233";P$:P(P$):P0P$"0"1945-PPX%X%2CPPPMM1:3705TPPPİ3765[Ie4045kw 1 TOP 14 1,519 ) 1 SIDE3 14= 19,231G Q 2 TOP[ 12e 19,211o 19,213y 19,215 1,3213925PX%2305,2385,2545,2685,2805,2965,3125,3225,3385,3545X%2345,2465,2615,2745,2885,3045,3175,3305,3465,362526,288:8,306YT29TY829:YTYT1:YT,TY:TY21:"ENTER THE AREA AND PRESS ":"  8,32128,3228&!12,2884+12,2832521:"ENTER THE AREA AND PRESS ":"";P$:P(P$):P0P$"0"1775?P%X%Y%IPP%MM1:3705SPP%İ3765]Ig4045q FORMULA AREA/TRIANGLE P% = X% * X% /2{I110P%MM1:3705 PP%İ3765'I14045_ FORMULA FOR AREA/RECTANGLE P% = X% * Y%kI110uRR1{3925X%2305,2385,2545,2685,2805,2965,3125,3225,3385,3545Y%2345,2465,2615,2745,2885,3045,3175,3305,3465,3625* X%I110' 13925&;`EX%2305,2385,2545,2685,2805,2965,3125,3225,3385,3545hO14uY11,298c11,2935m8,3511w8,352921:"ENTER THE AREA AND PRESS ":"";P$:P(P$):P0P$"0"1595P%X%X%P7,1528,1629,17%30,18031,19;32,20H8,322021:"ENTER THE PERIMETER AND PRESS ";P$:P(P$):P0P$"0"1205P%3X%PP%MM1:3705PP%İ3765I 4045 FORMULA AREA/SQUARE P% = X% 545,2685,2805,2965,3125,3225,3385,3545-2720,8A19,9L18,10W17,11b16,12m15,13x14,1413,15#12,16-11,17710,18A9,19K8,20U21,9_22,10i23,11s24,12}25,1326,142CTER":ZZ11000:ZZ::22:"PRESS THE CHARACTER YOU WANT DISPLAYED"gDu::"PRESS TO EXIT"::@::6::"ANOTHER GO AT THIS PROGRAM Y/N?"::ZZ$ZZ$"Y"Ĭ֜:6::"WOULD YOU LIKE A":"DIFFERENT PROGRAM...ON THIS DISC Y/N?":ZIN,Y3IN:IN:970PX,YX8,Y:X,Y10X8,Y10:IN08:XIN,Y1IN:IN:9700:IN08:XIN,YXIN,Y10:IN:3:XXX1:YYY1:9700uMM0300104u:22:"PRESS THE CHARACTER YOU WANT DISPLAYED":D:u:23:"I DON'T RECOGNISE THAT CHARAIN,YIN:IN:970cX,YX,Y10:X8,YX8,Y10:IN14:XIN,YIN:X8IN,YIN:IN:X4,Y5:970X,Y:X,Y10:X8,Y:X8,Y10:IN08:XIN,Y1IN:XIN,Y9IN:IN:970X,Y7X,Y10:X8,Y7X8,Y10:X4,YX4,Y3:IN13:X4IN,Y3IN:X4:X1,Y6:X1,Y9PpX7,Y1:X7,Y4:X7,Y9:X8,Y2X8,Y3:X8,Y8:970zzX4,YX4,Y10:X,Y10X8,Y10:970X,Y2X,Y10:X8,Y2X8,Y10:X2,YX6,Y:X1,Y1:X7,Y1:970X,Y4X,Y10:X8,Y4X8,Y10:IN04:X4IN,YIN:X410:X7,Y1?HX7,Y9:X8,Y8X8,Y2:X8,Y:X6,Y2:970RX,YX,Y10X6,Y10:X,Y5X6,Y5:X7,Y6:X7,Y9:X8,Y8X8,Y7\IN15:X3IN,Y5IN:IN:970fX2,YX6,Y:X2,Y5X6,Y5:X2,Y10X6,Y10:X,Y2:X,Y7X,Y8:X1,Y10M X,Y2X,Y8:X1,Y9:X1,Y1:X2,YX6,Y:X2,Y10X6,Y10:X7,Y1p*X7,Y9:X8,Y8X8,Y2:9704X,YX,Y10X6,Y10:X,Y5X6,Y5:X7,Y6:X7,Y9:X8,Y8X8,Y7:970 >X,Y2X,Y8:X1,Y9:X1,Y1:X2,YX6,Y:X2,Y10X6,YPX,YX,Y10:X1,Y5X3,Y5:IN15:X3IN,Y5IN:X3IN,Y5IN:IN:970kX8,YX,YX,Y10:970 X,YX,Y10:X8,YX8,Y10:IN03:X4IN,Y6IN:X4IN,Y6IN:IN:X4,Y5:970X,YX,Y10:X8,YX8,Y10:IN17:XIN,Y9IN:IN:97:X2,Y10X6,Y10:X7,Y1:X7,Y9:X8,Y8:X8,Y2X8,Y4X5,Y4:Q970X,YX,Y10:X8,YX8,Y10:X1,Y5X7,Y5:970X2,YX6,Y:X2,Y10X6,Y10:X4,YX4,Y9:970X2,Y10X8,Y10:X5,Y9X5,Y1:X4,YX1,Y:X,Y1:97070lX,YX,Y10:X1,Y10X5,Y10:X1,YX5,Y:X6,Y1:X6,Y9:X7,Y2:X7,Y8:X8,Y3X8,Y7:970X8,YX,YX,Y10X8,Y10:X1,Y5X6,Y5:970X,YX,Y10X8,Y10:X1,Y5X6,Y5:970HX,Y2X,Y8:X1,Y9:X1,Y1:X2,YX6,YN:970X,YX,Y10:X1,Y10X6,Y10:X1,Y5X6,Y5:X1,YX6,Y:X7,Y1:X7,Y4:X7,Y6:X7,Y9:X8,Y2X8,Y3:X8,Y7X8,Y8:970X,Y2X,Y8:X1,Y9:X1,Y1:X2,YX6,Y:X2,Y10X6,Y10:X7,Y1X7,Y9:X8,Y8:X8,Y2:9:9705bIN16:XIN,Y1IN:XIN,Y11IN:IN:970lX1,Y9:X2,Y10X6,Y10:X7,Y9:X7,Y8:X6,Y7:X5,Y6:X4,Y5X4,Y2:X4,Y:970vX,YX8,Y:970X,YX,Y6:X8,YX8,Y6:X1,Y4X7,Y4:IN14:XIN,Y6IN:X8IN,Y6IN:I:970R:X3,Y2X3,Y3:X3,Y6X3,Y7:X4,Y2X4,Y3:X4,Y6X4,Y7:970DX3,Y2X3,Y3:X3,Y6X3,Y7:X4,Y2X4,Y3:X4,Y6X4,Y7:X2,Y:X3,Y1:970NIN16:XIN,Y6IN:XIN,Y4IN:IN:970XX,Y3X8,Y3:X,Y6X8,Y6IN:X6IN,Y5IN:X6IN,Y5IN:X6IN,Y10IN:INnX3,YX5,Y:X3,Y5X5,Y5:X3,Y10X5,Y10:970&X,YX4,Y:X3,Y10X5,Y10:X3,Y4X8,Y4:X8,Y7X8,Y30IN02:XIN,Y6IN:XIN,Y8IN:X6IN,Y10IN:X5IN,YIN:IN:X,Y73,Y10X8,Y10:X8,Y3:X3,YX5,YqIN02:XIN,Y7IN:XIN,Y2IN:X6IN,YIN:X6IN,Y6IN:IN:970X,Y10X8,Y10:X3,YX3,Y4:IN15:X3IN,Y4IN:IN:9704IN02:XIN,Y2IN:XIN,Y3IN:XIN,Y7IN:XIN,Y8IN:X6IN,YXIN1,Y3IN:X5IN,Y1IN:IN:970fX,Y4X8,Y4:X6,YX6,Y10:IN15:XIN,Y4IN:IN:970X6,Y6X,Y6X,Y10X8,Y10:X3,YX5,Y:X8,Y3:IN13:X5IN,Y7IN:X5IN,Y1IN:X1IN,Y3IN:IN:970&X,Y3X,Y6:X,Y6X5,Y6:X3,Y9:X2,Y8:970X,YX8,Y:X3,Y4X5,Y4:X3,Y10X5,Y10:IN13:XIN1,Y7IN:X5IN,Y11IN:XIN1,YIN:X5IN,Y3IN:IN:X8,Y7:970%X,Y10X8,Y10:X4,Y6X5,Y6:X3,YX5,Y:X8,Y3:IN13:X4IN,Y6IN:X5IN,Y7IN:& X2,YX2,Y1:X3,YX3,Y1:970R X1,Y5X7,Y5:X4,Y2:X4,Y8:970 X,Y2X,Y8:X1,Y9:X1,Y1:X2,YX6,Y:X2,Y10X6,Y10:X7,Y1 X7,Y9:X8,Y8X8,Y2:IN16:X1IN,Y1IN:IN:970X1,YX7,Y:X4,YX4,Y10:X4,Y9:X5,Y:X5,Y10:970X hX5,Y2X5,Y8:X3,Y:X3,Y10:X4,Y1:X4,Y9:970 rIN19:XIN1,YIN:XIN1,Y10IN:IN:970 |X,Y5X8,Y5:X4,Y1X4,Y9:970 X2,Y:X3,Y1X3,Y3:X4,Y2X4,Y3:970 X1,Y5X7,Y5:97090,500,520,530,550,570,580/ ,LL20:L20320 6L590,600,610,620,630,640,650,660,680,690,700,710,730,740,750,760,770,780,790,800 @LL20:L11340 JL820,830,850,870,890,900,910,920,930,940,950 T30000:970 ^X3,Y2X3,Y8:X4,Y1:X(13)10+ X250X1:YYY1:Y18YY81 I L$" "XXX1:970Z L$(8)960~ X250X1:YYY1:Y115YY14 Y150đ:Y10 L$"("340 L(L$)39 L20300 "L350,360,370,380,390,400,410,420,430,450,460,470,480,4.":X114:Y10:MM0- 180:24:X1:Y14::3S FMMMM1::"PRESS TO EXIT";m PL$::L$(27)40000 dL$(13)X1:YY114Y:80 nXXX1:YYY1 xL$(8)XXX1:YYY1 200:80 20:"PRESS TO START...":L$ L$щC140::::ZZ14:6:"TYPE LARGE LETTERS AND SYMBOLS"::ZZ:255:8:3:"THIS PROGRAMME IS DESIGNED TO":3:"DEMONSTRATE KEYBOARD SYMBOLS ":3:"AND IS USEFUL FOR THE TEACHING":3:"OF PRE WORD-PROCESSING SKILLS." 3:"KEEP CAPS LOCK DOWN            32TQ21:"ENTER THE PERIMETER AND PRESS ";P$:P(P$):P0P$"0"1025e[P%2X%2Y%{ePP%MM1:3705oPP%İ3765yI4045 FORMULA PERIMETER/TRIANGLE P% = 3 * X%I1103925&X%2305,2385,2RIMETER/RECTANGLE P% = 2 * X% + 2 * Y%2I110<RR1BL3925R X%2305,2385,2545,2685,2805,2965,3125,3225,3385,3545Y%2345,2465,2615,2745,2885,3045,3175,3305,3465,362514)8,321238,3228=12,288G12,28,2805,2965,3125,3225,3385,3545&a123k11,298Au11,2935N8,3511[8,352921:"ENTER THE PERIMETER AND PRESS ";P$:P(P$):P0P$"0"845P%4X%PP%MM1:3705PP%İ3765I4045& FORMULA PER AREA/RECTANGLE!D$"T"1905A PROGRAM FOR AREA/TRIANGLE[ VALIDITY STATEMENT d625 M = COUNTER FOR NUMBER OF PROBLEMS ATTEMPTED% FORMULA PERIMETER/SQUARE P% = 4 * X%/I1109C3925MWX%2305,2385,2545,2685:2:"YOU MAY SELECT ONE OF THE FOLLOWING"D12:5:"S - SQUARE";a14:5:"R - RECTANGLE";16:5:"T - ISOSCELES RIGHT TRIANGLE"24:"TYPE S, R, OR T - ";:D$D$"S"1555 PROGRAM FOR AREA/SQUARED$"R"1725 PROGRAM FO"R"975/5 6000 PROGRAM PERIMETER/RECTANGLE@?C$"T"1165eI 8000 PROGRAM PERIMTER/TRIANGLES 630 IS VALIDITY STATEMENT]435gIOPq: BEGINNING AREA PROGRAM{2:12::"HELLO ";Z$4:10:"WELCOME TO AREA LAND"*6ERIMETER LAND"?6:2:"YOU MAY SELECT ONE OF THE FOLLOWING"Y12:5:"S - SQUARE";v14:5:"R - RECTANGLE";16:5:"T - EQUILATERAL TRIANGLE" 24:"TYPE S, R, OR T - ";:C$C$"S"805! 4000 PROGRAM FOR PERIMETER/SQUARE+C$WITH, ";Z$;"?"+ w10:5:"P - PERIMETER";C 12:5:"A - AREA";b 20:"TYPE P OR A - ";:B$r B$"P"435 B$"A"625 355 : BEGINNING OF PERIMETER PROGRAM 6:16:" ";Z$ 2:12::"HELLO ";Z$ 4:7:"WELCOME TO PARIABLE Z$ = NAME OF STUDENTI 123:"TYPE YOUR NAME AND PRESS "o ;12:8:"WHAT IS YOUR NAME? ";Z$~ EZ$""295 O TO DETERMINE WHAT SECTION, AREA OR PERIMETER THE STUDENT WANTS TO WORK OF YM0 c m6:"WHICH DO YOU WANT TO WORK 10:R$(I):I" I110:W$(I):IC 8:11:"PERIMETER AND AREA"U 10:19:"OF" 12:4:"SQUARES - RECTANGLES - TRIANGLES" 23:"PRESS TO CONTINUE OR TO END";:CN$ (CN$)2740000 (CN$)13ľCN$:275  ': VO CONTINUE: VARIABLE B$ = CHOICE OF AREA OR PERIMETERo VARIABLE C$ = SELECTION OF SHAPE FOR PERIMETER VARIABLE D$ = SELECTION OF SHAPE FOR AREA 0 LOOP TO START PROGRAM 6:11:"DRILL AND PRACTICE" R$(10),W$(10) I1R PLAYING!!!":"RUN MENU"" 8:? K VARIABLE P = PERIMETERW U VARIABLE A = AREAp _ VARIABLE S= SQUARE i VARIABLE R = RECTANGLE s VARIABLE T = TRIANGLE } VARIABLE Z$ = NAME OF STUDENT STUDENT WILL BE INSTRUCTED TO PRESS RETURN T 259700: STARTUP F TITLE PAGEf ==============l#t-75224:"PRESS TO GO ON, TO END ";4IN$:(IN$)1526(IN$)13(IN$)2752 7(IN$)27ĺ:::12:"THANKS FO          ӠԍӍҠǍz"#??    Ӄ( ĠҠǠ̦Ӄ Ã/ ă6 ЦŃ" ƒ  ă Ġ٠ĠӠĠűĠŲĠǠĠӠĠӠԠחנ ̃)̓!ӃĠŠ*********************************"N"CONGRATULATIONS!!!! YOU HIT A BINGO."_I13000:Im:WIN1:100:WR0:CT0:ER0:DI6:WIN0A1((1)13):B1((1)7)DICTCT1:ER0!$21:15)A1" X ";B1" = ";:C$:C$""1060%(COR 'O' 265,3532:5,3538:33,375:33,3735_5,3533:5,3539:33,376:33,3734oX1200:X768,152:769,80:770768,128:769,160:770768,152:769,40:770768,144:769,80:770768,128:769,200:770""******k8,p5,3512:5,3513:5,3518:5,3519Wr5,1114:10,1615:15,2116:20,2617nt GRAPHICS FOR 'G'uu4z5,3522:5,3523:5,1029:5,1028:25,3528:25,3529:24,275:24,276:24,2734:24,2735|26,2923:26,2924~ GRAPHICS F768,152:769,40:770/ Z768,144:769,80:770J [768,128:769,200:770w \5,350:5,351:6,167:19,347:5,356 ^0,65:0,76:0,635:0,734 _0,517:0,518 `5,75:16,195:33,355 a6 f5,359:5,3510 j GRAPHICS FOR 'N'2210 202 O,(O3)P0 O,(O3)(P1)C O,(O3)(P2)X O,(O3)(P3): ,23:"PRESS FOR THE NEXT PROBLEM.";:IN$::(IN$)13300 . T GR FOR 'BINGO' V W:1:768,152:769,80:770 X768,128:769,160:770 Y3,373 36,370! 35,3719/ 35,3714= 32,3515K 31,3515Y 31,3518g 16,1729u 16,1730 16,1733 RANDOM FILL-IN OF BINGO SQUARES HUE11:HUE O(((1)5).4)5 P(((1)5)1.8)5 P2,O3)11 }29,3722 ~29,3727, 38,3933: 38,3935R 29,3729:29,3732j 34,3637:34,3629 30,3230:31,3331 22,2537 29,3734 34,3632 'A FIVE' 0,329:0,337:0,332 30,320:34,363:36,370 3LOR FOR BINGO SQUARES # d:::2: jA932:2,26A:AZ l LINES FOR BINGO SQUARES b n15{ pD8335:1,26D:D rE1265:8,33E:E: w GRAPHICS FOR '5 IN A LINE =" x13 y29,377 z29,379 {29,3712 |30,3210:31,33S259700: STARTUP F TITLE PAGEf ==============w#10100:7999(21:"TYPE 'Y' TO PLAY, 'N' TO QUIT. ";:IN$::IN$"Y"IN$"N"40*IN$"N"ĉ::21:131625018:1000 c BACKGROUND CO BY2 : LACHLAN ARNOTT 1989 _ :************************* O);" ";: 255:34,0:E :*************************l : THIS HELLO : PROGRAMMED : FOR THE :COMPUTER EDUCATION CENTRE  : Z2)L$L$" " ZZ(L$)2* 160:23d Z1(L$)2:1:(L$,ZZ1Z,1);:40:(L$,ZZZ,1);:l 65 Z123VZZ:: 225 Z1ZZ:V:1:(L$,ZZ1Z,Z);:41Z:(L$,ZZ1,Z);:24:: Z120ZZ:V:Z:" ";(L$,ZZ);:41ZZZ:(L$,ZZZ(16336)(16336):ZQ150::T :22:"PLEASE WAIT - PROGRAM LOADING"::255i (4);"RUN WW" 235:Z(Z$):Z2(Z2)Z$Z$" ":ZZ1 Z10:V:ZZZ211:20Z1:Z1Z11:(Z$,Z1);(Z$,Z1);:::255: 34,V ZZ(L$):ZZ2(ZLTON":190:V10:Z$"VICTORIA, 3054, AUSTRALIA":190: xV15:Z$" DISC PREPARED ":190:V16:Z$"FOR THE C.E.C.":190:V17:Z$" BY LACHLAN ARNOTT 1989":190 :V21:L$"C.E.C. COLLECTION DISC 36":59300: ZZ11500:ZZ" Z124::Z`  :?" "::49234,0:X039O((1)16)](X,39XXn2X,47X39X<39X,X47XF47X,XXPXZ(16384)136ī32d6 n:V8::Z$"COMPUTER EDUCATION CENTRE":190:V9:Z$"P.O. BOX 209 NTH. CAR     n 854x 9,5)HUE27305 14,10)HUE2730L 19,15)HUE2730c 24,20)HUE2730z 29,25)HUE2730 854 29,5)HUEı 24,10)HUEı 19,15)HUEı 14,20)HUEı 9,25)HUEı 854#:12:"***** 854 B5255) 9,B)HUE25000 B9 854G B5255] 14,B)HUE2540d Bm 854{ B5255 19,B)HUE2590 B 854 B5255( 24,B)HUE26302 B< 854F B5255P 29,B)HUE2680Z B WINA9295'A,4)HUE2300.A7854EA9295Z A,9)HUE2340a Aj 854x$ A9295. A,14)HUE23808 AB 854L A9295V A,19)HUE2420` Aj 854t A9295~ A,24)HUE2460 A23:"PRESS TO CONTINUE. ";:IN$:(IN$)131212RDIDI1:DI2DI2\104021:"WANT TO TRY AGAIN? (Y OR N) ";:IN$::IN$"Y"IN$"N"1304IN$"Y"1000 :40150$DL1700:DL:D$(4):D$;"RUN HELLO";: CHECK FORL"RIGHT!":300:10404ERER1:5350:ER21210@WRWR1A$"TRY A SMALLER NUMBER. ":C1A1B1A$"TRY A BIGGER NUMBER. "23:A$;:C$:C$""12041062:21:"SORRY. ";A1;" X ";B1" = ";A1B1;".":"LET'S TRY ANOTHER PROBLEM."99BA110B110ĺ"WHEW! THAT WAS A BIG ONE!":300:1040eDA18B18ĺ"GO, ";N$;" GO!":300:1040FA19B19ĺ"YOU MUST KNOW THE TRICK FOR NINES!":300:1040HA15B15ĺ"KEEP IT UP, ";N$;"!":300:1040JA13B13ĺ"THAT'S IT!":300:1040T LOOKS LIKE YOU HAVE BEEN STUDYING!":300:1040h:WR1CT15ĺ"SAY, YOU ARE DOING GREAT!":300:1040<A10B10ĺ"I LIKE THESE ZEROS, DON'T YOU?":300:1040>A11B11ĺ"ONES ARE A CINCH!":300:1040@A110B110ĺ"TENS ARE FUN!":300:1040"YOU HAVE ONLY MISSED ONE.":300:1040b2CT15WR5ĺ"YOU'RE ALMOST TO A BINGO, ";N$:300:10404WR2CT10ĺ"YOU HAVE ONLY MISSED TWO, ";N$:"KEEP UP THE GOOD WORK!":300:10406WR3CT10ĺ"YOU'RE GETTING THERE!":300:104008WR0CT15ĺ"I$)0C$"0"1057B&C1(C$):C1A1B1İ200:2240:WIN1ė:1304V(C1A1B11200.ER0ė:"THAT'S RIGHT! ";A1;" X ";B1;" IS ";A1B1;"!":300:1040/WR0CT10ĺN$;", YOU ARE REALLY DOING WELL!":300:1040&0CT10WR1ĺ"NOT BAD, ";N$;"!":DATABASE":< !17:1:"8 - HAPPY BIRTHDAY CELEBRATION":o +18:1:"9 - TYPE LARGE LETTERS & SYMBOLS": 24:Z1901:32,Z:33,(20Z)2:::Z124:::D- CREATE WORD SETS":G 12:1:"3 - PERIMETER & AREA EXERCISES":y 13:1:"4 - CO-ORDINATE CROSSWORD MAKER": 14:1:"5 - MULTIPLICATION BINGO": 15:1:"6 - DIETARY EXAMINATION SIMULATION": 16:1:"7 - PERSONAL TELEPHONE :535:% A$"7"ĺD$;"RUN PTD": A$"8"ğ:545:V A$"8"ĺD$;"RUN BD"k A$"9"ğ:555: A$"9"ĺD$;"RUN TLL&S" 255 9:1:"0 - DIVISION LAND": 10:1:"1 - CRACK A WORD PUZZLES": 11:1:"2 - CRACK A WOR$"2"ğ:485:, YA$"2"ĺD$;"RUN CCWS"A cA$"3"ğ:495:_ mA$"3"ĺD$;"RUN P&AE"t wA$"4"ğ:505: A$"4"ĺD$;"RUN CC" A$"5"ğ:515: A$"5"ĺD$;"RUN MB" A$"6"ğ:525: A$"6"ĺD$;"RUN DES" A$"7" 545 555) 24:13::16368,0L "SELECT A NUMBER :";:A$:A$;^ :A$(26)Ān A$"9"ī80~ A$"0"ī80 A$(27)ī80  'A$"0"ğ:465: 1A$"0"ĺD$;"RUN DL" ;A$"1"ğ:475: EA$"1"ĺD$;"RUN CWM" OA X(0)P58300::KU"****************************************"i_NA$"PROGRAMS ON DISC 36"i1(20(NA$)2):s3:NA$:}23112,192:23104,193D$(4)465475485495505515525535     * I * NN N * G G * O O *"N! 3)"* B B * I * N NN * G * O O *"}! 3)"* BBB * I * N N * G GG * O O *"! 3)"* B B * I * N N * G G * O O *"!& 3)"* BBBB * I * N N * GGGG * OOOO *"!0 8600!l 8800!q 3"v 21:"(S) BEEP @ > INTRODUCTORY MESSAGE IN NON-GRAPHICS L ?:::V @8800` 8600j 8600 3)"*WOULD * YOU * LIKE * TO * PLAY *" 8600 8600 8600 8800 3)"* BBB * I * N N * GGGG * OOOO *"!3)"* B BANT TO TRY THAT ONE ":"AGAIN? 'YES' OR 'NO'"5Q$;LQ$"Y"2140w"O.K. ";AB;" IS THE CORRECT ANSWER."W12000:W:"TRY THAT ONE AGAIN.":2140BEEP125S16336 SOUND(S)(S)(S)(S)(S)(S)(S)(S)Y DO GET HARDER SOMETIMES.":5080[nC80ĺ"THAT WAS A HARD ONE,WASN'T IT, ";N$;"?":5080xC90ĺN$;", IT LOOKS LIKE YOU HAVE BEEN STUDYING.":5080C101ĺ"THAT ONE WAS REALLY TOUGH, ";N$;".":50805350-WRWR1::"YOU GOOFED, ";N$;". W2C20ĺ"NOT BAD. HERE'S ANOTHER ONE.":5080l<C30ĺ"MAYBE THE NEXT ONE WILL BE HARDER, ";N$;".":5080FC40ĺ"GO, ";N$;", GO.":5080PC50ĺ"KEEP UP THE GOOD WORK, ";N$:5080ZC60ĺN$;", YOU ARE REALLY DOING FINE.":5080!dC70ĺ"THEE EASY, ";N$;". LET'S TRY A MORE":"CHALLENGING ONE.":5080C5ĺ"THAT WAS PRETTY EASY, WASN'T IT, ";N$;"?":"THEY DO GET HARDER THOUGH.":5080C10ĺN$;", IT'S TIME TO GET SOME TOUGHER ONES.":5080(C15ĺ"YOU'RE DOING FINE, ";N$;".":5080.LINE = BINGO"P13000:P?23:"WHAT'S YOUR NAME? ";N$ON$""5060i(N$)10N$(N$,10)::"HI, ";N$;". LET'S GET STARTED."P13000:P: RANDOM CONGRATULATORY MESSAGES BASED ON VALUE OF PROBLEM ANSWER; C1ĺ"ZEROS AR** BINGO *******"T"******* TIMES TABLES PRACTICE *******":eP12000:P"TYPE IN THE CORRECT ANSWER AND A NEW PROBLEM WILL APPEAR."P12000:P:100:120 FIVE IN A LINE IS BINGO 21:11:" 5 IN A )151# 6(1)40,(1)40(1)40) @a @::6::"ANOTHER GO AT THIS PROGRAM Y/N?"::ZZ$p ZZ$"Y"Ĭ ֜:6::"WOULD YOU LIKE A":"DIFFERENT PROGRAM...ON THIS DISC Y/N?": ZZ$:ZZ$"N"40500 lZZ$:"EXEC WB": 4:10:7::"'BYE,80,128,80 144,180,1,20L 192,40,192,40,96,80,114,80,144,80,152,80_ 171,240,1,20  108,60,108,60,114,110,144,120,128,130,144,255 ==DISPLAY-LINES== (1)151: SELECT RANDOM COLOUR NOT BLACK "(1)40,(1)40(1)40 ,(1X CC2164 :20% 40000E NOTE PITCHES AND RELATIVEj DURATIONS FOR "HAPPY BIRTHDAY" FIRST FIGURE PITCH,SECOND DURATION PITCH 1 = SILENCE 192,40,192,40,171,80,192,80,144,80 152,160,1,20,192,40,192,40,171,80,192 TONE GENERATING ROUTINE2 <I770792:D:I,D:l F 173,48,192,136,208,5,206,1,3,240,9,202,208,245,174 P 0,3,76,2,3,96,0,0 Z*HAPPY BIRTHDAY MELODY FOLLOWS dS128 n270:270:270 xI,J:768,I:769,J 770 S X130:270:B::V10::Z$"WHOSE BIRTHDAY IS IT TODAY ??":59500:z15:"PLEASE TYPE YOUR NAME, THEN PRESS RETURN"::4:"-----> ";NAME$C0 ::CCCC123::" HAPPY BIRTHDAY ";NAME$;" ":( == B : HAPPY BIRTHDAY == 2     ! ЍźŠŠŠŠĠח׍̠Š΍# ***********************B INFORMS OF WRONG ANSWERa ***********************g:14:8::"SORRY ";NAME$:60050::" THE ANSWER IS ";XY(ZZ13000:ZZ:58800F1165::8:12:NAME$:::6*******( CHECKS FOR CORRECT ANSWERI *************************ObANSXY1300 ************************** PRAISES FOR CORRECT ANSWER **************************7000:58800RIGHTRIGHT1 11658"O.K. ";NAME$;" HERE IS QUESTION ";COUNT:JZZ1500:ZZt11:6:"WHAT IS THE ANSWER WHEN"::6::X;" IS DIVIDED BY ";Y;" ?":::" PLEASE TYPE THE ANSWER AND PRESS RETURN"::ANS: ******************S1500$15:6::"PLEASE WAIT"::LEVEL$"1"İ5100PLEVEL$"2"İ6100fLEVEL$"3"İ6500|LEVEL$"4"İ6700COUNTCOUNT1:6:2: *********************** NUMBERED QUESTION ASKED ***********************?R *******************"S/VNAME$:~`Z$"HOW MANY PROBLEMS":V9:59500:Z$"WOULD YOU LIKE TO TRY.?":V10:59500j18:4:"PLEASE TYPE THE NUMBER REQUIRED.":::"THEN PRESS RETURN":~:PROBS:58200COUNT0:RIGHT0COUNTPROBY 20 TO 99":V19:59450H2:22::"PLEASE PRESS A NUMBER (1 TO 4)":d:::16368,0:LEVEL$y16368,0:58630$LEVEL$"1"LEVEL$"2"LEVEL$"3"LEVEL$"4"1090.1000BL:::P *******************Q HOW MANY PROBLEMS ************?"PLEASE CHOOSE ONE OF THE FOLLOWING:":tZ$" 1. SHORT DIVISION PROBLEMS":V13:59400Z$" 2. HARDER SHORT DIVISION":V15:59450 Z$" 3. LONG DIVISION BY 13 TO 19 ":V17:59400Z$" 4. LONG DIVISION B:16368,0( ****************@ READY TO BEGIN ?X ****************yMO0:61550:MO1399:58060:6:7:"O.K. ";NAME$:::: ********************** PROBLEM LEVEL SELECTED  **********12000:ZZ:6" IF YOUR ANSWER IS WRONG"IZZ12500:ZZQ:n" I WILL INFORM YOU":" OF THE CORRECT ANSWER":ZZ12500:ZZ"BEFORE CONTINUING TO THE NEXT QUESTION"ZZ13000:ZZ 58200:10:3:NAME$:7:4. :"IF YOU TYPE THE CORRECT ANSWER.."; D:::4\ NXY::"(IN THIS CASE)":: XZZ11500:ZZ:"I WILL THEN TELL YOU IT IS CORRECT": vZZ12500:ZZ ".....AND GO ON..." ZZ13000:ZZ 58100::4:10:"BUT !!!!": ZZ 5000 ZZ12000:ZZ( 13:F "WHAT IS THE ANSWER"::s "WHEN WE DIVIDE: ";X;" BY ";Y;" ??"} :: ZZ13500:ZZ :"YOU THEN TYPE YOUR ANSWER": ZZ13000:ZZ :"AND PRESS RETURN" &ZZ13000:ZZ 0582000:V5:Z$"NO NEED TO PRESS ANY KEYS UNTIL ASKED TO":59500V 4:10::QR11000:QRh "OK. ";NAME$ ::4:"I AM NOW PREPARING":4 "AN EXAMPLE FOR YOU": ZZ13000:ZZ 58350 L$"I WILL ASK YOU QUESTIONS SUCH AS: ":V8:59300:: " HELLO ";NAME$;" ":::` Z$"WOULD YOU LIKE TO SEE AN EXAMPLE ?":V16:59500:: "(PLEASE TYPE Y FOR YES OR N FOR NO)": ":: ,YN$:YN$:58300 6YN$"N"1000 :: V3:Z$" THIS IS AN AUTOMATIC DEMONSTRATION ":5925 x45995:Z$"WELCOME TO DIVISION LAND":V10:58930:13:4::"HELLO": L$"MY FIRST NAME IS ALEX....WHAT'S YOURS?":V10:59300 :::: "PLEASE TYPE YOUR FIRST NAME" " THEN PRESS RETURN ": ::NAME$:58450 :2:12:$D'2 3 ***************&4@5 DIVISION - LANDF6_7 ***************f8 lorpq *********************r TITLE, NAME & EXAMPLEs *********************tuKK0v::(47721)123Č1401: TITLES G               249,I4:251,34:WW$:20:(16384)127Ĺ16368,0:(7);JI:ST71300$249,86:251,34:W$:249,74:251,33:WW$:20:249,74:251,33:W$:249,78:251,32:WW$:20:249,78:251,32:W$:W$"65":249,98:251,30:W$:249,93:251,32:WW$:20!.:W$"34"::249,I:251,38:W$:249,I10:251,38:WW$:J15:J:FL1İ20b(16384)127Ĺ16368,0:(7);tI:ST51300 249,I:251,38:W$:W$"./0":249,146:251,34:W$20:W$" ":WW$"#":249,130:251,34:WW$:208I130904:249,I:251,34:W$:FF0:C(A$)1201000(!40000?: SET IN MOTION NST01300dI036:FL1İ20ST1Ĺ249,0:251,I:W$" #":W$(16384)127Ĺ16368,0:(7);J12:249,14:251,0:W$(J):J,IST21300>W$" ":WW$"#":I0120102II2:B$:J01:249,178:251,H22IIJ:W1$:FL1İ20_J:II2ĭ(X)(A$,II2,1)3000249,162:251,H2II2:B$:W2$(SC$,II,1):249,178:251,H2II2:W2$II:249,178:251,H12II:B$FF0ICIC1:IC10ĺ(7);(7);(7);:1000254,0:W$:120&~I:LCLC1:L(LC)XRW1$(X):249,178:251,0:W1$:FL1İ20jJ110:J:H2160W1$" "W1$:I0H:249,178:251,I:W1$:FL1İ20J110:J,I:II1(SC$)1:W2$(SC$,II1,2):249,162:251,H2II:W2$:249,178:251,H0:ST1:C0:0,160279,160:IC0:FF0?sLC0:I126:L(I)0:Ifx70:XX128:X65X90ĺ(7);:120}I1LC:XL(I)ILC:I:(7);(7);:W$" YOU HAVE TRIED "(X)" ":249,161:251,2:254,127:W$:I11000:I:W$" ":249,161:251,2:OSITIONCRACKAWORD "F$",R";X:(13)(4)"READCRACKAWORD "F$:A$:(13)(4)"CLOSECRACKAWORD "F$jXCXC1:XCNWC0:I1N:UW(I)0:Il62450$nB$" ":SC$" ":I1(A$):SC$SC$"5":I:SC$SC$" ":H2((20(SC$))2):249,178:251,H:SC$:FLII110:X(1):X(16384):X127II20:74>GII:FL1İ20FH70ZJII:16368,0:pc: MAIN PROGRAM dW$"GETTING NEXT WORD":62450:249,80:251,3:W$fX((1)N)1:UW(X)1102dhUW(X)1:(13)(4)"OPENCRACKAWORD "F$:(13)(4)"PI6I,115I:I1,160I1,1472I:I1,110I1,1232I:I:U>: DRAW CANDLE TABLE@23,12580,125:23,13080,130:22,126:22,129:81,126:81,129:21,12721,128:82,12782,128:B249,97:251,13:Q$(36RV):RV1RV:Q$:D: GET KEYPRESS ,FRAW CANDLE { 6249,80:251,7:W$"$":W$:249,97:251,7:254,127:W$" ":W$:249,111:251,7:W$:254,0:56,9756,94:FL1: 8: DRAW CURVE :279,1600,1600,11045,110:I03:0,159I132I,159I:0,111I132I,111I:0,155I6I,155I;<0,11515,70215,92:260,64260,72217,72217,92:C .: DRAW FIREWORKS 0W$"789":249,40:251,14:W$:W$":;<":249,54:251,14:W$:101,53100,53100,52:101,51:99,51:I042:99I,50:98I,49:I 294,5193,51:I0422:93,52I:92,53I:I: 4: D249,14:251,0:W$(1):+ ": DRAW WEIGHT J $W$"#":249,0:251,0:W$:_ &: DRAW SEESAW (W$"+,-":249,146:251,34:W$: *: DRAW BOOT +W$"12":249,50:251,34:W$: ,: DRAW PLATFORM + -W$"65":249,92:251,30:W$:258,64258,702C I03:23828I,5626I21028I,5626I21028I,8226I:I:V : DRAW BALL w W$"&":249,42:251,32:W$: : DRAW CONVEYOR BELT  W$(1)"":I18:W$(1)W$(1)"!"(34):I:W$(2)(W$(1),15)"!":W$(1)"'"W$(1)")":W$(2)"("W$(2)"*":CKAWORD ROUTINE2"| (13)(4)"BLOAD CRACKAWORD ROUTINE1":(13)(4)"BLOADCRACKAWORD DISPLAY":1013,76:1014,0:1015,8 3900 L(26):WC0:::16302,0:254,0:8,2:9,14:3:100 249,80:251,7:Q$(36RV):RV1RV:Q$: : DRAW STEPS V/(13)(4)"BRUNCRACKAWORD MOVE":16384`59700: STARTUP t TITLE PAGE ==============(13)(4)"BRUNCRACKAWORD MOVE":16384::10:15::"PLEASE WAIT": (13)(4)"BLOAD CRA          NY KEY":V10:20:16368,0:30/4X155175P>:W$"PRINTING":V10::20:H(13)(4)"PR#1"::"WORD SET: ";F$(SL):"--------"::I176:(95);:I::RL((MM2)3):I1L:WW$(I);:ILMM880\28(WW$(I)));WW$(IL);:ILLMM880f OR N)":V10:20%30:X206175=X217ĺ(7);:720e:W$"DELETING "F$(W):V10::20:(13)(4)"DELETECRACKAWORD "F$(W)WM780IWM1:F$(I)F$(I1):I MM1:175 FF2:300 *FF0::W$"TURN PRINTER ON AND PRESS AI:6609W$"SAVING "F$(SL):V10::20::SLMMM1(13)(4)"OPENCRACKAWORD "F$(SL):(13)(4)"WRITECRACKAWORD "F$(SL):N1:I1N1:WW$(I):I:(13)(4)"CLOSECRACKAWORD "F$(SL)175FF1:300FF0::W$"CONTINUE DELETION (Y":4209FF0:INW1:WW$(I1)WW$(I):I:NN1:445sX:W$"DO YOU WISH TO SAVE THIS SET (Y OR N)":V10:20b30:X206660lX217ĺ(7);:610v:N2W$"CANNOT SAVE THIS WORD SET":V10::20::W$"THERE ARE NO WORDS":V13:20:I11000:450L12:80:FL1430AWW$(W)W$:WNĹ34,7:35,19:405W34,7:35,19:410WNV21::W$"CAN'T DELETE 'NEW WORD'"(7):20::410IWN1:WW$(I)WW$(I1):I:NN1:21:1:868:410INW1:WW$(I1)WW$(I):I:NN1:WW$(W)"INSERT@TY2:NMMP5:1:868:W$"SELECT THE WORD YOU WISH TO EDIT:":V5:20:lNN1:WW$(N)"NEW WORD"24:5:"PRESS SPACE BAR FOR FURTHER WORDS";:40:FL500,520,600:22:1:958:22:1:868:(WS65);". ";WW$(W)22:4:"";W$:W$""ELECT THE WORD SET YOU WISH:":20:40:FL3175?.FF1710f1:W$"READING "F$(W):V10::20:6(13)(4)"OPENCRACKAWORD "F$(W):(13)(4)"READCRACKAWORD "F$(W):MM:I1MM:WW$(I):I:(13)(4)"CLOSECRACKAWORD "F$(W):SLW;FF2810I:(13)(4)"CLOSECRACKAWORD CATALOG"6FF1ıC:40150y:W$"WHAT IS THE NAME OF THIS WORD SET":V10:2012:10:"NAME: ";W$:W$""ĺ(7);:21024:868:L19:80:FL1210SLM1:F$(SL)W$:N0:TY2::4001,NM:TY1:V5:W$"S200,300,700,800,900FF0EW$"SAVING RECORDS"::V10::20:(13)(4)"DELETECRACKAWORD CATALOG":(13)(4)"OPENCRACKAWORD CATALOG,L20":(13)(4)"WRITECRACKAWORD CATALOG,R0":M*I1M:(13)(4)"WRITECRACKAWORD CATALOG,R";I:F$(I):5,19 22::"SELECTION";::":":W$(1)"WRITE A NEW WORD SET":W$(2)"EDIT A CURRENT WORD SET":W$(3)"DELETE A CURRENT WORD SET": W$(4)"PRINT A CURRENT WORD SET":W$(5)"RUN CRACKAWORD PROGRAM":W$(6)"END" N6:TY0:40:FL3ĺ(7);:175:WG,R";I:F$(I):I:(13)(4)"CLOSECRACKAWORD CATALOG"F WW$(100) :W$"EDIT CRACKAWORD WORD SETS":V1:20:W$"-------------------------":V2:20:34,3 :I140:7:I:"-":20:I:"-":I:W$"PLEASE SELECT ONE OF THE FOLLOWING:":V5:20:34,8:3$)LFL0:J R24:1:"WORD TOO LONG - MAX. LENGTH = ";L;(7);:FL1:t d::W$"READING RECORDS":V10::20: n(13)(4)"OPENCRACKAWORD CATALOG,L20":(13)(4)"READCRACKAWORD CATALOG,R0":M:F$(50)8 xI1M:(13)(4)"READCRACKAWORD CATALO68::"INSERT";::FL2:481 5W$(27)FL3:X 6W(W$)64:W1WES1ĺ(7);:48 78W:4::ISW1:TY166,68,70: 830:X13644 :X141ĺ(7);:56 <WSW1: >SE1:SNS1 @42 BW$(I): DF$(I): FWW$(I): P(W SPACE BAR FOR FURTHER "Q$2 *:ES9:ENENg ,ISE:9IS:1:(IS65);". ";:TY166,68,70n .I 022:12:W$:W$(10)W$(13)ĺW$; 2W$" "TY062 3TY2W$(4)Ģ21:15:868::"DELETE";::FL1:48 4TY2W$(9)Ģ21:15:8459700: STARTUP H TITLE PAGEh ==============q 100V:1:868:((40(W$))21):W$:X(16384):X12830#16368,0: (S1:FL0:22:1:868:"SELECTION:";:TY0Ģ24:5:"PRESS     """ " )(AX):S:8%:*************************_%: THIS VERSION %: MODIFIED AND AUGMENTED %: FOR THE %:COMPUTER EDUCATION CENTRE %: BY%&LIKE A":"DIFFERENT PROGRAM...ON THIS DISC Y/N?":U$ZZ$::ZZ$"Y"ĺ"EXEC WB":t$4:10:7::"'BYE NOW"::$4 TITLES STARTUP$9 ROUTINE$;KK0$>(47721)123Č1401$C %`AX16336:S120:SOUND(AX)(AX774,208:775,5:776,206:777,1:778,3:779,240:780,9:781,202#~'782,208:783,245:784,174:785,0:786,3:787,76:788,2:789,3:790,96:791,0:792,0#'#@::6::"ANOTHER GO AT THIS PROGRAM Y/N?"::ZZ$#:ZZ$"Y"Ĭ3$֜:18::"WOULD YOU TYPE 'Y' TO PLAY, 'N' TO QUIT. ";:IN$:IN$""8310H" (Z$,1)"Y"100d" (Z$,1)"N"Ģ22:8310n" 1312"!3)"* * * * * *""!"`"3)"************************************""j"?#t'770,173:771,48:772,192:773,136: NOW"::7 l235:Z(Z$):Z2(Z2)Z$Z$" ":ZZ1~ pZ10:V:ZZZ211:20Z1:Z1Z11:(Z$,Z1);(Z$,Z1);:::255: :************************* : THIS VERSION : MODIFIED AND AUGMENTED 0L@` g RgƖ8PgPQhQghe Ӣi  g y  gh^_8^eP^ȱ^ eQ^^_Ll8ePeQ`LZ@tZ@t Z@tOZ@tZ@4<Z@4yZ 2s9Y:e#A;H.|~ ;.|~  !@>~~ @  p `  @@ xA@ A@ @B@ @ ~@?~{{~ z}z} :'@2?.Y4A,Z 4-Z@4-Z@4A,Z@4?.Z@4'Z@tBHQ<(xP`(P $$P d&P a_?|G{x|O{x9Gs89p89p89gq:9q:yq?ygq?yp?9p?9p= 9Gs=|^{x|\{x ~~AH AHA(AB1(x">Q/# # 8" @"@ ~|{{gqOo?w{Oo3xGs38Gcs;Gcc9>Gc8>Gcx~GcxnGc8nGc8NGc8NGc8Gs|>o|>o?a_d&P$$P (P <(xP@BHABO@x`A F`DHx8H1pCH1@op=p8p8p8W|p8W|p?Wp?Gp8Gp8GNq8 Gos8G~g{x^o~CyxLo~|?x`@ @  B D bD D ~ @@@`@@D!~D#DEDEb   `?|`?~`?`?@`?``?p`?x?`?|`?~`?````?````?````?`?~`?|`?x?`?p`?``?@`?`?~`?|`?x?`?p~`@G~p??````pppxxxx|~|~|~~~~@p?@p?@p?@p?```````?p`?x?`?@`?@`?@`?`````?`?````?@`?@`?`?`?~`?~`?|`?|`?x?`?x?`?p`?p~@?@?@`?`?`?`?`?`?`?`?`?@`?@```p```@?@?~x````?`?````?``?@`?@]rNI20@d`daLOCGLoG<~<~|||||yG|yG|sc|sc|gq?xx|x~xxx~x~x`pppxp0`?8B<~@?`p@?x @| @8`~`C@`a``p`0x@|@~pxp~@py|{~s ~a~|x`~~c~g~G~O~?~?`~x~~~@~`x@@?  `|x|x|||~|x|`||`||p||?@||?<>x<~yC8~wp0~wp  x x@8`p8 /`xp|`~q?@~qqAqcqq|qx?pq?q 0d<p|x|||~|#|#@|!|1|1|1|0|8|8<8<<<<<ppx~x~`@~``|w| x     `|`|`|`|`|`|`?~`?~`A``@@||@@pp@@`|`|@?~@?~~A?~A?|c|cxwxwpp``@@>``````` @p@@pp@@`|`|`|`|`|`|`|`|`|`|@@pp@@|@@```~`|```?``~x`|`?``@@|@@pp@@`C```@@~~||@@pp@@|p`````@`~`~`@````````_``~`|`x?`pp?`|q`@```@`````````````p?|@@pp@@|@@```A`?~`?~`|`|`|`|`|`|`~`?@|@@```A`?~`?~`|`|`|`|`|`|`|`?~`?~`A``@@|@@pp@@|p````p?~|I@@pp@@|@p?~`|`|`|`|`|`|`?|`|`}````_``~`|`x`p```@`p?~||@@pp@```````````p|@@pp@@||p|`?~`?~```A`A`c`c`w`w````_}`_}`|`|`>|`>|`|`|8p`????^^~~~>>8<>>|xpx|>><8<<<>>?|xppppxx??>@`px|><??p|~ @``@@``@@pp@@|p?``````````??????>>~~~^^?>?>p<<<<<x>>~~~??p|<<<<>~~^????x~><~|p><>~x??w;ppppppppxx????>~?~?|>????<<<<??8~8????8~??x~?>~x????~????xxpppppppppxx@?@?~~x?>?>^~~~~^?>??>>>>>>>>>8??>??~~~^tfwZVZWZ,gXFVzgZ^Vb D@"@ @PD  @$xT  `ppp``@@@``@@@|~>~~????><>~~><<>p|<<<<|p<\|^EBA@@@@@@? ?x>|~~~ L@@@?????          q  p`p"0 <C6( !@`@ @ @O}QGR Th0`XDxd($Xx ( (?2Q]VQ]Z]*1) e@Cx@C e)1*U8) E@cpO@c Ei8U`|3397^w>~||C<8@8ppa\cpxpN`aC89C`app88@C@`apx8|L~>|~lrO'o;;|ap?0qy~|x`@`@` U*@@P`|`P@@*U*UHP`x`PHU*|||?rasc *@*@*P*P*P*P P @@@@@PPPTT T T P P @p|~?~?~?~?|pp\*FJSaaSJF\*pp,UJQcycQJ,Up          ŠٍĠԠҍΠĠҍŤ٢ڤŤ٤٠ԱϤ٢ԠŠŠΠӧŢנРТ̢ʢʢנ٠ӠΠĢ: LACHLAN ARNOTT 1988 R&:************************* M ߠ`  I L L8 !0e eLJ eL[i  e&e &E&e e!0 8!e LpX21290!"PROT.GM.";0 X31310B"LIPID GM.";QX41330c("C.HYDRATE";i2t<Z1E30F"THIS ITEM IS NOT IN THE LIST."PF,QZ(F)(Q)01530d(F)(Q)(F)F21350nFZ11470xZF1430Z1`10);"------------------------------"5jX14?t1250~11);(N(X,1)0.5);18);(N(X,2)0.5);26);(N(X,3)0.5);34);(N(X,4)0.5)X"DO YOU WANT ANOTHER RUN: ";:A$(A$,1)"Y"509000X11270"CALORIES ";":"A WEIGHT ";*X01069-+"LOSS ";7,1070E-"GAIN ";."OF ";((((X(X)0.5)1000)2.24)100)100;" KG/DAY."/8:"DO YOU WANT A MEAL BREAKDOWN: ";:A$L(A$,1)"Y"1200Q:V10);"B/FAST LUNCH DINNER OTHER"*70"GOOD":10604(1P(X)M(X))0.251010AX2950S"FAIR":1060gM(X)P(X)1050tX2950"EXCESS":1060"DEFICIT"$X%A18S31071&X(2624E5(P(1)M(1)))'X01071()"THIS DIET WOULD RESULT IN4.03\M(4)0880%fM(4)0.001Tp20:"DIETARY REPORT:":"==============":}z12);"PROVIDED RECOMMENDED STATE"{12);"----------------------------"X14125014);(P(X)0.5);23);(M(X)05);33);(1P(X)M(X))0.19ITY":2"(TYPE '0,0' TO FINISH EACH MEAL)":V"BREAKFAST":"=========":1360^20z"LUNCH":"=====":136020"DINNER":"======":1360420:"SNACKS AND OTHER FOODS":"======================":1360RM(4)(M(1)0.754.05P(2))0.5)))bA186601lM(2)(0.056A1.9)LFv(A10)S0670aM(2)(0.064A2.05)Lj670{M(2)B0.037M(3)M(1)0.258.9320"TYPICAL DAILY INTAKE OF FOODS:""ENTER EACH FOOD AS TWO NUMBERS:-""FOOD NUMBER, QUANT72L0.425H0.725" A11520@ B(181.7S)A126666SI 590X A15550x B(11.38.4S)A123030S 590 &A18580 0B(11.311.3S)A1230390S :590 DB(2.3.4S)A986103S NBBS1 XM(1)1.06(BL(0.88(A9400 - "SUBJECT'S ACTIVITY LEVEL:" " 1. SITTING 8HRS/DAY":" 2. UPTO 1HR ACTIVE EXERCISE":" 3. ABOUT 2-3HRS ACTIVE EXERCISE":" 4. ACTIVE EXERCISE MOST OF DAY":" 5. WORKING IN HEAVY LABOUR "; A9 (A93)2440 S10.00TS YOUNGER THAN 12."4 @:"SUBJECT'S SEX: ";:A$I A(A$,1)"M"328^ B(A$,1)"F"329 C"DIET ONLY WORKS FOR MALE AND FEMALE." D320 HS1:330 IS2 JSS1 ^:"APPROXIMATE WEIGHT: ";:L L0350 :"HEIGHT: ";:H H0 STOP/START LISTING":23::"PRESS RETURN TO BEGIN LIST";XZ$::5000N 220z Z1:X14:P(X)0:M14:N(X,M)0:M:X M0 :"SUBJECT'S AGE IN YEARS: ";:A "(A45.5)44.5270 ,A12320 6"DIET RESULTS MAY BE INACCURATE":"FOR SUBJEC"";"PR#1" 20 30z 936:::5:"DIETARY EXAMINATION SIMULATION":5:"=============================="::: "DO YOU WANT THE TABLE OF FOODS":"LISTED BEFORE THE SIMULATION STARTS: ";:A$ (A$,1)"Y"50F :12:"PRESS CONTROL-S TO:&459700: STARTUP H TITLE PAGEh ==============F(4),M(4),N(4,4),P(4) :936::: "DO YOU WANT A COPY OF THIS SIMULATION" "PRODUCED ON THE PRINTER ";:A$ (A$,1)"Y"15                " a0u W 寧) c렠 륡 c  80е`0`";20);"ONE TABLESPOON"B$" 56. MILK, WHOLE";20);"ONE CUP"f$" 57. SKIMMED MILK ONE CUP"$" 58. MALTED MILK ONE CUP"$" 59. OATMEAL, COOKED ONE CUP"$" 60. ORANGE";20);"EACH"$" 61. ORANGE JUICE ONE CUP""%" 62. CUP"7#" 50. JAM OR JELLY";20);"ONE TABLESPOON"]#" 51. LETTUCE";20);"ONE LEAF"#" 52. LIVER,FRIED";20);"ONE PIECE(3.5OZ)"#" 53. MACARONI OR SPAHGHETTI ONE CUP"#" 54. MARGARINE";20);"ONE TABLESPOON"$" 55. MAYONNAISECUP"/"s" 44. GRAPEFRUIT";20);"ONE HALF"P"x" 45. GRAPES";20);"EACH"~"}" 46. HAM";20);"ONE SLICE (3 OUNCES)""" 47. HAMBURGER, MEAT ONLY";20);"1/4LB COOKED""" 48. HONEY";20);"ONE TABLESPOON"#" 49. ICE CREAM";20);"ONE OUGHNUT";20);"ONE PLAIN"@!U" 38. EGG, WHOLE";20);"EACH"j!Z" 39. FATS OR OILS ONE TABLESPOON"!_" 40. FLOUNDER OR SOLE ONE FILLET"!d" 41. FLOUR, WHEAT ONE CUP"!i" 42. FRANKFURTER";20);"EACH""n" 43. GELATIN DESSERT ONE COOKIES EACH"< 2" 31. CORN, WHOLE KERNEL ONE CUP"e 7" 32. CORNFLAKES, PLAIN ONE CUP" <" 33. GRAHAM CRACKER EACH" A" 34. CRACKER,SODA EACH" F" 35. CREAM, WHIPPED ONE OUNCE" K" 36. CUCUMBER";20);"EACH"!P" 37. DEESE CREAM ONE OUNCE">" 25. CHEESE, SWISS ONE OUNCE"g" 26. ROAST CHICKEN 7OUNCES MEAT"" 27. CHOCALATE";20);"ONE OUNCE"#" 28. COFFEE-BLACK NO SUGAR";20);"ONE CUP"(" 29. COLA CARBONATED BEVERAGE";20);"8OZ" -" 30. ECE"0" 18. CANDY,HARD";20);"ONE OUNCE"[" 19. CANTALOUPE";20);"1/2 MELLON"" 20. CARROT,RAW";20);"EACH"" 21. CARROTS,COOKED ONE CUP"" 22. CHEESE CHEDDAR ONE SLICE" " 23. CHEESE COTTAGE ONE CUP"" 24. CHNA";20);"ONE SLICE"8" 12. BOUILLON CUBE EACH"_" 13. BREAD,WHITE";20);"SLICE"" 14. BREAD,WHOLE WHEAT";20);"SLICE"" 15. BROCCOLI";20);"ONE CUP"" 16. BUTTER";20);"ONE TABLESPOON"" 17. CAKE,ICED";20);"ONE PI LIMA BEANS";20);"ONE CUP"G" 6. GREEN BEANS";20);"ONE CUP"z" 7. CORNED BEEF";20);"ONE SERVING 3.5OZ"" 8. ROAST BEEF";20);"ONE LEAN SERVE"" 9. BEETS,COOKED ONE CUP"" 10. BISCUIT";20);"EACH"" 11. BOLOG3 -1,0,0,0 20`::" DIET FOOD LIST":" =============="::" 1. APPLE";20);"EACH"" 2. BACON";20);"ONE SLICE COOKED"" 3. BANANA";20);"EACH"" 4. BAKED BEANS";20);"ONE CUP"" 5. ,0,2335,9,22,0,60,2.7,2,8,74,1.8,1.8,14.6Z 65,3.3,1.4,11.5,103,9,5,7,154,7.5,6,16.5 46,6,.1,8,74,1.6,1,16.6,25,0,0,6.5,0,0,0,0,20,1,.3,4 279,41,12,0,67,10,2.5,0,219,28,11,0,.8,0,0,.3 28,.5,.2,6.9,246,17.1,6.8,33.7,22.3,.1,3,123,8,4,12,.05,9,873,39,73,28,87,4,7,3X 131,9,.5,23.6,327,9,17,35,410,4,18,60,58,.2,.05,14 236,12,8,28,195,22,13,0,54,2,1,10,98,2.4,.1,22.5 14,.2,.7,2,11,.1,.7,1,296,6,10,52,429,4,.8,114 143,4,.5,39,162,3,.15,36,178,4.5,1.5,39+ 260,30,147,.8,157,21,7,0I 170,22,13,0,64,.1,0,17,269,5,17,27,55,.1,.06,14.2 2.5,.2,.03,.5,229,26,11,5,221,8,1.5,45,101,.2,11,.01 65,.2,6,2,166,8.6,9.5,11.9,87,8.5,.2,12.4 253,11,10.7,29,82,3,1.5,15,49,1,.2,12,108,2.1,.5,27 56,2,2,8,33,.,56.6,17.2,0,146,2,9,16,0,0,0,0,91,0,0,23,99,1,5,14p^ 132,4,2,32,129,2.7,.1,28.3,24.6,.5,.6,4.6,17,.5,.5,3h97,.7,10,.9,36,2,.3,8,136,2.1,6.7,16.9,81,7,6,.4r 110,0,13,0,100,15,8,0,364,11,1,76,124,7,10,1| 118,4,0,15,80,1,.4,20.2,3.5,.07,.0,185,26,8,0,145,23,5,0M, 64,2,.3,14,123,2,5.6,15,74,5,5,1.2,2,.4,.1,.016 62,2,1,12,56,2,1,11,44,5,.3,8.2,100,.5,11,.1@ 342,5,9,60,108,0,.1,27,385,1.1,.4,8.3,20,.6,.1,4.5J 44,1.8,.4,12,100,6,8,1,200,28,8,6,105,2.6,10.5,6,96,7,8,15T396XZF'F(1),F(2),F(3),F(4)8F(1)01340?XIZF1TX14qN(X,M1)N(X,M1)F(X)QP(X)P(X)F(X)QX1360MM1 54,.1,.1,14,43,1.8,4,.1,88,1.2,.2,23,250,12,6,38" 205,12,1,38,33,3,.3,5.3RRECT!!":23:305:34,11::34,3&2P#02'34,5g2'I03:I(I)((1)4):N(I)((1)9991)1000I(I)n2'I2'L31:L419:H36:H411:3952'2'I03:Z(I)12((N(I))):Z(I)8Z(I)82'I(I)Z(I)72'I:12$'SM((1).5)3%'7:I03:"<":Z212::"WHICH NUMBER IS IN THE ";:Z219021,9022,9023,9024,9025\1=#"HUNDREDS";:9030o1>#"TENS";:90301?#"ONES";:90301@#"TENTHS";:90301A#"HUNDRETHS";1F#"?";:IP$:IP$:IP(IP$)1G#IPN(Z2)1Ģ20::"TRY AGAIN":9020 2I#20::"CO400,410,420,430,440,450,460,470,480,490:>0(#J04:N(J)0:J0-#Z2((1)3):JZ214:N(J)((1)10)1:J:N(Z2)((1)9)200#J04:N(J)901502#Y6:XJ52:J2XX505#NN(J):800007#J08#10:19::" "0:#Z2((1)5):N(Z2)9018E1<#9): /+ 1-/- 4:"YOU HAVE THREE OPTIONS:"N/0 8:"<1> REVIEW THIS UNIT":q/2 "<2> GO ON TO ANOTHER UNIT":/5 "<3> END FOR NOW"/7 20::1:"WHICH (1-3)?";:IP$::IP(IP$):(IP1IP3)2615/: / / :/ (4);"RUN WW"/ )0@N:H620:L53:L637:397::16:5:"TYPE IN ANSWER":F18:V18:H5:615}. R0:T$"FRACTION":I18:(IP$,I,1)(T$,I,1)RR1. I:V(1)20:H(1)5:R6İ541:W(0)W(0)1:V:H:T$:2599. 540:R(0)R(0)1.' 22:305:I2:/( :::"EXIT ROUTINES":3LS"::4:4:"PROBLEM #";I2:- L51:L639:H52:H623:397Q- I26İ10200:2599`- I212550q- 10300:2599- 502:L33:L419:H3H5:H4H6:395- :7:7:"WHAT IS A"::7:"DECIMAL?"- :7:24:"A DECIMAL":24:"IS A":24:"--------"D. H514RAM...ON THIS DISC Y/N?":>,ZZ$::ZZ$"Y"ĺ"RUN WW"],4:10:7::"'BYE NOW"::,4 TITLES STARTUP,9 ROUTINE,;KK0,>(47721)123Č1401,C,`AX16336:S120:SOUND(AX)(AX)(AX):S:!-:P".+" 99. YEAST, DRIED ONE TABLESPOON"T+"100. YOGURT, PLAIN ONE CUP"+6::"PRESS ANY KEY TO CONTINUE....";:A$+@+@::6::"ANOTHER GO AT THIS PROGRAM Y/N?"::ZZ$+:ZZ$"Y"Ĭ,֜:18::"WOULD YOU LIKE A":"DIFFERENT PROG CUP"0*h" 93. TUNA,CANNED";20);"ONE CUP"`*m" 94. TURKEY";20);"ONE SLICE (1 OUNCE)"*r" 95. VEAL CUTLET";20);"EACH"*w" 96. VINEGAR";20);"TABLESPOON"*|" 97. WATERMELON";20);"3.5OZ PORTION"+" 98. WHEAT GERM";20);"ONE CUS, COOKED 3.5 OUNCES"D)J" 87. SPAGHETTI &MEAT BALLS ONE CUP"i)O" 88. SPINACH";20);"ONE CUP")T" 89. STRAWBERRIES, FRESH ONE CUP")Y" 90. SUGAR,WHITE";20);"TEASPOON")^" 91. TEA, PLAIN, BLACK CUP"*c" 92. TOMATO, FRESH ONE+('" 80. RICE, BROWN";20);"ONE CUP"Q(," 81. SALMON, CANNED ONE CUP"(1" 82. SAUSAGE";20);"ONE PATTY (1.5OZ)"(6" 83. SOUP ";20);"8OZ"(;" 84. SOUP, TOMATO";20);"8OZ"(@" 85. SOUP VEGETABLE";20);"8OZ")E" 86. SOYBEAN' " 74. POTATO, FRENCH FRIED EACH STICK"T'" 75. POTATO CHIP";20);"EACH"'" 76. PUDDING, CHOCALATE";20);"ONE CUP"'" 77. RAISINS";20);"ONE CUP"'" 78. RAISIN BRAN FLAKES";20);"ONE CUP"("" 79. RICE, WHITE";20);"ONE CUP" 68. PIE,FRUIT";20);"1/6TH OF 9IN PIE"U&" 69. PINEAPPLE, CANNED ONE SLICE"&" 70. PIZZA TOMATO&CHEESE 1 SLICE"&" 71. PORK CHOP";20);"ONE SMALL(3 OUNCES)"&" 72. POPCORN";20);"ONE CUP POPPED"'" 73. POTATO, BAKED EACH". PANCAKE (4IN DIAM)";20);"EACH"P%" 63. PEACHES,CANNED";20);"1/2 PEACH"w%" 64. PEANUTS,ROASTED ONE CUP"%" 65. PEANUT BUTTER TABLESPOON"%" 66. PEAS, GREEN";20);"ONE CUP"%" 67. PIE, CUSTARD";20);"1/6TH OF 9IN PIE"+&"΍ōōōɍӍȍ΍΍ččЍS TO FOLLOW THE DIRECTIONS AS THEY ARE":"PRINTED ON THE SCREEN. IF YOU HAVE ANY"y<*"TROUBLE, PLEASE SEE YOU TEACHER."<,23:301:::"RE":"PRINTED ON THE SCREEN. IF YOU HAVE ANY"<*"TROUBLE, PLEASE SEE YOU TEACHER."<,23:301:::"A WORD WHICH MAY BE NEW TO YOU -- "T;!"IT IS --OBJECTIVES-- ALL THIS MEANS IS:";#"YOU ARE BEING TOLD WHAT YOU ARE GOING":"TO LEARN WHEN YOU GO THROUGH THIS UNIT.":;&:"USING THE PROGRAM":::"TO USE THIS PROGRAM, ALL YOU NEED TO DO"Q<("I39(VE$)(DA$));DA$%:l23:305:,:9Q::::"INSTRUCTIONS":302:34,3u::"WHAT IS THIS UNIT ABOUT?":::"THIS UNIT IS THE FIRST ON THIS DISK. ":"IT INTRODUCES, FOR THE FIRST TIME, THE"%;"IDEA OF THE DECIMAL. YOU WILL ALSO SEE ":AL CONVERSION"91HE$HE$(4)/94VE$"":DA$""S9:L31:L4(EW$)2:H31:H44:3959":HE$(2)"DECIMALS":HE$(3)"LEARNING UNIT":HE$(4)"DECIM0:R(2)R(2)17;(47<(N((1)999)1:D1000:PNDH7A(N$(N):D$(D)m7H(502:L33:L419:H3H5:H4H6:395|7K(:8:8:P7L(F0::4:15:"DO NOT REDUCE FRACTION"7M(:6:4:"DECIMAL:";:27:"FRACTION?":8N(:8:23:"----":F1(N$):V7:H27F1:6)6'I1N:(P$,1)"0"P$(P$,(P$)1);6'I:F1(T$)1`6'502:L33:L419:H3H5:H4H6:395w6':8:8:P$;"/";D$6':6:4:"FRACTION:";:27:"DECIMAL?":H23:V8:28:6156'V(1)10:H(1)22:IP$"."T$:W(2)W(2)1:561:V:H5:".";T$: 7'543!5'F1(N$)::V8:H27F1:615=5'L26F1:8:L:"/":504J5'F2(D$)S5'614Y5'_5'i5'P$""5'N((1)2)1:I1N:R%(I)(1)10:P$P$(R%(I)):I5'(P$)0102055'I1N:(P$,1)"0"P$(P$,(P$)1)5'I6'D$(10((P$))):T$P$I):CHECKI:1005414E'N(I)LOSMLON(I):CHECKI84F'Ij4G':11:27:IPCHECK1ĺ"RIGHT"::RR1:100654J'11:27:"WRONG":X15:YCHECK7:316:11:6:"ANSWER WAS:"4Q'4s'4t':L04y'100:L31:L419:H36:H410:3954~':8:7:P$5'502:50*************************H-: THIS VERSION s-: MODIFIED AND AUGMENTED -: FOR THE -:COMPUTER EDUCATION CENTRE -: BY.: LACHLAN Ӎōōԍ͍΍ҍӍٍ̍ύōȍÍҍɍӍƍҍ΍΍ōӍ.............;\.......................................i\.......................................\.......................................\.......................................\.......................................!\.............................................U\.......................................\.......................................\.......................................\....................................... \.............................................A\.......................................o\.......................................\.......................................\.......................................\.......................................'\-\.......................................[\.......................................\.......................................\.......................................\.......................................\.............................................G\.......................................u\.......................................\.......................................\.......................................\............................................3\.......................................a\.......................................\.......................................\.......................................\.......................................\.............................................M\.......................................{\.......................................\.......................................\.......................................\.............................................9 \.......................................g \....................................... \....................................... \....................................... \.......................................\.............................................S \....................................... \....................................... \....................................... \....................................... \.............................................? \.......................................m \....................................... \....................................... \....................................... \.......................................% \..***********************! s + 1000Y \....................................... \....................................... \....................................... \....................................... \...................... DO NOT MODIFY *1 j* ANY LINE IN THIS *N k* PROGRAM WITH A *k l* LINE NUMBER LESS * m* THAN 400!! * n* * o* PROGRAM WILL * p* SELF-DESTRUCT! * q* * r4259700: STARTUP F TITLE PAGEf ==============d***********************e* *f* W A R N I N G *g* - - - - - - - *h* * i*                       !!" ԍȍٍٍ̍ԍȍٍҍٍҍԍ΍̍ō΍ԍ : FOR THE M:COMPUTER EDUCATION CENTRE m: BY: LACHLAN ARNOTT 1988 :************************* S TITLES STARTUP4;9 ROUTINE=;;KK0W;>(47721)123Č1401];C;`AX16336:S120:SOUND(AX)(AX)(AX):S:;:*************************;: THIS VERSION <: MODIFIED 2500,4000,5000,6000,24000,800#:Hb[:@::6::"ANOTHER GO AT THIS PROGRAM Y/N?"::ZZ$l::ZZ$"Y"Ĭ:֜:18::"WOULD YOU LIKE A":"DIFFERENT PROGRAM...ON THIS DISC Y/N?"::ZZ$::ZZ$"Y"ĺ"RUN WW":4:10:7::"'BYE NOW"::";4 ARNOTT 1988 ;.:************************* AND AUGMENTED 2<: FOR THE _<:COMPUTER EDUCATION CENTRE <: BY<: LACHLAN ARNOTT 1988 <:************************* COMPUTER EDUCATION CENTRE ?: BYi: LACHLAN ARNOTT 1988 :************************* *(A):PB(B):A,221:B,96:0,10V:1,9:771:J125::A,PA:B,PB:Pd23::|:*************************: THIS VERSION : MODIFIED AND AUGMENTED : FOR THE :S120:SOUND(AX)(AX)(AX):S:<771,173:772,48:773,192:774,136:775,208:776,4:777,198:778,1:779,240:780,8:781,202:782,208:783,246:784,166:785,0:786,76:787,3:788,3:789,96DPV123:H25V:A128VH(984((V1)8))895:BA1:PA18::"WOULD YOU LIKE A":"DIFFERENT PROGRAM...ON THIS DISC Y/N?":iZZ$::ZZ$"Y"ĺ"EXEC WB":4:10:7::"'BYE NOW"::615004 TITLES STARTUP9 ROUTINE;KK0>(47721)123Č1401C%`AX16336: