' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`TD1001000R:5:"SORRY, YOU CANNOT ADD ANY MORE TO THIS LIST.":880":D0Ģ10:"THERE ARE NO WORDS TO DELETE.":35000:1180'10:"WORD TO DELETE? ";E$,E$""11806T1D:E$W$(T)1620@TJ15:(34);E$;(34);" ISN'T TOP"220:868:"(ENTER 1 - 6) ";:X$:X9(X$)ZX9(X9)X91X96(X9)X$1250X91400,1570,1062,2210,3020,1280::ED0:896xD1001440DD1::"ENTER WORDS 1 AT A TIME UP TO 100 WORDS.":"ENTER A 'RETURN' WHEN FINISHED." N$;:20:"WORDS: ";D:" TIME LIMIT: ";Z:34,4:5:"WOULD YOU LIKE TO":SE10" 1) ADD WORDS,"::" 2) DELETE WORDS,"::" 3) CHANGE WORDS,":" 4) GET A LISTING OR REPORT,":" 5) CHANGE THE DISPLAY TIME, OR":" 6) S IS NOT THE CORRECT PASSWORD.":8805216,0:1170X11ĺD$:D$;"CLOSE ";N$:D$;"DELETE ";N$:216,0:12:N$;" HAS BEEN DELETED.":35000::880216,0D,Z:D01193T1D:W$(T),S(T),S1(T):D$"CLOSE"D$J::" LIST: ";ED.":35000::1180KCC0:"I AM UNABLE TO USE THIS FILE.":35000::880Z15:1170D$;"OPEN ";N$:216,0:D$;"READ ";N$:216,0:3180P$"":P$:216,0:CR1ĺD$:923P$"SPELL/WORDER/MIXUP"3180#P1$:P1$PW$ĺD$::5:"'";PW$;"'.":35000:880`ER13CR1ĺ"SORRY, YOU CAN'T NAME"::"THE FILE '";N$;"'.":35000:CC0:880ER13CC0:"SORRY, '";N$;"' ISN'T A WORD LIST.":35000:880CCCC1:CC1ĺ"PLEASE MAKE SURE THE DISKETTE IS IN"::"PLACE AND THE DRIVE DOOR IS CLOSIST TO USE IT ON ANY OF THE PROGRAMS.":::"THE PASSWORD IS NEEDED ONLY IF YOU"::"WANT TO EDIT THE LIST ON THIS PROGRAM."35000::880ER(222):216,0::4:ER4CC0:"PLEASE REMOVE THE WRITE-PROTECT"::"STICKER FROM THE EDGE OF THE DISKETTE2:"YOU HAVE JUST CREATED A LIST OF WORDS"::"THAT CAN BE USED WITH MIXUP, SPELL, OR"::"WORD FIND."::"THE NAME OF THE LIST IS ";(34);N$;(34)::"AND THE PASSWORD IS ";(34);PW$;(34);"."|::"STUDENTS NEED TO KNOW THE NAME OF THE"::"LECT"::"STICKER FROM THE EDGE OF THE DISKETTE.":35000:1082zCCCC1::10:CC1ĺ"PLEASE BE SURE THE DISKETTE IS IN"::"PLACE AND THE DRIVE DOOR IS CLOSED.":35000:1082|"I AM UNABLE TO USE THIS FILE.":35000:::880E10:ED1ė:1180h0:216,0:1142&=D$;"OPEN ";N$:BD$;"WRITE ";N$TL"SPELL/WORDER/MIXUP"]QPW$jVD;",";Zu`I1DjW$(I);",";S(I);",";S1(I)tI:D$;"CLOSE ";N$:216,0:1151vER(222):216,0=wER4CC0::10:"PLEASE REMOVE THE WRITE-PROT ";:Y$:I(Y$):(IZZI0)IZ1I(I)(I)Y$1072E3I01070|421:958:"CHANGE ";W$(I);" TO ";:Y$:Y$""10765W$(I)Y$:R2((I1)8.01):R22(R22)Ė20632I16R2:36,(36)4:15):5:R22(R22)Ė247W$(I):10708CC080,1210q.21:958:"DO YOU WANT TO CHANGE":868:"ANY OF THESE WORDS? ";Y$:Y$(Y$,1):Y$"Y"Y$"N"1070/Y$"N"ė:021:958:"WHICH WORD (";:ZZ(R11)81:R1(R12.01)ZZR1811ZZ;" - ";:Z1D:(R11)8DZ1(R11)872Z1;")S: ";D:" TIME LIMIT: ";Z?'34,4:D0ĉ::E111080,1210o(T1D:R1((T1)8.01):R12(R12)Ė20)32T16R1:T100ĺ" ";:T10ĺ" ";*T;" ";W$(T):T16(T16.01)TDĴE111070,35000:,T:E111070,35000-34,0::E111K92LL:(W$(T),K9,1)" "W$(T)(W$(T),K91)(W$(T),K91)Ca(W$(T))15Č958:104020:" KEEP THE WORDS TO 15 LETTERS PLEASE.";:1010W$(T)""1060T$DT1::D0880%ED11080&34,0::" LIST: ";N$;:20:"WORDTLE LONG. TRY"::"SOMETHING UNDER 30 SECONDS.":955:"ENTER WORDS 1 AT A TIME UP TO 100 WORDS.":"ENTER A 'RETURN' WHEN FINISHED."T11009:5:70):13:1:40)5:1:"WORD #";T;" ";:868W$(T)LL(W$(T)):LL21020=14:"WHEN THIS LIST IS USED FOR THE SPELL"::"PROGRAM, HOW MANY SECONDS SHOULD THE" 18:868:"STUDENT HAVE TO LOOK AT A WORD? ";Y$:Z(Y$):Z(Z)Z0(Z0Y$"0")(Z)Y$955 Z0Z5 Z31Č958:ED1980,1080521:"THAT SEEMS A LIT42,173,232,3,233,0,133,43,169,99,145,42,200,169,3,145,42,104,168,96,72,72,173,2,3,197,36,104,176,3,72,169 "<ǃ 160,44,98,3,240,3,238,2,3,8,32,169,3,40,104,72,144,228,73,13,10,208,13,141,2,3,169,138,32,169,3,169,88,32,168,252,169,0,133 ]#=ǃ 2,72,172,0,3,8,169,5,141,3,3,169,192,24,109,0,3,141,4,3,169,255,153,120,7,169,17,153,248!:ǃ 7,152,10,10,10,10,168,169,3,153,142,192,169,17,153,142,192,169,155,141,1,3,169,54,133,42,160,0,140,2,3,132,43,40,144,14,173 k";ǃ 231,3,233,110,133,:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"c *768,FACE:769,SLOT:770,ST:L1(FACE$) /771,L1:K1L1:771K,((FACE$,K,1)): 4:60 7Dz PRINTER 8ǁZP0181:ZQ:765ZP,ZQ:ZPX!9ǃ 76,5,3,2,255,255,255,255,24,176,56,151(CV23):ZN(ZN$):.JCV1:36,CH:868:D END OF PROGRAMSD$;"PR#0"^::58:"WOULD YOU LIKE TO TRY"::"AGAIN (YES OR NO)";:868" ?";A$:A$(A$,1):A$"Y"A$"N"43005A$"Y"Ĺ1022,1:43050(1023)123ė:7 ĬӬŬ٬٬ϬԬЬҬŬĬȬͬŬԬͬҬ̬ŧӬˬŧӬȬˬŬ٬ӬԬ̯үЍĬˬ̬άĬӬǬ٬ԧӬէŬάŬŬĬ٬ĬΧԬĬӬǬҬԬ ̯үЍԠĬˬӬԬŬĬӬЬԬŬӬ̯үЍԠԬӬӬάӬԬƬάŬ׬٬ǬFACE:769,SLOT:770,ST:L1(FACE$)M!/771,L1:K1L1:771K,((ZF$,K,1)):W!4:60k!?nj775:769,155:~!@Ǻ(4);"PR#0":MENU PROGRAM...":D$;"RUN HELLO"8:"AGAIN (YES OR NO) ?";A$:A$(A$,1)AA$"Y"A$"N"43005A$"Y"āT1100:C%(T)0:W$(T)"":F$(T)""::X(0):X0::130(1023)123ė::10:"GETTING THE MENU PROGRAM...":D$;"RUN HELLO"RAM...":D$;"RUN HELLO"O"GETTING THE "";ZN$:(ZN$)(((ZN$)))40003@B(ZN$)0ZN$"0"40006{CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001FZM:868:CV1(CV23):ZN(ZN$):JCV1:36,CH:868: END OF PROGRAM:&8:"DO YOU WANT TO TRY":10:86ZD64:22330:WZIZX(Z1)ZW:ZI0ZI(279ZWZA)22330U&WZZZD(ZZZD0)ZI,ZJr0WZF1ZXZXZA:ZD0:ZF0{:WZ:24:868:16368,0:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:16384,128:16368,0:1:868:@CH(36):CV(37)#AVZU022290,VZZ65ZZ90ZD0:22300FWZD64:ZXZXZA:22300lWZZ94ZF1:ZXZXZW:ZD64:22330WZIZX(Z1)ZW:ZI0ZI(279ZWZA)22330&WZZZD(ZZZD0)ZI,ZJ0WZF1ZXZXZA:ZD0:ZF0:WZ:@40010:ZX50:ZY190:ZT$"^PLEASE(ZA$)2:Z0ZA$"":22200-VZA$(ZA$,Z)GVZKZW:ZU0ZKZKZAVZTZYZH:ZBZY:ZLZX:ZRZXZK:22090:ZXZXZK:22140V WRITE ON HGR SCREENVZT$""ıVZJZY15:ZJ0ZJ192ZHıVZD0:ZF0:Z1(ZT$):ZZ((ZT$,Z,1)):ZZ3222330ZY(ZA1)8ZH(ZA2)4:ZBZY2(ZA1)5:ZLZX(ZU1)ZA:ZRZXZW:ZXZXZW(ZU1)ZA:22090VZA$(ZA$,1,(ZA$)1):(ZA$)1ZA$(ZA$,1,(ZA$)1):22140VZA$"":22140VZXZXZW(ZU1)ZA:ZT$X$Z$:22230:22140VZA$(8)ZA$"":22140VZCORES ON HGR SCREEN@^VZT$"":Z1ZN:ZT$ZT$(95):Z:22230:[hV INPUTS ON HGR SCREENorVZA$"":ZXZXZW|V16368,0:Z$:(Z$)13(Z$)32ıV(Z$)8ZXZW(ZU1)ZA26722140VZA$ZA$Z$:(Z$)822160VZA$(8)ZA$"":22140\VZT8:22090*,V(16384)128İ22080:22050f6V16368,0:ZT190ZH2:ZB191:ZL0:ZR279:22090:ZUZK:@VZX270ZW19:ZT$"'SPACE BAR":22230:ZX270ZW9:ZT$"'":22230:EV CLEARS ANY SPOT ON HGR SCREENJV0:ZZTZB:ZL,ZZR,Z:Z:3:TV UNDERS16304,0:62450:3:1:0:*U16301,ZF:jV16368,0:ZKZU:ZU0:ZX275ZW25:ZY191:ZT$"PRESS":22230V22080:ZX276ZW8:ZT$"TO GO ON":22230VZ1(ZS1)84:(16384)12722070VZ "VZ1250:Z:ZT190ZH2:ZB191:ZL270ZW19:ZR273ZW ZE1ĬZE343049V:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"b)1023,9j*:TH YES OR NO":43005r "WOULD YOU LIKE TO:"::"1) RUN THIS PROGRAM AGAIN,"::"2) RUN A DIFFERENT PROGRAM, OR" :"3) END"13:"PLEASE ENTER 1, 2, OR 3 ";:86840000:ZEZNZE0ZE443030:"PLEASE ENTER A NUMBER 1 - 3":430221(CV23):ZN(ZN$):.JCV1:36,CH:868:D END OF PROGRAMO::5f(1023)123430205:"WOULD YOU LIKE TO RUN THIS PROGRAM"::"AGAIN - YES OR NO";:868A$(A$,1,1)"Y"Ĭ(A$,1,1)"N"43050:"PLEASE ANSWER WI,D$;"CLOSE ";N$6350W@13:"KEEP THE WORDS TO 11 LETTERS PLEASE.":1020:1460m@CH(36):CV(37)A"";ZN$:(ZN$)(((ZN$)))40003B(ZN$)0ZN$"0"40006CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001FZM:868:CV":10:W$;" CHANGED TO";:W1$7(W1$)11ī1600EW$(D)W1$:10:"DO YOU WANT TO CHANGE MORE";:Y$:Y$(Y$,1,1):Y$"Y"1420Y$"N"1490D$;"DELETE ";N$D$;"OPEN ";N$D$;"WRITE ";N$TD1TW$(D)"DRAM D$;"PR#0" ::5[ 8:"WOULD YOU LIKE TO TRY"::"AGAIN (YES OR NO)";:868 " ?";A$:A$(A$,1):A$"Y"A$"N"43005 A$"Y"Ĺ1022,1:43050 (1023)123ė: :10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO""!*768,:16368,0:1:868:+@CH(36):CV(37)TA" ";ZN$:(ZN$)(((ZN$)))40003qB(ZN$)0ZN$"0"40006CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001FZM:868:CV1(CV23):ZN(ZN$):JCV1:36,CH:868: END OF PROG.O:202128O10:!;O768,ZG5=OZN$"30"20288I>O802,82:818,82^@O823,80:797,127lAO775:ST1BOZJ3ZJ4İ20232:(9)ZH"N": CHAR/LINEGOZQ1:::24:1:868:16368,0:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:16384,1287)Z7(ZJ)20252OZJ'OZJ0:20255<OZK02:Z2(ZK)0gOZI02558:Z2(ZK)Z2(ZK)(ZWZI)::OZ2(0)Z2(1)Z2(0)Z2(2)Z2(0)25620260O: O NO KNOWN PRINTER INTERFACE FOUND!OZJ1:ZG1$O FOUND INTERFACE 'ZJ'IN SLOT 'ZG' RFACE:OZ5(4),Z7(4): COMM=1, SERIAL=2, PAR=3, MALIBU=4dO: "-SEARCH-",24,56,56,24,72,72,8,72OZI$:ZI$"-SEARCH-"20243OZJ14:Z5(ZJ),Z7(ZJ):OZ2(2)OZW4940850944256OZG(ZW49152)256OZJ14O(ZW5)Z5(ZJ)(ZWA5D8D914850% :D8D9D9114910.*:D8194:14850@>:TKH:22000WR:H8H81p\:H8M2H8H915040f:H8H9H9114980p:H81z:15040:V8V81:H8H9:V8M1V8V915040:V8V9V91D84V9(M1M21)15030:V81:),XX,1)(UI$,XY,1)B(XX)XY:14823+9XY39XXE9B(0)P14910a9 PICK DIRECTIONAL MODEv9A62A61148409A64(1).5176509A549D8((1)(A5.00001)1):D9D8:D816930,17100,17270,17440:O0014910 :D8D81:D8 - LONGEST FIRST8v9W$(0)"":T1255:W$(0)W$(0)" ":C9T2AW9T1$W$(T):IT19(T1$)(W$(I))W$(I1)W$(I):II1:147409W$(I1)T1$9T9T319 PLACE THE WORDS9A6A59T1A#9B(0)(W$(T)):XX1B(0):XY163:(W$(TZ1$,1,1)"N"136506126"WHAT SIZE DO YOU WANT THE PUZZLE TO BE?"::"(BETWEEN ";L13;" AND 32) ";:868:ZN$:P(ZN$):PL13P32P(P)(P)ZN$14005"8:10:17::"WORKING":@8B1AJ8X$(B)""T8Bl9 SORT W$ BY LENGTH OF WORD6.W$(JK)@.4T.JK16(JK16)(JKA)İ23000:<h.JKGr.23000Mw.S44:"WHAT HEADING DO YOU"::"WANT ON THE PUZZLE? ";H$R575"DO YOU WANT THE WORDS PRINTED IN A LIST"::"AT THE END? ";:868L6"";Z1$6(Z1$,1,1)"Y"( TO SEE A LISTING OF THE"::"WORDS IN THE FILE";:868f,"? ";C$:C$(C$,1):C$"Y"C$"N"11400}P-(C$,1)"N"13450-::"LIST: ";B$;:20:"WORDS: ";A-34,3.JK1A".R1((JK1)8.001),.32JKR1161.R12(R12)Ė20 CH(36):CV(37):A"";ZN$:(ZN$)(((ZN$)))40003WB(ZN$)0ZN$"0"40006CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001FZM:868:CV1(CV23):ZN(ZN$):JCV1:36,CH:868:86840000:ZEZN*ZE0ZE41980U:"PLEASE ENTER A NUMBER 1 - 3":1940aZE1ĬpZE32010:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"1023,9:D$::10:"SORRY, ";N$;" IS A FILE FOR "P$:1240::230@ NO";:868XA$(b(A$,1,1)"Y"Ĭ@l(A$,1,1)"N"2020lv:"PLEASE ANSWER WITH YES OR NO":1870"WOULD YOU LIKE TO:"::"1) RUN THIS PROGRAM AGAIN,"::"2) RUN A DIFFERENT PROGRAM, OR":"3) END"13:"PLEASE ENTER 1, 2, OR 3 ";: ";N$D$;"OPEN ";N$,D$;"WRITE ";N$<"WORDGAME"CDNT1DcA$(T);",";D$(T)jT~D$;"CLOSE ";N$&5200 END OF PROGRAM:::5D(1023)1231920 N5:"WOULD YOU LIKE TO RUN THIS PROGRAM"::"AGAIN - YES OR20:10:"PLEASE KEEP THE DEFINITION":15:"UNDER 40 LETTERS."T11:250):1660gD$(T)M$:1720:10:"DEFINITION NOT CHANGED":1240:1720:10:"DO YOU WANT TO CHANGE MORE";:Y$:Y$(Y$,1,1):Y$"Y"1480Y$"N"1720D$;"DELETECH(36):CV(37):A"";ZN$:(ZN$)(((ZN$)))40003WB(ZN$)0ZN$"0"40006CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001FZM:868:CV1(CV23):ZN(ZN$):JCV1:36,CH:868::":M$:M$" "1710(M$)411700?86840000:ZEZN*ZE0ZE41980U:"PLEASE ENTER A NUMBER 1 - 3":1940aZE1ĬpZE32010:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"1023,9:D$::10:"SORRY, ";N$;" IS A FILE FOR "P$:1240::230@ NO";:868XA$(b(A$,1,1)"Y"Ĭ@l(A$,1,1)"N"2020lv:"PLEASE ANSWER WITH YES OR NO":1870"WOULD YOU LIKE TO:"::"1) RUN THIS PROGRAM AGAIN,"::"2) RUN A DIFFERENT PROGRAM, OR":"3) END"13:"PLEASE ENTER 1, 2, OR 3 ";:,56:Y1200:Y:XI?JZT165:ZB190:ZL1:ZR279:22090:dcZT33:ZB45:ZL245:ZR279:22090md251hZT100:ZB118:ZL245:ZR279:22090:270ȯZT0:ZB170:ZL105:ZR279:22090ɯ40010: TYPE A NUMBER.":K91:22220:JAZT120:ZB135:ZL110:ZR279:22090:191UB40010CZX50:ZY190:ZT$"^THAT'S NOT RIGHT!":22220:K91:GX1200:X:X15:0:10043,56:3:Y6163:45,Y58,Y:Y:Y150:YH0:Y6163:45,Y58,Y:Y:3:10043:"KEY WHEN YOU WANT THE PUZZLE TO PRINT."2,VC$=,VT13C,VJ,VTf,VP21(H$)ĺH$:22190~,V(P2(H$))2);H$,V,VT1P,VC1P,VA(T,C)022250,V(UI$,A(T,C),1);" ";,V22260,V(UI$,((1)261),1);" ";,VC-VP21(H$)ĺH$:22066/+0V(P2(H$))2);H$5+2V@+6VT1PK+@VC1P_+JVA(T,C)022120y+TV(UI$,A(T,C),1);" ";+^V22130+hV". ";+rVC+|V+VT+V:*,V"IF YOU WISH, YOU MAY INSERT A DITTO":"MASTER AT THIS TIME. PRESS THE RETURN" FOUND INTERFACE 'ZJ'IN SLOT 'ZG'.*.O:20212;*8OZE21632E*9O10:Q*;O768,ZGe*=OZN$"30"20288y*>O802,82:818,82*@O823,80:797,127*AO775:ST1*BOZJ3ZJ4İ20232:(9)ZH"N": CHAR/LINE*GOZQ1:::*U20200*VT13*"V*,VT+.VOZJ142)O(ZW5)Z5(ZJ)(ZW7)Z7(ZJ)20252:)OZJJ)OZJ0:20255_)OZK02:Z2(ZK)0)OZI02558:Z2(ZK)Z2(ZK)(ZWZI)::)OZ2(0)Z2(1)Z2(0)Z2(2)Z2(0)25620260)O:) O NO KNOWN PRINTER INTERFACE FOUND)!OZJ1:ZG1!*$O0280((O SEARCH SLOTS FOR AN INTERFACE](OZ5(4),Z7(4): COMM=1, SERIAL=2, PAR=3, MALIBU=4(O: "-SEARCH-",24,56,56,24,72,72,8,72(OZI$:ZI$"-SEARCH-"20243(OZJ14:Z5(ZJ),Z7(ZJ):(OZ2(2)(OZW4940850944256(OZG(ZW49152)256 )0"ZA82'O ZH=CHAR/LINE; ZV=I/O: 0-OUTPUT BOTH, INPUT APPLE; 1-OUTPUT BOTH, INPUT PRINTER; 254-OUTPUT PRINTER ONLY, INPUT APPLE; 255-OUTPUT PRINTER ONLY, INPUT PRINTER'O20232:20235'OZH80' OZV0' O' O:10:"ONE MOMENT PLEASE..."( O2$"COMM, SERIAL OR PARALLEL"ZJ1(ZQ)202208&N23000N&N10::ZJ120289&NZF$"COMM, SERIAL OR PARALLEL"ĺ(4);"PR#";ZG:20290&N(4)ZF$:20295&N10:868:"WHICH SPEED (10 OR 30 CPS) ";&NZN$:ZN$"10"ZN$"30"20220'NZA17:ZN$"1%N-%NZQĺ(13);(4);"PR#0":(4);"IN#0"P%NZF$"COMM, SERIAL OR PARALLEL"%N(ZQ)ZF$"COMM, SERIAL OR PARALLEL"Ģ10:"ONE MOMENT PLEASE...":20240%NZF$"COMM, SERIAL OR PARALLEL"ZJ120290-&N:5:"TURN YOUR PRINTER ON AT THIS TIME.":ZFPR#0:IN#0.$N ** IF YOU HAVE A SPECIAL INTERFACE FOR YOUR PRINTER (OTHER THAN A COMMUNICATIONS, SERIAL OR PARALLEL PRINTER INTERFACE), CHANGE ZF$ IN LINE 20210 TO THE STRING THAT WILL ACTIVATE YOUR PRINTER.$N ** ROUTINE USES LINE #'S 20200 - 20299#N LAST UPDATE: 6/3/81#N ** TO USE: CHANGE THE WORD 'SPACEBAR' IN LINE 20214 TO THE LINE # OF YOUR 'PRESS SPACE BAR TO CONTINUE' ROUTINE. $N ** WHENEVER YOU WANT OUTPUT TO GO TO PRINTER, DO GOSUB 20200. TO STOP OUTPUT FROM GOING TO PRINTER, DO 3)W$(T)"DT3T31%"DT90B(0)1@"DA(V8T9,H8T9)B(T91)H"DT9N"D\"D REVERSEp"DT91(B(0)2)}"EQ0B(T9)"EB(T9)B(B(0)T91)"EB(B(0)T91)Q0"$ET9".E14840"N ** PRINTER ROUTINE--LOOKS FOR PRINTER INTERFACE IN SLOTS 1-7.4DM2PB(0)1!>DM1P:!HDH8((1)(M2.000001)1):H9H8e!RDV8((1)(M2.00001)(M1M21)):V9V8v!\DT90B(0)1!fDA(V8T9,H8T9)0A(V8T9,H8T9)B(T91)17580!pD14930!zDO0117640!DV8117500!DV8M1M21!D17500!DT9"DY$(T(1)(M2.00001)1):H8H9* CT90B(0)1] CA(V8T9,H8T9)0B(T91)A(V8T9,H8T9)17370h C14930x CO0117430 C17320 CT9 CY$(T3)W$(T) CT3T31 CT90B(0)1 DA(V8T9,H8T9)B(T91) DT9 D D DIAGONALLY2 *DO00 !0A(T9,H8)B(T9V81)17200&C149306CO0117260A&C17150I0CT9Z:CY$(T3)W$(T)fDCT3T31{NCT9V8V8B(0)1XCA(T9,H8)B(T9V81)bCT9lCvC DIAGONALLY 1CO00CM1PB(0)1:M2M1CV9((1)(M1.00001)1):V8V9 CH9(BY$(T3)W$(T)BT3T31(B PLACE IT=BT9H8H8B(0)1UBA(V8,T9)B(T9H81)]BT9cBtB VERTICALLY}BO00BM1PB(0)1BM2PBV9((1)(M1.00001)1):V8V9BH9((1)(M2.00001)1):H8H9BT9V8V8B(0)1CA(T9,H8)15040:O01:'"B HORIZONTALLY0'BO009,BM1PI6BM2PB(0)1l@BV9((1)(M1.00001)1):V8V9JBH8((1)(M2.00001)1):H9H8TBT9H8H8B(0)1^BA(V8,T9)0A(V8,T9)B(T9H81)17020hB14930mBO0117090rB16980|BT9 -------------"8:):"THE ANSWERS"<<"-----------"D>:R@"ACROSS"bB"------":mDZ1R~FR11Z590H:J"DOWN"L"----":NZ10N1PZA(Z1,4)596RZ1TAA$"[ "(A(Z1,1)A)" , "(A(Z1,2)B)" ]":AA$0)D546RR1!A(Z3,4)ROAA$"[ "(Z1A)" , "(Z2B)" ]":AA$;z13(AA$));B$(Z3,0):13);B$(Z3,1): 548"Z3$Z2&Z1(D2564*:"DOWN","----":.D20R1R25284:6:"-----------------Z80502Z81>Z9((Z1B)Z)Z8((Z1B)10)10K" ";Z9;SZ1Y`Zh:n"THE CLUES":"ACROSS" "------" D1Z1A135Z2B34CZ30N1 A(Z3,1)Z1A(Z3,2)Z2A(Z3,"XX";(C%(Z,Z2)0C%(Z,Z21)04661468<"[ ";]C%(Z,Z2)0C%(Z,Z21)0472f474q"]X";C%(Z,Z2)0C%(Z,Z21)0478480"I ";Z2ZZ1019BC2);4Z1B134CZ1500Z428DD1Z35444*Z1135?C%(Z1,Z)0444GZ1WB1Z440aBB1nBZ444xCC1ZZA135DBC((ZA)9));1(ZA10)ZA;" ";Z2B34CC%(Z,Z2)0C%(Z,Z21)0460462:O6:"WHAT HEADING DO YOU"::868:"WANT ON THE PUZZLE? ";A$X614~:2:16::"THINKING"::4:34,3:34(A$)2);:1:A$:Z135Z1134C%(Z,Z1)0428Z1A1Z424AA1AH1H372rH1H:H0:274'tFS3901vSS19xTSczNN035:NM035:C%(NN,NM)0:NM:NNp|Z0N1~A(Z,0)0:A(Z,1)0:A(Z,2)0ZA0:B0:C0:D0:H0:H10:R0:W0:X0:Y0262:3:"SORRY, I COULDN'T GET THEM ALL IN.":396+NC%(A(Z1,1)Z2,A(Z1,2)Z5)A(Z,Z5Z35)APA(Z,1)A(Z1,1)Z2WRA(Z,2)A(Z1,2)Z3_TZ5vV(A(Z1,0)1)0348XA(Z,0)1Z350\A(Z,0)2^358`Z3bZ2dZ1fZhT1jZ0N1:A(Z,0)0HH1lZnH0394p2)Z4)03523:C%(A(Z1,1)Z2,A(Z1,2)Z31)0352_<C%(A(Z1,1)Z2,A(Z1,2)A(Z,3)Z3)0352g>Z4@Z5Z3A(Z,3)1Z3BZ50340DA(Z1,0)2334FC%(A(Z1,1)Z5,A(Z1,2)Z2)A(Z,Z5Z35)HA(Z,1)A(Z1,1)Z3JA(Z,2)A(Z1,2)Z2L340234,133,0,104,96,108,3,3,169,141,32,169,3,169,0,141,2,3,240,2092,3,240,9,205,1,3,144,6,176,9,234,234,133,0,104,96,108,3,3,169,141,32,169,3,169,0,141,2,3,240,2099,99,145,42,200,169,3,145,42,104,168,96,72,72,173,2,3,197,00,104,176,3,72,1692 160,44,98,3,240,3,238,2,3,8,32,169,3,40,104,72,144,228,73,13,10,208,13,141,2,3,169,138,32,169,3,169,88,32,168,252,169,0,133?3 0,173,2,3,240,9,205,1,3,144,6,176,9,234,RAM...":(4);"RUN HELLO"141,4,3,169,255,153,120,7,169,17,153,2481 7,152,10,10,10,10,168,169,3,153,142,192,169,17,153,142,192,169,155,141,1,3,169,54,133,42,160,0,140,2,3,132,43,40,144,14,173M2 231,3,233,110,1 33,42,173,232,3,233,0,133,43,16 3):ZN(ZN$):'0JCV1:36,CH:868:=0 END OF PROGRAMH0::5010:"DO YOU WANT TO TRY"::868:"AGAIN (YES OR NO) ?";A$:A$(A$,1):A$"Y"A$"N"430050:A$"N"43030030000(1023)123ė:1:10:"GETTING THE MENU PROG21:868:"'";N$;"' IS NOT ON THIS DISK.":D$;"CLOSE ";N$:D$;"DELETE ";N$:6250f/@CH(36):CV(37)/A"";ZN$:(ZN$)(((ZN$)))40003/B(ZN$)0ZN$"0"40006/CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:400010FZM:868:CV1(CV2OOK FOR:":.WT1T31%.WY$(T);>.WT2(T2)ĺ:22440I.W25);P.WTV.We.WD$;"PR#0"z.WFACE255İ23000.W43000.Y24:868:7:16368,0:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:16384,128:16368,0:1:868:15:P/]216,0:-WT -WH-W"THERE ARE "T31" WORDS HERE - CAN":"YOU FIND THEM?"b-&W(Z1$,1,1)"N"22450p-0W SORT Y$-:WY$(0)"":T2T31-DWT1$Y$(T):IT1-NWT1$Y$(I)Y$(I1)Y$(I):II1:22350-XWY$(I1)T1$-bWT-W .W"HERE ARE THE WORDS TO L216,0:ER0:15:1382!e1388fER(222):216,0:ER4CZ1Ģ20:958:"THERE IS ALREADY A"::"PROGRAM CALLED '";N$;"'.":1240:CZ0:15:225gER4Ģ20:958:"'";N$;"' IS NOT A WORD LIST.":1240:200Dh20:958:"PLEASE REMOVE THE WRITE-PRO5,1,3,144,6,176,9,234,234,133,0,104,96,108,3,3,169,141,32,169,3,169,0,141,2,3,240,209D169,3,40,104,72,144,228,73,13,10,208,13,141,2,3,169,138,32,169,3,169,88,32,168,252,169,0,133$. 0,173,2,3,240,9,205,1,3,144,6,176,9,234,234,133,0,104,96,108,3,3,16232,3,233,0,133,43,16 9,99,145,42,200,169,3,145,42,104,168,96,72,72,173,2,3,197,00,104,176,3,72,169, 160,44,98,3,240,3,238,2,3,8,32,169,3,40,104,72,144,228,73,13,10,208,13,141,2,3,169,138,32,169,3,169,88,32,168,252,169,0,133U- 0,173,2,3,240,9,20,152,72,172,0,3,8,169,5,141,3,3,169,192,24,109,0,3,141,4,3,169,255,153,120,7,169,17,153,248+ 7,152,10,10,10,10,168,169,3,153,142,192,169,17,153,142,192,169,155,141,1,3,169,54,133,42,160,0,140,2,3,132,43,40,144,14,173c, 231,3,233,110,1 33,42,173,$,1):A$"Y"A$"N"430056*A$"Y"Ĺ1022,1:43050h*D$;"MAXFILES 3"::22016:(1023)123ĉ::*:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"**::60*H PRINTER ROUTINE*R -PRINTER[+z 76,5,3,2,255,255,255,255,24,176,560006?)CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001g)FZM:868:CV1(CV23):ZN(ZN$):)JCV1:36,CH:868:) END OF PROGRAM)::5)5:"WOULD YOU LIKE TO RUN THIS PROGRAM"::"AGAIN - YES OR NO";:868*" ?";A$:A$(A>O802,82:818,82%(@O823,L1:797,F10(AO:7759(BOST1?(DO(24:868:16368,0:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:16384,128:16368,0:1:868:(@CH(36):CV(37)(A"";ZN$:(ZN$)(((ZN$)))40003)B(ZN$)0ZN$"0"420260'OFACE'OFACE0"'O:J' O NO KNOWN PRINTER INTERFACE FOUND`'!OFACE255:SLOT255'$O FOUND INTERFACE 'FACE' IN SLOT 'SLOT''.O'8O'9OZ$:Z$"-PRINTER"20281':OZ0186:Z1:765Z,Z1:';O768,SLOT'=OZN$"30"20288(10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"@&::114P& -PRINTERK)CS(ZK)(ZSZI)::&OCS(0)CS(1)CS(1)CS(2)CS(2)256CS(0)256CS(1)25620255&OSLOT(ZS49152)256&OFACECOMMPAR'O(ZS5)S5(FACE)(ZS7)S7(FACE)ZN(ZN$):$%CV1:36,CH:868:*%5%::5%5:"WOULD YOU LIKE TO RUN THIS PROGRAM"::"AGAIN - YES OR NO";:868%" ?";A$:A$(A$,1):A$"Y"A$"N"722%A$"Y"Ĺ1022,1:732%D$;"MAXFILES 3"::22016:(1023)123ĉ::3&:8,0:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:16384,128:16368,0:1:868:k$CH(36):CV(37)$"";ZN$:(ZN$)(((ZN$)))712$(ZN$)0ZN$"0"714$ZM:"THAT IS NOT A NUMBER - TRY AGAIN";:716:708 %ZM:868:CV1(CV23):(ZWZI)::9#Z2(0)Z2(1)Z2(0)Z2(2)Z2(0)256684A#:Q#ZJ1:ZG1W#b#:622j#10x#768,SLOT#ZN$"30"696#802,82:818,82#823,L1:797,F1#:775#ZJ3ZJ4İ642:(9)ZH"N"#ZQ1:::U$24:868:163656,24,72,72,8,72."ZI$:ZI$"-SEARCH-"656K"ZJ14:Z5(ZJ),Z7(ZJ):V"Z2(2)n"ZW4940850944256"ZG(ZW49152)256"ZJ14"(ZW5)Z5(ZJ)(ZW7)Z7(ZJ)674"ZJ"ZJ0:680"ZK02:Z2(ZK)0 #ZI02558:Z2(ZK)Z2(ZK)G:700!x(4)ZF$:702F!z10:868:"WHICH SPEED (10 OR 30 CPS) ";h!|ZN$:ZN$"10"ZN$"30"634!~ZA17:ZN$"10"ZA82!642:648!ZH80!ZV0!!:10:"ONE MOMENT PLEASE..."!688!Z5(4),Z7(4)": "-SEARCH-",24,56,LEL"Ģ10:"ONE MOMENT PLEASE...":652S nZF$"COMM, SERIAL OR PARALLEL"ZJ1700 p:5:"TURN YOUR PRINTER ON AT THIS TIME.":ZF$"COMM, SERIAL OR PARALLEL"ZJ1(ZQ)634 r704 t10::ZJ1698!vZF$"COMM, SERIAL OR PARALLEL"ĺ(4);"PR#";Z;V13(AA$));A$(Z1) XZ(Z:N\"------------------------------"]^D$;"PR#0"l`:2:868bFACE255İ704d718fhZQĺ(13);(4);"PR#0":(4);"IN#0"jZF$"COMM, SERIAL OR PARALLEL"% l(ZQ)ZF$"COMM, SERIAL OR PARAL NUMBER - TRY AGAIN";:40010:40001K'FZM:868:CV1(CV23):ZN(ZN$):d'JCV1:36,CH:868:ZDER 20 LETTERS PER LINE.";:1:42708&Y$""DD04274L&D$(Y,DD)Y$:DDc&20:958:IR11:w& GET A LISTING&LI1:4000:LI0:&@CH(36):CV(37)&A"";ZN$:(ZN$)(((ZN$)))40003&B(ZN$)0ZN$"0"40006#'CZM:"THAT IS NOT A(Y$)15Ģ23:"PLEASE KEEP IT SHORTER THAN 15 LETTERS.":20:868:4250f%20:958:A$(Y)Y$:IR11:%20:868:"#";Y;" DEFINITION"%DD01%21DD:868:7:DD0Ą"FIRST LINE: ";Y$:4280%"SECOND LINE: ";Y$#&(Y$)20Ģ24:"KEEP IT UN CHANGE THE WORD OR"g$22:868:"THE DEFINITION ('W' OR 'D') ?";Y$:Y$(Y$,1):Y$"W"Y$"D"4232$20:958:Y$"D"4270$20:868:"WORD #";Y;:": ";Y$:Y$""4250$L1(Y$):L22L1:(Y$,L2,1)" "Y$(Y$,L21)H(Y$,L21)$L2F%$"Y"Y$"N"4200!#m20:958/#rY$"N"ıE#wR1((I1)4)41#|20:"WHICH ONE DO YOU WANT TO CHANGE?"::868:"(ENTER ";R1;" - ";R2;:") ?";Y$:Y((Y$)):((YR1YR2)Y0)(Y)Y$4220#Y0Ģ20:958:4200$20:868:"DO YOU WANT TO4)3"ZV43I12R1:ZV:I100ĺ" ";:I10ĺ" ";f"I;" ";A$(I);:20:D$(I,0);:20:ZV1:D$(I,1)"@I4(I4)IDR2I:LI14200,1240:"JI:::II1:LI0İ1280"T#h20:"DO YOU WANT TO"::868:"CHANGE ANY OF THESE? ";Y$:Y$(Y$,1):Y$:Y$(Y$,1):Y$"N"Y$"Y"36006!Y$"Y"ė:3510@!$1480U! CHANGE ENTRIES!:::" LIST: ";N$;:20:"ENTRIES: ";D!D0Ģ10:"THERE ARE NO WORDS IN THIS LIST.":1240:!5:5:"WORD";:22:"DEFINITION":7:34,6"I1D:R1((I1) 958 I1D:A$(I)W$3550P I:15:"'";W$;"' ISN'T IN THE LIST.":3600 I1I:II1D1:A$(I)A$(I1):D$(I,0)D$(I1,0):D$(I,1)D$(I1,1)::A$(D)"":D$(D,0)"":D$(D,1)"":DD1:1280"!19:"DO YOU WANT TO"::868:"DELETE ANOTHER ENTRY? ";YLLO"^D$:22:"USE 'SPELL CREATE' TO ";EC$(Y1);" '";N$;"'.":14:D$;"CLOSE ";N$:1240:200p ADD ENTRIES IND1:340 ID1480 DI:1280:1480 DELETE ENTRIES 8:"WHICH WORD DO YOU"::868:"WANT DELETED? ";W$:W$""1480 "DELETE ";N$D$;"OPEN ";N$3D$;"WRITE ";N$C"WORDGAME"JDUT1DjA$(T);",";D$(T)qTD$;"CLOSE ";N$&5200 END OF PROGRAM:::5D(1023)123ĉ:::10:"GETTING THE MENU PROGRAM...":(4);"RUN HE700F20:10:"PLEASE KEEP THE DEFINITION":15:"UNDER 40 LETTERS."[11:250):1660nD$(T)M$:1720:10:"DEFINITION NOT CHANGED":1240:1720:10:"DO YOU WANT TO CHANGE MORE";:Y$:Y$(Y$,1,1):Y$"Y"1480Y$"N"1720 D$;DS TO 20 LETTERS PLEASE.".J10:180):1580jT:10:"THE WORD OF THE DEFINITION TO BE CHANGED":W$:u^T1DhA$(T)W$1660rT:10:"I CAN'T FIND THAT WORD":1240:1620|10:1:D$(T)::"NEW DEFINITION":M$:M$" "1710(M$)411(Y$,1,1):Y$"W"Y$"D"1520'14808Y$"D"1620[:10:"WORD TO CHANGE";:W$:fT1DyA$(T)W$1570T::10:"I CAN'T FIND ";W$:1240:1530",10:1:W$;" CHANGED TO";:A$(T)6(A$(T))20ī1720@20:"KEEP THE WORE TO"::" 1) ADD ENTRIES,"::" 2) DELETE ENTRIES,"::" 3) CHANGE ENTRIES,"q:" 4) GET A LIST, OR":" 5) STOP"17:868:"(ENTER 1 - 5) ?";Y$:Y((Y$)):Y1Y5(Y)Y$1488:Y3000,3500,4000,4500,18401480Y$NOT THE RIGHT PASSWORD.":1240:200qY3Y0:D$;"DELETE ";N$:D$:22:868:N$;" IS NOW DELETED.":1240:200xDT1DA$(T),D$(T,0),D$(T,1)T:D$;"CLOSE ";N$:::" LIST: ";N$;:20:"ENTRIES: ";D:34,4:5S"WOULD YOU LIKTECT"::"STICKER FROM THE EDGE OF THE DISKETTE.":1240:16384:1380^lD$;"OPEN ";N$:216,0qnD$;"READ ";N$|x1370P$:216,0CZ1CZ2:D$:P$"CROSS/WORDGAME"2030#P1$:P1$PW$ĺD$;"CLOSE ";N$:D$:22:958:"'";PW$;"' IS wxo?~_|pn6|Xg]_cnw_opg?xw~xA?o/wu>o{{^o_k~s}wg?|{_ox<@}~??|_Oox?g}xGo?}w[_o7wo?go?~o@|?p>{m?_}v{?ppx?X_~zoo>{k/?{~?~>{o7owo}?~ox_8onV;W[]_]nw_ox?|g?~xc?oox p|ao?lxg}sO{_w_wv^F~_w~~G~o88`}~?~~gox?O}x~o?}w[._0{o?|p{{@|~?~~1wvwg?o@q?|C>{m?_}~g?@~`?@_O~zog>{K/{~??~>{o7_ow[o{}?gxs_X_nfWO{]_>nwOo?~?o?x?ocO}{o_wvv_7_wv^_?w^_w~wvvw>_O0?~}~?_qwlw`\o<>`ox?a@}xx<Awx6_o7`o?8o{;?o{~_}~.wvsw?o@G?xx>{m?_mv_??`@?`@?W~v[k>w-w.{~?> x`\o~?@wpg_X_nvW_{]_~nwoo|?o?x?o~_}?@{?|c@ooo}}`|a?l?~gOwwv_W_7v^_v^_/vn~^_ |~?_?|k{o;_ow[o{?~_ox? }xco?}7[:_o7_W?X_{{?ww~_>wv{w?o@?x?~>{m?_Uv?G_@X~nx1{~?GO: 0-OUTPUT BOTH, INPUT APPLE; 1-OUTPUT BOTH, INPUT PRINTER; 254-OUTPUT PRINTER ONLY, INPUT APPLE; 255-OUTPUT PRINTER ONLY, INPUT PRINTERO20232:20235OZH80 OZV0 O O:10:"ONE MOMENT PLEASE..." O20280O SEARCH SLOTS FOR AN INTEZQ)20220N35000+N10::ZJ120289eNZF$"COMM, SERIAL OR PARALLEL"ĺ(4);"PR#";ZG:20290yN(4)ZF$:20295N10:868:"WHICH SPEED (10 OR 30 CPS) ";NZN$:ZN$"10"ZN$"30"20220NZA17:ZN$"10"ZA82O ZH=CHAR/LINE; ZV=I/(4);"IN#0"-NZF$"COMM, SERIAL OR PARALLEL"zN(ZQ)ZF$"COMM, SERIAL OR PARALLEL"Ģ10:"ONE MOMENT PLEASE...":20240NZF$"COMM, SERIAL OR PARALLEL"ZJ120290 N:5:"TURN YOUR PRINTER ON AT THIS TIME.":ZF$"COMM, SERIAL OR PARALLEL"ZJ1(PECIAL INTERFACE FOR YOUR PRINTER (OTHER THAN A COMMUNICATIONS, SERIAL OR PARALLEL PRINTER INTERFACE), CHANGE ZF$ IN LINE 20210 TO THE STRING THAT WILL ACTIVATE YOUR PRINTER.N ** ROUTINE USES LINE #'S 20200 - 20299N NZQĺ(13);(4);"PR#0":TO USE: CHANGE THE WORD 'SPACEBAR' IN LINE 20214 TO THE LINE # OF YOUR 'PRESS SPACE BAR TO CONTINUE' ROUTINE.N ** WHENEVER YOU WANT OUTPUT TO GO TO PRINTER, DO GOSUB 20200. TO STOP OUTPUT FROM GOING TO PRINTER, DO PR#0:IN#0.N ** IF YOU HAVE A S1HV%(I,J)01970+V%(I,J)219707": ";A1980M":--";TI^": "eJx::D$;"PR#0"FACE255İ3500043000N ** PRINTER ROUTINE--LOOKS FOR PRINTER INTERFACE IN SLOTS 1-7.N LAST UPDATE: 6/3/81nN ** HV11830630Z11V%(R,S)01770@V%(R,S)3IQ0S1820bV%(R,S)1kQ0tR1}S1620530&.J1V0"I";:I1HDV%(I,J)21890N" ";X1900b" I";lIvI30W%(R1,S)CCC12V%(R,S)01570AV%(R,S)3K1580Z"V%(R,S)2e,RR1w6CHV11830@Q0J990TQ11720^W%(R,S1)ChCC1rV%(R,S)01680|V%(R,S)31690V%(R,S)1SS1 CR,S1)01370F1620@P BLOCKED JZ1820[dW%(R1,S)CfnCC1wxV%(R1,S)2RR1CHV11830Q0630W%(R,S1)CCC1V%(R,S1)1SS1CHV11830Q06X((1)21)#X1450,1620-1450;RH1300RW%(R1,S)01300aSV1260oZ11290xQ11270W%(R,S1)01290X((1)21)X1520,1620 1520SV1340Z11370(Q121350<W%( RH1120$W%(R1,S)011203SV1070AZ11100JQ1T$1080k.W%(R,S1)01100~8X((1)31)BX1450,1520,1620LX((1)21)VX1450,1520`SV1160jZ11190tQ1~1170W%(R,S1)01190870\W%(R,S1)0890-fX((1)31)CpX1380,1520,1620VzX((1)21)gX1380,1520uSV950Z1980Q1960W%(R,S1)0980X((1)21)X1380,16201380S101200W%(R,S1)01200X((1)31)$X1380,1450,15202SV750?Z1780HQ1Q760gW%(R,S1)0780zX((1)31)X1380,1450,1620 X((1)21)X1380,1450 RH910*W%(R1,S)09104SV860>Z1890HQ1R1 RXS1630*RH6108SV580A&R1J0S1S:620\DR1gNSS1pX620{bRR1lW%(R,S)0530vR10990W%(R1,S)0990S10800W%(R,S1)0800RH710W%(R1,S)0710ox>?|}?~?xp~@|_>?7{ox?s}|qo?}w[>_o7oo?oo~o@_~{~?g]{m?_}v}?~~~?~PO>zog>{k/{~?|>{o7ow[n~?)Z4,A(Z1,2)Z2)0352=,C%(A(Z1,1)Z4,A(Z1,2)Z21)0352d.C%(A(Z1,1)Z31,A(Z1,2)Z2)03520C%(A(Z1,1)A(Z,3)Z3,A(Z1,2)Z2)035223184C%(A(Z1,1)Z21,A(Z1,2)Z4)03526C%(A(Z1,1)Z2,A(Z1,2)Z4)0352 8C%(A(Z1,1)Z21,A(Z1,A(Z1,0)0356&Z20A(Z1,3)19Z30A(Z,3)1XA(Z,Z35)A(Z1,Z25)352 A(Z1,A(Z1,0))Z32A(Z1,A(Z1,0))A(Z,3)1Z334352"Z4Z3A(Z,3)Z31$Z40318&A(Z1,0)2308(C%(A(Z1,1)Z4,A(Z1,2)Z21)0352*C%(A(Z1,1A(Z,Z14)P9Z1%Z:ZZ16(FI)NZ1]:(FI)ė:12:16::"THINKING":jN0718~Z0A(T1,3)1C%(17,13Z)A(T1,Z5) Z A(T1,0)1A(T1,1)17A(T1,2)13ZT1N1A(Z,0)0358Z10N1D):232%"SECOND LINE: ";B$(Z,DD)IB$(Z,DD)""DD0Ģ8:958:212(B$(Z,DD))20Ģ14:"MAXIMUM LENGTH IS 20 LETTERS PER LINE.":228DDA(Z,3)(A$(Z))Z11(A$(Z))C8$(A$(Z),Z1,1)P9063C9$(P9)C8$250P9"ZZ1:256ZL1(A$(Z)):L22L1:(A$(Z),L2,1)" "A$(Z)(A$(Z),L21)(A$(Z),L21)bL2w(A$(Z))162228:"MAXIMUM WORD LENGTH IS 15 LETTERS.":2129588:"CLUE"DD0110DD:868:4:DD0Ą"FIRST LINE: ";B$(Z,D13:958:18:"'";N$;"' ISN'T ON THIS DISK.":D$;"CLOSE ";N$:D$;"DELETE ";N$:158fT1:ST:FT:R0nD0(FI)NTZ:2:"PRESS WHEN YOU'RE DONE.":5:34,4Z0N1(FI)238 5:868:"WORD #";Z1;:": ";A$(Z):A$(Z)"::12:16::"THINKING"::ND200D1D:X0N1:R((1)(DX)):RDR1:T$A$(R):A$(R)A$(X):A$(X)T$:T$B$(R,0):B$(R,0)B$(X,0):B$(X,0)T$:T$B$(R,1):B$(R,1)B$(X,1):B$(X,1)T$:KND1:A$(K)"":B$(K,0)"":B$(K,1)""::200R216,0:D$::DTZ+T0D1:A$(T),B$(T,0),B$(T,1):CD$:D$;"CLOSE ";N$:6:"THERE ARE ";D;" WORDS IN THIS LIST; HOW"::"MANY DO YOU WANT IN THE PUZZLE?"MAXD:D60MAX6010:868:"(1 - ";MAX;:") ?";Y$:N((Y$)):N1NMAX(N)Y$190%T.":156; 17:868:"'";N$;"' ISN'T ON THIS DISK.":156L 216,0:198 P$:216,0:P$"CROSS/WORDGAME"ĺD$:13:958:18:"SORRY, I CAN'T USE '";N$;"'.":D$:D$;"CLOSE ";N$:158 PW$:DDTZĺ"I CAN ONLY USE ";TZ;" WORDS FROM THE LIST.":Y$"Y"Y$"N"158- Y$"N"FI0::2006 FI1x 13:"WHAT'S THE NAME OF THE LIST? ";N$:N$""Ģ13:958:158 958:216,0:170 D$;"OPEN ";N$:216,0:D$;"READ ";N$:174 ER(222):216,0:ER13Ģ17:868:"'";N$;"' IS NOT A WORD LISVE 2 LINES,"* :"20 LETTERS PER LINE."Z ::"MAKE SURE YOUR PRINTER IS HOOKED UP." A$(59),B$(59,1),A(59,19),C%(35,35) (1022)1158 704:D$(13)(4):ZM24: 8:"IS YOUR WORD LIST"::868:"ALREADY ON THIS DISK? ";Y$:Y$(Y$,1)P9063 C9$(P9) P9/ (1022)1152R 4:12:"C R O S S W O R D":7 "THIS PROGRAM WILL GENERATE A CROSSWORD"::"PUZZLE. YOU CAN HAVE UP TO ";TZ;" WORDS ON" :"ONE PUZZLE; EACH WORD CAN HAVE UP TO"::"15 LETTERS; EACH CLUE CAN HAz "G","H","I","J","K","L","M","N","O","P","Q","R"i | "S","T","U","V","W","X","Y","Z",")","-","+","<" ~ "=",">","&","$","*","(","%",AT","?","!",",","AT" "0","1","2","3","4","5","6","7","8","9","",";" "/",".","AT","AT" C9$(63) QdPROGRAM: CROSS3eLAST UPDATE: 81/7/28 CPEPf(13);(4);"MAXFILES 1"ph(4);"BLOAD PRNTFILE,A765"|l1022,0pTZ60r255:tD$(13)(4)v:ZM24:(4);"NOMON C,I,O":x "AT","[","]","#","AT"," ","A","B","C","D","E","F"3                   CAN'T MAKE ONE BIGGER THAN 23 BY 25."7 T6:868:220= ^j b:8:10::"THINKING..."::20200:::p hy rQ0 |Z0 X((1)H1) I1H IX440 ":--"; 450 ": "; I ":" C1 W%(X,1)CCCLOSE ";N$(350"21060:10805<D$;"OPEN ";N$HFD$;"READ ";N$SP1330ZZTed216,0pnD1T{xW$(D)D:D$;"CLOSE ";N$:10:"WORD TO CHANGE";:W$:D1TW$(D)W$1460D::10:"I CAN'T FIND ";W$:1020:1420ZNZE0ZE443030D:"PLEASE ENTER A NUMBER 1 - 3":43022PZE1Ĭ`ZE343049:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO")1023,9*:2EN ";N$D$;"WRITE ";N$TI1T W$(I)I D$;"Cė::110(1023)123ė:X:10:"GETTING THE MENU PROGRAM...":D$;"RUN HELLO"1D,9h*:LLO"|)1023,9*:*:"::"2) RUN A DIFFERENT PROGRAM, OR" :"3) END"13:"PLEASE ENTER 1, 2, OR 3 ";:86840000:ZE NOT A NUMBER - TRY AGAIN";:40010:40001QFZM:868:CV1(CV23):ZN(ZN$):jJCV1:36,CH:868: END OF PROGRAM::55:"WOULD YOU LIKE TO"::868:"RUN THIS PROGRAM AGAIN? ";A$:A$(A$,1)A$"N"A$"Y"43005 A$"Y"K.":D$;"CLOSE ";N$:D$;"DELETE ";N$:24024:868:7:16368,0:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:16384,128:16368,0:1:868:@CH(36):CV(37)A"";ZN$:(ZN$)(((ZN$)))40003B(ZN$)0ZN$"0"40006)CZM:"THAT IS5:10:"HERE'S YOUR SCORE:"OG8146:8:G:"*************************":G913:G:8:"*";23)"*":G:11:10:"NUMBER TRIED.....";Y111:12:"NUMBER CORRECT...";C235000::43000)216,0:D$:::"SORRY, '";N$;"' ISN'T ON THIS DIS630ZV1:7:"ERRORS:";( K1L9X$(G$,K,1)K X$Y$(K)820[*14K:"^";d4K:rp24:868yzD21:"THE WORD IS '";W$(M);"'.":35000X:97021:"THAT'S RIGHT! THE WORD IS '";W$(M);"'.":35000:C2C21:950::OU HAVE ";L1D1;" MORE GUESSES.";:1:630Su"THIS IS YOUR LAST GUESS.";:1:630vZV:868:5:"GUESS #";D;:": ";G$:G$""63035,22:958:35,23G$W$(M)960(G$)L77021:"OOPS, THERE SHOULD BE":L;" LETTERS IN YOUR GUESS.":)A)2:Z$(A)(W$,R,1):W$(W$,R1)(W$,R1):7D0\D1:2:"-->THE MIXED-UP WORD: ";gNK1LsbZ$(K);|lK:n34,4:L1L3:L14L14o5qD1L1:ZV14D:D4ZV17:912:912:912:912: SCROLLING *t24:868:5:L1Dĺ"Y(Y)Y$340G ^YK1ĺ::"SORRY, I CAN'T DO MORE THAN ";K1;".":340R c:Y1Y^ hX1Y1f :x M((1)T)1 M5(M)1400 M5(M)1 L(W$(M)) C1C11 K1L Y$(K)(W$(M),K,1) K/W$" "W$(M)" ":AL11:R((1:"SORRY, '";N$;"' WON'T WORK FOR THIS.":D$;"CLOSE ";N$:240F PW$P K1,Z\ ,T1K1l 6W$(T),S,S1y @T:TT1 JD$;"CLOSE ";N$ T11:"THERE ARE ";K1;" WORDS IN THIS LIST."::"HOW MANY SHOULD"::868:"I MIX UP FOR YOU? ";Y$:Y(Y$):Y1(222):216,0:11:868:ER13ĺ"'";N$;"' IS NOT A WORD LIST.":35000::240} "'";N$;"' ISN'T ON THIS DISK.":35000::240 216,0:253 D$;"OPEN ";N$:216,0:D$;"READ ";N$ 216,0:1050 P$"":P$= 216,0:P$"SPELL/WORDER/MIXUP"ĺ:UT WHAT THE ORIGINAL WORD WAS."{ ::"AFTER EACH GUESS, I'LL POINT OUT WHICH"::"LETTERS YOU HAVE IN THE WRONG PLACE." 35000:: C20:C10 8:868:"WHAT WORD LIST SHOULD I USE? ";N$:N$""240 D$;"CLOSE" 958 259K ER1$(7)(7)(7)(7) oZM24/ p::255:R sW$(100),Y$(15),Z$(15),M5(100)[ x230u y:3:16:"M I X U P" ::"I'LL PICK OUT A WORD, THEN SCRAMBLE"::"ITS LETTERS AND PRINT OUT THE" :"SCRAMBLED VERSION. YOU TRY TO FIGURE" :"OY  PROGRAM: MIXUP7 LAST UPDATE: 80/10/1=Y2 COPYRIGHT MECC 1979s< MIXUP 7/16/79 FPF AUTHOR: CURT TORGERSONP ASSOCIATED PROGRAMS AND FILES: SEVERAL USER-DEFINED FILESZ121 nD$(13)(4):D$"NOMON I,O,C":B       HAT IS THE WIDTH?";:868:40000:HZNV 6:"WHAT IS THE LENGTH?";:958:40000:VZN\ i H3270v V3270 300 "I WILL NOT TRY ANYTHING SMALLER THAN"::"3 BY 3.":6:868:220 "220 ,H23330 6V25330 @350% J8:"I T IS RUN AND GUARANTEES" "ONLY ONE PATH THROUGH. YOU CAN CHOOSE"::"THE DIMENSIONS OF THE MAZE, I.E. THE"::"NUMBER OF SQUARES WIDE AND THE NUMBER"::"OF SQUARES LONG. THE BIGGEST MAZE" :"YOU CAN CHOOSE IS 23 BY 25." 35000:% 4:"W0 W%(25,103),V%(25,103)/ (1022)1220P "INSTRUCTIONS - YES OR NO";] "? ";A$w (A$,1,1)"N"ė:220 (A$,1,1)"Y"ĺ:"YES OR NO, PLEASE.":(37)2:868:151 :6:"THIS PROGRAM WILL PRINT OUT A DIFFERENT ":"MAZE EVERY TIME I(4);"NOMON C,I,O":& FD$(13)(4): P(1022)1138j RFACE(768):SLOT(769):ST(770):L1(771) UFACE$"":K1L1:FACE$FACE$((771K)): (1022)1148 4:10);"A M A Z I N G":8 6:3:"THIS PROGRAM REQUIRES A PRINTER" 1 PROGRAM: AMAZING< LAST UPDATE: 81/7/28 CPEB_ COPYRIGHT MECC 1979z AMAZING 8/8/79 FP AUTHOR: JACK HAUBER2 ASSOCIATED FILES AND PROGRAMS: NONE5(4);"BLOAD PRNTFILE,A765"71022,0 <::255:ZM24:              HE MENU PROGRAM...":(4);"RUN HELLO"1&)1023,99&*:CV1:36,CH:868:AIN,"::"2) RUN A DIFFERENT PROGRAM, OR"Q% :"3) END"|%13:"PLEASE ENTER 1, 2, OR 3 ";:868%40000:ZEZN%ZE0ZE443030%:"PLEASE ENTER A NUMBER 1 - 3":43022%ZE1Ĭ%ZE343049%&:10:"GETTING TA"";ZN$:(ZN$)(((ZN$)))40003B$B(ZN$)0ZN$"0"40006}$CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001$FZM:868:CV1(CV23):ZN(ZN$):$JCV1:36,CH:868:Z23):ZN(ZN$):$JCV1:36,CH:868:6:ZN(ZN$):%J;"' IS NOT ON THIS DISK.":D$;"DELETE ";N$:D$;"CLOSE";N$:880}#v :5:"USE 'CROSSWORD EDIT' TO ";ED$(X1);" '";N$;"'.":880#24:868:7:16368,0:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:16384,128:16368,0:1:868:#@CH(36):CV(37)%$S1(Y);:PC(100S1(Y)S(Y).5):39((PC)):PCO"Y3::Y2:35000::Y1:Y1}"(Y1)12((Y1)12.0001).0001İ35000"::1180" :7:"THE CURRENT TIME LIMIT IS ";Z;" SECONDS."" 950"l 216,0:D$:CR1CR0:925>#q P$""ė:5:"'";N$ES":21:"USED"27)"MISSED"37)"%":6:"WORD"22)"(IN SPELL)"35)"MISSED"!8:34,7:Y108:Y202:Y314:YY112Y24Y3:Y100ī2280!W$(Y)""2280!4((Y)):Y;" ";W$(Y);:ZHL1((S(Y))):S(Y);!S(Y)0ĺ:22700"XHL1((S1(Y))):ANT TO DELETE SOME MORE? ";E$:E$(E$,1):E$"Y"E$"N"1751O E$"Y"1570Y 1180 :L10:E1L1:Y1100:S(Y)0ĭ((S(Y)))L1L1((S(Y)))  L10E11:1062 ZH22((L11)2):L11ZH23 XHZH7:L11XHZH6I!4:24:"TIMCKER FROM THE EDGE OF THE DISKETTE.":35000:1632CCCC1::10:CC1ĺ"PLEASE BE SURE THE DISKETTE IS IN"::"PLACE AND THE DRIVE DOOR IS CLOSED.":35000:1632"I AM UNABLE TO USE THIS FILE.":35000:::880D01180> 16:868:"DO YOU WW$(T)W$(T1):S(T)S(T1):S1(T)S1(T1)9IT1D1WW$(I);",";S(I);",";S1(I)W$(I)W$(I1):S(I)S(I1):S1(I)S1(I1)ID$;"CLOSE ";N$:216,0:1750ER(222):216,01ER4CC0::10:"PLEASE REMOVE THE WRITE-PROTECT"::"STIIN THIS LIST.":35000:1570<TDD1:1:28:D;:868::12E^CC0W`216,0:1742jfD$;"OPEN ";N$~hD$;"WRITE ";N$r"SPELL/WORDER/MIXUP"wPW$|D;",";ZT11705I1T1W$(I);",";S(I);",";S1(I)ITD11740* z#?   ԠԠ " ˧Ӡ Ԡ Ԡ ԠԠ! ԠԠ ԠԠ !ԠԠԠԠԠԠ"Ԡ ͠ Ҡ- Ӡ(Ҡ Ԡ!Ϡ"ŠϠԠ ̠ҠǠРˠd".00yxA?ooo}={{^o^k|sgww__w^____~^wxO8oJV[_{]n]vox?>pp}xOo?}WZ<__;_;?X_{{@ww~_>?wvyx?o`}?__`_@_~{~?p_0G~~?]{o}_ow[gw_wgog?wox?o@?~?x>{m?_9v>}xA?ooo}];?oogy{swwv.w^ww^_wv^_/?w~~w^w?~oxp67\_{]qcfoxG?G|}xo?}gY>_?=_}~?X_s;ww|_>?gv|_x?o~?~}?__y_@_8{~??~wp`}xxs~xXc{o~_ow[ko_wwoO?w{nsox|?xO>n?_}xA|xA?ooo}@|>`}~?8ok=?o{z^>?Wt?~Ox?x|}0@v`>_o7_o?OO|O@_~{~?k{m?_}v~?|x~0W]v[k6wmo.{~?y>x`ow[m?`wsownw_opq?xg~xA?oOoy]_{??oogO{}wv~__v~_wqq`}O9,141,32,169,3,169,0,141,2,3,240,209D̯үЍƍҬϬŬԬЬŬŬŬǬĬӬ"WORD GAME CREATE ALLOWS YOU TO CREATE"T"WORD LISTS FOR WORD GAME, OR TO EDIT" "OR DELETE PREVIOUSLY CREATED LISTS."dK "OR DELETE PREVIOUSLY CREATED LISTS."dNED WORDS. A PRINTER"9#IS NEEDED FOR THIS PROGRAM." T "WORD GAME",WORDGAM"WORD GAME IS A GAME IN WHICH STUDENTS""TRY TO GUESS TEACHER-DETERMINED WORDS""BASED ON CLUES. (MUCH LIKE HANGMAN)." "WORD GAME CREATE",CREDIT( MODIFY"4 "OR DELETE PREVIOUSLY CREATED LISTS."D TALK,TALKl"TALK ENABLES A NEW USER TO HAVE"  "A 'CONVERSATION' WITH THE APPLE." " " "WORD FIND",WORDER"WORD FIND MAKES WORD FINDS FROM A LIST""OF TEACHER-DETERMINCREATED LISTS."# "SPELL",SPELLO "SPELL PROVIDES DRILL AND PRACTICE " x "ON A LIST OF TEACHER-DETERMINED ""SPELLING WORDS."  "SPELL CREATE",SPEDIT "SPELL CREATE ALLOWS YOU TO CREATE WORD""LISTS TO USE WITH SPELL, OR TOCH THE STUDENT"?V"MUST UNSCRAMBLE THE LETTERS IN A WORD." kW"THE TEACHER DEFINES THE WORD LISTS." "MIXUP CREATE",SPEDIT"MIXUP CREATE ALLOWS YOU TO CREATE WORD"  "LISTS TO USE WITH MIXUP, OR TO MODIFY" "OR DELETE PREVIOUSLY D "* "CLUES. A PRINTER IS NEEDED." I"CROSSWORD CREATE",CREDITw "CROSSWORD CREATE ALLOWS YOU TO CREATE" "WORD LISTS FOR CROSSWORD, OR TO EDIT" "OR DELETE PREVIOUSLY CREATED LISTS."T MIXUP,MIXUPU"MIXUP IS A GAME IN WHI AMAZING,AMAZINGA"AMAZING CONSTRUCTS MAZES FOR THE USER. i"IT IS ASSUMED THAT THE USER HAS A "PRINTER ATTACHED TO THE APPLE." CROSSWORD,CROSS "CROSSWORD CONSTRUCTS A CROSSWORD PUZZLE""FROM TEACHER-DETERMINED WORDS AN(36):CV(37)4 "";ZN$:(ZN$)(((ZN$)))520O (ZN$)0ZN$"0"540c ZN$"D"ZN0: ZM:"THAT IS NOT A NUMBER - TRY AGAIN";:550:500 ZM:868:CV1(CV23):ZN(ZN$): &CV1:36,CH:868:  "ELEMENTARY - VOLUME 2",11Ԭ٬ŬԬԬΧԬŬǬͬͧӬէ̬ӮҠŬ׬ɧ̬٬ҬȬŬˬŬŬ٬Ԭˬ׬ŬŬάǬԬĬŬ׬٬άŧŬŬĬԬĬҮϬǬӬƬˬϬǬԬ̯үЍԠŬĬҬ̬ͬĬ׬ŬȬҬǬǬ̯үЍԠԬŬԬƬάŬŬԬ٬̬άҬE NAME OF THE"::"LIST TO USE IT ON ANY OF THE PROGRAMS.":::"THE PASSWORD IS NEEDED ONLY IF YOU"::"WANT TO EDIT THE LIST ON THIS PROGRAM."35000::880"ER(222):216,0::4:ER4CC0:"PLEASE REMOVE THE WRITE-PROTECT"::"STICKER FROM THE E10:ED1ė:1180|2:"YOU HAVE JUST CREATED A LIST OF WORDS"::"THAT CAN BE USED WITH MIXUP, SPELL, OR"::"WORDER."::"THE NAME OF THE LIST IS ";(34);N$;(34)::"AND THE PASSWORD IS ";(34);PW$;(34);"."::"STUDENTS NEED TO KNOW THE REMOVE THE WRITE-PROTECT"::"STICKER FROM THE EDGE OF THE DISKETTE.":35000:1082zCCCC1::10:CC1ĺ"PLEASE BE SURE THE DISKETTE IS IN"::"PLACE AND THE DRIVE DOOR IS CLOSED.":35000:1082|"I AM UNABLE TO USE THIS FILE.":35000:::8807W$(I):10708CC0*:216,0:1142==D$;"OPEN ";N$QBD$;"WRITE ";N$kL"SPELL/WORDER/MIXUP"tQPW$VD;",";Z`I1DjW$(I);",";S(I);",";S1(I)tI:D$;"CLOSE ";N$:216,0:1151vER(222):216,0TwER4CC0::10:"PLEASZ1(R11)8N2Z1;") ";:Y$:I(Y$):(IZZI0)IZ1I(I)(I)Y$1072\3I01070421:958:"CHANGE ";W$(I);" TO ";:Y$:Y$""10765W$(I)Y$:R2((I1)8.01):R22(R22)Ė20632I16R2:36,(36)4:15):5:R22(R22)Ė24000-34,0::E111080,1210.21:958:"DO YOU WANT TO CHANGE":868:"ANY OF THESE WORDS? ";Y$:Y$(Y$,1):Y$"Y"Y$"N"1070/Y$"N"ė:021:958:"WHICH WORD (";:ZZ(R11)81:R1(R12.01)ZZR181 1ZZ;" - ";:Z1D:(R11)8DLIST: ";N$;:20:"WORDS: ";D:" TIME LIMIT: ";ZV'34,4:D0ĉ::E111080,1210(T1D:R1((T1)8.01):R12(R12)Ė20)32T16R1:T100ĺ" ";:T10ĺ" ";*T;" ";W$(T):T16(T16.01)TDĴE111070,35000:,T:E111070,35(W$(T)):LL21020TK92LL:(W$(T),K9,1)" "W$(T)(W$(T),K91)(W$(T),K91)Zx(W$(T))15Č958:104020:" KEEP THE WORDS TO 15 LETTERS PLEASE.";:1010W$(T)""1060T$DT1::D0880%ED110803&34,0::" 21:"THAT SEEMS A LITTLE LONG. TRY"::"SOMETHING UNDER 30 SECONDS.":955:"ENTER WORDS 1 AT A TIME UP TO 100 WORDS.":"ENTER A 'RETURN' WHEN FINISHED."T11009:5:70):13:1:40)5:1:"WORD #";T;" ";:868W$(T)LL";PW$:PW$""940k 14:"WHEN THIS LIST IS USED FOR THE SPELL"::"PROGRAM, HOW MANY SECONDS SHOULD THE" 18:868:"STUDENT HAVE TO LOOK AT A WORD? ";Y$:Z(Y$):Z(Z)Z0(Z0Y$"0")(Z)Y$955 Z0Z5 Z31Č958:ED1980,1080LW$:PW$""912 ED1:1180Z 5:868:"THE NAME OF THE LIST WILL BE? ";N$:N$""920i CR1:1180 :5:"THERE IS ALREADY A FILE NAMED '";N$;"'.":35000:CR0:880 ED0:CRED 8:"WHAT PASSWORD DO YOU WANT" 10:868:"ON THIS LIST? (Y1)(Y1)Y$890% {:X10:EDX14 |Y13X11L }Y1920,910,910,896 (1023)123ė:10:"GETTING THE MENU...":(13);(4);"RUN HELLO" : 5:868:"WHAT IS THE NAME OF THE LIST? ";N$:N$""910 8:868:"WHAT IS THE PASSWORD? ";P ̯үЍԠЬˬĬŬϬǬ٬ҬĬҬ٬Ŭ V WRITE ON HGR SCREEN&VZT$""ıEVZJZY15:ZJ0ZJ192ZHı}VZD0:ZF0:Z1(ZT$):ZZ((ZT$,Z,1)):ZZ3222330VZU022290VZZ65ZZ90ZD0:22300WZD64:ZXZXZA:22300WZZ94ZF1:ZXZXZW:ZD64:22330WZIZX(Z1)ZW:Z8,0:Z$:(Z$)13(Z$)32ı:VZA$ZA$Z$:(Z$)822170\VZXZXZW:ZT$Z$:22230:22140xVZA$(8)ZA$"":22140VZ(ZA$)2:Z0ZA$"":22200VZA$(ZA$,Z)VZKZW:ZU0ZKZKZAVZTZYZH:ZBZY:ZLZX:ZRZXZK:22090:ZXZXZK:22140$"'SPACE BAR":22230:ZX270ZW9:ZT$"'":22230:VEV CLEARS ANY SPOT ON HGR SCREENyJV0:ZZTZB:ZL,ZZR,Z:Z:3:TV UNDERSCORES ON HGR SCREEN^VZT$"":Z1ZN:ZT$ZT$(95):Z:22230:hV INPUTS ON HGR SCREENrVZA$"":ZXZXZW|V1636ZX276ZW8:ZT$"TO GO ON":22230IVZ1(ZS1)84:(16384)12722070PVZ"VZ1250:Z:ZT191ZH:ZB191:ZL270ZW19:ZR273ZW8:22090,V(16384)128İ22080:220506V16368,0:ZT191ZH:ZB191:ZL0:ZR279:22090:ZUZK:2@VZX270ZW19:ZT:D$;"CLOSE ";N$:D$;"DELETE ";N$:130]R::"SORRY, '";N$;"' ISN'T A SPELLING LIST.":130UD$;"BLOAD LACHAR":ZH15:ZW11U:232,0:233,64:3:1:0:(16301(ZF1)),0:V16368,0:ZKZU:ZU0:ZX275ZW25:ZY191:ZT$"PRESS":22230!V22080:TE ";N$!"SPELL/WORDER/MIXUP"*PW$8D;",";Z1CT1DcW$(T);",";S%(T);",";S1%(T)j T~D$;"CLOSE ";N$ 430004(16384)127820>16368,0:24:1:868:&HD$:P$""ĺ:::"SORRY, '";N$;"' ISN'T ON THIS DISK.":216,02G71811:8:G:"***********************":pG817:G:8:"*";21)"*":G:11:9:"NUMBER TRIED...";Y10:12:"NUMBER CORRECT":11:14:"FIRST TRY......";R:11:16:"SECOND TRY.....";R2350001:1:D$;"OPEN ";N$D$;"WRI2R2R21V#::X10650V:"HERE ARE THE WORDS YOU HAD TROUBLE WITH.";34,4:T1X1:R1((T1)8.01):R12(R12)Ė2032T16R1F$(T):T16(T16.01)TDİ35000:T:35000::4:"HERE'S YOUR SCORE, ";S$;":":3416hZX45:ZY110:ZT$"^NO, IT IS SPELLED":22220}jZX140(11L12)17:ZY130:ZT$"'"W$(G)"'.":22220:ZS10:22020410L((1)6)1:ZT$"^"L$(L)", ^"S$"!":ZX140((11(ZT$)6)2):ZY110:22220:ZS10:22020T91RR1 T9T$"-->":22220:ZXXX33:ZY70:22120:G$ZA$8 VT9T91G YG$""341k \ZT95:ZB130:ZL1:ZR279:22090} ^G$W$(G)400 _T91S1%(G)S1%(G)1:X1X11:F$(X1)W$(G)`T91ZX62:ZY110:ZT$"^NO, TRY AGAIN.":22220:ZT55:ZB70:ZLXX:ZR279:22090̯үЍԠԬ٬ŬԬЬ̬ŬԬӬӬŬŬ̯үЍԠǬŬ٬̬ĬϬЬǬͬҬ٬ӬL8Hmx 6*+(n*+c*ȩ*h`HHhH,b (hHI  X   h`l  wpO_X_lfW_{_>fwooq?o                 nJJJ:?'/>??'?  '?'..5ۀ?6%=<.4=>7666--,,$$''???=..<4,%%-,..-,%-&.-,.--..v77--%%$'''??>>67...--%%%$$44'5'.7-$4?>wII II//555->,.54..5.>???.>??>??>??7??7???6,?6>6767>67>67>>>?''?>66...-..-..5--%,<%'66766766>66>>??77?7?7?>77/6-.---,%%---$%$<4'$'<$<$<$<$<$$$&77455------%%l'7=6777?7??<<<'/'''<$'<$'$$$%$%%%%%-,%--5-55--==566666>..........5555555555-6-,%-<5<<$''<<$'''<<$''<<<<<<'''?<<<'---%---%---%---%---%---%---%---%///-.5-.5-.5-.5==55555-......555555-&6>??>??7???>??7???>??>??7???>??7???>??7&f   ><<<<<<4,4--%---,--%--%---,--%---7?6?>777?7??>?>??&??'????>7?7?7???????????7?>>>>66.-,%%%%$%$ךҚ%-%----.5-.7777>6665..5567>67>>7?7??7???'''$4r266f u$$$ruۛ e 26v- %$4666?66------''$'$$%$%,$%,,,$%%%%%-,,%%%%-%-,-,%566766766>>67>>6?>>>>>77?>>>?>7?7%--,-,-,%-%-,-%---,---.-5--5-.-.5-..5555.>>77>?7>7777?6676>6757656566.6.655.....555-...656>67>6>677677>>6777>666&6vII6666?$66666$d 2I$$66666266&$ 66&$d 66&2266&$ -66 -u6?$ 26666$$$ -6?$*---/--- -%46666$$<?$2. -u?76& --u??v--u??vI6?--?666ve226v- %$466&626e ----????6  $ --?6 --66'$<6=$$466--6 -%466&<?$ 66666$d -6? --??6--  -%$$46666&<?$ 6 -u>???v--*-=766&$$$d -$ -%4666?-e$$?$ 666f -66#$$I666-- $$$I 66666?/--= ------b--u??--??66.---='$$66666----????66.--u???d -?6e--??$&----6&6 --??v-- ??d -? ---66&??-- 566&6I  Ibb5 II$4-I16666&$$$$-u???6---6???-)u?d-M nI) ?v- Iv-- Nd I16$II66uuuu66 -I16666fI  --????-I16666&$$??----J  6$R---6  4II  --&&$$$  --666 ??$$$ -6---?w?766$$$$$I --??v--???----??66666M6666-- $$$$666 $$$ 6666v  $$$$4$vd 4v66&$$ 4----.---=I1666? 6n $46I66666$???/---566$$$ 666666--- ???--- ??/6 --&??666-- 4 66666--- $$$???6-@ )@Xgw9Sar!>Z`mx 6K]t-Lbw(5K\m#7;G   * Q      )21970": ";1980*":--";1I;": "BJU::D$;"PR#0"jFACE255İ35000u43000N ** PRINTER ROUTINE - LOOKS FOR COMMUNICATIONS, SERIAL, OR PARALLEL PRINTER INTERFACE IN PERIPHERAL SLOTS.N LAST UPDATE 6/21/80V%(R,S)01770V%(R,S)3&Q001820?V%(R,S)1HQ0QR1ZS1c620l530r&}.J1V0"I";:I1HDV%(I,J)21890N" ";X1900b" I";lIvI1HV%(I,J)01970V%(I,JV%(R,S)01570V%(R,S)3(15807"V%(R,S)2B,RR1T6CHV11830]@Q0fJ990tTQ11720^W%(R,S1)ChCC1rV%(R,S)01680|V%(R,S)31690V%(R,S)1SS1CHV11830630Z1 BLOCKED 'Z18208dW%(R1,S)CCnCC1TxV%(R1,S)2_RR1qCHV11830zQ0630W%(R,S1)CCC1V%(R,S1)1SS1CHV11830Q0630W%(R1,S)CCC1 1450RH1300/W%(R1,S)01300>SV1260LZ11290UQ1_1270vW%(R,S1)01290X((1)21)X1520,1620 1520SV1340Z11370(Q121350<W%(R,S1)01370F1620P 0SV1070Z11100'Q11$1080H.W%(R,S1)01100[8X((1)31)qBX1450,1520,1620LX((1)21)VX1450,1520`SV1160jZ11190tQ1~1170W%(R,S1)01190X((1)21)X1450,1620((1)31) pX1380,1520,16203zX((1)21)DX1380,1520RSV950_Z1980hQ1q960W%(R,S1)0980X((1)21)X1380,16201380S101200W%(R,S1)01200RH1120W%(R1,S)0112141ZC16020520>2P16368,0:1:868:21::ZV1:ZH1:N1:(37)18İ20500:;9C24:N$(T,C)""N$(T,C)" "835K>N$(T,C):C[C:T:20500hH::200P SPACE-BAR ROUTINEPZH(36):ZV(37):ZZ1200:ZZP24:7:16368,0#P"PRESS ";::"SPACE BAR";::" TO CONTINUE";(PZC(16384):ZCDISKETTE.":20500::720* vVX$"N"6107 ::255= V A(999)(1000)256l B(A)(A1)256 CS(B1)16:SLOT # CS1CS7CS6 (4)"PR#"CS  DESCRIPTIONS *:34,1: /14:"DESCRIPTIONS":34,4 24T1N"ZN0:? ZM:"THAT IS NOT A NUMBER - TRY AGAIN";:550:500g ZM:868:CV1(CV23):ZN(ZN$): &CV1:36,CH:868: X: b10:1:"DO YOU WANT TO RUN ANOTHER"::"DISKETTE";:868:VX$:VX$(VX$,1) lVX$"Y"ė:10:9:"INSERT THE NEW 470@ 22:1:"PLEASE ENTER A NUMBER FROM 1 TO "N".":16:280M QN600s ::10:"GETTING THE PROGRAM..." 230,32:62450 D$;"RUN ";N$(Q,1) CH(36):CV(37) "";ZN$:(ZN$)(((ZN$)))520 (ZN$)0ZN$"0"540 ZN$"DT:(1023)123280@ J1(16384)128:J10JJ1:J300275X 16368,0:1023,123 16:1:"TYPE THE NUMBER OF THE PROGRAM YOU WANT.":"(IF YOU WANT DESCRIPTIONS, TYPE 'D'.) ";:868 16303,0 "490 ,ZN$"D"800 QZN Q0QN1 ̯үЍԠϬάӬԬ٬٬ŬǬŬˬĬŬLOSE ";N$(350"21060:10805<D$;"OPEN ";N$HFD$;"READ ";N$SP1330ZZTed216,0pnD1T{xW$(D)D:D$;"CLOSE ";N$:10:"WORD TO CHANGE";:W$:D1TW$(D)W$1460D::10:"I CAN'T FIND ";W$:1020:1420ZNZE0ZE443030D:"PLEASE ENTER A NUMBER 1 - 3":43022PZE1Ĭ`ZE343049:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO")1023,9*:2EN ";N$D$;"WRITE ";N$TI1T W$(I)I D$;"CAN)." %"WORD GAME CREATE",CREDITR"WORD GAME CREATE ALLOWS YOU TO CREATE"~"WORD LISTS FOR WORD GAME, OR TO EDIT" "OR DELETE PREVIOUSLY CREATED LISTS."dd PREVIOUSLY CREATED LISTS."d2NDS FROM A LIST"?"OF TEACHER-DETERMINED WORDS. A PRINTER"c#IS NEEDED FOR THIS PROGRAM." ~ "WORD GAME",WORDGAM"WORD GAME IS A GAME IN WHICH STUDENTS""TRY TO GUESS TEACHER-DETERMINED WORDS""BASED ON CLUES. (MUCH LIKE HANGMWORD"2"LISTS TO USE WITH SPELL, OR TO MODIFY"^ "OR DELETE PREVIOUSLY CREATED LISTS."n TALK,TALK"TALK ENABLES A NEW USER TO HAVE"  "A 'CONVERSATION' WITH THE APPLE." " " "WORD FIND",WORDER"WORD FIND MAKES WORD FIOR TO MODIFY"9 "OR DELETE PREVIOUSLY CREATED LISTS."M "SPELL",SPELLy "SPELL PROVIDES DRILL AND PRACTICE "  "ON A LIST OF TEACHER-DETERMINED ""SPELLING WORDS."  "SPELL CREATE",SPEDIT "SPELL CREATE ALLOWS YOU TO CREATE MIXUP,MIXUP9U"MIXUP IS A GAME IN WHICH THE STUDENT"iV"MUST UNSCRAMBLE THE LETTERS IN A WORD." W"THE TEACHER DEFINES THE WORD LISTS." "MIXUP CREATE",SPEDIT"MIXUP CREATE ALLOWS YOU TO CREATE WORD"  "LISTS TO USE WITH MIXUP, LE"-"FROM TEACHER-DETERMINED WORDS AND "T "CLUES. A PRINTER IS NEEDED." s"CROSSWORD CREATE",CREDIT "CROSSWORD CREATE ALLOWS YOU TO CREATE" "WORD LISTS FOR CROSSWORD, OR TO EDIT" "OR DELETE PREVIOUSLY CREATED LISTS." T" !"WORD GAME CREATE",CREDITN"WORD GAME CREATE ALLOWS YOU TO CREATE"z"WORD LISTS FOR WORD GAME, OR TO EDIT" "OR DELETE PREVIOUSLY CREATED LISTS."ddFROM A LIST"; "OF TEACHER-DETERMINED WORDS. A PRINTER"_ "IS NEEDED FOR THIS PROGRAM." z  "WORD GAME",WORDGAM "WORD GAME IS A GAME IN WHICH STUDENTS" "TRY TO GUESS TEACHER-DETERMINED WORDS""BASED ON CLUES. (MUCH LIKE HANGMAN).". "LISTS TO USE WITH SPELL, OR TO MODIFY"Z  "OR DELETE PREVIOUSLY CREATED LISTS."j  TALK,TALK "TALK ENABLES A NEW USER TO HAVE"  "A 'CONVERSATION' WITH THE APPLE."  " "  "WORD FIND",WORDER "WORD FIND MAKES WORD FINDS ٬٬ԬԬԬάŬˬ٬Ԭ׬άˬˬˬ̯үЍԠĬŬŬĬǬĬˬŬάά̬Ĭ`X15:ZX130:ZY100:ZT$"^B^Y^E!!":22220:Y1500:Y:ZT85:ZB100:ZL130:ZR260:22090:XZX130:ZY100:ZT$"^B^Y^E!!":22220:Y1500:Y&22020'(1023)123İ22010:::022010:::(13);(4);"RUN HELLO"U16297,0:16302,0::2222022020H22010:9910,75:9860,30:X5053:X,69X,77:Xm10043,56:10243,50:10255,50x40007ZX105:ZY30:ZT$"^I HAVE TO GO":22220ZX105:ZY50:ZT$"TO WORK NOW.":22220X11000:X0:10243,50:3:10146,5022220)T5$" BROTHERS ":T6$"SISTERS"CA71T5$" BROTHER "ZA91T6$"SISTER"qA81T4$" YEAR "ZY115:ZX1:ZT$A1$" IS "(A8)T4$"OLD":22220ZY130:ZX1:ZT$"AND HAS "(A7)T5$"AND "(A9):22220ZY145:ZX1:ZT$T6$"."108ZX1:ZY15:ZT$"^I'LL REMEMBER EVERYTHING":22220gZX1:ZY30:ZT$"WE TALKED ABOUT...":22220wA1$"^"A1$ZY80:ZX(279(A1$)15)2:ZT$A1$:22220ZY80:ZX(279(A1$)15)2:ZN(A1$):22100ZY100:ZX1:ZT$A1$" IS VERY SMART.":_0:10043,56:10243,50:10255,507a3:10335,60ecZX110:ZY30:ZT$"^WELL, ^I THINK":22220dZX115:ZY48:ZT$"^I AM!!!":22220hY1500:YnZX115:ZY100:ZT$"^I'LL SHOW YOU..":22220o3:270,95270,95269,94269,95:22020q22075:ZT$"^MY, BUT":22220@0ZX75:ZY90:ZT$"YOU ARE A":22220i1ZX80:ZY105:ZT$"SMART ONE,":222202ZX90:ZY120:ZT$"^"A1$".":222203""6220207:"MY, BUT YOU ARE A SMART ONE."822010@400^45000:40010%:22220/ZX110:ZY48:ZT$"AM SMART?":22220GZY48:ZX200:22120](ZA$,1)"Y"300s(ZA$,1)"N"350 40010:ZX50:ZY190:ZT$"^PLEASE TYPE YES OR NO":22220!ZT31:ZB48:ZL200:ZR279:22090:283,22010-97140,40/ZX75:ZY"^HOW MANY SISTERS":22220(A7(ZA$)TZX115:ZY118:ZT$"DO YOU HAVE?":22220mZX250:ZY118:22120(ZA$)0ZA$"0"İ40000:40040(ZA$)12(ZA$)0İ40002:40040A9(ZA$)45000:40010ZX105:ZY30:ZT$"^DO YOU THINK ^I"2202045000EZX105:ZY30:ZT$"^HOW MANY BROTHERS":22220pZX110:ZY48:ZT$"DO YOU HAVE?":22220ZX245:ZY48:22120(ZA$)0ZA$"0"İ40000:40035(ZA$)12(ZA$)0İ40002:40035K91İ40010:K90ZX115:ZY100:ZT$ZX105:ZY100:ZT$"^THAT MAKES ME":22220g A85ZX105:ZY118:ZT$(A85)T4$"YOUNGER":22220:230 A85ZX105:ZY118:ZT$(5A8)T4$"OLDER":22220:230 ZX105:ZY118:ZT$"YOUR AGE.":22220 235 ZX120:ZY135:ZT$"THAN YOU.":22220 45000 A39210A ZX105:ZY30:ZT$"^YOU ARE?":22220:215l ZX105:ZY30:ZT$"^THAT'S OLD!":22220| X1400:X ZX120:ZY50:ZT$"^WELL, ^I'M 5":22220:ZX120:ZY68:ZT$"YEARS OLD.":22220 T4$" YEARS " A86A84T4$" YEAR ") U,":22220= ZX260(A1$)14:ZY50:ZT$"^"A1$"!!":22220N X11000:X ZX110:ZY120:ZT$"^HOW OLD ARE YOU?":22220 ZX110:ZY135:ZT$">":22220:ZX120:ZY135:22120 A(ZA$):A0İ40000:40001 A99A1İ40002:K80:40001 A8A:180:ZT$"^WHAT IS YOUR NAME?":22220< ZX186:22120:X$""H A1$ZA$a A1$""A1$"FRIEND"s A1$(A1$,10) 22010:9910,75:9860,30:X5053:X,69X,77:X 10043,56:10243,50:10255,50 40007 ZX105:ZY30:ZT$"^GLAD TO MEET YO:233,64 D$;"BLOAD LCHAR"( ZM22= ZW10:ZH15:ZA2H 22010W 97140,40~ ZX87:ZY75:ZT$"^HI, ^I'M":22220 ZX77:ZY90:ZT$"THE ^A^P^P^L^E":22220 ZX85:ZY105:ZT$"MICRO-":22220:ZX90:ZY120:ZT$"COMPUTER!":22220$ ZX1:ZY PROGRAM: TALK6 LAST UPDATE: 6/19/80<Wd COPYRIGHT MECC 1979nn TALK 7/79 FPx AUTHOR: JIM ALTERMATT,MECC ASSOCIATED PROGRAMS AND FILES: NONE:D$(13)(4)D$,"NOMON C,I,O" 3:1:0:232,0      ";N$D$;"OPEN ";N$,D$;"WRITE ";N$<"WORDGAME"CDNT1DcA$(T);",";D$(T)jT~D$;"CLOSE ";N$&5200 END OF PROGRAM:::5D(1023)1231920 N5:"WOULD YOU LIKE TO RUN THIS PROGRAM"::"AGAIN - YES OR20:10:"PLEASE KEEP THE DEFINITION":15:"UNDER 40 LETTERS."T11:250):1660gD$(T)M$:1720:10:"DEFINITION NOT CHANGED":1240:1720:10:"DO YOU WANT TO CHANGE MORE";:Y$:Y$(Y$,1,1):Y$"Y"1480Y$"N"1720D$;"DELETEZM:868:CV1(CV23):ZN(ZN$):<JCV1:36,CH:868:SZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001FZM:868:CV1(CV23):ZN(ZN$):JCV1:36,CH:868::1:D$(T)::"NEW DEFINITION":M$:M$" "1710(M$)411700?G THE MENU PROGRAM...":(4);"RUN HELLO"eD$::10:"SORRY, ";N$;" IS A FILE FOR "P$:1240::230{@CH(36):CV(37)A"";ZN$:(ZN$)(((ZN$)))40003B(ZN$)0ZN$"0"40006CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001#F7:16368,0:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:16384,128:16368,0:1:868:216,0:15:D$:"'";N$;"' ISN'T ON THIS DISK.":D$;"CLOSE ";N$:D$;"DELETE ";N$:5500 END OF PROGRAM:::5D(1023)123ė:(:10:"GETTIN1240:YI12301:12:"WOULD YOU LIKE"x14:868:"ANOTHER PROBLEM? ";P$:P$(P$,1):P$"Y"P$"N"1182P$"Y"CC0::680P$"N"1220255:1840:12:"WELL, THAT'S ALL OF THE WORDS."1240:255:1840[24:868:,N1,(V$))$1080.N<8P1L:(C$,P,1)"-"1090R:H0Ģ18:"RIGHT"[=750bBPnLRGLDV12:7:A$(W):18`"YOU GOT IT RIGHT WITH ";R;" EXTRA GUESSES."j1240t1170~18"GIVE UP, HUH? THE WORD IS -"::A$W):C$(C$,1,X1)B$(C$,X1)+HH1:(7)2XYH1Ģ18:"INCORRECT, TRY AGAIN.":h12:7:C$q255H11020DDH1 - REMOVE CHOSEN LETTERS FROM ALPHABET LISTN126(V$,N,1)B$1070 V$(V$,1,N1)" "(V$:"GUESS ";:B$aB$""8601fB$A$(W)890Yp18:"THAT'S THE WORD!":1240:1170hzB$(B$,1)rGG1zH0X1L(A$(W),X,1)B$960Y126:(V$,Y,1)B$940Y18:"YOU ALREADY GUESSED THAT LETTER.":GG1:750Z" :33 "CLUE:";:12:D$(W,0):12:D$(W,1)P 7:"LETTERS AVAILABLE:"] 9:868n 90:V$:255 ::"WORD: "; 1:14:958:12:7 L(A$(W)):G0850 *C$"" 4X1L >C$C$"-" HX RCC3ĺC$:958:CC3\1:14:15:"SORRY, I CAN'T USE '";N$;"'.":D$;"CLOSE ";N$:550B bPW$I lIT vT1Io A$(T),D$(T,0),D$(T,1)| T:TT1 D$;"CLOSE ";N$ Y0 W((1)T)1 M5(W)0710 680 M5(W)1:G0:D0:YY1 V$"ABCDEFGHIJKLMNOPQRSTUVWXYR 4ER(222):216,0:15:868:ER13ĺ"'";N$;"' ISN'T A WORD LIST.":1240::550 5"'";N$;"' ISN'T ON THIS DISK.":1240::550 9216,0:564 :D$;"OPEN ";N$:216,0:D$;"READ ";N$ D216,0:1250 NP$ S216,09 XP$"CROSS/WORDGAME"ĺD$VERY WHERE IT OCCURS IN THE"::"WORD."| Z::"IF YOU THINK YOU KNOW WHAT THE WORD IS,"::"JUST TYPE IN THE WHOLE WORD." d1240: &10:"WHAT IS THE NAME OF THE"::868:"WORD LIST I SHOULD USE? ";N$:N$""550 +D$;"CLOSE" 0958 1569 12:"W O R D G A M E" F4:"I'LL PICK OUT A WORD AND PRINT ONE"::"DASH (-) FOR EACH LETTER. YOU TRY TO"::"GUESS WHAT LETTERS ARE IN THE WORD."::' P"EVERY TIME YOU GUESS ONE OF THE"::"LETTERS, I'LL REPLACE A DASH WITH THAT"::"LETTER E=  LAST UPDATE: 6/25/80L COPYRIGHT MECC 1979 WORDGAM 8/8/79n AUTHOR: KENT KEHRBERG/MECC ASSOCIATED PROGRAMS AND FILES: ONE USER-DEFINED FILE255:::ZM24A$(100),D$(100,1),M5(100):D$(13)(4):D$;"NOMON I,O,C":          E NAME OF THE LIST IS '";B$;"'."::"THE PASSWORD IS '";PW$;"'."+::"YOU NEED TO KNOW THE NAME OF THE LIST"::"TO USE IT ON ANY OF THESE PROGRAMS."+::"THE PASSWORD IS NECESSARY ONLY IF YOU"::"WANT TO EDIT THE LIST.":23000$,A6013450EATED LISTS."%P SPACE-BAR ROUTINEIPZH(36):ZV(37):ZZ1200:ZZ^P24:7:16368,0#P"PRESS ";::"SPACE BAR";::" TO CONTINUE";(PZC(16384):ZC141ZC160205202P16368,0:1:868:21::ZV1:ZH1:HICH STUDENTS";"TRY TO GUESS TEACHER-DETERMINED WORDS"i"BASED ON CLUES. (MUCH LIKE HANGMAN)." "WORD GAME CREATE",CREDIT"WORD GAME CREATE ALLOWS YOU TO CREATE""WORD LISTS FOR WORD GAME, OR TO EDIT"  "OR DELETE PREVIOUSLY CR"A 'CONVERSATION' WITH THE APPLE.", " "E "WORD FIND",WORDERs"WORD FIND MAKES WORD FINDS FROM A LIST""OF TEACHER-DETERMINED WORDS. A PRINTER""IS NEEDED FOR THIS PROGRAM."  "WORD GAME",WORDGAM"WORD GAME IS A GAME IN WNED ""SPELLING WORDS." 9 "SPELL CREATE",SPEDITh "SPELL CREATE ALLOWS YOU TO CREATE WORD""LISTS TO USE WITH SPELL, OR TO MODIFY" "OR DELETE PREVIOUSLY CREATED LISTS." TALK,TALK"TALK ENABLES A NEW USER TO HAVE" " IXUP CREATE",SPEDITB"MIXUP CREATE ALLOWS YOU TO CREATE WORD" p "LISTS TO USE WITH MIXUP, OR TO MODIFY" "OR DELETE PREVIOUSLY CREATED LISTS." "SPELL",SPELL "SPELL PROVIDES DRILL AND PRACTICE "  "ON A LIST OF TEACHER-DETERMIATE"1 "WORD LISTS FOR CROSSWORD, OR TO EDIT"] "OR DELETE PREVIOUSLY CREATED LISTS."pT MIXUP,MIXUPU"MIXUP IS A GAME IN WHICH THE STUDENT"V"MUST UNSCRAMBLE THE LETTERS IN A WORD." W"THE TEACHER DEFINES THE WORD LISTS." "MPRINTER ATTACHED TO THE APPLE."6 CROSSWORD,CROSSf "CROSSWORD CONSTRUCTS A CROSSWORD PUZZLE""FROM TEACHER-DETERMINED WORDS AND " "CLUES. A PRINTER IS NEEDED." "CROSSWORD CREATE",CREDIT "CROSSWORD CREATE ALLOWS YOU TO CRE1:(37)18İ20500:;9C24:N$(T,C)""N$(T,C)" "835K>N$(T,C):C[C:T:20500hH::200 "ELEMENTARY - VOLUME 2",11 AMAZING,AMAZING"AMAZING CONSTRUCTS MAZES FOR THE USER. "IT IS ASSUMED THAT THE USER HAS A "DISKETTE.":20500::720* vVX$"N"6107 ::255= V A(999)(1000)256l B(A)(A1)256 CS(B1)16:SLOT # CS1CS7CS6 (4)"PR#"CS  DESCRIPTIONS *:34,1: /14:"DESCRIPTIONS":34,4 24T1NӯōˍԬԬǬ̠ԠӬԬ̠ԠӬǬԠ̩ͬǠĠĬŨũ ! ̯үЍԠ٬Ǭ٬جŬάƬҬ̬άάĬ̯үЍԠҬԬ̬ŬŬĬ׬׬ȬŬĬҬ!EATED LISTS."%P SPACE-BAR ROUTINEIPZH(36):ZV(37):ZZ1200:ZZ^P24:7:16368,0#P"PRESS ";::"SPACE BAR";::" TO CONTINUE";(PZC(16384):ZC141ZC160205202P16368,0:1:868:21::ZV1:ZH1:DHICH STUDENTS";"TRY TO GUESS TEACHER-DETERMINED WORDS"i"BASED ON CLUES. (MUCH LIKE HANGMAN)." "WORD GAME CREATE",CREDIT"WORD GAME CREATE ALLOWS YOU TO CREATE""WORD LISTS FOR WORD GAME, OR TO EDIT"  "OR DELETE PREVIOUSLY CR"A 'CONVERSATION' WITH THE APPLE.", " "E "WORD FIND",WORDERs"WORD FIND MAKES WORD FINDS FROM A LIST""OF TEACHER-DETERMINED WORDS. A PRINTER""IS NEEDED FOR THIS PROGRAM."  "WORD GAME",WORDGAM"WORD GAME IS A GAME IN WNED ""SPELLING WORDS." 9 "SPELL CREATE",SPEDITh "SPELL CREATE ALLOWS YOU TO CREATE WORD""LISTS TO USE WITH SPELL, OR TO MODIFY" "OR DELETE PREVIOUSLY CREATED LISTS." TALK,TALK"TALK ENABLES A NEW USER TO HAVE" " IXUP CREATE",SPEDITB"MIXUP CREATE ALLOWS YOU TO CREATE WORD" p "LISTS TO USE WITH MIXUP, OR TO MODIFY" "OR DELETE PREVIOUSLY CREATED LISTS." "SPELL",SPELL "SPELL PROVIDES DRILL AND PRACTICE "  "ON A LIST OF TEACHER-DETERMIATE"1 "WORD LISTS FOR CROSSWORD, OR TO EDIT"] "OR DELETE PREVIOUSLY CREATED LISTS."pT MIXUP,MIXUPU"MIXUP IS A GAME IN WHICH THE STUDENT"V"MUST UNSCRAMBLE THE LETTERS IN A WORD." W"THE TEACHER DEFINES THE WORD LISTS." "MPRINTER ATTACHED TO THE APPLE."6 CROSSWORD,CROSSf "CROSSWORD CONSTRUCTS A CROSSWORD PUZZLE""FROM TEACHER-DETERMINED WORDS AND " "CLUES. A PRINTER IS NEEDED." "CROSSWORD CREATE",CREDIT "CROSSWORD CREATE ALLOWS YOU TO CRE1:(37)18İ20500:;9C24:N$(T,C)""N$(T,C)" "835K>N$(T,C):C[C:T:20500hH::200 "ELEMENTARY - VOLUME 2",11 AMAZING,AMAZING"AMAZING CONSTRUCTS MAZES FOR THE USER. "IT IS ASSUMED THAT THE USER HAS A "DISKETTE.":20500::720* vVX$"N"6107 ::255= V A(999)(1000)256l B(A)(A1)256 CS(B1)16:SLOT # CS1CS7CS6 (4)"PR#"CS  DESCRIPTIONS *:34,1: /14:"DESCRIPTIONS":34,4 24T1N"ZN0:? ZM:"THAT IS NOT A NUMBER - TRY AGAIN";:550:500g ZM:868:CV1(CV23):ZN(ZN$): &CV1:36,CH:868: X: b10:1:"DO YOU WANT TO RUN ANOTHER"::"DISKETTE";:868:VX$:VX$(VX$,1) lVX$"Y"ė:10:9:"INSERT THE NEW 470@ 22:1:"PLEASE ENTER A NUMBER FROM 1 TO "N".":16:280M QN600s ::10:"GETTING THE PROGRAM..." 230,32:62450 D$;"RUN ";N$(Q,1) CH(36):CV(37) "";ZN$:(ZN$)(((ZN$)))520 (ZN$)0ZN$"0"540 ZN$"DT:(1023)123280@ J1(16384)128:J10JJ1:J300275X 16368,0:1023,123 16:1:"TYPE THE NUMBER OF THE PROGRAM YOU WANT.":"(IF YOU WANT DESCRIPTIONS, TYPE 'D'.) ";:868 16303,0 "490 ,ZN$"D"800 QZN Q0QN1$(N,4)5 xT1N1:C04:N$(T,C):::N$(N,0)"END"L 1:20(T$)2:T$\ VV4(N17) 2:11:"AVAILABLE PROGRAMS":VV T1N:2TN1Ė20 T10ĺ" "; T" "N$(T,0) T((N3)4)T((N3)4)((N1)2)ĺ T((N1)2)ĢVV  HELLOVERSION B-3.09LAST UPDATE: 6/17/81?S(C) MECC 1980Y :d 22016vD$(13)(4):::255:(1023)123100:16302,0:::D$"BLOAD LOGO":16304,0:16368,02D$"NOMON CIO"dZM24 n:T$,N:NN1:N     :1180C 5:868:"THE NAME OF THE LIST WILL BE? ";N$:N$""920R CR1:1180 :5:"THERE IS ALREADY A FILE NAMED '";N$;"'.":35000:CR0:880 ED0:CRED 8:"WHAT PASSWORD DO YOU WANT" 10:868:"ON THIS LIST? ";PW$:PW$""940T {:X10:EDX1 |Y13X115 }Y1920,910,910,896{ (1023)123ė:10:"GETTING THE MENU...":(13);(4);"RUN HELLO" : 5:868:"WHAT IS THE NAME OF THE LIST? ";N$:N$""910 8:868:"WHAT IS THE PASSWORD? ";PW$:PW$""912 ED1O YOU WANT TO"::" 1) CREATE A NEW WORD LIST,"::" 2) EDIT AN EXISTING LIST, "::" 3) DELETE AN EXISTING LIST, OR"::" 4) STOP?" qCR0 uD$;"CLOSE" z20:868:"(ENTER 1, 2, 3, OR 4) ?";Y$:Y1(Y$):Y11Y14Y1(Y1)(Y1)Y$890 ,S1(100):D$(13)(4):D$;"NOMON I,O,C"R ED$(1):ED$(0)"EDIT":ED$(1)"DELETE" 22:"THIS PROGRAM WILL ALLOW YOU TO CREATE"::"OR EDIT A WORD LIST FOR THE PROGRAMS"::"MIXUP, SPELL, AND WORD FIND." d PROGRAM NAME:SPELL 6/28/79 FP p10:"D SPEDIT(LAST UPDATE: 2/29/81.A(C) MECC 1979`AUTHOR: LINDA BORRY, MECC~EXTENSIVE MODS TMB, MECC: ASSOCIATED FILES: ONE USER-DEFINED FILE 216,0 0:0:1002 :::255:ZM24( W$(100),S(100)          $4r266f u$$$ruۛ e 26v- %$4666?66------66&6vII6666?$66666$d 2I$$66666266&$ 66&$d 66&2266&$ -66 -u6?$ 26666$$$ -6?$*---/--- -%46666$$<?$2. -u?76& --u??v--u??vI6?--?666ve226v- %$466&626e ----????6  $ --?6 --66'$<6=$$466--6 -%466&<?$ 66666$d -6? --??6--  -%$$46666&<?$ 6 -u>???v--*-=766&$$$d -$ -%4666?-e$$?$ 666f -66#$$I666-- $$$I 66666?/--= ------b--u??--??66.---='$$66666----????66.--u???d -?6e--??$&----6&6 --??v-- ??d -? ---66&??-- 566&6I  Ibb5 II$4-I16666&$$$$-u???6---6???-)u?d-M nI) ?v- Iv-- Nd I16$II66uuuu66 -I16666fI  --????-I16666&$$??----J  6$R---6  4II  --&&$$$  --666 ??$$$ -6---?w?766$$$$$I --??v--???----??66666M6666-- $$$$666 $$$ 6666v  $$$$4$vd 4v66&$$ 4----.---=I1666? 6n $46I66666$???/---566$$$ 666666--- ???--- ??/6 --&??666-- 4 66666--- $$$???6-@F)@Xgw9Sar!>Z`mx 6K]t-Lbw(5K\m#7;     TTE.":1240:ER0:1285V20:958:CCCC1:CC1ĺ"PLEASE MAKE SURE THE DISKETTE"::"IS IN PLACE AND THE DRIVE DOOR CLOSED.":1240:ER0:1285XCC0:"I AM UNABLE TO WRITE INFO TO THIS FILE.":1240:ER0:200Z1260:CZ1Č16384:_1240:200d"CROSS/WORDGAME"PW$"D-(T1DP2A$(T);",";D$(T,0);",";D$(T,1)W<TkFD$;"CLOSE ";N$}P216,0:CC0:RER(222):216,0S16384TER4CC0:20:958:"PLEASE REMOVE THE WRITE-PROTECT STICKER"::"FROM THE EDGE OF THE DISKEONTINUE";:16384,128:16368,0:1:868:23:?1260::230216,0:D$:CZ1Ģ22:868:"SORRY, '";N$;"' IS NOT ON THIS DISK."10:D$;"CLOSE ";N$:D$;"DELETE ";N$:CC0216,0:136215D$;"OPEN ";N$ D$;"WRITE ";N$E NAME."::"THE PASSWORD IS NECESSARY ONLY IF YOU"::"WANT TO MAKE ADDITIONS OR CHANGES TO"::"THE LIST USING THIS PROGRAM,":"OR IF YOU WANT TO DELETE THE LIST."1240:200.24:868:7:16368,0:"PRESS ";::"SPACE BAR";::" TO C0I:I100::I0200-DI:4000:1:"THE LIST YOU HAVE JUST CREATED CAN BE"::"USED ON WORD GAME OR CROSSWORD."::"LIST NAME: ";N$::"PASSWORD: ";PW$::"ANYONE USING THIS LIST ON WORD GAME"::"OR CROSSWORD MUST KNOW THON":DD01#17DD:80):17DDODD0Ą" FIRST LINE: ";D$(I,DD):450p" SECOND LINE: ";D$(I,DD)D$(I,DD)""DD0370(D$(I,DD))20ĂDD:49023:10:"PLEASE KEEP THE DEFINITION":10:"UNDER 20 LETTERS PER LINE.";:144(|12:868:" WORD #";I;:": ";A$(I)vL1(A$(I)):L22L1:(A$(I),L2,1)" "A$(I)(A$(I),L21)(A$(I),L21)~L2(A$(I))1542023:"KEEP THE WORDS TO 15 LETTERS PLEASE."380A$(I)""II1:958 15:"DEFINITIN> FOR"::"THE SECOND LINE.";P1240::3:IN1:340:500T"MAXIMUM NUMBER OF WORDS.........100 MAXIMUM LETTERS PER WORD.........15 MAXIMUM LETTERS PER DEFINITION...40"^::"PRESS WHEN YOU'RE DONE."hI(IN)100r12:9581380 J:5L"YOU MAY HAVE UP TO 100 WORDS ON THE"::"LIST. EACH WORD CAN HAVE UP TO"::"15 LETTERS; EACH DEFINITION CAN HAVE"::"2 LINES, WITH 20 LETTERS PER LINE."N::"IF YOU DON'T NEED TWO LINES FOR THE"::"DEFINITION, JUST PRESS X COPYRIGHT MECC 1979 AUTHOR: KENT KEHRBERG/MECC 8/8/79 ASSOCIATED PROGRAM AND FILES: ONE USER-DEFINED FILE  RE-WRITTEN AND SEPARATED FROM CROSSWORD JAN. 1980                :ZRZXZK:22090:ZXZXZK:22140:V WRITE ON HGR SCREENHVZT$""ıgVZJZY15:ZJ0ZJ192ZHıVZD0:ZF0:Z1(ZT$):ZZ((ZT$,Z,1)):ZZ3222330VZU022290VZZ65ZZ90ZD0:22300WZD64:ZXZXZA:22300 WZZ94ZF1:ZXZXZW:VZA$"":ZXZXZW>|V16368,0:Z$:(Z$)13(Z$)32Z(0):\VZA$ZA$Z$:(Z$)822170~VZXZXZW:ZT$Z$:22230:22140VZA$(8)ZA$"":22140VZ(ZA$)2:Z0ZA$"":22200VZA$(ZA$,Z)VZKZW:ZU0ZKZKZA VZTZYZH:ZBZY:ZLZXZUZK:M@VZX270ZW19:ZT$"'SPACE BAR":22230:ZX270ZW9:ZT$"'":22230:qEV CLEARS ANY SPOT ON HGR SCREENJV0:ZZTZB:ZL,ZZR,Z:Z:3:TV UNDERSCORES ON HGR SCREEN^VZT$"":Z1ZN:ZT$ZT$(95):Z:22230:hV INPUTS ON HGR SCREENr"PRESS":22230<V22080:ZX276ZW8:ZT$"TO GO ON":22230dVZ1(ZS1)84:(16384)12722070kVZ"VZ1250:Z:ZT191ZH:ZB191:ZL270ZW19:ZR273ZW8:22090,V(16384)128İ22080:220506V16368,0:ZT191ZH:ZB191:ZL0:ZR279:22090:ISN'T ON THIS DISK.":216,0:D$;"CLOSE ";N$:D$;"DELETE ";N$:130xR::"SORRY, '";N$;"' ISN'T A SPELLING LIST.":130UD$;"BLOAD LACHAR":ZH15:ZW11U:232,0:233,64:3:1:0:(16301(ZF1)),0:V16368,0:ZKZU:ZU0:ZX275ZW25:ZY191:ZT$D$;"OPEN ";N$"D$;"WRITE ";N$<"SPELL/WORDER/MIXUP"EPW$SD;",";Z1^T1D~W$(T);",";S%(T);",";S1%(T) TD$;"CLOSE ";N$ 430004(16384)127820>16368,0:24:1:868:AHD$:P$""ĺ:::"SORRY, '";N$;"' HERE'S YOUR SCORE, ";S$;":"MG71811:8:G:"***********************":G817:G:8:"*";21)"*":G:11:9:"NUMBER TRIED...";Y10:12:"NUMBER CORRECT":11:14:"FIRST TRY......";R:11:16:"SECOND TRY.....";R2350001:1:020T91RR1%T92R2R21,V>::X10650q:"HERE ARE THE WORDS YOU HAD TROUBLE WITH.";34,4:T1X1:R1((T1)8.01):R12(R12)Ė2032T16R1F$(T):T16(T16.01)TDİ35000:T:35000::4:"5:ZB70:ZLXX:ZR279:22090:341QhZX45:ZY110:ZT$"^NO, IT IS SPELLED":22220jZX140(11L12)17:ZY130:ZT$"'"W$(G)"'.":22220:ZS10:22020410L((1)6)1:ZT$"^"L$(L)", ^"S$"!":ZX140((11(ZT$)6)2):ZY110:22220:ZS10:22(11L12)33:ZXXX:ZY70:ZT$"-->":22220:ZXXX33:ZY70:22120:G$ZA$V YG$""341b [T9T91 \ZT95:ZB130:ZL1:ZR279:22090 ^G$W$(G)400 _T91S1%(G)S1%(G)1:X1X11:F$(X1)W$(G) `T91ZX62:ZY110:ZT$"^NO, TRY AGAIN.":22220:ZT5 ,C%(G)1:ZX90:ZY20:ZT$"^W^O^R^D # "(V):22220D .L1(W$(G))q 1ZX140(11L12):ZY50:ZT$W$(G):22220 6S%(G)S%(G)1 @U1Z1:I1650:I,U JZT35:ZB50:ZL1:ZR279:22090 OT90 TZX73:ZY50:ZT$"^SPELL IT NOW":22220G UXX14010:"THERE ARE ";D;" WORDS ON THIS LIST.":::868:"HOW MANY PROBLEMS DO YOU WANT? ";Y$:Y(Y$):Y1(Y)Y$260 YDĺ::"SORRY, YOU CAN'T HAVE MORE THAN ";D;".":260  R0:R2R:X1R V1Y 22010:G((1)D)1 "C%(G)12804WANT TO BE TESTED ON? ";N$) N$""1303 958O D$"OPEN"N$:D$"READ"N$Y P$""j 216,0:840r P$} 216,0 P$"SPELL/WORDER/MIXUP"840 PW$ D,Z1 T1D W$(T),S%(T),S1%(T) T:TT1 D$;"CLOSE ";N$ u  21:12:"S P E L L I N G"S <5:868:"WHAT IS YOUR FIRST NAME? ";S$:S$""60Z A8 F"OK, ";S$;", I'LL PRINT A WORD AND"::"GIVE YOU TIME TO LOOK AT IT,"::"THEN YOU TRY TO SPELL IT." 15:"WHAT IS THE NAME OF THE WORD LIST YOU"::868:" SPELL'LAST UPDATE: 2/27/812 22016G :::255:ZM24W$(100),S%(100),S1%(100),C%(100),F$(100),L$(7):D$(4):D$;"NOMON I,O,C":22000:GOOD JOB,GREAT,NICE WORK,SUPER,NICE SPELLING,RIGHT ON,EXCELLENT(T17:L$(T):T       B$;"'."::"THE PASSWORD IS '";PW$;"'."+::"YOU NEED TO KNOW THE NAME OF THE LIST"::"TO USE IT ON ANY OF THESE PROGRAMS."+::"THE PASSWORD IS NECESSARY ONLY IF YOU"::"WANT TO EDIT THE LIST.":23000$,A6013450V,7,6:"DO YOU WISH$;"WRITE ";B$5*"SPELL/WORDER/MIXUP":PW$:A;",";5A*JK1AY*W$(JK);",";0;",";0_+s\+D$;"CLOSE ";B$~f+216,0+::"THE WORD LIST YOU HAVE JUST CREATED"::"CAN BE USED FOR WORDER, SPELL OR MIXUP."'+::"THE NAME OF THE LIST IS '";EASE REMOVE THE WRITE-PROTECT"::"STICKER FROM THE EDGE OF THE DISKETTE.":23000:10850*CCCC1:CC1ĺ"MAKE SURE THE DISKETTE IS IN PLACE"::"AND THE DRIVE DOOR IS CLOSED.":23000:10850*"I AM UNABLE TO USE USE THIS FILE.":23000::8900 *D868:10400(958(0)W$(JK)""10700O)(W$(JK))L1L1(W$(JK))h6)(37)21Ģ6:958:ph)JK)AJK1:A0430000*G6111300b*CC0l*216,0:10890v*D$;"OPEN ";B$*10900*ER(222):216,0::17X*ER4CC0:"PLSSWORD BE? ";PW$:PW$""9710&t'G61.':}'"TYPE IN YOUR WORDS ONE PER LINE."::"WHEN YOU'RE DONE, PRESS ." (:(L10<(JK1100(JK;:" ?";W$(JK)(CV(37) ((W$(JK))15Ģ23:"WORDS MUST BE 15 LETTERS OR LESS.":CV: ";B$|$P$""$9600)$P$:216,09$D$;"CLOSE"|$216,0:D$:17:"SORRY, YOU CAN'T USE THAT NAME.":23000:8850%216,0%15:"IF YOU WANT TO EDIT THE LIST YOU'LL"::"HAVE TO KNOW THE PASSWORD FOR IT."%20:868:"WHAT SHOULD THE PA:"TO CALL THE FILE? ";B$)^$B$""9300;c$216,0:9317Ed$9320fe$ER(222):216,0:ER139370f$17:"PLEASE REMOVE THE WRITE-PROTECT"::"STICKER FROM THE EDGE OF THE DISKETTE.":23000:17:958:9315h$D$;"OPEN ";B$m$216,0r$D$;"READ ";:868:ZN$:A5(ZN$):A51A54(A5)ZN$A5(A5)8050L`"A011300R""4:"DO YOU WANT THE LIST OF WORDS SAVED IN"::"A FILE";:868(#"? ";C$:C$(C$,1):C$"Y"C$"N"8900*#958:C$"N"10150T$10:"WHAT DO YOU WANT"::868HORIZONTALLY,":AT" 2) WORDS HORIZONTALLY AND VERTICALLY,":^" 3) WORDS HORIZONTALLY, VERTICALLY AND"::" DIAGONALLY, OR":h" 4) WORDS HORIZONTALLY, VERTICALLY,"::" DIAGONALLY AND IN INVERTED ORDER"=r19:"(ENTER 1, 2, 3, OR 4)ER/MIXUP"ĺD$:13:956:21:"SORRY, I CAN'T USE THAT LIST.":13:5900Z )958:PW$:A,Zc ,L10o -JK1A 2W$(JK),S,S1 7(W$(JK))L1L1(W$(JK)) <JK PD$;"CLOSE ";B$ dA61 @:4:"HOW DO YOU WANT THE PUZZLE?":J" 1) WORDS 16,0:ER13Ģ21:868:"'";B$;"' ISN'T A WORD LIST.":23000::5850 21:868:"'";B$;"' ISN'T ON THIS DISK.":23000::5850 216,0:6416 D$;"OPEN ";B$ 216,0 D$;"READ ";B$ A$"" 216,0:24000F (A$:216,0:A$"SPELL/WORDDO YOU WANT TO USE A WORD LIST THAT'S"6 D$;"CLOSE" 15:868:"ALREADY ON THIS DISK? ";B$:B$(B$,1):B$"Y"B$"N"5910 956 B$"N"8000 j18:868:"WHAT IS THE NAME OF THE LIST? ";N$:N$""ė:5850 B$N$:6419C ER(222):2$(50) A(32,32)  Y$(50)) 5800M / ::2:10:"W O R D F I N D"U > : "THIS PROGRAM WILL CREATE A WORD PUZZLE." : P"YOU NEED TO HAVE A PRINTER ATTACHED"::"TO YOUR APPLE TO USE THIS PROGRAM." Z A0:G0 13& "(768):SLOT(769):ST(770):L1(771):L103100a FACE$"":K1L1:FACE$FACE$((771K)):  UI$"ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789+-*/()$= ,. ]:'& ^#<> ? ;" D$(13)(4):D$;"NOMON I,O,C":255: ZM23 B(35),C(35),R(35),W$(50),X) WORDER, LAST UPDATE: 81/7/28 CPE2F (C) MECC, 1979mAUTHOR: L. BORRY, MECC AND OTHERS(ASSOCIATED PROGRAMS AND FILES: FILES ARE USER DEFINED*(4);"BLOAD PRNTFILE,A765"-1022,0233751022,0:770,0 2 FACE                    Ӭ٬ŬˬȬŧӬ٬ŧӬ̬ҬͬԬŧ̬ͬĬŬҬЬԬˬ٬٬ˬŬάϬŬ٬ŬŬˬŬȬҬ٬ɧ̬׬Ӯէ̬ǬάŬŬ׬ˬԬԬάԬˬŬŬЬŬ֬ŬԧӬŬӬŬӬŬȬϬԬΧԬ̬Ǭ¬ά٬ͬȬ̬ΧԬ̯үЍԠЬ٬ԬŬάŬԬҬˬҬ׬Ǭ" ̯үЍԠ٬ˬҬͬ٬ŬŬҬȬάӬΧԬ"ox<@}~??|_Oox?g}xGo?}w[_o7wo?go?~o@|?p>{m?_}v{?ppx?X_~zoo>{k/?{~?~>{o7owo}_~ox_8onV;W[]_]nw_ox?|g?~xc?oox p|ao?lxg}sO{_w_wv^F_w~~G~o88`}~?~~gox?O}x~o?}w[._0{o?|p{{@|~?~~1wvwg?o@q?|C>{m?_}~g?@~`?@_O~zog>{K/{~??~>{o7_ow[o{}?_gxs_X_nfWO{]_>nwOo?~?o?x?ocO}{o_wvv_7_wv^_?wv~_w~wvvw>_O0?~}~?_qwlw`\o<~`ox?a@}xx<Awx6_o7`o?8o{;?o{~_}~.wvsw?o@G?xx>{m?_mv_??`@?`@?W~v[k>w-w.{~?> x`\o~`wpg_X_nvW_{]_~nwoo|?o  ̯үЍԠĬŬĬԬҬĬԬ٬ŬҬǬŬ ̯үЍԠ٬լӬӬ̬ŬҬˬӬƬ٬Ԭ