' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 7777777 7777JJJJx 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 ?7  NLŠŠŠŭԠҮǺӠŠ٠٠ōĠŠӮӠРˠӠΠĠӍĠΠϠҠŠĮ,$% "n ,LXӠ Ϡ7JJJJ L `LA@@&E&&A@@&AA)߅CBBH&E&&A@B& ChLQhBAȌy8zx8v{v I7H7@)*AL@m{@AAA,+i(ˢ3Z@[A@ /@v wm{@8/e@@eAA3]ͥ@\ƊiY?AyC@B@B|ACLT$VXZdflpx|~**7777(*3]67V<<8:=???@@##topmnU^_R ij^_lk 󅔆nmLY^^ȱ^ȱ^eȱ^e(ӊ0Цe^^u**`*5".Q`pN%$#$$b"p"t""%%%%"""m%2"<"("-"P"y%%0#\##|"6$6$$$e<%%g< 7JJJJj*7h*I * aUL@* kU8*  L % Q(^*R*(jQ*0l^l\ * wU*u**W* '* H &h@ ['_* /QSIZRb*_*L!`LLL*L7`**`LQ(LYLeLXLeLee Q*H\*(h0L&& $`(* &R*  \*Z*Ll8 R* HH\*`\*Z*[*Y*S*6`*LxQ*ɿu3'R*Ͳ*ʎR*ʎ]*]*]*ɍuLɍ}R*LR*ɍ*g^H8* ^&hZ*LOɍR* &LͲ*ɊR*R*%* Q(L$Ͳ* Z*@ -^*  \*[*Z* Q(Y*\*[*Z*8`l6L_*Ȍb*_*Ͳ*]* !)Y( h( (֭Ͳ*Lɍ ['LL&_*_* ^& 9 )L&3 9 )a  ! 0L jLY ! u*< !(_*9 ) ˭*ɠu*ɠK_*9 )?L ˆʎ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*`CH(36):CV(37)CA" ";:SKI,2,ZN$:(ZN$)(((ZN$)))40003`B(ZN$)0ZN$"0"40006CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001FZM:868:CV1(CV23):ZN(ZN$):JCV1:36,CH:868: END OF PROGRAM D$;"PR#0O768,ZG=OZN$"30"202880>O802,82:818,82E@O823,80:797,127SAO775:ST1BOZJ3ZJ4İ20232:(9)ZH"N": CHAR/LINEGOZQ1:::24:1:868:16368,0:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:16384,128:16368,0:1:868:@OZJ0:20255#OZK02:Z2(ZK)0NOZI02558: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'.O:202128O10:;COMM=1, SERIAL=2, PAR=3, MALIBU=4KO: "-SEARCH-",24,56,56,24,72,72,8,72kOZI$:ZI$"-SEARCH-"20243OZJ14:Z5(ZJ),Z7(ZJ):OZ2(2)OZW4940850944256OZG(ZW49152)256OZJ14O(ZW5)Z5(ZJ)(ZW7)Z7(ZJ)20252OZJPPLE; 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 INTERFACE!OZ5(4),Z7(4): N10::ZJ120289LNZF$"COMM, SERIAL OR PARALLEL"ĺ(4);"PR#";ZG:20290`N(4)ZF$:20295N10:868:"WHICH SPEED (10 OR 30 CPS) ";NZN$:ZN$"10"ZN$"30"20220NZA17:ZN$"10"ZA82pO ZH=CHAR/LINE; ZV=I/O: 0-OUTPUT BOTH, INPUT A:L OR PARALLEL"aN(ZQ)ZF$"COMM, SERIAL OR PARALLEL"Ģ10:"ONE MOMENT PLEASE...":20240NZF$"COMM, SERIAL OR PARALLEL"ZJ120290N:5:"TURN YOUR PRINTER ON AT THIS TIME.":ZF$"COMM, SERIAL OR PARALLEL"ZJ1(ZQ)20220N35000050>:11:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"H*:60vGETTING THE MENU PROGRAM...":(4);"RUN HELLO"*768,FACE:769,SLOT:770,ST:L1(FACE$)/771,L1:K1L1:771K,((ZF$,K,1)):4:60?nj775:769,155:@Ǻ(4);"PR#0"R - TRY AGAIN";:40010:40001EFZM:868:CV1(CV23):ZN(ZN$):^JCV1:36,CH:868:t END OF PROGRAMD$;"PR#0":11:868:"DO YOU WANT TO TRY AGAIN? ";:SKI,3,A$A$(A$,1):A$"Y"A$"N"43005A$"Y"Ĺ1022,1:43 "(ZT)".";:ZV:ZH:868:37030CZN(Z$):ZFĢ24:1:958:ZF0I A;Z$:Z$(Z$,1):Z$"Y"Z$"N"ĖZH:ZV:868:36010:TRANGED NUMERIC INPUT ZB = MIN, ZT = MAX, ZC = C/R LEGAL (BOOLEAN)ZH(36)1:ZV(37)1ZL((ZT)) "";Z$:(Z$)ZB(Z$)ZTĢ24:1:ZF1:"ENTER A NUMBER BETWEEN "(ZB)" AND1000NuZP160ZP14130020EXu1:868:1::ZV:ZH:16368,0:YyENDING ROUTINE"y::12:"WOULD YOU LIKE TO TRY AGAIN? ";:36000:Z$"Y"Ĭ@y::12:"RETURNING TO MAIN MENU...":D$"RUN HELLO"YES-NO INPUT4ZH(36)1:ZV(37)1:""(S$,K,1)):PPCTK,A:A32AA64:0#(A);:C#K:Q$:CTCTLI#`0uSPACE BAR ROUTINE5uZH(36)1:ZV(37)1:ZF0:u24:1:868:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";Du16368,0:16384,128:ZP(16384):ZP155ZFZF1:ZF23(S$,K,5)"CHR$("9110:F#JK6L:(S$,J,1)")"9100\P#X$(S$,K5,JK5):X((X$))oZ#X0X127X0d#L$"":K1L$(S$,K1)n#R$"":LJR$(S$,LJ)x#S$L$(X)R$#LKLJ:9110#J#K#13:868:L(S$):K1L##A(L(S$):C$:A(C$):A13Ĺ16368,0:B^(A8L0)ĺC$Q$;:8020PhA88080drA34L198020w|A32AA64:(A);::S$S$C$:8020C$" "C$;:L1S$"":8020S$(S$,L1):8020(#SCAN FOR CHR$2#L(S$):L79120<#K1L6:INT "Q$;:80001S$""Ģ72L2:1:958::L25US$""İ9000:CTCT1:PPCT,13L2:CTCT1:PPCT,0:PPCT1,255:PPCT2,25522:"ARE THE ABOVE COMMANDS CORRECT? ";:36000L1(Z$"Y"):L1@STRING INPUTJS$"":16368,0&T your data diskette.":35000:10:CEW:C0 DRIVE OPTIONS HELPER: PROGRAM DISK INSTRUCTIONS WILL BE PLACED IN D1$,DATA IN D2$DZB953:SL(ZB):DR(ZB1):VO(ZB2)ED1$",S"(SL)",D"(DR)",V"(VO)IZB956:SL(ZB):DR(ZB1):VO(ZB$+DZB953:SL(ZB):DR(ZB1):VO(ZB2)TED1$",S"(SL)",D"(DR)",V"(VO)~IZB956:SL(ZB):DR(ZB1):VO(ZB2)XD2$",S"(SL)",D"(DR)",V"(VO):D1$D2$SA1bgram diskette.":35000:10:CEW:'1:11:CEW:"Please insert200=DATA DISKETTE[1:11:CEW:"Please insert your program diskette.":35000:10:CEW:1:11:CEW:"Please insert your data diskette.":35000:10:CEW:0 DRIVE OPTIONS HELPER: PROGRAM DISK INSTRUCTIONS WILL BE PLACED IN D1$,DATA IN D2Getting the menu program...":D$;"RUN HELLO"D1$Kȯ(222)6Ĺ216,0:43020үCL$:5:"Something unusual is happening."::"Error ";(222);" in ";(218)(219)256;".":216,0:H DISPLAY DISKETTE SWITCH MESSAGESR ENTRY POINTS;61100=PROGRAM;61CL$-10:"Do you want to try again? "S10:27:CEW:SKI,3,A$:A$(A$,1)nA$"Y"A$"N"43005A$"Y"āT1100:C%(T)0:W$(T)"":F$(T)""::X(0):X0:QF1:CL$:125 SA1ĺCL$:6110045000:D$"VERIFY HELLO"D1$/CL$:10:"2090:270.ȯZT0:ZB170:ZL105:ZR279:22090;ɯ40010:GX1200:X:X15:0:10043,56:3:Y6163:45,Y58,Y:Y:Y150:YH0:Y6163:45,Y58,Y:Y:3:10043,56:Y1200:Y:XIJZT165:ZB190:ZL1:ZR279:22090:cZT33:ZB45:ZL245:ZR279:22090d251 hZT100:ZB118:ZL245:ZR279:2JZT165:ZB190:ZL1:ZR279:22090:JcZT33:ZB45:ZL245:ZR279:22090Sd251hZT100:ZB118:ZL245:ZR279:22090:270ȯZT0:ZB170:ZL105:ZR279:22090ɯ40010::191B40010CZX50:ZY190:ZT$"^THAT'S NOT RIGHT!":22220:K91:GT33:ZB45:ZL245:ZR279:22090(d251ThZT100:ZB118:ZL245:ZR279:22090:270yȯZT0:ZB170:ZL105:ZR279:22090ɯ40010:D5:ZR279:22090ɯ40010:052,Y:Y:Y150:YH0:Y6163:39,Y52,Y:Y:3:10037,56:Y1200:Y:XI%279:22090d251?hZT100:ZB118:ZL245:ZR279:22090:270dȯZT0:ZB170:ZL105:ZR279:22090qɯ40010:163:39,Y52,Y:Y:Y150:YH0:Y6163:39,Y52,Y:Y:3:10037,56:Y1200:Y:XIJZT165:ZB190:ZL1:ZR279:22090:cZNSERT YOUR ORIGINAL DISKETTE.":20500:k~1:20:CS:"PLEASE INSERT YOUR DESTINATION DISKETTE.":20500:H DISPLAY DISKETTE SWITCH MESSAGER ENTERY POINTS;61020=PROGRAM;61040=DATA DISKETTE\1:12:CS:"PLEASE INSERT YOUR PROGRAM DISKETTE."ZXZW:ZD64:22330@WZIZX(Z1)ZW:ZI0ZI(279ZWZA)22330[&WZZZD(ZZZD0)ZI,ZJx0WZF1ZXZXZA:ZD0:ZF0:WZ:0u232,52:233,108:@:" Please type":" a number.":AZT120:ZB135:ZL110:ZR279:22090:191B400103C:ZLZX:ZRZXZK:22090:ZXZXZK:22140@V WRITE ON HGR SCREENNVZT$""ımVZJZY15:ZJ0ZJ192ZHıVZD0:ZF0:Z1(ZT$):ZZ((ZT$,Z,1)):ZZ3222330VZU022290VZZ65ZZ90ZD0:22300WZD64:ZXZXZA:22300WZZ94ZF1:ZX90CVZA$(ZA$,1,(ZA$)1):(ZA$)1ZA$(ZA$,1,(ZA$)1):22140UVZA$"":22140VZXZXZW(ZU1)ZA:ZT$X$Z$:22230:22140VZA$(8)ZA$"":22140VZ(ZA$)2:Z0ZA$"":22200VZA$(ZA$,Z)VZKZW:ZU0ZKZKZA&VZTZYZH:ZBZY1K,((ZF$,K,1)):!4:601!?nj775:769,155:D!@Ǻ(4);"PR#0":Z1)):W!4:60k!?nj775:769,155:~!@Ǻ(4);"PR#0":" :@ 11:868:"DO YOU WANT TO TRY AGAIN? ";:SKI,3,A$f A$(A$,1):A$"Y"A$"N"43005 A$"Y"Ĺ1022,1:43050 :11:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO" *768,FACE:769,SLOT:770,ST:L1(FACE$)!/771,L1:K1L1:77DISKETTE SWITCH MESSAGEN$R ENTERY POINTS;61020=PROGRAM;61040=DATA DISKETTE$\SET,1:1:12:CS:"PLEASE INSERT YOUR PROGRAM DISKETTE.":20500:11:CS:$pSET,2:1:12:CS:"PLEASE INSERT YOUR DATA DISKETTE.":20500:11:CS:%0 DRIVE OPTIONS HEڲ ERROR PROCESSINGD#$ER(222):LN(218)(219)256::D$"CLOSE"[#ۭER0ER16EF0:k#LZ53856ER#ܭER255ĺ:"ERROR CTRL-C HIT AT LINE #"LN".":#Pܺ:MZ01:PE(LZ):(PE);:MZ(PE127):LZLZ1:MZ:" ERROR AT LINE #"LN".":$H DISPLAY NK":"JUNK":D$"CLOSE JUNK":D$"DELETE JUNK":P16"ӱH"ֲ VERIFY FILEa"֭SADR1İ61040:DR2n" EF1:P0"<׭EFĺD$"VERIFY"Z$".WORD"D2$:P1"ر"ز VERIFY FILE-PROGRAM DISK"EF1:P0"0٭EFĺD$"VERIFY"Z$".WORD"D1$:P1"b٭Pİ55000"ٱ#OF FILES/!BǗ:12:"CATALOG OF LISTS":2:34,2H!`ǭSADR1İ61040:DR2!jǗ::Z$"H":55000:SET,2:FCN,".WORD",FC$,NN:I1NN:FC$(I):I!~ǰ20500::!Ҳ WRITE VERIFY FILE!ҭSADR1İ61040:DR2!EF1:P00"ӭEFĺD$"OPEN JUNK"D2$:D$"WRITE JU END OF PROGRAM ::5w 10:868:"DO YOU WANT TO TRY AGAIN? ";:SKI,3,A$:A$(A$,1):A$"Y"A$"N"43005 :A$"N"43030 SADR2İ61020  SADR2İ61020 :10:"GETTING THE MENU PROGRAM...":D$"RUN HELLO"D1$!8Dz LIST 16368,0:1:868:15:-@CH(36):CV(37)dA"";:SKI,39(36),ZN$:(ZN$)(((ZN$)))40003B(ZN$)0ZN$"0"40006CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001FZM:868:CV1(CV23):ZN(ZN$):JCV1:36,CH:868: WY$(I1)T1$bWTWBW"HERE ARE THE WORDS TO LOOK FOR:":PWT1T31`WY$(T);:25rWT2(T2)ĺyWTWWPOFFW(952)0İ23000W43000Y24:868:7:16368,0:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:16384,128: V22260*V(UI$,((1)261),1);" ";1VC7V>WTDWW"THERE ARE "T31" WORDS HERE - CAN":"YOU FIND THEM?"&W(Z1$,1,1)"N"224500W SORT Y$:WY$(0)"":T2T31DWT1$Y$(T):IT1NWT1$Y$(I)Y$(I1)Y$(I):II1:22350 XTV:POFF::10^V"IF YOU WISH, YOU MAY INSERT A DITTO":"MASTER AT THIS TIME.":20500iV63000tVT13zVVTVP21(H$)ĺH$:22190V(P2(H$))2);H$VVT1PVC1PVA(T,C)022250V(UI$,A(T,C),1);" ";BAR";::" TO CONTINUE";:16384,128:16368,0:1:CL:BU63000MVT13S"VZ,VTv.VP21(H$)ĺH$:220660V(P2(H$))2);H$2V6VT1P@VC1PJVA(T,C)022120TV(UI$,A(T,C),1);" ";^V22130hV". ";rVC|VV17500 DT9DY$(T3)W$(T)*DT3T31;DT90B(0)1VDA(V8T9,H8T9)B(T91)^DT9dDrD REVERSEDT91(B(0)2)EQ0B(T9)EB(T9)B(B(0)T91)EB(B(0)T91)Q0$ET9.E148407P24:CL:16368,0:7:"PRESS ";::"SPACE IAGONALLY2*DO00#4DM2PB(0)1,>DM1PPHDH8((1)(M2.000001)1):H9H8{RDV8((1)(M2.00001)(M1M21)):V9V8\DT90B(0)1fDA(V8T9,H8T9)0A(V8T9,H8T9)B(T91)17580pD14930zDO0117640DV8117500DV8M1M21D01)1):V8V9/CH9((1)(M2.00001)1):H8H9@CT90B(0)1sCA(V8T9,H8T9)0B(T91)A(V8T9,H8T9)17370~C14930CO0117430C17320CT9CY$(T3)W$(T)CT3T31CT90B(0)1DA(V8T9,H8T9)B(T91) DT9D  D DB(0)11CA(T9,H8)0A(T9,H8)B(T9V81)17200<C14930LCO0117260W&C17150_0CT9p:CY$(T3)W$(T)|DCT3T31NCT9V8V8B(0)1XCA(T9,H8)B(T9V81)bCT9lCvC DIAGONALLY 1CO00CM1PB(0)1:M2M1 CV9((1)(M1.000o?~o@|<Awx6_o7`o?p>{m?_}v{?ppx?X_~zoo>{k/?{~?~>{o7owo}?O2):XD2$",S"(SL)",D"(DR)",V"(VO):D1$D2$SA1@bZSK INSTRUCTIONS WILL BE PLACED IN D1$,DATA IN D2$DZB953:SL(ZB):DR(ZB1):VO(ZB2)ED1$",S"(SL)",D"(DR)",V"(VO)IZB956:SL(ZB):DR(ZB1):VO(ZB2))XD2$",S";61020=PROGRAM;61040=DATA DISKETTEq\SET,1:1:12:CS:"PLEASE INSERT YOUR PROGRAM DISKETTE.":20500:11:CS:pSET,2:1:12:CS:"PLEASE INSERT YOUR DATA DISKETTE.":20500:11:CS:0 DRIVE OPTIONS HELPER : PROGRAM DISK INSTRUCTIONS WILL BE1İ61040:DR2Q::Z$"H":5500:SET,2:FCN,".CROS",FC$,NN:I1NN:FC$(I):I^20500:P24:CL:16368,0:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:16384,128:16368,0:1:CL:H DISPLAY DISKETTE SWITCH MESSAGE"R ENTERY POINTSSSING5ER(222):LN(218)(219)256::D$"CLOSE"LER0ER16EF0:\LZ53856ERER255ĺ:"ERROR CTRL-C HIT AT LINE #"LN"."::MZ01:PE(LZ):(PE);:MZ(PE127):LZLZ1:MZ:" ERROR AT LINE #"LN".":p LIST OF FILESSADRA$,1):A$"Y"A$"N"30205 A$"Y"Ĺ1022,1:3070M ::SADR2İ61020 :10:"GETTING THE MENU PROGRAM...":D$"RUN HELLO"D1$ 216,0: -PRINTER|VERIFY FILEEF1:P0EFĺD$"VERIFY"Z$".CROS"D2$:P1 ERROR PROCE1)A)" , "(A%(Z1,2)B)" ]":AA$;< 13(AA$));A$(Z1)C ZK :q "------------------------------"{( POFF2 :2:CL< FACE255İ20500F 3000  : 12:CS:"DO YOU WANT TO TRY AGAIN (YES OR NO)? ";:SKI,3,A$ A$( :,` :"------------------------------"4j :Gt "THE ANSWERS"Z~ "-----------"b :p "ACROSS" "------": Z1R R11Z2520 : "DOWN" "----": Z10N1 ZA%(Z1,4)2550 Z1$ AA$"[ "(A%(Z1,)Z1A%(Z3,2)Z2A%(Z3,0)D2300-RR1<A%(Z3,4)RjAA$"[ "(Z1A)" , "(Z2B)" ]":AA$;13(AA$));B$(Z3,0):13);B$(Z3,1):2310Z3 Z2 Z1 D22390$ :"DOWN". "----":8 D2B R1RL 2210V34CZ12070Z80% 2080.Z81T Z9((Z1B)Z)Z8((Z1B)10)10a*" ";Z9;i4Z1o>vHZ~R:\f"THE CLUES"p:z"ACROSS""------"D1Z1A135Z2B34CZ30N1#A%(Z3,10 D1880N"XX";8XC%(Z,Z2)0C%(Z,Z21)01900Bb1910Ml"[ ";ovC%(Z,Z2)0C%(Z,Z21)01930y1940"]X";C%(Z,Z2)0C%(Z,Z21)019601970"I ";Z2ZZ1019BC2);Z1B1):VO(ZB2)CXD2$",S"(SL)",D"(DR)",V"(VO):D1$D2$SA1IbUN HELLO"b)1023,9j*:VO)-IZB956:SL(ZB):DR(ZB1):VO(ZB2)dXD2$",S"(SL)",D"(DR)",V"(VO):D1$D2$SA1jb958:0 DRIVE OPTIONS HELPERDZB953:SL(ZB):DR(ZB1):VO(ZB2)ED1$",S"(SL)",D"(DR)",V"(VO) IZB956:SL(ZB):DR(ZB1K1:12:958:"PLEASE INSERT YOUR PROGRAM DISKETTE.":35000:11:958:1:12:958:"PLEASE INSERT YOUR DATA DISKETTE.":35000:11:958:0 DRIVE OPTIONS HELPERDZB953:SL(ZB):DR(ZB1):VO(ZB2)ED1$",S"(SL)",D"(DR)",V"(NU PROGRAM...":D$"RUN HELLO"D1$<ȯ(222)6Ĺ216,0:43020ү:5:"SOMETHING UNUSUAL IS HAPPENING.":"ERROR ";(222);" IN ";(218)(219)256;".":216,0:H DISPLAY DISKETTE SWITCH MESSAGESR ENTERY POINTS;61100=PROGRAM;61200=DATA DISKETTE(ZN$):"JCV1:36,CH:868:8 END OF PROGRAMC::511:868:"DO YOU WANT TO TRY AGAIN? ";:SKI,3,A$:A$(A$,1)A$"N"A$"Y"43005A$"Y"ī120 SA1ė:6110045000:D$"VERIFY HELLO"D1$ :11:"GETTING THE ME&PRINTER ACTIVATION%&"PACT:ION7&"PACT:TPACT:LPERG%: PROGRAM DISK INSTRUCTIONS WILL BE PLACED IN D1$, DATA IN D2$q%DZB953:SL(ZB):DR(ZB1):VO(ZB2)%ED1$",S"(SL)",D"(DR)",V"(VO)%IZB956:SL(ZB):DR(ZB1):VO(ZB2)%XD2$",S"(SL)",D"(DR)",V"(VO):D1$D2$SA1&b20:CSrY$"N"ı*wR1((I1)4)41|20:"WHICH ONE DO YOU WANT TO CHANGE?"::CL:"(TYPE ";R1;" - ";R2;:") ?";:SKI,3,Y$:Y((Y$)):((YR1YR2)Y0)(Y)Y$4220Y0Ģ20:CS:420020:CL:"DO YOU WANT TO CHANGE THE WORD OR"k0ĺ" ";:I10ĺ" ";FI;" ";A$(I);:20:D$(I,0);:20:ZV1:D$(I,1)r@I4(I4)IDR2I:LI14200,20500:JI:::II1:LI0İ1280Th20:"DO YOU WANT TO"::CL:"CHANGE ANY OF THESE? ";:SKI,3,Y$:Y$(Y$,1):Y$"Y"Y$"N"4200m0Y$"Y"ė:3510$14804 CHANGE ENTRIESb:::" LIST: ";N$;:20:"ENTRIES: ";DD0Ģ10:"THERE ARE NO WORDS IN THIS LIST.":20500:5:5:"WORD";:22:"DEFINITION":7:34,6I1D:R1((I1)4)ZV43I12R1:ZV:I10 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:128019:"DO YOU WANT TO"::CL:"DELETE ANOTHER ENTRY? ";:SKI,3,Y$:Y$(Y$,1):Y$"N"Y$"Y"360ORDS. YOU"::"CANNOT ADD ANY MORE WORDS TO THE LIST.":20500:P IND1:340^ ID1480r DI:1280:1480 DELETE ENTRIES 8:"WHICH WORD DO YOU"::CS:"WANT DELETED? ";:FI$FT$:MLI:W$IN$"":W$""ı CS I1D:A$(I)W$3550)00,4000,4500Y5ī200$1480<0::SADR2İ61020q5::12:"GETTING THE MENU...":D$"RUN HELLO"D1$ GET A CATALOG OF LISTS :12:"CATALOG OF LISTS":2:34,2:6000 200 ADD ENTRIES@ D100ė:6:"THIS LIST CONTAINS 100 W"YOU MAY:"::" 1. ADD ENTRIES"::" 2. DELETE ENTRIES"::" 3. CHANGE ENTRIES"}:" 4. SEE A LIST OF ENTRIES":" 5. RETURN TO PREVIOUS MENU"17:CL:"WHICH NUMBER? ";:SKI,1,Y$:Y((Y$)):Y1Y5(Y)Y$1488 :Y3000,35CH(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 OR"(VO)1IZB956:SL(ZB):DR(ZB1):VO(ZB2)hXD2$",S"(SL)",D"(DR)",V"(VO):D1$D2$SA1nb"DEFINITION NOT CHANGED":1240:1720:10:"DO YOU WANT TO CHANGE MORE";:Y$:Y$(Y$,1,1):Y$"Y"1480Y$"N"1720D$;"DELETES"(SL)",D"(DR)",V"(VO)HIZB956:SL(ZB):DR(ZB1):VO(ZB2)XD2$",S"(SL)",D"(DR)",V"(VO):D1$D2$SA1bvVO):D1$D2$SA1b D1$,DATA IN D2$DZB953:SL(ZB):DR(ZB1):VO(ZB2)ED1$",S"(SL)",D"(DR)",VPROGRAM DISKETTE.":1240:11:958:l1:12:958:"PLEASE INSERT YOUR DATA DISKETTE.":1240:11:958:0 DRIVE OPTIONS HELPER: PROGRAM DISK INSTRUCTIONS WILL BE PLACED IN D1$,DATA IN D2$DZB953:SL(ZB):DR(ZB1):VO(ZB2)ED1$",CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001`FZM:868:CV1(CV23):ZN(ZN$):yJCV1:36,CH:868:H DISPLAY DISKETTE SWITCH MESSAGESR ENTERY POINTS;61100=PROGRAM;61200=DATA DISKETTE$1:12:958:"PLEASE INSERT YOUR PLACED IN D1$, DATA IN D2$E DZB953:SL(ZB):DR(ZB1):VO(ZB2)n ED1$",S"(SL)",D"(DR)",V"(VO) IZB956:SL(ZB):DR(ZB1):VO(ZB2) XD2$",S"(SL)",D"(DR)",V"(VO):D1$D2$SA1 b ACTIVATE PRINTER "PACT:ZD5)Z5(CARD)(AD7)Z7(CARD)40110;ZK02:Z2(ZK)0fZI02558:Z2(ZK)Z2(ZK)(ZWZI)::Z2(0)Z2(1)Z2(0)Z2(2)Z2(0)25640120CARD:SLOT:CARD0:SLOT0951,CARD:952,SLOTœCARD1Ĺ950,CARD:D$"BLOAD COMM CARD ROUTINE"T),Z2(2)^Z5(1)24:Z5(2)56:Z5(3)72:Z5(4)8hZ7(1)56:Z7(2)24:Z7(3)72:Z7(4)72rSLOT17:AD(SLOT192)256|CARD14&(ARDS","AND CLUES. A PRINTER IS NEEDED.",""l FILE EDITOR,"FILE EDITOR ENABLES THE TEACHER TO","CREATE AND EDIT LISTS OF WORDS","FOR THE PROGRAMS SPELL, MIXUP,","WORD FIND, CROSSWORD, AND WORD GAME.","COMPUTER AND ITS KEYBOARD."," ",""WORD GAME,"WORD GAME IS A GAME IN WHICH STUDENTS","TRY TO GUESS TEACHER-DETERMINED WORDS","BASED ON CLUES (MUCH LIKE HANGMAN).",""* CROSSWORD,"CROSSWORD CONSTRUCTS A CROSSWORD","PUZZLE FROM TEACHER-SUPPLIED WO PUZZLES FROM A","LIST OF WORDS SUPPLIED BY THE TEACHER.","A PRINTER IS NEEDED.",""  AMAZING,"AMAZING GENERATES VARIOUS SIZE MAZES,","EACH OF WHICH HAS A UNIQUE SOLUTION.","A PRINTER IS NEEDED.",""$@ TALK,"TALK INTRODUCES YOUNG STUDENTS TO THE"L PROVIDES DRILL AND PRACTICE ","ON A LIST OF TEACHER-DETERMINED","SPELLING WORDS.",""MIXUP,"MIXUP IS A GAME IN WHICH THE STUDENT","MUST UNSCRAMBLE THE LETTERS IN A WORD.","THE TEACHER DEFINES THE WORD LISTS.",""U WORD FIND,"WORD FIND MAKES WORD(VO):D1$D2$SA1'bLE0'(950)3ıK'F9$"PRINTER COMMANDS"'D$"OPEN"F9$:D$"READ"F9$:ZF$,ZN:I1ZN:ZC$(ZL):I:D$"CLOSE"F9$:ZC$(0)(ZN):ZB956:SL(ZB):DR(ZB1):VO(ZB2)]&XD2$",S"(SL)",D"(DR)",V"(VO):D1$D2$SA1c&b1953:SL(ZB):DR(ZB1):VO(ZB2)&ED1$",S"(SL)",D"(DR)",V"(VO)&IZB956:SL(ZB):DR(ZB1):VO(ZB2)'XD2$",S"(SL)",D"(DR)",V":CS:K%p1:12:CS:"PLEASE INSERT YOUR DATA DISKETTE.":20500:11:CS:f%0 DRIVE OPTIONS HELPER%: PROGRAM DISK INSTRUCTIONS WILL BE PLACED IN D1$, DATA IN D2$%DZB953:SL(ZB):DR(ZB1):VO(ZB2)%ED1$",S"(SL)",D"(DR)",V"(VO)&&I NUMBER - TRY AGAIN";:40010:40001I$FZM:CL:CV1(CV23):ZN(ZN$):`$JCV1:36,CH:CL:$H DISPLAY DISKETTE SWITCH MESSAGE$R ENTERY POINTS;61020=PROGRAM;61040=DATA DISKETTE%\1:12:CS:"PLEASE INSERT YOUR PROGRAM DISKETTE.":20500:11I):I#20500:|#P24:CL:7:16368,0:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:16384,128:16368,0:1:CL:23:#@CH(36):CV(37)#A"";:SKI,(40(36)),ZN$:(ZN$)(((ZN$)))40003#B(ZN$)0ZN$"0"40006#$CZM:"THAT IS NOT AER5"ER255ĺ:"ERROR CTRL-C HIT AT LINE #"LN".":":MZ01:PE(LZ):(PE);:MZ(PE127):LZLZ1:MZ:" ERROR AT LINE #"LN".":"p LIST OF FILES"SADR1İ61040:DR2"FC$(1)""#::Z$"H":5500:SET,2:FCN,".CROS",FC$,NN:I1NN:FC$(ING3!ER(222):LN(218)(219)256::D$"CLOSE"!ER8Ģ18:1:958:"DISK ERROR. PLEASE BE SURE THAT:"::" 1. DISKETTE IS INSERTED PROPERLY":"AND":" 2. THE DRIVE PARAMETERS ARE CORRECT.":20500:EF0:205!ER0ER16EF0:"LZ53856;:FI$FD$:MLI:Y$IN$"" 3 Y$""DD04274G D$(Y,DD)Y$:DD\ 20:CS:IR11:p  GET A LISTING LI1:4000:LI0: | VERIFY FILE }SADR1İ61040:DR2 EF1:P0 EFĺD$"VERIFY"Z$".CROS"D2$:P1 ! ERROR PROCESS,L21)L2Y(Y$)15Ģ23:"PLEASE KEEP IT SHORTER THAN 15 LETTERS.":20:CL:4250w20:CS:A$(Y)Y$:IR11:20:CL:"#";Y;" DEFINITION"DD0121DD:CL:6:DD0ĺ"FIRST LINE: ";:FI$FD$:MLI:Y$IN$"":4280 "SECOND LINE: "22:CL:"THE DEFINITION ("(34)"W"(34)" OR "(34)"D"(34)") ?";:SKI,1,Y$:Y$(Y$,1):Y$"W"Y$"D"423220:CS:Y$"D"427020:CL:"WORD #";Y;:": ";:FI$FT$:MLI:Y$IN$"":Y$""4250L1(Y$):L22L1:(Y$,L2,1)" "Y$(Y$,L21)(Y$$:(ZN$)(((ZN$)))40003:$B(ZN$)0ZN$"0"40006u$CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001$FZM:CL:CV1(CV23):ZN(ZN$):$JCV1:36,CH:CL:$H DISPLAY DISKETTE SWITCH MESSAGE%R ENTERY POINTS;61020=PROGRAM;610S#SADR1İ61040:DR2]#::Z$"H":5500:SET,2:FCN,".WORD",FC$,NN:I1NN:FC$(I):Ij#20500:#P24:CL:7:16368,0:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:16384,128:16368,0:1:CL:#@CH(36):CV(37)$A"";:SKI,40(36),ZN"AND":" 2. THE DRIVE PARAMETERS ARE CORRECT.":20500:EF0:100X"ER0ER16EF0:h"LZ53856ER"ER255ĺ:"ERROR CTRL-C HIT AT LINE #"LN".":":MZ01:PE(LZ):(PE);:MZ(PE127):LZLZ1:MZ:" ERROR AT LINE #"LN".":#p LIST OF FILE!}SADR1İ61040:DR2%!EF1:P0I!EFĺD$"VERIFY"Z$".WORD"D2$:P1O!g! ERROR PROCESSING!ER(222):LN(218)(219)256::D$"CLOSE"A"ER8Ģ18:1:958:"DISK ERROR. PLEASE MAKE SURE THAT:"::" 1. DISKETTE IS INSERTED PROPERLY":HL1((S1(Y))):S1(Y);:PC(100S1(Y)S(Y).5):39((PC)):PC` Y3::Y2:20500::Y1:Y1 (Y1)12((Y1)12.0001).0001İ20500 ::1180 CATALOG OF LISTS :12:"CATALOG OF LISTS":2:34,2:6000 :100 | VERIFY FILEHZH6Z5:24:"TIMES";:37:"%":6:"WORD";:21:"USED";:27:"MISSED";:35:"MISSED"8:34,7:Y108:Y202:Y314:YY112Y24Y3:Y100ī2280W$(Y)""22804((Y)):Y;" ";W$(Y);:ZHL1((S(Y))):S(Y);S(Y)0ĺ:2270A X:CL:"DO YOU WANT TO DELETE SOME MORE? ";:SKI,3,E$:E$(E$,1):E$"Y"E$"N"1751fE$"Y"1570p1180:L10:E1L1:Y1100:S(Y)0ĭ((S(Y)))L1L1((S(Y)))L10E11:1062ZH22((L11)2):L11ZH23XHZH7:L11X20500::1632CCCC1::10:CC1ĺ"DISK ERROR. PLEASE MAKE SURE THAT:"::" 1. DISKETTE IS INSERTED PROPERLY":"AND":" 2. THE DRIVE PARAMETERS ARE CORRECT.":20500::100"I AM UNABLE TO USE THIS FILE.":20500:::100D01180U16(T1):S1(T)S1(T1)"IT1D1@W$(I);",";S(I);",";S1(I)lW$(I)W$(I1):S(I)S(I1):S1(I)S1(I1)sID$;"CLOSE ";N$".WORD":1750 ER4CC0::10:"PLEASE REMOVE THE WRITE-PROTECT"::"STICKER FROM THE EDGE OF THE DISKETTE.":20500:1570+TDD1:1:28:D;:CL::124^CC0=`EF1[fEFĺD$;"OPEN ";N$".WORD"zhEFĺD$;"WRITE ";N$".WORD"mEF01742|D;",";T3T11705I1T1W$(I);",";S(I);",";S1(I)ITD11740W$(T)W$(T1):S(T)SOU CANNOT ADD ANY MORE WORDS"::"TO THIS LIST.":20500:100y":D0Ģ10:"THERE ARE NO WORDS TO DELETE.":20500:1180'10:"WORD TO DELETE? ";:FI$FW$:MLI:E$IN$"",E$""11806T1D:E$W$(T)1620@T J15:E$" ISN'T IN THE LIST.":THE PROGRAM"::"SPELL (1-30 SECS.)? ";OSKI,2,A$:T3(A$):T31T3301303fT3T3473.0247::vxD1001440:DD1::"ENTER WORDS 1 AT A TIME UP TO 100 WORDS.":"ENTER A 'RETURN' WHEN FINISHED."TD1001000<::5:"SORRY, YRN TO PREVIOUS MENU"F20:CL:"WHICH NUMBER? ";:SKI,1,X$:X9(X$)nX9(X9)X91X96(X9)X$1250X91400,1570,1062,1300,2210,1280::ED0:1001303:1080':7:"WHAT TIME LIMIT DO YOU WANT WHEN":::"THIS LIST IS USED WITH 001)c34,0::" LIST: ";N$;:20:"WORDS: ";D:3:10:"TIME LIMIT: ";Z:34,4:5:"YOU MAY:":lE10" 1. ADD WORDS"::" 2. DELETE WORDS"::" 3. CHANGE WORDS":" 4. CHANGE TIME LIMIT"::" 5. SEE A LISTING":" 6. RETU̜ T0951,CARD:952,SLOTœCARD1Ĺ950,CARD:D$"BLOAD COMM CARD ROUTINE"̜A 2. WORD GAME OR CROSSWORD":::" 3. RETURN TO MAIN MENU"v 20:"WHICH NUMBER? ";:SKI,1,A$:A$"1"A$"3"160 N$"WORD FIND EDIT":A$"2"N$"CROSSWORD EDIT" A$"3"ĺD$"RUN HELLO" ::12:"ONE MOMENT PLEASE..." D$;"RUN";N$:d FILE EDITOR*n AUTHOR: TIM HEAPHxLAST UPDATE:83/11/09 RJG] (C) 1983, MECCoD$(13)(4)::2:14:"FILE EDITOR":6:"WHICH PROGRAMS WOULD YOU LIKE TO USE"::"YOUR FILE WITH:":::" 1. WORD FIND, SPELL, OR MIXUP"> ::" bvZB953:SL(ZB):DR(ZB1):VO(ZB2)N&ED1$",S"(SL)",D"(DR)",V"(VO)x&IZB956:SL(ZB):DR(ZB1):VO(ZB2)&XD2$",S"(SL)",D"(DR)",V"(VO):D1$D2$SA1&b2)&XD2$",S"(SL)",D"(DR)",V"(VO):D1$D2$SA1&bZ'40=DATA DISKETTEX%\1:12:CS:"PLEASE INSERT YOUR PROGRAM DISKETTE.":20500:11:CS:%p1:12:CS:"PLEASE INSERT YOUR DATA DISKETTE.":20500:11:CS:%0 DRIVE OPTIONS HELPER%: PROGRAM DISK INSTRUCTIONS WILL BE PLACED IN D1$, DATA IN D2$%&DLo?}w[._0{oA?J]{o}_ow[gB}?^ Fox? F>ppA}@x @OA?AX_{@@wF~_>?wv@yFx?@o@`B @}@?@_EyxA?oB}={C^o^k@|Bs @g"A~np{G~`{{aqjBw@x @NO8oJV[_{]n]v=6F_x?@oA~ B?~ @}@?@_E}xA?oA}]A;?o@g@yB{ @s"@~nGun{~n{{n@f@wA?~Noxp67\_{]qcf? AwgBo@g@?@wAo@Ax?Co@ A?~D?x@F>{m?_9v@> @_A`C_@@_@~A{~A?@pD_0@G@~@~wBo@O@?@wA{n%AsBo@x @|A?@x@OI>n?_}xA @_@yC_@@_A8A{~A? A?~Iwp`}x Dx@sA~LxXc{o~_ow[kB}?] FoxG? DG|A}@x @H?X_s;wF|_>?gv@|? @Fk{m?_}v@~ F?|@xA~L0W]v[k6wmo.{~Lo?}7[:_o7_WA?Oy>x`ow[m~?[ Fox? Cq?@A}@| @?T?8ok=?o{z^>?Wt?~FOx?@xA| @}@?@OE|xA?oE}@=;770B7u{{A`B_`{wo_j A>?_g{}~~B}~}}=>AA};WDov?DA>AA~|`__os}~@I@}"qHpnpqan`{q@w@qAqA`}@O? AwsBo@@@w@n%Aw_Bo@p @qA?@x@g@O@|CO@@_@~A{~AaowxkGcx~m@jE>]kw BoBolQqnnqnnqkpD`~hB}AB}jF{xB7x~};wQqnfjlnql@Ogsx~jvgW7CwvjnFm`_`B_`AYZ[B[jG?pFoA`BxB`jG_`FwAA><:6.>>j}9UmD}A\[D[\AG_jBvBvBonmkgooAgklU?Gq|P~mpg?L7WgCwDBaB~fnah|qGa?gq|~A~pG?H{tDvDBBn`Bnk> aY?Ogq|~AA~|yc?NB`E{i?pU?Ogsx~A|qgO?Is@P?Ogq|~ZBoBouE>]kwB ~|y{swgoO__@B{yC{`j|JOcy|~`0B?~>]c{Y~E}~DBAnuC{`~xsG?KAoFo^1.?.1JGqG}ysgOB_OofvfEnCogwgO?P~D>A~DBpnnpzvne~@M?_Bo^?ZJ{DA?Ocx~d~xCOC?.1DBqD{qf`?Llkgo^7VfvfV6Bw[~=;{{;{De`?W uyC}^<[Bo[<^\[BW;|^@?@??@Dg`W>]]=}\lkgogkl^C_OWX^oBwoDh~pTpo_@`ZA~8~D>69ZA{`E{[g^|{Bw{|DBqnB~nq^p~T{{{^wB{w\}]]C]^z|C~DBqDnq^`U|{?<;{FCGCKCECBO?BCECBO?BCD]H@]@ExppxGxppxI?_XP0xE|Ex|O|x8BX8|E|Ex|O|x8BX8|DPIwsx_oFoZC_XWO_OWX^poB_op^poB_opDQ~xswgooOB_D?]o/OCo^C~>]c^6JlCn^ksC{DaA~|yGXxwDo^vBzv捿ttmtt`~C wwgooO__D?__OJoO_B?BaB~|}y{{sFwgQoOB_B?P?_OgsB{sgo?AH?]?bC~|K}|~K|qgoOD_j?]H`@D8Tx|E]E]E]D]K~|x0CGJcDAcECGCK@CECWCECWCD]H  08<>R?tv u@ )` t t t0H)?hJ t t t?Lt t&'&Ȅ``?tt ttt`t)tJJ tttt .t .t ntt)        hhߚHH` ZN(Z$):ZFĢ24:1:958:ZF0$"L):Z$""Z$"Y"Z$"N"ĖZH:ZV:868:360104!W!STANDARD RANGED NUMERIC INPUTq!ZH(36)1:ZV(37)1!ZL((ZT))!INP,(ZL,N,0),Z$:(Z$)ZB(Z$)ZTĢ24:1:ZF1:"ENTER A NUMBER BETWEEN "(ZB)" AND "(ZT)".";:ZV:ZH:868:37030"̈ZB953:Z1(ZB):Z2(ZB1):Z3(ZB2)P ֈD1$",S"(Z1)",D"(Z2)",V"(Z3)z ZB956:Z4(ZB):Z5(ZB1):Z6(ZB2) D2$",S"(Z4)",D"(Z5)",V"(Z6) STANDARD YES-NO INPUT.!ZH(36)1:ZV(37)1:INP,(3,"YESNO",ZC),Z$:Z$(Z$,1ISPLAY DISKETTE SWITCH MESSAGE.ڄD1$D2$ıP䄗:12:"PLEASE INSERT YOUR ";oDR1ĺ"DATA";:DR2:34050"PROGRAM";:DR1" DISKETTE.":30000: DRIVE OPTIONS HELPERˆ PROGRAM DISK INSTRUCTIONS WILL BE PLACED IN D1$, DATA IN D2$' "PLEASE REPORT THIS ERROR TO MECC.":30000:D耲 DISK STATUS CHECKO34000v:12:"ONE MOMENT PLEASE...":ZE0ZEĺD$"OPEN BLAH.CHECK"D2$:ZEĺD$"WRITE BLAH.CHECK":"CHECK":ZEĺD$"CLOSE BLAH.CHECK":ZEĺD$"DELETE BLAH.CHECK"Є DE IS FULL.":30000:31000Kd}"DOS ERROR NUMBER "ZE" AT LINE "ZN".":32150en} PROCESS BASIC ERRORux}ZL53856ZE}ZE255ĺ:"ERROR CTRL-C HIT AT LINE #"ZN".":}:ZM01:ZP(ZL):(ZP);:ZM(ZP127):ZLZL1:ZM:" ERROR AT LINE #"ZN".",}:<}ZE2ZE3ZE7ĺ"PLEASE CHECK YOUR DISKETTE PARAMETERS.":30000:31000F}ZE4ĺ"PLEASE REMOVE THE WRITE-PROTECT STICKER FROM YOUR DISKETTE.":30000:31000P}ZE8ĺ"DATA DISK BAD - DRIVE OR FORMAT ERROR.":30000:31000Z}ZE9ĺ"THIS DATA DISKETTE MENU PROGRAM..."9,yD$"BSAVEDRIVE OPTIONS,A953,L6"D1$k6yUSER BINARIES THAT NEED TO BE LOADED GO HERE~JyD$"RUN HELLO"}STANDARD ERROR PROCESSING }ZE(222):ZN(218)(219)256}ZE1532110}ZUĦ(} USERS ENTRY POINT2}:12IL8Hmx 6*+(n*+c*ȩ*h`HHhH,b (hHI  X   h`l  368,0:16384,128:ZP(16384):ZP155ZFZF1:ZF231000UNuZP160ZP14130020{Xu1:868:1::ZV:ZH:16368,0:y STANDARD ENDING ROUTINEy::DR2İ34000y12:"WOULD YOU LIKE TO TRY AGAIN? ";:36000:Z$"Y"Ĭ"y:12:"GETTING TH!4N:12:"PLEASE INSERT YOUR ";G>NDR1ĺ"DESTINATION";:DR2:20050[HN"SOURCE";:DR1uRN" DISKETTE":30000:0u STANDARD SPACE BAR ROUTINE5uZH(36)1:ZV(37)1:ZF0:u24:1:868:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:Du16DRIVE: ";:39:D;:12:INP,(1,"-12",0),Z$:Z$""Ģ12:12:D:10040O3'D(Z$)8'1:14:958:" VOLUME: ";:37:3((V)))V;:12:ZB0:ZT254:37000:(ZN$)0ZN0Ė12:14:V:10050='VZNB' N DISPLAY DISKETTE SWITCH MESSAGE*ND1$D2$ı0:P0#ZEĺD$"VERIFY"Z$D2$:P1,ZU02C@DR2İ34000NJ31010l'GET DRIVE SPECIFICATIONS'8:32:"DEFAULTS"$'1:10:958:" SLOT: ";:39:S;:12:INP,(1,"-17",0),Z$:(Z$)0Ė12:10:S:10030)'S(Z$)C.'1:12:958:" :36000Z$"N"ı22:1:958:"FILE TO DELETE? ";:INP,(20,1),A$:Z$A$:20:7120:P0Ģ22:1:958:A$" NOT FOUND.":30000:1:7030ZU1:ZE0ZEĺD$"DELETE"Z$22:1:958:Z$" DELETED.":30000:1:7030VERIFY FILEZU1:ZE300 6050'XDISKETTE MAINTENANCEHb:10:"CATALOG OF DISKETTE"\l34,3:3:34000|v:ZU1:ZEĺD$"CATALOG"D2${ZEė:12:"UNABLE TO READ DATA DISKETTE.":30000:34000:24:::22:958:"WOULD YOU LIKE TO DELETE ANY FILES? ";VZ3:SZ1:DZ2:10000 30000kZ3V:Z1S:Z2D:VZ6:SZ4:DZ5:6:1:CS:"DESTINATION DISKETTE":10000v30000Z5D:Z4S:Z6VSD0Z1Z4Z2Z5Z3Z6Ģ21:958:"THIS DISKETTE REQUIRES TWO DRIVES.":"PLEASE RE-ENTER YOUR OPTIONS.":30000:66280t FORMATTING ERRORb~20:CS:"UNABLE TO WRITE ON DESTINATION DISKETTE.":30000:6280ZU0:2:958:12:"PLEASE INSERT YOUR PROGRAM DISKETTE.":30000:35000 SET DRIVES FOR DATA DISKETTE COPY4:CS:6:"ORIGINAL DISKETTE":FMTZE6270!$TK3005,.20000Z8SET,Z1,Z2,Z3:ZEįDR,TK,0TK4,1511072g=ZE6250rB20000LSET,Z4,Z5,Z6:ZEįDW,TK,0TK4,1511072QZE6270V:6280` ERROR ON READj20:CS:"ERROR ON ORIGINAL DISKETTE.":30000:ECT? ";:ZC1:36000:ZC0:A$Z$2A$""İ35000:CA$"N"6290rD1$"1":D2$"2":Z1Z4Z2Z5Z3Z6D1$D2$}20000D1$D2$Ģ20:CS:10:"INSERT YOUR DISKETTES":300001:20:CS:16:"COPYING"ZU1:ZE0ZEįSET,Z4,Z5,Z6:ZEİ $ * `L   ߅ lݦ  L{  ކ& & &'&`LBDFAFCWINSKVSCECEׂ$Gx$KmHihʍ၌⁎L H g Rh PQ`L     `  `V  P w C g RPQ\X80O 3 9'8ၬ 偨{灭5 "&'䁭1&&ȩ&1&&( 灍恮 "&'䁭1&&`?~|xp`@/ / Ɉɍ(ɠ/ ) L ` ށ߁ ၎ʎL O` ` O `8pMNN8pG.M(GNmM`P) JJJJH) hJJ(jm` g R  QP (`Lށ߁ 䁨t恭L)ɀop)`ɯd 8ɀ   Lޥ8e湥 HH L`opLށ߁miʈ၎& 'q&Lށm߁mʈ    3):D1(954):V1(955)6:11:"COPY DATA DISKETTE"5:"ORIGINAL DISKETTE:":7:" SLOT: ";Z1:" DRIVE: ";Z2:" VOLUME: ";Z313:"DESTINATION DISKETTE:":15:" SLOT: ";Z4:" DRIVE: ";Z5:" VOLUME: ";Z620:958:"ARE THESE CORR9:"UNABLE TO INITIALIZE.":30000:ZEZE4Ģ18:"PLEASE REMOVE THE WRITE-PROTECT STICKER FROM YOUR DATA DISKETTE.":30000:5040ZE3204034000:p COPY DATA DISKETTE:DR2İ34000FL0S2(956):D2(957):V2(958):S1(95VE: "Z5:" VOLUME: "Z6:14:"DO YOU WANT TO INITIALIZE THIS? ";:36000VZ$"N"ı2:958:10:"INSERT YOUR BLANK DISKETTE.":30000:2:958:10:"INITIALIZING DISKETTE"DR2:ZU1:ZEĺD$"INITHELLO"D2$:ZU0:D$"DELETEHELLO"$ZEZE8Ģ18:IONS.":30000:4010w 17:"ARE THESE ENTRIES CORRECT? ";:36000:Z$"Y"Z4S:Z5D:Z6V:956,S:957,D:958,V:35000: 4000 INITIALIZE DATA DISKETTE ZE0 :8:"INITIALIZE DATA DISKETTE"H4:"DATA DISKETTE:"::" SLOT: "Z4:" DRIZ4:" DRIVE: "Z5:" VOLUME: "Z6/ 30000:I SET DRIVE PARAMETERS :10:"SET DRIVE PARAMETERS":5:"DATA DISKETTE:":SZ4:DZ5:VZ6:10000 SD0(SZ1DZ2VZ3)Ģ17::958:"THIS DISKETTE REQUIRES TWO DRIVES. PLEASE RE-ENTER YOUR OPTZT6:370001 ZN3000,4000,5000,6000,7000,8000; 2000^ VIEW CURRENT DRIVE PARAMETERS :5:"VIEW CURRENT DRIVE PARAMETERS" 4:"PROGRAM DISKETTE"::" SLOT: ";Z1:" DRIVE: "Z2:" VOLUME: "Z3" 13:"DATA DISKETTE:"::" SLOT: "SKETTE SUPPORT" 32,3::::"1. VIEW CURRENT DRIVE PARAMETERS"::"2. SET DRIVE PARAMETERS"::"3. INITIALIZE DATA DISKETTE" :"4. COPY DATA DISKETTE"::"5. DELETE DATA FILES"::"6. RETURN TO MAIN MENU" 32,0:::" WHICH NUMBER? ";:ZB1:THEY MUST BE RECONNECTED AT LINE 31030: INITIALIZATIONE 11072b SD1:SINGLE DRIVE LEGALn 32000 P(S)(S)(S1)256 D$(4):CS958:35000 D$"BRUND2UTIL.OBJ"D1$:D$"PR#0":D$"IN#0":: $DR1 MAIN MENU ::12:"DI% PROGRAM:DISKETTE SUPPORT:COPYRIGHT: MECC, 1983YPROGRAMMER:SHANE MCCARRONx(LAST UPDATE: 83/12/21 CPE2USES: D2UTIL.OBJ (WAY HIGH UP)<SEE DOCUMENTATION FILES FOR MEMORY MAP& FDISCONNECTS ALL CURRENTLY RUNNING AMPER PACKAGES.     003f<ffcc>cc>>cc>~p` ffffffffff~l6iɆpq{ 0 00000 0 0Z<`~~6    ` ֩PyQ AL ~͏`vu Vuv` ~L`H)hJJJ` LANCS AZ09!/:@[`{~ @SEDDFMIN ~j ` ` , g 掚 , w) ) ߅ l ) L{C  ɛ MCC0LECɈ9ɘɍ욏7, 웏ƝD) ~D9͏ Ъ L׎  䎱 掲`  (L | {$0! 掛 ,L` ^ {$0LZN 却| r- V  V-ͳ `L֍̴^`N ݮ 輮߹<><ȥ?< <<= H <=}I<|<~}` ы ` ׋ L( 掲 ` ?> =<8?+ e<#8>>> g R>P>Q?=<`L #H h` &L`L@LRL폩Յ 8ɀ  L8e湥 HH L` <=wII II//555->&77455------%%l'7=6777?7??<<<'/nJJJ:?'/>??'?  '?'..5ۀ?6%=<.4=>7666--,,$$''???=..<4,%%-,..-,%-&.-,.--..v77--%%$'''??>>67...--%%%$$4??7???>??>??7???>??7???>??7&f   ><<<<<<4,4--%---,--%--%---,--%---,.54..5.>???.>??>??>??7??7???6,?6>6767>67>67>>>?''?>66...-..-..5--%,<%'66766766>66>>??77?7?7?>77/6-.---,%%---$%$<4'$'<$<$<$<$<$$$?7?>>>>66.-,%%%%$%$ךҚ%-%----.5-.7777>6665..5567>67>>7?7??7???''''''<$'<$'$$$%$%%%%%-,%--5-55--==566666>..........5555555555-6-,%-<5<<$''<<$'''<<$''<<<<<<'''?<<<'---%---%---%---%---%---%---%---%///-.5-.5-.5-.5==55555-......555555-&6>??>??7???>-..5555.>>77>?7>7777?6676>6757656566.6.655.....555-...656>67>6>677677>>6777>67?6?>777?7??>?>??&??'????>7?7?7??????????#''$'$$%$%,$%,,,$%%%%%-,,%%%%-%-,-,%566766766>>67>>6?>>>>>77?>>>?>7?7%--,-,-,%-%-,-%---,---.-5--5-.-.5@#h%Or     z #???  IJ̮ʠ ŮĠ  Ůʠ ؠ Ϡ ŠҠ ̮ʠ̮ʠҠӮΠ  ŠԠ Ӯʠ!̮ʠ"ŠӠԠŮԠ̮ʠ ĠĠŠĠԠ!ԮΠԮʠϠĠĠԠ!٠ŠҠԠǠˠ̠ĠĠ РTER REQUIRE ANY SPECIAL":"COMMANDS? ";:36000XZ$"N"ĹPP2,0:PP3,255:PP4,255::"PLEASE TYPE IN THE SPECIAL COMMANDS FOR":"YOUR PRINTER. TYPE AN EXTRA 'RETURN'":"WHEN YOU HAVE FINISHED."L111:CT1L215:72L2:6:958:"PRARD IN? ";:ZB1:ZT7:37000(PP,ZN:=XNOT A COMM CARDb::7:"THE PRINTER INTERFACE CARD MAY BE IN ANYSLOT 1 - 7. (MOST COMMONLY 1 OR 2.)"l12:"WHICH SLOT IS YOUR INTERFACE CARD IN? ";:ZB1:ZT7:37000:PP,128ZN.v17:"DOES YOUR PRINP$,L,1))::pSET COMM CARDmz:6:"1. HIGH SPEED (USUALLY 30 CPS)"::"2. LOW SPEED (USUALLY 10 CPS)"12:"WHICH PRINTING SPEED DO YOU WANT"::"TO USE? ";:ZB1:ZT2:37000PP2,128(ZN1)18:"WHICH SLOT IS THE COMMUNICATIONS"::"C YOUR PRINTER SET TO PRODUCE? ";HZB10:ZT120:ZC0:37000:PP1,ZN:VPID FIELDpZL120:PP106L,0:d14:"WHAT PRINTER ARE YOU MAKING THESE":"SETTINGS FOR? ";:"";P$:LP(P$):LP0ıiLP20P$(P$,20):LP20 nL1LP:PP106L,((YOU BE USING? ";:ZB1:ZT2:370003ZN6000,7000MPP1,66::APLİ51005200:D$;"BSAVEPRINTER COMMANDS.BIN,A"PP",L128"ADJUST PAPER LENGTH 4:"THE NORMAL SETTING FOR PAGE LENGTH IS":"66 LINES PER PAGE.":9:"WHAT PAGE LENGTH ISUNICATIONS BOARD":" (AN OBSOLETE CARD THAT IS NOT":" COMPATIBLE WITH THE APPLE //E)":"2. ANY OTHER TYPE OF PRINTER":" INTERFACE CARD (E.G., PARALLEL":" OR SERIAL, CENTRONICS TYPE, ETC.)"!::"WHICH TYPE OF PRINTER INTERFACE WILL":"NTER...":30000_:12:"TESTING THE PRINTER...":D$"IN#0":D$"PR#0":PACT:"PRINTER TEST":I13:J3295:(J);:::J96127:(J);:::::FEEDPOFF:12:" PRINTER TEST COMPLETE.":30000SET NEW OPTIONS\6:"1. APPLE COMM RETURN TO DEFAULTS s 11:"NOW RETURNING THE PRINTER SETTINGS TO"::"THEIR ORIGINAL STATE (SLOT SEARCH)..." I0127:PPI,0: D$"BSAVE PRINTER COMMANDS.BIN,A"PP",L128" 30000:TEST THE PRINTER:12:"PLEASE PREPARE YOUR PRI2$t L115:(PPCT)0L15:2470Y~ 7:"PRINT "(34)CA$;:L211:P(PPCT):CTCT1v P0P13P32PP64: L2(P13):PP21L2:(P);: L2: L1: PRINTER TYPE :" TYPE OF PRINTER:"::7:L120:((PP106L));:::)0İ2500 30000:$ USER SETO  :"THE CURRENT PRINTER SETTINGS ARE:"  :" SLOT: ";(PP)128::APLĺ" PAGE LENGTH: ";(PP1):  (PP2)0İ2400 $ (PP107)0İ2500 . 30000: ` PRINT SPECIAL COMMANDSj " COMMANDS:"::CT:"EXPECT AN APPLE COMMUNICATIONS BOARD":"IN SLOT #";(PP);".":s SD$"LOW":SD10:(PP2)127SD$"HIGH":SD30 10:"THE SPEED IS SET TO '";SD$;"'":"(USUALLY ";SD;" CHARACTERS PER SECOND)." :APLĺ:" PAGE LENGTH: ";(PP1) :(PP107FAULTS >8:"THIS DISKETTE IS CURRENTLY SET TO THE"::"DEFAULT SETTING, WHICH IS TO SEARCH"::"SLOTS 1 AND 2 FOR A RECOGNIZABLE CARD"::"EACH TIME THE DISKETTE IS STARTED UP." H30000: COMM CARDA 6:"THIS DISKETTE IS CURRENTLY SET UP TO"" 4. TEST PRINTER SETTINGS":@ $" 5. RETURN TO MAIN MENU"s .::"WHAT IS YOUR CHOICE? ";:ZB1:ZT5:37000 8:ZN2000,5000,3000,4000,31040 BL00:L0 CHECK CURRENT SETTINGS JP1((PP)0)((PP)127) JP2100,2200,2300: 4DEQ$(34)- ::13:"PRINTER SUPPORT":34,27 MENUU L011:::"YOU MAY:": " 1. CHECK CURRENT PRINTER SETTINGS": " 2. CHANGE PRINTER SETTINGS": " 3. RETURN PRINTER SETTINGS TO THEIR":" ORIGINAL STATE (SLOT SEARCH)": K PROGRAM: PRINTER SUPPORT<PROGRAMMER: P. BOUCHARDYCOPYRIGHT (C) MECC 1983k(TEXT VERSION2LAST UPDATE: 83/08/18 RPB dINITIALIZATIONnAPL0:SET TO 1 TO ALLOW USER TO ADJUST PAPER LENGTHxD$(4): PP(948)(949)256:          3500043000~24:1:868:16368,0:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:16384,128:16368,0:1:868:@CH(36):CV(37)A" ";:SKI,2,ZN$:(ZN$)(((ZN$)))40003B(ZN$)0ZN$"0"40006CZM:"THAT IS NOT A NUMBE620 530&.J1V(0"I";3:I1HGDV%(I,J)21890SN" ";]X1900ib" I";plIvvI1HV%(I,J)01970V%(I,J)21970": ";1980":--";I": "J::POFFFACE255J990TQ11720%^W%(R,S1)C0hCC1DrV%(R,S)01680S|V%(R,S)3]1690lV%(R,S)1wSS1CHV11830630Z1V%(R,S)01770V%(R,S)3Q01820V%(R,S)1Q0R1S1CHV11830Q0$6305W%(R,S1)C@CC1QV%(R,S1)1\SS1nCHV11830wQ0630W%(R1,S)CCC1V%(R,S)01570V%(R,S)31580"V%(R,S)2,RR16CHV11830@Q0W%(R,S1)01290*X((1)21);X1520,1620E 1520TSV1340bZ11370k(Q1u21350<W%(R,S1)01370F1620P BLOCKED Z1820dW%(R1,S)CnCC1xV%(R1,S)2RR1X1450,1520,1620%LX((1)21)6VX1450,1520E`SV1160SjZ11190\tQ1f~1170}W%(R,S1)01190X((1)21)X1450,16201450RH1300W%(R1,S)01300SV1260Z11290Q11270 Q1960(W%(R,S1)0980;X((1)21)LX1380,1620V1380fS101200}W%(R,S1)01200RH1120W%(R1,S)01120SV1070Z11100Q1$1080.W%(R,S1)011008X((1)31)B1380,1450,1620! X((1)21)2X1380,1450? RH910U*W%(R1,S)0910c4SV860p>Z1890yHQ1R870\W%(R,S1)0890fX((1)31)pX1380,1520,1620zX((1)21)X1380,1520SV950Z1980%(R,S)0530vR109901W%(R1,S)0990@S10800VW%(R,S1)0800cRH710yW%(R1,S)0710X((1)31)X1380,1450,1520SV750Z1780Q1760W%(R,S1)0780X((1)31)X X((1)H1) I1H+ IX4407 ":--";@ 450L ": ";S I\ ":"e C1t W%(X,1)C CC1 RX S1 630 RH610 SV580 &R1 0S1 :620 DR1 NSS1 X620 bRR1 lWRY ANYTHING SMALLER THAN"::"3 BY 3.":6:868:220= "220K ,H23330Y 6V25330b @350 J8:"I CAN'T MAKE ONE BIGGER THAN 23 BY 25." T6:868:220 ^:10:"PLEASE PREPARE YOUR PRINTER.":35000: bPACT::: h rQ0 |Z0E NUMBER"::"OF SQUARES LONG. THE BIGGEST MAZE"V :"YOU CAN CHOOSE IS 23 BY 25."c 35000: 4:"WHAT IS THE WIDTH?";:868:40000:HZN 6:"WHAT IS THE LENGTH?";:958:40000:VZN H3270 V3270 3004 "I WILL NOT T OR NO, PLEASE.":(37)2:868:151 :6:"THIS PROGRAM WILL PRINT OUT A DIFFERENT ":"MAZE EVERY TIME IT IS RUN AND GUARANTEES"1 "ONLY ONE PATH THROUGH. YOU CAN CHOOSE"::"THE DIMENSIONS OF THE MAZE, I.E., THE"::"NUMBER OF SQUARES WIDE AND TH(1022)1140 1489 4:10);"A M A Z I N G":8g 6:3:"THIS PROGRAM REQUIRES A PRINTER."o 10 W%(25,103),V%(25,103) (1022)1220 "DO YOU WANT INSTRUCTIONS? ";:SKI,3,A$ (A$,1,1)"N"ė:220$ (A$,1,1)"Y"ĺ:"YESI PROGRAM: AMAZING8 LAST UPDATE: 83/11/07 RJGU COPYRIGHT MECC 1979p AMAZING 8/8/79 FP AUTHOR: JACK HAUBER2 ASSOCIATED FILES AND PROGRAMS: NONE71022,0<::255:ZM24:(4);"NOMON C,I,O":FD$(13)(4) P     NrVZA$"":ZXZXZW<|V16368,0:Z$:(Z$)13(Z$)32ıdV(Z$)8ZXZW(ZU1)ZA26722140VZA$ZA$Z$:(Z$)822160VZA$(8)ZA$"":22140VZTZY(ZA1)8ZH(ZA2)4:ZBZY2(ZA1)5:ZLZX(ZU1)ZA:ZRZXZW:ZXZXZW(ZU1)ZA:220:2:"Press SPACE BAR to continue":16384,128:16368,0:BB:WIND,100,0,279,191:vEV 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 SCREE3:10037,56:Y1200:Y:X"IDI:X7I20:Y1500:YT&22020s'(1023)123İ22010:::022010:::(13);(4);"RUN HELLO"U16297,0:16302,0:16304,0:62450:3:1:0:U16301,ZF:RVWIND,0,170,279,191:" ":BB continue":16384,128:16368,0:BB:WIND,100,0,279,191:TVZKZW:ZU0ZKZKZAk0u232,52:233,108:@:" Please type":" a number.":GX1200:X:X15:0:10037,56:3:Y6163:39,Y52,Y:Y:Y150:YH0:Y6163:39,Y52,Y:Y::Y:X%7:6:"BYE!!":Y1500:Y0&22020x0D$;"PR#0":D$;"IN#0":::12:"GETTING THE MENU...":D$"RUN HELLO"U16297,0:16302,0:16304,0:62450:3:1:0:U16301,ZF::VWIND,0,170,279,191:16368,0:" ":BB:2:"Press SPACE BAR to:9854,30:X4447:X,69X,77:XF10037,56:10237,50:10249,50Q40007}WIND,100,0,279,191:2:" I have to go""to work now."X11000:X0:10237,50:3:10140,50X15:7:6:"BYE!!":Y1250:Y:7:6:" ":Y1250A1$;" is very smart."=T5$" brothers ":T6$"sisters"WA71T5$" brother "nA91T6$"sister"T4$" years ":A1T4$" year "A1$;" is ";(A);T4$;"old""and has ";(A7);T5$;"and ";(A9):T6$;"."22020!22010:994,75400 ^BB5_0:10037,56:10237,50:10249,50Ga3:10329,60_c3:"Well, I think"nd"I am!!!"~hY1500:Yn7:"I'll show you..":22020WIND:CL$::"I'll remember everything""we talked about..."7:14(A1$)2:A1$mart?"!4:13:CEW:SKI,3,ZA$7(ZA$,1)"Y"300M(ZA$,1)"N"350{ :" Please type YES":" or NO":283,CL$:WIND:97140,40/6:10:"My, but"010:"you are a"110:"smart one,"210:A1$;"."3""622020@@ 3:14:CEL:SKI,2,ZA$:A7(ZA$):A70ZA$"0"İ40000:253N A70253n 7:CEW:"How many sisters" "do you have?" 8:14:CEL:SKI,2,ZA$:A9(ZA$) A90ZA$"0"İ40000:270 A90270 BB:3:" Do you think I"" am sakes me":A80235? 8:2:(A8);" ";:(A8)1ĺ"year";:223M "years";v A80ĺ" older ":9:" than you." A80ĺ" younger ":9:" than you." 240 " your age!" 22020:BB:CO:2:"How many brothers"; "do you have?" 8:"How old are you?":">"8 9:3:CEW:SKI,2,ZA$V A(ZA$):A0İ40000:191c A1191u BB:A39210 3:" You are?":215 3:" That's old!" X1400:X 4:" Well, I'm 5":" years old." A8A5:7:" That mour name? "" 13:20:SKI,8,A1$2 A1$""165D A1$(A1$,10)w CL$:994,75:9854,30:X4247:X,69X,77:X 10037,56:10240,50:10252,50 40007 WIND,100,0,279,191:2:" Glad to meet you," 9(A1$)2:A1$ X11000:X"BLOAD ROBOT,A27700":D$;"BRUN HUTIL.OBJ":D$;"BRUN HPRT.OBJ"g CL$(12):PF$(15):AF$(14):230,64t 3:1:0 DFT,1,26360:AFT,1 30000:AF$:97144,40 5:10:"Hi I'm":10:"the Apple":10:"micro-":10:"computer!" 13:"What is y#  PROGRAM: TALK5 LAST UPDATE: 83/11/09 RJGPd COPYRIGHT MECC 1979gn TALK 7/79 FPx AUTHOR: JIM ALTERMATT,MECC ASSOCIATED PROGRAMS AND FILES: NONED$(13)(4)= :D$,"NOMON C,I,O":D$;"BLOAD TITLE.FNT,A26360":D$          E127):LZLZ1:MZ:" ERROR AT LINE #"LN".":Bp LIST OF FILESZ$"H":5500:SET,2:FCN,".WORD",FC$,NN:I1NN:FC$(I):I35000:21:CEL:16368,0:7:"Press SPACE BAR to continue";:16384,128:16368,0:1:CEL: END OF PROGRAMEEF1:P02EFĺD$"VERIFY"Z$".WORD"D2$:P18Q ERROR PROCESSINGER(222):LN(218)(219)256::D$"CLOSE"ER0ER16EF0:LZ53856ERER255ĺ:"ERROR CTRL-C HIT AT LINE #"LN".":-:MZ01:PE(LZ):(PE);:MZ(P1120704 "That is not a list name":35000:1020CL$:5:"Something unusual is happening."::"Error ";ER;" in ";(218)(219)256;".":216,0: CATALOG OF LISTS CL$:12:"Catalog of lists":2:5600 6000:CL$:| VERIFY FIL7000:ER82030"Disk error. Please make sure that:"::" 1. The disk is inserted properly":" AND":" 2. The drive parameters are correct.":35000:1020ER62050N$" is not on this diskette.":35000:216,0:2500:1020ER$7D$;"OPEN";N$;".WORD":D$;"READ";N$;".WORD":D,Z1VT1D:W$(T),S%(T),S1%(T)L2(W$(T)):LQL211:(W$(T),LQ,1)" "L2LQ:LQ1LQ:W$(T)(W$(T),L2):T$D$;"CLOSE".216,0: HANDLE FILE ERROR13:1:CEW:ER(222):2;",";S1%(T) T$D$"CLOSE "N$/ 43000G ASK FOR DATA FILEZQFQF0:1020pCL$:SAMEİ61200CL$:9:"What is the name of the word list you"::"want to use? ";:SKI,15,N$:N$""QF1:10702000D$;"VERIFY";N$;".WORD";D2;R:11:16:"Second try.....";R2;" *";335000uT1D:L2(W$(T)):LQL211:(W$(T),LQ,1)" "L2LQ:LQ1LQ:W$(T)(W$(T),L2):T1:1:D$"OPEN "N$".WORD"D2$D$"WRITE "N$".WORD"D;",";Z1T1D W$(T);",";S%(T)Dİ35000:CL$T:35000ECL$:4:"Here's your score, ";S$;":"wG71811:8:G:"***********************":8:G817:" * *":G:11:9:"Number tried...";Y(10:12:"Number correct":11:14:"First try......":L$(L);", ";S$;"!":PF$:35000:AF$4T91RR1FT92R2R21MVdPF$;CL$:X10650:"Here are the words you had trouble with.";34,4:T1X1:R1((T1)8.01):R12(R12)Ė2032T16R1 F$(T):T16(T16.01)T ",15) ^G$W$(G)400M _T91S1%(G)S1%(G)1:X1X11:F$(X1)W$(G)x `T91Ģ9:CEW:7:"No try again.":341 h9:CEW:9:" No, it is spelled"::14L12:W$(G):PF$:35000:AF$ 410$L((1)6)1:9:CEW:14((L$(L))(S$)3)210:"WORD #";(V)" .L1(W$(G))9 14:14L12:W$(G)K 6S%(G)S%(G)1Z @U1Z1:Uz J4:4:" Spell it now " OT90 T6:7:"-->" U6:11:CEL:SKI,15,G$ YG$""341 [T9T91:G$(G$" ",15):W$(G)(W$(G)" list."::"How many words do you want to spell? ";:CEL:SKI,((D)),Y$:Y((Y$)):Y1(Y)Y$260 YDĺ::"Sorry, you can't have more than ";D;".":260  R0:R2R:X1R V1Y AF$;CL$:G((1)D)1 "C%(G)1280 ,C%(G)1:2: L"PF$:G <7:CEL:"What is your first name? ";:SKI,12,S$:S$""60 F11:"OK, ";S$;", I'll print a word and"::"give you time to look at it,"::"then you try to spell it.":35000 }1000:QF43000 CL$e 9:"There are ";D;" words on this0:D$"BLOAD TITLE.FNT"D1$:D$"BRUN HUTIL.OBJ"D1$:D$"BRUN HPRT.OBJ"D1$:D$;"BLOAD ONERRFIX,A27000":D$;"BRUN CUTIL.OBJ" T17:L$(T):T )Good job,Great,Nice work,Super,Nice spelling,Right,Excellent 2DFT,1,28672:AFT,1:AF$;CL$:2:11:"S P E L SPELL&COPYRIGHT 1980 MECCELAST UPDATE: 83/12/06 CPEW 38144:34000t :::255:ZM24:230,32W$(100),S%(100),S1%(100),C%(100),F$(100),L$(7),FC$(100):D$(13)(4):CL$(12):PF$(15):AF$(14):QF0:D$;"NOMON I,O,C":w 6200      rB16980|BT9#BY$(T3)W$(T)/BT3T31>B PLACE ITSBT9H8H8B(0)1kBA(V8,T9)B(T9H81)sBT9yBB VERTICALLYBO00BM1PB(0)1BM2PBV9((1)(M1.00001)1):V8V9BH9((1)(M2.00001)1):H8H9BT9V8V8)15030:V81:15040$:O01*:="B HORIZONTALLYF'BO00O,BM1P_6BM2PB(0)1@BV9((1)(M1.00001)1):V8V9JBH8((1)(M2.00001)1):H9H8TBT9H8H8B(0)1^BA(V8,T9)0A(V8,T9)B(T9H81)17020hB14930mBO0117090  :D8D81%:D8A5D8D914850; :D8D9D9114910D*:D81O4:14850V>:TaH:22000mR:H8H81\:H8M2H8H915040f:H8H9H9114980p:H81z:15040:V8V81:H8H9:V8M1V8V915040:V8V9V91D84V9(M1M21B(0):XY163:(W$(T),XX,1)(UI$,XY,1)B(XX)XY:14823A9XYI9XX[9B(0)P14910w9 PICK DIRECTIONAL MODE9A62A61148409A64(1).5176509A549D8((1)(A5.00001)1):D9D8:D816930,17100,17270,17440:O0014910T W$ BY LENGTH OF WORD - LONGEST FIRSTNv9W$(0)"":T1255:W$(0)W$(0)" ":Y9T2Am9T1$W$(T):IT19(T1$)(W$(I))W$(I1)W$(I):II1:147409W$(I1)T1$9T9T319 PLACE THE WORDS9A6A59T1A99B(0)(W$(T)):XX16"";:SKI,3,Z1$;6(Z1$,1,1)"Y"(Z1$,1,1)"N"13650C6126"WHAT SIZE DO YOU WANT THE PUZZLE TO BE?"::"(BETWEEN ";L13;" AND 32) ? ";:868:SKI,2,ZN$:P(ZN$):PL13P32P(P)(P)ZN$14005"8:10:"ONE MOMENT PLEASE..."&l9 SOR2(R12)Ė206.W$(JK) @.ET.JK16(JK16)(JKA)İ23000:Mh.JKXr.23000^w.d44:"WHAT HEADING DO YOU"::"WANT ON THE PUZZLE? ";:SKI,39(36),H$R575"DO YOU WANT THE WORDS PRINTED IN A LIST"::"AT THE END? ";:868L YOU WISH TO SEE A LISTING OF THE"::"WORDS IN THE FILE";:868w,"? ";:SKI,3,C$:C$(C$,1):C$"Y"C$"N"11400P-(C$,1)"N"13450-::"LIST: ";B$;:20:"WORDS: ";A-34,3.JK1A".R1((JK1)8.001),.32JKR1161.R1 HORIZONTALLY, VERTICALLY AND"::" DIAGONALLY":h" 4. WORDS HORIZONTALLY, VERTICALLY,"::" DIAGONALLY AND IN INVERTED ORDER"r19:"(TYPE 1, 2, 3, OR 4) ";:868:SKI,1,ZN$:A5(ZN$):A51A54(A5)ZN$A5(A5)8050V,@,6:"DOONE MOMENT PLEASE..."A JK1NQ:RQ((1)(AJK))1:RQARQ1:g T$W$(RQ):W$(RQ)W$(JK):W$(JK)T$t JK:ANQ @:4:"HOW DO YOU WANT THE PUZZLE?": J" 1. WORDS HORIZONTALLY": T" 2. WORDS HORIZONTALLY AND VERTICALLY":5^" 3. WORDS <JK! PD$;"CLOSE ";B$".WORD"* dA61 X:6:"THERE ARE ";A;" WORDS IN THIS LIST; HOW"::"MANY DO YOU WANT IN THE PUZZLE?" bMAXA:A100MAX100 l10:CS:"(1 - ";MAX;") ?";:SKI,3,T$:NQ((T$)):NQ1NQMAX7020 qANQ8000 v:12:":MLI:N$IN$"":N$""ī430004 Z$N$:B$N$:55500v PĢ21:868:B$" ISN'T ON THIS DISK.":23000:51000::5850 D$;"OPEN ";B$".WORD" D$;"READ ";B$".WORD" )958:A,Z ,L10 -JK1A 2W$(JK),S,S1 7(W$(JK))L1L1(W$(JK))0:"W O R D F I N D" > :M "THIS PROGRAM WILL CREATE A WORD PUZZLE."U : P"YOU NEED TO HAVE A PRINTER ATTACHED"::"TO YOUR APPLE TO USE THIS PROGRAM." 20500 A0:G0 : j7:868:"WHAT IS THE NAME OF THE LIST? ";:FI$FT$D$;"NOMON I,O,C":255:) D$;"CLOSE"H B(35),C(35),R(35),W$(100)V A(32,32)k Y$(100),FC$(50) FT$"11 2#1 1":FW$"11 2#4AZ1":IN$""  UI$"ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789+-*/()$= ,. ]:'& ^#<> ? ;" ZM23 / ::2:1& WORD FIND1 LAST UPDATE: 83/12/05 CPEE (C) MECC, 1979lAUTHOR: L. BORRY, MECC AND OTHERS(ASSOCIATED PROGRAMS AND FILES: FILES ARE USER DEFINEDd20300:D$(13)(4):DR1:CL868:CS958:56000n62000xCL868:CS958           RESS ";::"SPACE BAR";::" TO CONTINUE";:16384,128:16368,0:1:868:a@CH(36):CV(37)A"";ZN$:(ZN$)(((ZN$)))40003B(ZN$)0ZN$"0"40006CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001 FZM:868:CV1(CV23):ZNER255ĺ:"ERROR CTRL-C HIT AT LINE #"LN"."::MZ01:PE(LZ):(PE);:MZ(PE127):LZLZ1:MZ:" ERROR AT LINE #"LN".": LIST OF FILES Z$"H":2200:SET,2:FCN,".WORD",FC$,NN:I1NN:FC$(I):I 35000:K24:868:7:16368,0:"PLISTS-:12:"CATALOG OF LISTS":2:2240;2300::R VERIFY FILE_EF1:P0EFĺD$"VERIFY"Z$".WORD"D2$:P1 ERROR PROCESSINGER(222):LN(218)(219)256::D$"CLOSE"ER0ER16EF0:LZ53856ER-ER62140OR"'";N$;"' IS NOT ON THIS DISKETTE.":35000:216,0:2170:2020`\ER112160f"THAT IS NOT A LIST NAME":35000:2020p:5:"SOMETHING UNUSUAL IS HAPPENING."::"ERROR ";ER;" IN ";(218)(219)256;".":216,0:z CATALOG OF TT1D$;"CLOSE"" 216,0:;* HANDLE FILE ERRORi413:1:958:ER(222):27000:ER82120>"DISK ERROR. PLEASE MAKE SURE THAT:"::" 1. THE DISK IS INSERTED PROPERLY":"AND":" 2. THE DRIVE PARAMETERS ARE CORRECT.":35000:2020 H:SAMEJDJD1:61200z:9:"WHAT IS THE NAME OF THE WORD LIST YOU"::"WANT TO USE? ";:SKI,15,N$:N$""QF1:20802090D$;"VERIFY";N$;".WORD";D2$D$;"OPEN";N$;".WORD":D$;"READ";N$;".WORD":K1,Z1 T1K1:W$(T),S%(T),S1%(T):T:000:C2C21:9505::5:10:"HERE'S YOUR SCORE:"hG8146:8:G:"*************************":G913:G:8:"*";23)"*":G:11:10:"NUMBER TRIED.....";Y111:12:"NUMBER CORRECT...";C235000::43000 ASK FOR DATA FILESS.":630"ZV1:7:"ERRORS:";- K1L>X$(G$,K,1)P X$Y$(K)820`*14K:"^";i4K:wp24:868~zD21:"THE WORD IS "(34);W$(M);".";(34):35000X:97021:"THAT'S RIGHT!":"THE WORD IS "(34);W$(M);".";(34):35E ";L1D1;" MORE GUESSES.";:1:630Mu"THIS IS YOUR LAST GUESS.";:1:630vZV:868:Z$"GUESS #"(D)": ":15(Z$):Z$;:SKI,L,G$35,22:958:35,23G$W$(M)960(G$)L770 21:"OOPS, THERE SHOULD BE":L;" LETTERS IN YOUR GUE1L:Y$(K)Z$(K)KL:A1) K:A05001 0D0V D1:2:"-->THE MIXED-UP WORD: ";a NK1Lm bZ$(K);v lK: n34,4:L1L3:L14L14 o5 qD1L1:ZV14D:D4ZV17:912:912:912:912: SCROLLING $t24:868:5:L1Dĺ"YOU HAVL(W$(M)):LQL11:(W$(M),LQ,1)" "LLQ:LQ1L LQ:W$(M)(W$(M),L)[ L(W$(M))g C1C11r K1L Y$(K)(W$(M),K,1) K W$" "W$(M)" ":AL11:R((1)A)2:Z$(A)(W$,R,1):W$(W$,R1)(W$,R1): L1560 A0:KRE ";K1;" WORDS IN THIS LIST."::"HOW MANY SHOULD I MIX UP FOR YOU? ";:SKI,2,Y$:Y((Y$)):Y1(Y)Y$YK1340 ^YK1ĺ::"SORRY, I CAN'T DO MORE THAN ";K1;".":340 c:Y1Y hX1Y1 : M((1)T)1 M5(M)1400 M5(M)13  OUT THE"8 :"SCRAMBLED VERSION. YOU TRY TO FIGURE"a :"OUT WHAT THE ORIGINAL WORD WAS." ::"AFTER EACH GUESS, I'LL POINT OUT WHICH"::"LETTERS YOU HAVE IN THE WRONG PLACE." 35000: C20:C10:2000 QF43000s T:11:"THERE A"NOMON I,O,C":B1$(7)(7)(7)(7)6 oZM24:62000E p::255: sW$(100),Y$(15),Z$(15),M5(100),S1%(100),S%(100),FC$(50) xI0100:M5(I)0::QF0 y:3:16:"M I X U P" ::"I'LL PICK OUT A WORD, THEN SCRAMBLE"::"ITS LETTERS AND PRINTk PROGRAM: MIXUP6 LAST UPDATE: 83/11/07 RJGR2 COPYRIGHT MECC 1979l< MIXUP 7/16/79 FPF AUTHOR: CURT TORGERSONP ASSOCIATED PROGRAMS AND FILES: SEVERAL USER-DEFINED FILESdD$(13)(4):D$"BLOAD ONERRFIX,A27000"% nD$          C1AZ1710DDC1+Z3517909Z1C135PC%(Z1,Z)C01790XZ1jBC1Z1770uBBC1BZ1790CCC1ZZAC135DBC((ZA)9));&ZA;" ";0Z2B34C:C%(Z,Z2)0C%(Z,Z21)0187890=:3:"SORRY, ALL THE WORDS WOULDN'T FIT.":1560E:KQW"~,:12:16::"THINKING"::4:34,3663000@:J34(A$)2);A$T:^Z135hZ1134rC%(Z,Z1)C01710|Z1AC1Z1690AAnZ0N1:A%(Z,0)0HH1$xZ2H01550AH1H1440RH1H:H0:50`FS1530jSS1rTSNN035:NM035:C%(NN,NM)0:NM:NNZ0N1A%(Z,0)0:A%(Z,1)0:A%(Z,2)0ZA0:B0:C0:D0:H0:H10:R0:W0:X0:Y0Z:ZZ1Wa::6:CS:"WHAT HEADING DO YOU"::CL:"WANT ON THE PUZZLE? ";:SKI,18,A$wf::12:16::"THINKING":pN03000zZ0A%(T1,3)1C%(17,13Z)A%(T1,Z5)ZA%(T1,0)1A%(T1,1)17A%(T1,2)1350dT1$B$(R,0):B$(R,0)B$(X,0):B$(X,0)T$:T$B$(R,C1):B$(R,C1)B$(X,C1):B$(X,C1)T$:0KNDC1:A$(K)"":B$(K,0)"":B$(K,C1)"":DT1:ST:FT:R0ND0bZ0N1A%(Z,3)(A$(Z)) Z11(A$(Z))>A%(Z,Z1C4)((A$(Z),Z1,1))HZ1R:"MANY DO YOU WANT IN THE PUZZLE?"=MAXD:D100MAX10010:CS:"(1 - ";MAX;:") ?";:SKI,3,IN$:N((IN$)):N1NMAX530::12:"ONE MOMENT PLEASE...":ND580P&D1D:X0NC1:R((C1)(DX)):RDRC1:T$A$(R):A$(R)A$(X):A$(X)T$:T::400:D$;"OPEN ";N$".CROS"D2$:D$;"READ ";N$".CROS"BP$IDDTZĺ"I CAN ONLY USE ";TZ;" WORDS FROM THE LIST.":DTZT0D1:A$(T),B$(T,0),B$(T,1):D$:D$;"CLOSE ";N$".CROS"$:6:"THERE ARE ";D;" WORDS IN THIS LIST; HOW":PRINTER IS HOOKED UP."7h20500:D$(13)(4):ZM24:y:5:"WHAT'S THE NAME OF THE LIST? ";:SKI,15,N$:N$""3000SADR1İ61040:DR2Z$N$:5500:P0Ģ17:CS:N$" IS NOT ON THIS DISKETTE.":20500::12:"CATALOG OF LISTS":2:34,2:6000: S W O R D":7m,"THIS PROGRAM WILL GENERATE A CROSSWORD"::"PUZZLE. YOU CAN HAVE UP TO ";TZ;" WORDS ON"6:"ONE PUZZLE; EACH WORD CAN HAVE UP TO"::"15 LETTERS; EACH CLUE CAN HAVE 2 LINES,"@:"20 LETTERS PER LINE."J::"MAKE SURE YOUR s62000:DR1:5600! }D$(4)- 1022,0O C00:C11:C22:C33:C44:C55i TZ60:CL868:CS958s 255: D$(13)(4) :ZM24:(4);"NOMON C,I,O": A$(99),B$(99,1),A%(99,19),C%(35,35),FC$(50) (1022)1370"4:12:"C R O SA%(Z,C2)A%(Z1,C2)Z2 O83O PC%(A%(Z1,C1)Z2,A%(Z1,C2)Z5)A%(Z,Z5Z3C5)i QA%(Z,C1)A%(Z1,C1)Z2 RA%(Z,C2)A%(Z1,C2)Z3 SZ5 T(A%(Z1,C0)C1)C087 UA%(Z,C0)C1 V88 WA%(Z,C0)C2 X92 YZ3 ZZ2 [Z1 \Z ]1380C2)Z4)C0899 FC%(A%(Z1,C1)Z2,A%(Z1,C2)Z3C1)C089k GC%(A%(Z1,C1)Z2,A%(Z1,C2)A%(Z,C3)Z3)C089s HZ4 IZ5Z3A%(Z,C3)C1Z3 JZ5C083 KA%(Z1,C0)C280 LC%(A%(Z1,C1)Z5,A%(Z1,C2)Z2)A%(Z,Z5Z3C5) MA%(Z,C1)A%(Z1,C1)Z3 NC%(A%(Z1,C1)Z4,A%(Z1,C2)Z2C1)C089R @C%(A%(Z1,C1)Z3C1,A%(Z1,C2)Z2)C089 AC%(A%(Z1,C1)A%(Z,C3)Z3,A%(Z1,C2)Z2)C089 B72 CC%(A%(Z1,C1)Z2C1,A%(Z1,C2)Z4)C089 DC%(A%(Z1,C1)Z2,A%(Z1,C2)Z4)C089 EC%(A%(Z1,C1)Z2C1,A%(Z1,C1% 8A%(Z,Z3C5)A%(Z1,Z2C5)89g 9A%(Z1,A%(Z1,C0))Z3C2A%(Z1,A%(Z1,C0))A%(Z,C3)C1Z33489 :Z4Z3A%(Z,C3)Z3C1 ;Z4C072 <A%(Z1,C0)C267 =C%(A%(Z1,C1)Z4,A%(Z1,C2)Z2C1)C089 >C%(A%(Z1,C1)Z4,A%(Z1,C2)Z2)C089& ? PROGRAM: CROSSWORD6COPYRIGHT (C) MECC 1979ULAST UPDATE: 83/11/23 CPE^115(FOLLOWING CODE FROM MIDDLE OF PROGRAM2ZTC1NC13A%(Z,C0)C0924Z1C0NC15A%(Z1,C0)C0916Z2C0A%(Z1,C3)C1 7Z3C0A%(Z,C3)     (LZ):(PE);:MZ(PE127):LZLZ1:MZ:" ERROR AT LINE #"LN".":V<( LIST OF FILESF(Z$"H":10200:SET,2:FCN,".CROS",FC$,NN:I1NN:FC$(I):IZ(1240:@CH(36):CV(37)A"";ZN$:(ZN$)(((ZN$)))40003B(ZN$)0ZN$"0"400068' VERIFY FILE 'EF1:P0D'EFĺD$"VERIFY"Z$".CROS"D2$:P1J'd( ERROR PROCESSING (ER(222):LN(218)(219)256::D$"CLOSE"(ER0ER16EF0:(LZ53856ER((ER255ĺ:"ERROR CTRL-C HIT AT LINE #"LN".":@2(:MZ01:PE020'ER1110160A'"THAT IS NOT A LIST NAME":1240:10020':5:"SOMETHING UNUSUAL IS HAPPENING."::"ERROR ";ER;" IN ";(218)(219)256;".":216,0'1240:' CATALOG OF LISTS':12:"CATALOG OF LISTS":2:10240'10300::(222):27000:ER810120~'"DISK ERROR. PLEASE MAKE SURE THAT:"::" 1. THE DISK IS INSERTED PROPERLY":"AND":" 2. THE DRIVE PARAMETERS ARE CORRECT.":1240:10020'ER610140'"'";N$;"' IS NOT ON THIS DISKETTE.":1240:216,0:10170:10USE? ";:SKI,15,N$:N$""QF1:100801.'10090Q8'D$;"VERIFY";N$;".CROS";D2$B'D$;"OPEN";N$;".CROS":D$;"READ";N$;".CROS":A$,IL'T1I:A$(T),CL$(T,0),CL$(T,1):T:TT1V'D$;"CLOSE"`'216,0:j' HANDLE FILE ERRORt'13:1:958:ER60SA1ė:61100Q:11:"GETTING THE MENU PROGRAM...":D$;"RUN HELLO"D1$y 13:"PLEASE TYPE YES OR NO.":2002@L21N:L2:' ASK FOR DATA FILE':SAMEQGİ61200%$':9:"WHAT IS THE NAME OF THE WORD LIST YOU"::"WOULD LIKE TO 1L1:2000y24:868:7:16368,0:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:16384,128:16368,0:1:868:0 END OF PROGRAM11:868:"DO YOU WANT TO TRY AGAIN?";:SKI,3,N$(N$,1,1)"Y"QG1:30(N$,1,1)"N"20 - REMOVE CHOSEN LETTERS FROM ALPHABET LIST8N126P(V$,N,1)B$1070wV$(V$,1,N1)" "(V$,N1,(V$))$1080.N8P1L:(C$,P,1)"-"1090:750BPLRGLDV12:7:A$(W):18`"THAT'S RIGHT!"j1240:C2C226:(V$,Y,1)B$940Y`18:"YOU ALREADY GUESSED THAT LETTER.":N1000:8000:GG1:750C$(C$,1,X1)B$(C$,X1)HH1:(7)XH1Ģ18:" INCORRECT, TRY AGAIN.":N100:800012:7:C$H11020DDH1, $"" 4X1L >C$C$"-"$ HX> RCC3ĺC$:958:CC3_ \1:14:"GUESS? ";:SKI,L,B$n aB$""860 fB$A$(W)890 p18:"THAT'S THE WORD!":1240:C2C21:1170 zB$(B$,1) GG1 H0 X1L (A$(W),X,1)B$960Y1 680& M5(W)1:G0:D0:YY1:CC0R V$"ABCDEFGHIJKLMNOPQRSTUVWXYZ":Y1Y11[ :3 "CLUE:";:12:CL$(W,0):12:CL$(W,1) 7:"LETTERS AVAILABLE:" 9:868 V$ ::"WORD: "; 1:14:958:12:7 L(A$(W)):G0850 *C1240: &10000:QF1840 :7:"THERE ARE ";I;" WORDS ON THIS LIST."::"HOW MANY DO YOU WANT TO TRY? ";:SKI,2,N$:N(N$) NIN1Ģ17:"PLEASE ENTER A NUMBER BETWEEN 1 AND ";I:1240:662 L11N Y0 W((1)T)1 M5(W)0710T LETTERS ARE IN THE WORD.":: P"EVERY TIME YOU GUESS ONE OF THE"::"LETTERS, I'LL REPLACE A DASH WITH THAT"::"LETTER EVERY WHERE IT OCCURS IN THE"::"WORD." Z::"IF YOU THINK YOU KNOW WHAT THE WORD IS,"::"JUST TYPE IN THE WHOLE WORD." dA$(100),CL$(100,1),M5(100):D$(13)(4):D$;"NOMON I,O,C"[ D$;"BLOAD ONERRFIX,A27000" LQ0100:M5(LQ)0:LQ::12:"W O R D G A M E" #QF0 F4:"I'LL PICK OUT A WORD AND PRINT ONE"::"DASH (-) FOR EACH LETTER. YOU TRY TO"::"GUESS WHA PROGRAM: WORD GAME: LAST UPDATE: 83/12/05 CPEi COPYRIGHT MECC 1979 WORDGAME 8/8/79  AUTHOR: KENT KEHRBERG/MECC  ASSOCIATED PROGRAMS AND FILES: ONE USER-DEFINED FILE  20300255::::ZM24:62000FC$(50);           CZ2:D$:)P$"CROSS/WORDGAME"2030}Y3Y0:D$;"DELETE ";N$".CROS":D$:22:CL:N$;" IS NOW DELETED.":20500:200DT1DA$(T),D$(T,0),D$(T,1)T:D$;"CLOSE ";N$".CROS":::"LIST: ";N$;:23:"ENTRIES: ";D:34,4:5XIS IN PLACE AND THE DRIVE DOOR CLOSED.":20500:ER0:1285XCC0::12:"THE PROGRAM CANNOT WRITE TO THIS FILE.":ER0:20500:200_20500:200d15eEF1lD$;"OPEN ";N$".CROS"nD$;"READ ";N$".CROS"xONERR GOTO 1370P$ CZ1(34)",";(34)D$(T,1)(34)!<T=FD$;"CLOSE ";N$;".CROS"HPCC0:TER4CC0:20:CS:"PLEASE REMOVE THE WRITE-PROTECT STICKER"::"FROM THE EDGE OF THE DISKETTE.":20500:ER0:12859V20:CS:CCCC1:CC1ĺ"PLEASE MAKE SURE THE DISKETTE"::";"CLOSE ";N$".CROS":D$;"DELETE ";N$".CROS":6CC0XPOKE 216,0: ONERR GOTO 1362`15iEF1D$;"OPEN ";N$".CROS" EFĺD$;"WRITE ";N$".CROS" EF01364"CROSS/WORDGAME"D(T1D2(34)A$(T);(34)","(34);D$(T,0);" OR "(34)"WORD GAME."(34)8::"LIST NAME: ";N$:::"ANYONE USING THIS LIST ON THESE"::"PROGRAMS MUST KNOW THE NAME."20500:2001260::230216,0:D$:CZ1Ģ22:CL:"SORRY, "(34);N$;(34)" IS NOT ON THIS DISK."-10:D$E: ";:FI$FD$:MLI:D$(I,DD)IN$"":450]" SECOND LINE: ";:FI$FD$:MLI:D$(I,DD)IN$""wD$(I,DD)""DD0370DDI:I100::I0200DI:4000:1:"THE LIST YOU HAVE JUST CREATED CAN BE"::"USED ON "(34)"CROSSWORD"(34)S<|12:CL:" WORD #";I;:": ";:FI$FT$:MLI:A$(I)IN$""L1(A$(I)):L22L1:(A$(I),L2,1)" "A$(I)(A$(I),L21)(A$(I),L21)L2A$(I)""II1:CS15:"DEFINITION":DD0117DD:80):17DD'DD0ĺ" FIRST LINRETURN> FOR"::"THE SECOND LINE."AP20500::3:IN1:340:500T"MAXIMUM NUMBER OF WORDS.........100 MAXIMUM LETTERS PER WORD.........15 MAXIMUM LETTERS PER DEFINITION...40"^::"PRESS WHEN FINISHED."hI(IN)100r12:CD1:1380J: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 ?P O % OLԢ LOfLwOOOwOLRɯdQ 8ɀ   Lޥ8e湥 RHRH L`OOL mPnPoP <= <ȭ<ȭ<ȭmP<ȭoP<><ȥ?< <<=   LmC& x)I+JJJJ  XI L.,lՠԠԠӠˮŠԠŠ͠ˍĠӠٮ~DI O]D P PvD P3 jD3ɃLIɍ~DɍII N N L z#  <  @ ?$hi<$6h7h6>=<`ɍɌ ͳ ` I`H)hHɍ rh`PACPOFFEE!`ȉ` G$H)h0,0R67 m 0N 󹥇9I7߭ r` L<=>6H7H67,0 < L'$H8$$ ? mͳ   ފ `B ֈ?F<?F<>ݦ >ݪ?Ȑ۩`?)8鍸ζ`H88HHԈՈ ߅$0HԈՈ LbLv?<>?>,>$f<<`L+ɇqr+Lɯd 8ɀ   Lޥ8e湥 HH L`qrLpxxxxxxpx0H@@@@pxp ` p0`` pبppxxxp@@@@H0hP P Pxp @ @  @  @hPPPx Pppxxp ppبȨppph𠐈ppp pP ؈P PP  @@  P@  PPPPPPPP xp(  @@@h @ @@  p p @  @pȈp ` pp0@0p0Pp8@p @@@ppppx @ @@ @  @p p &eeiec8pc&(cIici cec) JJJJH)hJJc(jmccMccPjjjjjjj0jj) c0ȱjcj) cccЅ`8pP `Lvb`eme`8`@ Ub@UbLTabL b,b`,b`H8 qȥq8)h`c bcc cJ`aa b+bAbpbbbbb(RaSa S`b bNOH S` b bRaSah`@ @ʩ WRPT`LTa Ta` TaI``Le80 " ,bm8h)`em88e` Xc  bb@ J`O`6 LBbS`aHaa j`aah`ɀ)?  @IH殖b ȱȱȱ$ a$%0 b%%h $20 b b $ `H`H`Sa{a``aaa     ER4ĺ"DISKETTE CANNOT BE WRITE PROTECTED.":990}"ERROR ";ER;" AT LINE ";LN;".":"PLEASE REPORT THIS ERROR TO MECC."990 FIRST LINE OF DATA:DISKETTE #,NAME LINE 1,NAME LINE 2,# OF PROGRAMS 00,ELEMENTARY,VOLUME 2,8VLSPELL,"SPEL0638":p900::+SPACE-BAR ROUTINE@24:7:16368,0r"PRESS ";::"SPACE BAR";::" TO CONTINUE";Z01:ZC(16384):Z(ZC141)(ZC160):Z16368,0:1:868:23::ERROR PROCESSER(222):LN(218)(219)256:::104 MN 55112":13:"(612) 638-0627",g900:h::::"IF YOU HAVE ANY PROBLEMS USING MECC"::"COURSEWARE WITH YOUR MICROCOMPUTER,"i:"WRITE OR CALL:"::32,10::"MECC HELP LINE":"3490 LEXINGTON AVENUE NORTH":"ST. PAUL, MN 55112":"(612) 638-7(IP$""):"A MANUAL TO AID IN THE "IP$"USE":6:"OF THIS DISKETTE IS AVAILABLE FROM MECC."R11:" TITLE: ";DN$:D2$""Ė13:D2$\15:" DIRECT INQUIRIES TO:"!f:13:"MECC DISTRIBUTION":13:"3490 LEXINGTON AVENUE NORTH":13:"ST. PAUL,:21(DN$)2:DN$:11:"PROGRAM DESCRIPTIONS":34,4:UI1N:(37)21DLİ900:e MN$(I)" -"J1DL:DE$(I,J)""DE$(I,J)" "ĺ" "DE$(I,J) J::I:900*:4SUPPORT BOOK INFO>IP$"":IS$"YES"IP$"INSTRUCTIONAL "\H4:10XEND OPTION::11:8:"INSERT THE NEW DISKETTE."E900:hCS(P(P(999))1)16:SLOT #|CS1CS7CS6CS:DISPLAY LOGOJ1300:(16384)128J300J:16368,0:1023,DN:16303,0DESCRIPTIONS 6:230,32:62450&GET THE PROGRAMI::12:"GETTING "MN$(A)"..."`CNĺD$"RUN"CN$(A)sD$"RUN"MN$(A)&NOT ENOUGH MEMORY010:"SORRY, THIS APPLE DOES NOT HAVE ENOUGH ":"MEMORY TO RUN THIS DISKETTE."::"(48K IS NEEDED.)"D90(A)A$ĢVV:958:VV2:6F35:"PLEASE TYPE A NUMBER FROM 1 TO "N2PD".";:IN0phIN:PRAN1ĺD$"RUN"X1$jDRAN1PRĺD$"RUN"X2$lAN2PDİ600rAN1PDİ750:MENU0|MENUSEED RANDOM # GENERATOR & CLEAR HGRX(P(78))2PD". END"J'(64435)6Ģ20:"MAKE SURE THE 'CAPS LOCK' KEY IS DOWN."h,RESPOND TO USER'S CHOICE6VVVV7PD:VV22VV22@IN11:VV:6F35:"WHICH NUMBER? ";:SKI,2,A$TCAA$(1)ĺD$"RUN TEACHER OPTIONS"R^A((A$)):A1AN2PD2F2F3F6- VV:6F35:"OTHER OPTIONS:"f PRĢVV2:9(N9):X1$"PRINTER SUPPORT":N1". "X1$ DRĢVV2PR:9(N9PR):X2$"DISKETTE SUPPORT":N1PR". "X2$ VV2PD:9(N9PD):N1PD". PROGRAM DESCRIPTION"SP$ "VV3PD:9(N8PD):N K48(978)157İ550+ DISPLAY MENUW MENU11:1(D2$""):21(DN$)2:DN$p 2:21(D2$)2:D2$ 5F5:6F35:"PROGRAM"SP$":" VV7F5:HH9F38 I1N:VV:HH(I10):I". "MN$(I) VVVV1:F3IC2VV7F5:HH21 I:VVVV58)Ĺ955,T:958,T:FL1& v955,T:FL1Q wFL1ĺD$"BSAVE DRIVE OPTIONS,A953,L6" xC2((N1)2):F2C2(N1)2:ODD # OF MENU ITEMS PDPRDR:F3N7PD:TWO COLUMNS F5N142PD:F6N182PD:FULL SCREEN (LIMIT VARIES 16-20) (1023)DNİ700CNćCN$(I)' dJ1DL:DE$(I,J):J:IB nP(I)(I)(I1)256O oDR120l pD$"BLOAD DRIVE OPTIONS" qT(P(P(999))1)16:T(953)116 r(953)(956)Ĺ953,T:956,T:FL1 s953,T:FL1 tT(P(P(999))14):T(955)119 u(955)(9DN:(1023)DNĹ230,32:D$;"BRUNLOGO":16304,0:16297,0:16302,0 7D$"BRUN INPUTS.OBJ":D$"BRUN CUTIL.OBJ":D$"BRUN PRUTIL.OBJ":D$"BLOAD PRINTER COMMANDS.BIN" <DN$,D2$,N:MN$(N),CN$(N),DE$(N,DL) FSP$"":N1SP$"S" PI1N:MN$(I) Zp  HELLO VERSION 4.6? LAST UPDATE: 83/12/15 CPES (C) MECC 1982Yn INITIALIZATIONS20300:16384950DL4:CN0:CA0:PR1:DR1:K481:IS1D$(13)(4):D$"NOMON CIO"(:::255:0:1:D$"PR#0":D$"IN#0"F 2       ::10015?D$;"OPEN ";N$".WORD":D$;"READ ";N$".WORD"X11ĺD$:D$;"CLOSE ";N$".WORD":D$;"DELETE ";N$".WORD":12:N$;" HAS BEEN DELETED.":20500::100D,T3:D0āT1D:W$(T),S(T),S1(T):D$"CLOSE"D$Z(T3473.0247.00ST OF WORDS"::"THAT CAN BE USED WITH "(34)"SPELL,"(34)::(34)"MIXUP,"(34)" OR "(34)"WORD FIND."(34)::"THE NAME OF THE LIST IS ";(34);N$;"."(34)::"YOU NEED TO KNOW THE NAME OF THE LIST"::"TO USE IT IN THESE PROGRAMS."20500ĺ"DISK ERROR. PLEASE MAKE SURE THAT:"::" 1. DISKETTE IS INSERTED PROPERLY":"AND":" 2. THE DRIVE PARAMETERS ARE CORRECT.":20500::100|"I AM UNABLE TO USE THIS FILE.":20500:::100E10:ED1ė:1180l2:"YOU HAVE JUST CREATED A LIWORD"CEF01142"VD;",";T3-`I1DKjW$(I);",";S(I);",";S1(I)otI:D$;"CLOSE ";N$".WORD":1151uvwER4CC0::10:"PLEASE REMOVE THE WRITE-PROTECT"::"STICKER FROM THE EDGE OF THE DISKETTE.":20500::1081zCCCC1::10:CC1CHANGE ";W$(I);" TO? ";:FI$FW$:MLI:Y$IN$"":Y$""1076l5W$(I)Y$:R2((I1)8.01):R22(R22)Ė20632I16R2:36,(36)4:15):5:R22(R22)Ė247W$(I):10708CC09EF1=EFĺD$;"OPEN ";N$".WORD"BEFĺD$;"WRITE ";N$".N"1070/Y$"N"ė:l021:CS:"WHICH WORD (";:ZZ18(R1((R12)(R12))):R1(R12.01)ZZR1811ZZ;" - ";:Z1D:(R11)8DZ1(R11)82Z1;") ? ";:SKI,3,Y$:I(Y$):(IZZI0)IZ1I(I)(I)Y$10723I01070:421:CS:"0+)32T16R1:T100ĺ" ";:T10ĺ" ";f*T;" ";W$(T):T16(T16.01)TDĴE111070,20500:~,T:E111070,20500-34,0::E111080,1210.21:CS:"DO YOU WANT TO CHANGE":CL:"ANY OF THESE WORDS? ";:SKI,3,Y$:Y$(Y$,1):Y$"Y"Y$" PLEASE.";:1010#W$(T)""1060*T?$DT1::D0880N%ED11080&Z(T3473.0247.00001):34,0::" LIST: ";N$;:27:"WORDS: ";D:3:12:"TIME LIMIT: ";Z'34,4:D0ĉ::E111080,1210(T1D:R1((T1)8.01):R12(R12)Ė25:70):13:1:40)35:1:"WORD #";T;" ";:CLX"? ";:FI$FW$:MLI:W$(T)IN$""sLL(W$(T)):LL21020K92LL:(W$(T),K9,1)" "W$(T)(W$(T),K91)(W$(T),K91)(W$(T))15ČCS:104020:" KEEP THE WORDS TO 15 LETTERS100Y CR1:Z$N$:5500:P1Ģ20:CS:N$" IS ALREADY ON":"THIS DISKETTE.":20500::100h ED0:CREDp Z0 Z31ČCS:ED1980,1080 1303 T1100 :"ENTER WORDS 1 AT A TIME UP TO 100 WORDS.":"PRESS WHEN FINISHED."9:THE NAME OF THE LIST? ";:FI$FT$:MLI:N$IN$"":N$""100 ED1:Z$N$:5500:P0Ģ21:N$" IS NOT ON THIS DISKETTE":20500::100 1180 :13:"CREATE A LIST" 5:CS:"WHAT WOULD YOU LIKE TO CALL YOUR LIST? ";:FI$FT$:MLI:N$IN$"":N$""(Y$):Y11Y15Y1(Y1)(Y1)Y$890: {:X10:EDX1I |Y13X11b }Y1920,910,910,2500{ ~SADR2İ61020:DR1 :10:"GETTING THE MENU...":(13);(4);"RUN HELLO"D1$ : :Z$ED$(X1)" A LIST":20(Z$)2:Z$: 5:CL:"WHAT IS  p7:"YOU MAY:":9 q" 1. CREATE A WORD LIST"::" 2. EDIT AN EXISTING LIST "::" 3. DELETE AN EXISTING LIST"::" 4. SEE A CATALOG OF LISTS"::" 5. RETURN TO MAIN MENU" tCR0 uD$;"CLOSE") z20:CL:"WHICH NUMBER? ";:SKI,1,Y$:Y1FC$(60),S(101),S1(101):D$(13)(4):D$;"NOMON I,O,C"` ED$(1):ED$(0)"EDIT":ED$(1)"DELETE"l d34,0: n2:"THIS PROGRAM WILL ENABLE YOU TO CREATE":"OR EDIT A WORD LIST FOR "(34)"WORD FIND,"(34)" ":(34)"SPELL,"(34)" AND "(34)"MIXUP."(34) WORD FIND EDIT6 LAST UPDATE: 83/12/12 CPEUAUTHOR: LINDA BORRY, MECCi(C) MECC, 197920300:62000:SET UP DRIVE STRINGS 5600 :::255:ZM24 IN$"":FT$"11 2#1AZ1":FW$"11 2#4AZ1"CL868:CS9586 W$(101),                 Oȱȱ8``SKML%vYvLwLwBѥ<%=eB$$ " CBFFLw=$<% " C0` UUUUUUUUUUUUUUUU UU P L LwB>H)hɠFȄBLwLwBѥ<%=eB$$ " CBFFLw=$<% " C0` UUUUUUUUUUUUUUUU UU P h%<$=ЅFȄB@ ixi>CBCC xH)HJJh)JJLw)hL6xD D0 EL6xLYx?F?1BC x I *yF L{ ߅ lݦ u ) L{کF *y L81Hȱ81Hȥ 8$օ<ȥ 8$(ƅ=ȱ8"(>ȱ8#>Lgv?ȱ81@ȱ Dȱ Eȱ81ׅh<&݅ۅ߅,߅߅߅ 0u#L[uuu[uLGyɯdHx 8ɀ   Lޥ8e湥 PyHOyH L`uuL/ / Ɉɍ&ɠ/ Lu `   e<#8>>> g R>P>Q?=<`L #H h` L`SEDDFM;ˁ>/?0' H53,+4``8` B;Z`fjhf``L 䎱 掲` ր` `  L *?> *=<8?+VL+ɀqr+L?ɯdC 8ɀ   Lޥ8e湥 OHNH L`qrL@@H?e@??h ΀@ ?88` 3+,) (6*!! ! ,"