' +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ˆʎ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*`QrkCH(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)20220N3500050=:11:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"G*:60"GETTING 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" - TRY AGAIN";:40010:40001DFZM:868:CV1(CV23):ZN(ZN$):]JCV1:36,CH:868:s 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:430 "(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",D"(DR)",V"(VO)?IZB956:SL(ZB):DR(ZB1):VO(ZB2)vXD2$",S"(SL)",D"(DR)",V"(VO):D1$D2$SA1|b$SA1bISKETTE1:11:CEW:"Please insert your program diskette.":35000:10:CEW:'1:11:CEW:"Please insertdiskette.":35000:10:CEW:c1:11:CEW:"Please insert your data diskette.":35000:10:CEW: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)216,0:43020tүCL$:5:"Something unusual is happening."::"Error ";(222);" in ";(218)(219)256;".":216,0:H DISPLAY DISKETTE SWITCH MESSAGESR ENTRY POINTS;61100=PROGRAM;61200=DATA DISKETTE1:11:CEW:"Please insert your program SKI,3,A$:A$(A$,1)/A$"Y"A$"N"43005zA$"Y"āT1100:C%(T)0:W$(T)"":F$(T)""::X(0):X0:QF1:CL$:125 SA1ĺCL$:6110045000:D$"VERIFY HELLO"D1$CL$:10:"Getting the menu program...":D$;"RUN HELLO"D1$ ȯ(222)6Ĺ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:7731$WY$(T);:25%$WT2(T2)ĺ,$WT2$W<$WPOFFQ$W(952)0İ23000\$W43000$Y24:868:7:16368,0:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:16384,128:16368,0:1:868:15:$@CH(36):CV(37)%A"";:SKI,39(36),ZN$:(ZORDS HERE - CAN":"YOU FIND THEM?"<#&W(Z1$,1,1)"N"22450J#0W SORT Y$Z#5WT3222405q#: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 LOOK FOR:":$WT1T00 "VPACT"VT13"V$"VT@"VP21(H$)ĺH$:22190X"V(P2(H$))2);H$^"Vi"VT1Pt"VC1P"VA(T,C)022250"V(UI$,A(T,C),1);" ";"V22260"V(UI$,((1)261),1);" ";"VC"V"WT"W"#W"THERE ARE "T31" W!.VP21(H$)ĺH$:220662!0V(P2(H$))2);H$8!2VC!6VT1PN!@VC1Pb!JVA(T,C)022120|!TV(UI$,A(T,C),1);" ";!^V22130!hV". ";!rVC!|V!VT!V:POFF::10"V"IF YOU WISH, YOU MAY INSERT A DITTO":"MASTER AT THIS TIME.":205B(T9) EB(T9)B(B(0)T91)0 EB(B(0)T91)Q08 $ET9C .E14840 P24:CL:16368,0:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:16384,128:16368,0:1:CL: U:10:"PLEASE PREPARE YOUR PRINTER.":20500: VPACT VT13 "V ,VTfDA(V8T9,H8T9)0A(V8T9,H8T9)B(T91)17580<pD14930LzDO0117640]DV8117500lDV8M1M21wD17500DT9DY$(T3)W$(T)DT3T31DT90B(0)1DA(V8T9,H8T9)B(T91)DT9DD REVERSEDT91(B(0)2) EQ0 C17320CT9$CY$(T3)W$(T)0CT3T31ACT90B(0)1\DA(V8T9,H8T9)B(T91)d DT9jD| D DIAGONALLY2*DO004DM2PB(0)1>DM1PHDH8((1)(M2.000001)1):H9H8RDV8((1)(M2.00001)(M1M21)):V9V8\DT90B(0)11)1XCA(T9,H8)B(T9V81)#bCT9)lC<vC DIAGONALLY 1ECO00[CM1PB(0)1:M2M1~CV9((1)(M1.00001)1):V8V9CH9((1)(M2.00001)1):H8H9CT90B(0)1CA(V8T9,H8T9)0B(T91)A(V8T9,H8T9)17370C14930CO0117430BO00BM1PB(0)1BM2PABV9((1)(M1.00001)1):V8V9dBH9((1)(M2.00001)1):H8H9yBT9V8V8B(0)1CA(T9,H8)0A(T9,H8)B(T9V81)17200C14930CO0117260&C171500CT9:CY$(T3)W$(T)DCT3T31NCT9V8V8B(01)(M2.00001)1):H9H8,TBT9H8H8B(0)1V^BA(V8,T9)0A(V8,T9)B(T9H81)17020ahB14930qmBO0117090|rB16980|BT9BY$(T3)W$(T)BT3T31B PLACE ITBT9H8H8B(0)1BA(V8,T9)B(T9H81)BT9BB VERTICALLYH9H9114980p:H81"z:15040.:V8V818:H8H9Q:V8M1V8V915040y:V8V9V91D84V9(M1M21)15030:V81:15040:O01:"B HORIZONTALLY'BO00,BM1P6BM2PB(0)1@BV9((1)(M1.00001)1):V8V9JBH8((9A64(1).5176509A54B9D8((1)(A5.00001)1):D9D8b:D816930,17100,17270,17440r:O0014910~ :D8D81:D8A5D8D914850 :D8D9D9114910*:D814:14850>:TH:22000R:H8H81\:H8M2H8H915040f:H8I):II1:147409W$(I1)T1$&9T/9T31E9 PLACE THE WORDSO9A6A5Z9T1A9B(0)(W$(T)):XX1B(0):XY163:(W$(T),XX,1)(UI$,XY,1)B(XX)XY:148239XY9XX9B(0)P149109 PICK DIRECTIONAL MODE9A62A6114840:PL13P32P(P)(P)ZN$14005G"8:10:"ONE MOMENT PLEASE..."h@8T132:C132:A(T,C)0::l9 SORT W$ BY LENGTH OF WORD - LONGEST FIRSTv9W$(0)"":T1255:W$(0)W$(0)" ":9T2A9T1$W$(T):IT19(T1$)(W$(I))W$(I1)W$(o?~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"0 :W6:"WHAT HEADING DO YOU"::CL:"WANT ON THE PUZZLE? ";:SKI,18,A$]",:10:"PLEASE PREPARE YOUR PRINTER.":20500::2:"ONE MOMENT PLEASE...":4:34,36PACT@:J34(A$)2);:1:A$T:^Z135hZ113H1440H1H:H0:950'FS15301SS19TScNN035:NM035:C%(NN,NM)0:NM:NNpZ0N1A(Z,0)0:A(Z,1)0:A(Z,2)0ZA0:B0:C0:D0:H0:H10:R0:W0:X0:Y0890:3:"SORRY, ALL THE WORDS WOULDN'T FIT.":156):VO(ZB2)CXD2$",S"(SL)",D"(DR)",V"(VO):D1$D2$SA1IbUN HELLO"b)1023,9j*:B956:SL(ZB):DR(ZB1):VO(ZB2)[XD2$",S"(SL)",D"(DR)",V"(VO):D1$D2$SA1ab(00:11:958:0 DRIVE OPTIONS HELPERDZB953:SL(ZB):DR(ZB1):VO(ZB2)ED1$",S"(SL)",D"(DR)",V"(VO) IZB956:SL(ZB):DR(ZB12: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"(VO)$IZM...":D$"RUN HELLO"D1$3ȯ(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 DISKETTEB1:1JCV1:36,CH:868:/ END OF PROGRAM:::5|11: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 MENU PROGRAZL1ZN:ZC$(ZL):ZL:9- CHECK FOR COMMANDS ON FILEJ-(950)3ıe-F9$"PRINTER COMMANDS"-D$"OPEN"F9$:D$"READ"F9$:ZF$,ZN:I1ZN:ZC$(I):I:D$"CLOSE"F9$:ZC$(0)(ZN):(VO):D1$D2$SA1,bSR COMMANDS ON FILE?,(950)3ıZ,F9$"PRINTER COMMANDS",D$"OPEN"F9$:D$"READ"F9$:ZF$,ZN:I1ZN:ZC$(I):I:D$"CLOSE"F9$:ZC$(0)(ZN)::I:D$"CLOSE"F9$:ZC$(0)(ZN):D COMMANDS ON FILE,NZN(ZC$(0))-+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)+IZB956:SL(ZB):DR(ZB1):VO(ZB2),XD2$",S"(SL)",D"(DR)",V"R AT LINE #"LN"."::*H DISPLAY DISKETTE SWITCH MESSAGEp*R ENTRY POINTS;61020=PROGRAM;61040=DATA DISKETTE*\1:12:CS:"PLEASE INSERT YOUR PROGRAM DISKETTE.":20500:11:CS:+p1:12:CS:"PLEASE INSERT YOUR DATA DISKETTE.":20500:12:1:CS:S ARE CORRECT.":EF0:20500:5850g)oۭER11Ģ18:1:"YOU CANNOT USE THAT FILE NAME.":EF0:20500:5850~)ۭER0ER16EF0:)LZ53856ER)ܭER255ĺ:"ERROR CTRL-C HIT AT LINE #"LN".":*Pܺ:MZ01:PE(LZ):(PE);:MZ(PE127):LZLZ1:MZ:" ERRO ( EF1:P01(<׭EFĺD$"VERIFY"Z$".WORD"D2$:P17(رN(ڲ ERROR PROCESSING($ER(222):LN(218)(219)256:27000::D$"CLOSE"!)VۭER8Ģ18:1:"PLEASE MAKE SURE THAT:"::" 1. THE DISKETTE IS PROPERLY INSERTED":"AND":" 2. THE DRIVE PARAMETERET,2:FCN,".WORD",FC$,NN:I1NN:FC$(I):I:'~ǰ20500::R'Ҳ WRITE VERIFY FILEk'ҭSADR1İ61040:DR2x'EF1:P0'ӭEFĺD$"OPEN JUNK"D2$:D$"WRITE JUNK":"JUNK":D$"CLOSE JUNK":D$"DELETE JUNK":P1'ӱ'ֲ VERIFY FILE(֭SADR1İ61040:DR2A$:A$(A$,1):A$"Y"A$"N"430058&:A$"N"43030A&180U&SADR2İ61020&:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"D1$&8Dz LIST OF FILES&BǗ:12:"CATALOG OF LISTS":2:34,2&`ǭSADR1İ61040:DR2+'jǗ::Z$"H":55000:SN$)(((ZN$)))400034%B(ZN$)0ZN$"0"40006o%CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001%FZM:868:CV1(CV23):ZN(ZN$):%JCV1:36,CH:868:% END OF PROGRAM%::5$&11:"DO YOU WANT TO TRY AGAIN? ";:SKI,3,UMBER - TRY AGAIN";:40010:40001IFZM:868:CV1(CV23):ZN(ZN$):bJCV1:36,CH:868:H DISPLAY DISKETTE SWITCH MESSAGESR ENTERY POINTS;61100=PROGRAM;61200=DATA DISKETTE 1:12:958:"PLEASE INSERT YOUR PROGRAM DISKETTE.":1247):LZLZ1:MZ:" ERROR AT LINE #"LN".":?<( 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"40006!CZM:"THAT IS NOT A NAD"F9$:ZF$,ZN:I1ZN:ZC$(I):I:D$"CLOSE"F9$:ZC$(0)(ZN)::ZN):D%% DEFAULTS/SEARCH.%D$"PR#"(952)Q%(951)3(951)4ĺ(9)"132N"W%n%D COMMANDS ON FILE%NZN(ZC$(0))%ZL1ZN:ZC$(ZL):ZL:% CHECK FOR COMMANDS ON FILE%(950)3ı%F9$"PRINTER COMMANDS">&D$"OPEN"F9$:D$"REL(ZB):DR(ZB1):VO(ZB2)F$ED1$",S"(SL)",D"(DR)",V"(VO)p$IZB956:SL(ZB):DR(ZB1):VO(ZB2)$XD2$",S"(SL)",D"(DR)",V"(VO):D1$D2$SA1$bQ$D2$SA1$b50)63100,63200,63300$| COMM CARD$775:769,132DISKETTEP#\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$$DZB953:S"H":5500:SET,2:FCN,".CROS",FC$,NN:I1NN:FC$(I):IE"20500:"P24:CL:16368,0:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:16384,128:16368,0:1:CL:"H DISPLAY DISKETTE SWITCH MESSAGE#R ENTRY POINTS;61020=PROGRAM;61040=DATA CT.":20500:EF0:216,0:3703!ER0ER16EF0:C!LZ53856ERv!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:DR28"::Z$# EFĺD$"VERIFY"Z$".CROS"D2$:P1) A  ERROR PROCESSINGq ER(222):LN(218)(219)256::D$"CLOSE"!ER8Ģ18:1:"DISK ERROR. PLEASE MAKE SURE THAT:"::" 1. THE DISK IS INSERTED PROPERLY":"AND":" 2. THE DRIVE PARAMETERS ARE CORREANT TO TRY AGAIN? ";:SKI,3,A$C A$(A$,1):A$"Y"A$"N"3020T A$"Y"3070l ::SADR2İ61020 :10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"D1$ 216,0::62000:DR2:QK1:125 -PRINTER| VERIFY FILEEF1:P0N1 ZA(Z1,4)2550  Z1X AA$"[ "(A(Z1,1)A)" , "(A(Z1,2)B)" ]":AA$;p 13(AA$));A$(Z1)w Z : "------------------------------"( POFF2 :2:CL< FACE255İ20500F 3000  : 12:CS:"DO YOU W :"DOWN". "----": 8 D2)B R1R3L 2210;V :c` :"------------------------------"kj :~t "THE ANSWERS"~ "-----------" : "ACROSS" "------": Z1R R11Z2520 : "DOWN" "----": Z101Z1A135 Z2B34C.Z30N1[A(Z3,1)Z1A(Z3,2)Z2A(Z3,0)D2300eRR1sA(Z3,4)RAA$"[ "(Z1A)" , "(Z2B)" ]":AA$;13(AA$));B$(Z3,0):13);B$(Z3,1):2310Z3 Z2 Z1 D22390 $ ZZ1019'BC2);.4?Z1B134CMZ12070VZ80` 2080iZ81 Z9((Z1B)Z)Z8((Z1B)10)10*" ";Z9;4Z1>HZR:\f"THE CLUES"p:z"ACROSS""------"DZA;" ";0Z2B34C;:C%(Z,Z2)0C%(Z,Z21)01870ED1880PN"XX";rXC%(Z,Z2)0C%(Z,Z21)01900|b1910l"[ ";vC%(Z,Z2)0C%(Z,Z21)019301940"]X";C%(Z,Z2)0C%(Z,Z21)019601970"I ";Z24rC%(Z,Z1)01710|Z10A1Z1690:AA1HAZ1710RDD1aZ351790nZ1135C%(Z1,Z)01790Z1B1Z1770BB1BZ1790CC1ZZA135DBC((ZA)9));1(ZA10) &:A$(Y)Y$:IR11:3 20:CL:"#";Y;" DEFINITION"? DD01 21DD:CL:6:DD0ĺ"FIRST LINE: ";:FI$FD$:MLI:Y$IN$"":4280 "SECOND LINE: ";:FI$FD$:MLI:Y$IN$""  Y$""DD04274 D$(Y,DD)Y$:DD 20:CS:IR11: ! GE"423220:CS:Y$"D"4270b20:CL:"WORD #";Y;:": ";:FI$FT$:MLI:Y$IN$"":Y$""4250L1(Y$):L22L1:(Y$,L2,1)" "Y$(Y$,L21)(Y$,L21)L2(Y$)15Ģ23:"PLEASE KEEP IT SHORTER THAN 15 LETTERS.":20:CL:4250 20:CSCHANGE?"::CL:"(ENTER ";R1;" - ";R2;:") ?";:SKI,3,Y$:Y((Y$)):((YR1YR2)Y0)(Y)Y$4220|Y0Ģ20:CS:420020:CL:"DO YOU WANT TO CHANGE THE WORD OR"22:CL:"THE DEFINITION ('W' OR 'D') ?";:SKI,1,Y$:Y$(Y$,1):Y$"W"Y$"D4(I4)IDR2I:LI14200,20500:AJI:::II1:LI0İ1280GTh20:"DO YOU WANT TO"::CL:"CHANGE ANY OF THESE? ";:SKI,3,Y$:Y$(Y$,1):Y$"Y"Y$"N"4200m20:CSrY$"N"ıwR1((I1)4)41e|20:"WHICH ONE DO YOU WANT TO :20:"ENTRIES: ";DND0Ģ10:"THERE ARE NO WORDS IN THIS LIST.":20500:|5:5:"WORD";:22:"DEFINITION":7:34,6I1D:R1((I1)4)ZV43I12R1:ZV:I100ĺ" ";:I10ĺ" ";I;" ";A$(I);:20:D$(I,0);:20:ZV1:D$(I,1)$@II,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"3600Y$"Y"ė:3510$1480 CHANGE ENTRIES:::" LIST: ";N$; ID1480 DI:1280:14804 DELETE ENTRIES 8:"WHICH WORD DO YOU"::CS:"WANT DELETED? ";:FI$FT$:MLI:W$IN$"":W$""ı CS I1D:A$(I)W$3550 I:15:"'";W$;"' ISN'T IN THE LIST.":3600M I1I:II1D1:A$(I)A$(I1):D$(THE MENU...":D$"RUN HELLO"D1$: GET A CATALOG OF LISTSg :12:"CATALOG OF LISTS":2:34,2:6000p 200 ADD ENTRIES D100ė:6:"THIS LIST CONTAINS 100 WORDS. YOU"::"CANNOT ADD ANY MORE WORDS TO THE LIST.":20500: IND1:340 " 3) CHANGE ENTRIES"1:" 4) GET A LIST"O:" 5) RETURN TO MENU"17:CL:"(ENTER 1 - 5) ?";:SKI,1,Y$:Y((Y$)):Y1Y5(Y)Y$1488:Y3000,3500,4000,4500Y5ī20014800::SADR2İ610205::12:"GETTING ROS":D$:22:CL:N$;" IS NOW DELETED.":20500:200:DET1D`A$(T),D$(T,0),D$(T,1)~T:D$;"CLOSE ";N$".CROS":::"LIST: ";N$;:23:"ENTRIES: ";D:34,4:5"WOULD YOU LIKE TO"::" 1) ADD ENTRIES"::" 2) DELETE ENTRIES"::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 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$;"DELETE0:11:958:U1:12:958:"PLEASE INSERT YOUR DATA DISKETTE.":1240:11:958:q0 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"TIME LIMIT: ";Z:34,4:5:"WOULD YOU LIKE TO"::E10" 1) ADD WORDS"::" 2) DELETE WORDS"::" 3) CHANGE WORDS":" 4) CHANGE TIME LIMIT"::" 5) GET A LISTING":" 6) RETURN TO 'WORD FIND EDIT' MENU"20:CL:"(ENTER ̜ T0951,CARD:952,SLOTœCARD1Ĺ950,CARD:D$"BLOAD COMM CARD ROUTINE"̜D5)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"ֈ*@ SEARCH SLOTS FOR AN INTERFACE VJ CARDS: COMM=1,SERIAL=2,PAR=3,MALIBU=4zTD$"CLOSE"F$:Z5(4),Z7(4),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&(A50,FT:D$"CLOSE"F$vu COMM CARDˆSP:SP10Ĺ802,92:818,82̈D$"BLOAD COMM CARD ROUTINE"M","TEACHER-SUPPLIED WORDS AND CLUES.","A PRINTER IS NEEDED.",""lFILE EDITOR,"ALLOWS THE TEACHER TO CREATE AND EDIT","LISTS OF WORDS AND DEFINITIONS, IF","NEEDED, FOR THE PROGRAMS SPELL, MIXUP,","WORD FIND, CROSSWORD, AND WORD GAME." ENABLES A NEW USER TO HAVE","A 'CONVERSATION' WITH THE APPLE."," ",""WORD GAME,"WORD GAME IS A GAME IN WHICH STUDENTS","TRY TO GUESS TEACHER-DETERMINED WORDS","BASED ON CLUES (MUCH LIKE HANGMAN).",""@CROSSWORD,"CONSTRUCTS A CROSSWORD PUZZLE FROORD LISTS.",""WORD FIND,"MAKES WORD FIND PUZZLES FROM A LIST OF","WORDS SUPPLIED BY THE TEACHER.","A PRINTER IS NEEDED.","" AMAZING,"GENERATES VARIOUS SIZE MAZES, EACH OF","WHICH HAS A UNIQUE SOLUTION.","A PRINTER IS NEEDED.",""F@TALK,"TALK' CHECK FOR COMMANDS ON FILE0'(950)3ıK'F9$"PRINTER COMMANDS"'D$"OPEN"F9$:D$"READ"F9$:ZF$,ZN:I1ZN:ZC$(ZL):I:D$"CLOSE"F9$:ZC$(0)(ZN):M 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(ZB2)&XD2$",S"(SL)",D"(DR)",V"(VO):D1$D2$SA1&b (ZL):ZL:KETTE SWITCH MESSAGEK%R ENTERY POINTS;61020=PROGRAM;61040=DATA DISKETTE%\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 HELPER6&: PROGRACL:23:$@CH(36):CV(37)X$A"";:SKI,(40(36)),ZN$:(ZN$)(((ZN$)))40003u$B(ZN$)0ZN$"0"40006$CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001$FZM:CL:CV1(CV23):ZN(ZN$):$JCV1:36,CH:CL:%H DISPLAY DISZ1:MZ:" ERROR AT LINE #"LN".":6#p LIST OF FILESO#SADR1İ61040:DR2#::Z$"H":5500:SET,2:FCN,".CROS",FC$,NN:I1NN:FC$(I):I#20500: $P24:CL:7:16368,0:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:16384,128:16368,0:1:URE THAT:"::" 1. DISKETTE IS INSERTED PROPERLY":"AND":" 2. THE DRIVE PARAMETERS ARE CORRECT.":20500:EF0:205"ER0ER16EF0:"LZ53856ER"ER255ĺ:"ERROR CTRL-C HIT AT LINE #"LN".":"#:MZ01:PE(LZ):(PE);:MZ(PE127):LZLT A LISTING!!LI1:4000:LI0:6!| VERIFY FILEO!}SADR1İ61040:DR2\!EF1:P0!EFĺD$"VERIFY"Z$".CROS"D2$:P1!! ERROR PROCESSING!ER(222):LN(218)(219)256::D$"CLOSE"v"ER8Ģ18:1:958:"DISK ERROR. PLEASE BE SA$:20:5500:P0Ģ22:1:CS:A$" NOT FOUND.":20500:1:5030FEF1\EFĺD$"DELETE"Z$EFĢ21:1:CS:"DISK ERROR #"ER".":"THIS FILE CANNOT BE DELETED.":20500:503022:1:CS:Z$" DELETED.":20500:1:5030| VERIFY FILEEF1::VO(ZB2)4&ED1$",S"(SL)",D"(DR)",V"(VO)^&IZB956:SL(ZB):DR(ZB1):VO(ZB2)&XD2$",S"(SL)",D"(DR)",V"(VO):D1$D2$SA1&bS2: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$ &DZB953:SL(ZB):DR(ZB1)003 $B(ZN$)0ZN$"0"40006[$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;61040=DATA DISKETTE>%\1:1C#::Z$"H":5500:SET,2:FCN,".WORD",FC$,NN:I1NN:FC$(I):IP#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$:(ZN$)(((ZN$)))40RAMETERS ARE CORRECT.":20500:EF0:100>"ER0ER16EF0:N"LZ53856ER"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!EF1:P0/!EFĺD$"VERIFY"Z$".WORD"D2$:P15!M! ERROR PROCESSING}!ER(222):LN(218)(219)256::D$"CLOSE"'"ER8Ģ18:1:958:"DISK ERROR. PLEASE MAKE SURE THAT:"::" 1. DISKETTE IS INSERTED PROPERLY":"AND":" 2. THE DRIVE PAC(100S1(Y)S(Y).5):39((PC)):PCF Y3::Y2:20500::Y1:Y1t (Y1)12((Y1)12.0001).0001İ20500 ::1180 CATALOG OF LISTS :12:"CATALOG OF LISTS":2:34,2:6000 :100 | VERIFY FILE }SADR1İ61040:DR2 ;: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ĺ:2270' XHL1((S1(Y))):S1(Y);:PTE SOME MORE? ";:SKI,3,E$:E$(E$,1):E$"Y"E$"N"1751LE$"Y"1570V1180:L10:E1L1:Y1100:S(Y)0ĭ((S(Y)))L1L1((S(Y)))L10E11:1062ZH22((L11)2):L11ZH23XHZH7:L11XHZH6@5:24:"TIMES":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:::100D01180;16:CL:"DO YOU WANT TO DELET1D1&W$(I);",";S(I);",";S1(I)RW$(I)W$(I1):S(I)S(I1):S1(I)S1(I1)YIzD$;"CLOSE ";N$".WORD":1750ER4CC0::10:"PLEASE REMOVE THE WRITE-PROTECT"::"STICKER FROM THE EDGE OF THE DISKETTE.":20500::1632CCCC1:28:D;:CL::12^CC0#`EF1AfEFĺD$;"OPEN ";N$".WORD"`hEFĺD$;"WRITE ";N$".WORD"omEF01742}|D;",";T3T11705I1T1W$(I);",";S(I);",";S1(I)ITD11740W$(T)W$(T1):S(T)S(T1):S1(T)S1(T1)IS LIST.":20500:100Q":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@TJ15:(34);E$;(34);" ISN'T IN THIS LIST.":20500:1570TDD1:1:'SKI,2,A$:T3(A$):T31T3301303>T3T3473.0247::NxD1001440:DD1::"ENTER WORDS 1 AT A TIME UP TO 100 WORDS.":"ENTER A 'RETURN' WHEN FINISHED."TD1001000::5:"SORRY, YOU CANNOT ADD ANY MORE WORDS"::"TO THI1 - 5) ? ";:SKI,1,X$:X9(X$)FX9(X9)X91X96(X9)X$1250lX91400,1570,1062,1300,2210,1280~::ED0:1001303:1080:7:"WHAT TIME LIMIT DO YOU WANT WHEN":::"THIS LIST IS USED WITH THE PROGRAM"::"SPELL (1-30 SECS.)? ";aowxkGcx~x@_E>]kw BoBolQqnnqnnqkpD`~sB}AB}_F{xB7x~};wQqnfjlnql@Ogsx~uvgW7Cwv_nFm`_`B_`BYZ[B[_G?pFoB`BxB`_G_`FwBA><:6.>>_}9UmD}A\[D[\BG__BvBvBonmkgooBgklU?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|~eBoBojE>]kwB ~|y{swgoO__@B{yC{`j|JOcy|~k0B?~>]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?tq u@ )` t t t0H)?hJ t t t?Lt t&'&Ȅ``?tt ttt`t)tJJ tttt .t .t ntt)       ZV(ZB2)3ED1$",S"(ZS)",D"(ZD)",V"(ZV)]IZB956:ZS(ZB):ZD(ZB1):ZV(ZB2)XD2$",S"(ZS)",D"(ZD)",V"(ZV):D1$D2$SA1]D1$D2$SA0b: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$ DZB953:ZS(ZB):ZD(ZB1):1040=DATA DISKETTESt1:20:CS:"PLEASE INSERT YOUR ORIGINAL DISKETTE.":20500:~1:20:CS:"PLEASE INSERT YOUR DESTINATION DISKETTE.":20500:H DISPLAY DISKETTE SWITCH MESSAGER ENTERY POINTS;61020=PROGRAM;61040=DATA DISKETTE=\1:12UME BETWEEN 1 AND 254.":20500:101002'VO(A$)8'OPSPACE-BAR ROUTINEP24:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:16368,0:16384,128:16368,0:24:1:CS:1:`DISPLAY DISKETTE SWITCH MESSAGEjENTERY POINTS;61020=PROGRAM;62:12:DR:A$(DR):10090_`'(A$)1(A$)2Ģ21:"PLEASE ENTER EITHER 1 OR 2.":20500:10060lj'DR(A$)t'1:14:" VOLUME: ";:37:3((VO)))VO;:12:SKI,3,A$~'A$""A$(VO):14:12:VO:10130%'(A$)0(A$)254Ģ21:"PLEASE ENTER A VOL:CS:" SLOT: ";:39:SL;:12:SKI,1,IN$:A$IN$Y.'A$""Ģ10:12:SL:A$(SL):100508'(A$)1(A$)7Ģ21:"PLEASE ENTER A SLOT BETWEEN 1 AND 7.":20500:10020B'SL(A$)L'1:12:CS:" DRIVE: ";:39:DR;:12:SKI,1,IN$:A$IN$V'A$""Ģ1100ER0ER16EF0:*LZ53856ER]ER255ĺ:"ERROR CTRL-C HIT AT LINE #"LN"."::MZ01:PE(LZ):(PE);:MZ(PE127):LZLZ1:MZ:" ERROR AT LINE #"LN".":'GET DRIVE INPUTS'FI$"11 $#2 1"'CS:8:32:"DEFAULTS"2$'1:10P0 EFĺD$"VERIFY"Z$D2$:P1&? ERROR PROCESSINGoER(222):LN(218)(219)256::D$"CLOSE"ER8EF0:18:1:CS:"PLEASE MAKE SURE THAT:"::" 1. THE DATA DISK IS IN THE DRIVE.":"AND":" 2. THE DRIVE DOOR IS CLOSED.":20500:Lo?}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}@=;770B7j{{B`B_`{wo__ A>?_g{}~~B}~}}=>BA};WDoq~>BA~q{yzD{@IB{ @}"qHpnpqan`{q@w@qAqA`}@O? AwsBo@@@w@n%Aw_Bo@p @qA?@x@g@O@|CO@@_@~A{~A hhߚHH` L8Hmx 6*+(n*+c*ȩ*h`HHhH,b (hHI  X   h`l   $ * `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ʈ    003f<ffcc>cc>>cc>~p` ffffffffff~l6iɆpq{ 0 00000 0 0Z<`~~6    4'5'.7-$4?>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!#??   Ůʠ ؠ Ϡ  ŠҠ̮ʠ ̮ʠ! ҠӮΠ ŠԠ Ӯʠ!̮ʠ"ŠӠԠŮԠ̮ʠ Ġ ĠŠĠԠ!ԮΠԮʠϠĠĠԠ ٠ŠҠԠǠˠ̠ĠĠ'Р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 NUMBER620 530&.J1V'0"I";2:I1HFDV%(I,J)21890RN" ";\X1900hb" I";olIuvI1HV%(I,J)01970V%(I,J)21970": ";1980":--";I": "J::POFFFACE255İJ990TQ11720$^W%(R,S1)C/hCC1CrV%(R,S)01680R|V%(R,S)3\1690kV%(R,S)1vSS1CHV11830630Z1V%(R,S)01770V%(R,S)3Q01820V%(R,S)1Q0R1S1CHV11830Q0#6304W%(R,S1)C?CC1PV%(R,S1)1[SS1mCHV11830vQ0630W%(R1,S)CCC1V%(R,S)01570V%(R,S)31580"V%(R,S)2,RR16CHV11830@Q0W%(R,S1)01290)X((1)21):X1520,1620D 1520SSV1340aZ11370j(Q1t21350<W%(R,S1)01370F1620P BLOCKED Z1820dW%(R1,S)CnCC1xV%(R1,S)2RR1X1450,1520,1620$LX((1)21)5VX1450,1520D`SV1160RjZ11190[tQ1e~1170|W%(R,S1)01190X((1)21)X1450,16201450RH1300W%(R1,S)01300SV1260Z11290Q11270Q1960'W%(R,S1)0980:X((1)21)KX1380,1620U1380eS101200|W%(R,S1)01200RH1120W%(R1,S)01120SV1070Z11100Q1$1080.W%(R,S1)011008X((1)31)B380,1450,1620  X((1)21)1X1380,1450> RH910T*W%(R1,S)0910b4SV860o>Z1890xHQ1R870\W%(R,S1)0890fX((1)31)pX1380,1520,1620zX((1)21)X1380,1520SV950Z1980(R,S)0530vR109900W%(R1,S)0990?S10800UW%(R,S1)0800bRH710xW%(R1,S)0710X((1)31)X1380,1450,1520SV750Z1780Q1760W%(R,S1)0780X((1)31) X1 X((1)H1) I1H* IX4406 ":--";? 450K ": ";R I[ ":"d C1s W%(X,1)C~ CC1 RX S1 630 RH610 SV580 &R1 0S1 :620 DR1 NSS1 X620 bRR1 lW%Y ANYTHING SMALLER THAN"::"3 BY 3.":6:868:220< "220J ,H23330X 6V25330a @350 J8:"I CAN'T MAKE ONE BIGGER THAN 23 BY 25." T6:868:220 ^:10:"PLEASE PREPARE YOUR PRINTER.":35000: bPACT::: h rQ0 |Z0 NUMBER"::"OF SQUARES LONG. THE BIGGEST MAZE"U :"YOU CAN CHOOSE IS 23 BY 25."b 35000: 4:"WHAT IS THE WIDTH?";:868:40000:HZN 6:"WHAT IS THE LENGTH?";:958:40000:VZN H3270 V3270 3003 "I WILL NOT TR OR NO, PLEASE.":(37)2:868:151 :6:"THIS PROGRAM WILL PRINT OUT A DIFFERENT ":"MAZE EVERY TIME IT IS RUN AND GUARANTEES"0 "ONLY ONE PATH THROUGH. YOU CAN CHOOSE"::"THE DIMENSIONS OF THE MAZE, I.E. THE"::"NUMBER OF SQUARES WIDE AND THE(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"ĺ:"YESH PROGRAM: AMAZING8 LAST UPDATE: 83/09/02 CPEU 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"III: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 A71253n 7:CEW:"How many sisters" "do you have?" 8:14:CEL:SKI,2,ZA$:A9(ZA$) A90ZA$"0"İ40000:270 A91270 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/09/01 CPEPd 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$          LESBZ$"H":5500:SET,2:FCN,".WORD",FC$,NN:I1NN:FC$(I):IO35000:21:CEL:16368,0:7:"Press SPACE BAR to continue";:16384,128:16368,0:1:CEL: END OF PROGRAMCL$10:"Do you want to try again? "10:27:CEW: ERROR PROCESSINGBER(222):LN(218)(219)256::D$"CLOSE"YER0ER16EF0:iLZ53856ERER255ĺ:"ERROR CTRL-C HIT AT LINE #"LN"."::MZ01:PE(LZ):(PE);:MZ(PE127):LZLZ1:MZ:" ERROR AT LINE #"LN".":p LIST OF FI5:"Something unusual is happening."::"Error ";ER;" in ";(218)(219)256;".":216,0:p CATALOG OF LISTS CL$:12:"Catalog of lists":2:5600 6000:CL$:| VERIFY FILEEF1:P0EFĺD$"VERIFY"Z$".WORD"D2$:P1 The disk is inserted properly":" AND":" 2. The drive parameters are correct.":35000:1020uER62050"'";N$;"' is not on this diskette.":35000:216,0:2500:1020ER112070 "That is not a list name":35000:1020YCL$:$(T),S%(T),S1%(T)LL2(W$(T)):LQL211:(W$(T),LQ,1)" "L2LQ:LQ1iLQ:W$(T)(W$(T),L2):Ty$D$;"CLOSE".216,0: HANDLE FILE ERROR13:1:CEW:ER(222):27000:ER82030e"Disk error. Please make sure that:"::" 1.FQF0:1020"CL$:SAMEİ61200CL$:9:"What is the name of the word list you"::"want to be tested on? ";:SKI,15,N$:N$""QF1:10702000D$;"VERIFY";N$;".WORD";D2$D$;"OPEN";N$;".WORD":D$;"READ";N$;".WORD":D,Z1T1D:W"First try......";R:11:16:"Second try.....";R2;" *";D35000P1:1:kD$"OPEN "N$".WORD"D2$D$"WRITE "N$".WORD"D;",";Z1T1DW$(T);",";S%(T);",";S1%(T) TD$"CLOSE "N$ 43000 ASK FOR DATA FILE Q6(T16.01)TDİ35000:CL$,T:35000VCL$:4:"Here's your score, ";S$;":"G71811:8:G:"***********************":8:G817:" * *":G:11:9:"Number tried...";Y910:12:"Number correct":11:14:L$(L))(S$)3)2:L$(L);", ";S$;"!":PF$:35000:AF$ET91RR1WT92R2R21^VuPF$;CL$:X10650:"Here are the words you had trouble with.";34,4:T1X1:R1((T1)8.01):R12(R12)Ė2032T16R1F$(T):T1" ",15)' ^G$W$(G)400V _T91S1%(G)S1%(G)1:X1X11:F$(X1)W$(G) `T91Ģ9:CEW:7:"No try again.":341 h9:CEW:9:" No, it is spelled"::14L12:"'";W$(G);"'":PF$:35000:AF$ 4105L((1)6)1:9:CEW:14(((G)1:2:10:"WORD #";(V)+ .L1(W$(G))B 14:14L12:W$(G)T 6S%(G)S%(G)1c @U1Z1:U J4:4:" Spell it now " OT90 T6:7:"-->" U6:11:CEL:SKI,15,G$ YG$""341 [T9T91:G$(G$" ",15):W$(G)(W$(G)" words on this list."::"How many problems do you want? ";: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%"S P E L L I N G"PF$:V <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$n 9:"There are ";D;2000: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 on,Excellent 2DFT,1,28672:AFT,1:AF$;CL$:2:6:}  SPELL( COPYRIGHT 1980 MECCH LAST UPDATE: 83/09/07 CPEZ 38144:34000w :::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":z 6     R57M5"DO YOU WANT THE WORDS PRINTED IN A LIST"::"AT THE END? ";:868aL6"";:SKI,3,Z1$6(Z1$,1,1)"Y"(Z1$,1,1)"N"13650612%6"WHAT SIZE DO YOU WANT THE PUZZLE TO BE?"::"(BETWEEN ";L13;" AND 32) ? ";:868:SKI,2,ZN$:P(ZN$)DS: ";A-34,3.JK1A6".R1((JK1)8.001)H,.32JKR116_1.R12(R12)Ė20k6.W$(JK)q@.T.JK16(JK16)(JKA)İ23000:h.JKr.23000w.44:"WHAT HEADING DO YOU"::"WANT ON THE PUZZLE? ";:SKI,39(36),H$"THE NAME OF THE LIST IS '";B$;"'."/+20500?$,A6013450EV,,6:"DO YOU WISH TO SEE A LISTING OF THE"::"WORDS IN THE FILE";:868,"? ";:SKI,3,C$:C$(C$,1):C$"Y"C$"N"11400P-(C$,1)"N"13450-::"LIST: ";B$;:25:"WOR FILE.":23000::89001*D$;"WRITE ";B$".WORD"G*A;",";5473.0247S*JK1Ak*W$(JK);",";0;",";0q+\+D$;"CLOSE ";B$".WORD"+::"THE WORD LIST YOU HAVE JUST CREATED"::"CAN BE USED FOR 'WORD FIND', 'SPELL',"::"OR 'MIXUP'."$+::(37)21Ģ6:958:h)JK2)AJK1:A043000C0*G6111300]v*D$;"OPEN ";B$".WORD"h*10900r*:17*54000:Pĺ"PLEASE REMOVE THE WRITE-PROTECT"::"STICKER FROM THE EDGE OF THE DISKETTE.":23000:10870*"I AM UNABLE TO USE USE THIS0<(JK1100<(JK;:" ? ";:FI$FW$:MLI:W$(JK)IN$""Q(W$(JK)""10700^(CV(37)(K1(W$(JK)):T((W$(JK),K,1)):T65T90Ģ22:"PLEASE ENTER ONLY A-Z.":20500:CV:1:CL:10400((958()(W$(JK))L1L1(W$(JK))6)T"::"STICKER FROM THE EDGE OF THE DISKETTE.":23000:17:958:9320$Z$B$:55000:PĢ17:"SORRY, THAT NAME IS ALREADY IN USE.":23000:8850t'G61':'"TYPE IN YOUR WORDS ONE PER LINE."::"WHEN YOU'RE DONE, PRESS ." (:(L1WORDS SAVED IN"::"A FILE";:868X(#"? ";:SKI,3,C$:C$(C$,1):C$"Y"C$"N"8900p*#958:C$"N"10150T$9:958:"WHAT DO YOU WANT TO CALL THE FILE? ";:FI$FT$:MLI:B$IN$""^$B$""9300Eh$54000:PĢ17:"PLEASE REMOVE THE WRITE-PROTECIAGONALLY, OR":fh" 4) WORDS HORIZONTALLY, VERTICALLY,"::" DIAGONALLY AND IN INVERTED ORDER"r19:"(ENTER 1, 2, 3, OR 4) ";:868:SKI,1,ZN$:A5(ZN$):A51A54(A5)ZN$A5(A5)8050`"A011300"""4:"DO YOU WANT THE LIST OF  :(W$(JK))L1L1(W$(JK))& <JKA PD$;"CLOSE ";B$".WORD"J dA61t @:4:"HOW DO YOU WANT THE PUZZLE?": J" 1) WORDS HORIZONTALLY,": T" 2) WORDS HORIZONTALLY AND VERTICALLY,":^" 3) WORDS HORIZONTALLY, VERTICALLY AND"::" DPĢ21:868:B$" ISN'T ON THIS DISK.":23000:51000::5850W D$;"OPEN ";B$".WORD"q D$;"READ ";B$".WORD" )958:A,Z ,L10 -JK1A 2W$(JK),S,S1 4L2(W$(JK)):LQL211:(W$(JK),LQ,1)" "L2LQ:LQ1 7LQ:W$(JK)(W$(JK),L2) TO USE A WORD LIST THAT'S"m 4:868:"ALREADY ON THE DISK? ";:SKI,3,B$:B$(B$,1):B$"Y"B$"N"5910u CS B$"N"8000 j7:868:"WHAT IS THE NAME OF THE LIST? ";:FI$FT$:MLI:N$IN$"":N$""ė:51000:5850 Z$N$:B$N$:55000= & ^#<> ? ;" ZM23: / ::2:10:"W O R D F I N D"B > :q "THIS PROGRAM WILL CREATE A WORD PUZZLE."y : P"YOU NEED TO HAVE A PRINTER ATTACHED"::"TO YOUR APPLE TO USE THIS PROGRAM." 20500 A0:G0 ::2 "DO YOU WANT8 D$;"NOMON I,O,C":255:= D$"BLOAD ONERRFIX,A27000"M D$;"CLOSE"l B(35),C(35),R(35),W$(100)z A(32,32) Y$(100),FC$(50) FT$"11 2#1 1":FW$"11 2#4AZ1":IN$""  UI$"ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789+-*/()$= ,. ]:'$WORD FIND0 LAST UPDATE: 83/08/23 CPE6J (C) MECC, 1979qAUTHOR: L. BORRY, MECC AND OTHERS(ASSOCIATED PROGRAMS AND FILES: FILES ARE USER DEFINEDd20300:D$(13)(4):DR1:CL868:CS958:56000n62000 xCL868:CS95               :"SPACE BAR";::" TO CONTINUE";:16384,128:16368,0:1:868:X@CH(36):CV(37)A"";ZN$:(ZN$)(((ZN$)))40003B(ZN$)0ZN$"0"40006CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001FZM:868:CV1(CV23):ZN(ZN$):"ERROR CTRL-C HIT AT LINE #"LN".":v: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:B24:868:7:16368,0:"PRESS ";::12:"CATALOG OF LISTS":2:224022300::I VERIFY FILEVEF1:P0zEFĺD$"VERIFY"Z$".WORD"D2$:P1 ERROR PROCESSINGER(222):LN(218)(219)256::D$"CLOSE"ER0ER16EF0:LZ53856ER$ER255ĺ:140FR"'";N$;"' IS NOT ON THIS DISKETTE.":35000:216,0:2170:2020W\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 LISTS$D$;"CLOSE" 216,0:2* HANDLE FILE ERROR`413: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:2020HER6261200q:9:"WHAT IS THE NAME OF THE WORD LIST YOU"::"WANT TO BE TESTED ON? ";:SKI,15,N$:N$""QF1:2080|2090D$;"VERIFY";N$;".WORD";D2$D$;"OPEN";N$;".WORD":D$;"READ";N$;".WORD":K1,Z1 T1K1:W$(T),S%(T),S1%(T):T:TT1 ::5:10:"HERE'S YOUR SCORE:"VG8146:8:G:"*************************":G913:G:8:"*";23)"*":G:11:10:"NUMBER TRIED.....";Y111:12:"NUMBER CORRECT...";C235000::43000 ASK FOR DATA FILE:SAMEJDJD1:SS.":630"ZV1:7:"ERRORS:";- K1L>X$(G$,K,1)P X$Y$(K)820`*14K:"^";i4K:wp24:868~zD21:"THE WORD IS '";W$(M);"'.":35000X:97021:"THAT'S RIGHT!":"THE WORD IS '";W$(M);"'.":35000:C2C21:950#E ";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 PRINTb PROGRAM: MIXUP6 LAST UPDATE: 83/09/07 CPER2 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$     %(A(Z1,1)Z2,A(Z1,2)Z5)A(Z,Z5Z35);A(Z,1)A(Z1,1)Z2QA(Z,2)A(Z1,2)Z3YZ5q (A(Z1,0)1)01320~A(Z,0)11330(A(Z,0)221370<Z3FZ2PZ1ZZdT1nZ0N1:A(Z,0)0HH1xZH01550H10)~C%(A(Z1,1)Z2,A(Z1,2)Z31)01340VC%(A(Z1,1)Z2,A(Z1,2)A(Z,3)Z3)01340^Z4vZ5Z3A(Z,3)1Z3Z501280A(Z1,0)21250C%(A(Z1,1)Z5,A(Z1,2)Z2)A(Z,Z5Z35)A(Z,1)A(Z1,1)Z3A(Z,2)A(Z1,2)Z21280%C1340,8C%(A(Z1,1)Z4,A(Z1,2)Z21)01340TBC%(A(Z1,1)Z31,A(Z1,2)Z2)01340LC%(A(Z1,1)A(Z,3)Z3,A(Z1,2)Z2)01340V1170`C%(A(Z1,1)Z21,A(Z1,2)Z4)01340jC%(A(Z1,1)Z2,A(Z1,2)Z4)01340tC%(A(Z1,1)Z21,A(Z1,2)Z4)0134Z20A(Z1,3)1!Z30A(Z,3)1AA(Z,Z35)A(Z1,Z25)1340{A(Z1,A(Z1,0))Z32A(Z1,A(Z1,0))A(Z,3)1Z3341340Z4Z3A(Z,3)Z31Z401170A(Z1,0)21120$C%(A(Z1,1)Z4,A(Z1,2)Z21)01340.C%(A(Z1,1)Z4,A(Z1,2)Z2)0ZZ1\(FI)NZ1Bf:(FI)ė:12:"ONE MOMENT PLEASE...":PpN03000dzZ0A(T1,3)1C%(17,13Z)A(T1,Z5)ZA(T1,0)1A(T1,1)17A(T1,2)13ZT1N1A(Z,0)01370Z10N1A(Z1,0)01360$(Z,DD))B$(Z,DD)""DD0Ģ8:CS:640p(B$(Z,DD))20Ģ14:"MAXIMUM LENGTH IS 20 LETTERS PER LINE.":720xDDA(Z,3)(A$(Z)) Z11(A$(Z))C8$(A$(Z),Z1,1) P9063*C9$(P9)C8$8304P9>A(Z,Z14)P9HZ1RZ:: ";:SKI,15,A$(Z):A$(Z)""ZZ1:860uL1(A$(Z)):L22L1:(A$(Z),L2,1)" "A$(Z)(A$(Z),L21)(A$(Z),L21)}L2CS8:"CLUE"DD0110DD:CL:4:DD0ĺ"FIRST LINE: ";:SKI,20,B$(Z,DD):740"SECOND LINE: ";:SKI,20,B(X,0):B$(X,0)T$:T$B$(R,1):B$(R,1)B$(X,1):B$(X,1)T$:f0KND1:A$(K)"":B$(K,0)"":B$(K,1)"":zDT1:ST:FT:R0ND0X(FI)NTZ:2:"PRESS WHEN YOU'RE DONE.":5:34,4bZ0N1l(FI)770v'5:CS:"WORD #";Z1;:" WANT IN THE PUZZLE?",MAXD:D60MAX60t10:CS:"(1 - ";MAX;:") ?";:SKI,2,IN$:N((IN$)):N1NMAX530::12:"ONE MOMENT PLEASE...":ND5808&D1D:X0N1:R((1)(DX)):RDR1:T$A$(R):A$(R)A$(X):A$(X)T$:T$B$(R,0):B$(R,0)B$;"OPEN ";N$".CROS"D2$:D$;"READ ";N$".CROS"3 P$: Dw DTZĺ"I CAN ONLY USE ";TZ;" WORDS FROM THE LIST.":DTZ T0D1:A$(T),B$(T,0),B$(T,1): D$:D$;"CLOSE ";N$".CROS":6:"THERE ARE ";D;" WORDS IN THIS LIST; HOW"::"MANY DO YOU"N"370 |Y$"N"FI0::580( FI1j :5:"WHAT'S THE NAME OF THE LIST? ";:SKI,15,N$:N$""3000 SADR1İ61040:DR2 Z$N$:5500:P0Ģ17:CS:N$" IS NOT ON THIS DISKETTE.":20500::12:"CATALOG OF LISTS":2:34,2:6000:::370+ D$EACH CLUE CAN HAVE 2 LINES,": @:"20 LETTERS PER LINE."q J::"MAKE SURE YOUR PRINTER IS HOOKED UP.":20500 TA$(59),B$(59,1),A(59,19),C%(35,35) r5600:8:CS:"IS YOUR WORD LIST"::"ALREADY ON THIS DISK? ";:SKI,3,Y$:Y$(Y$,1):Y$"Y"Y$(63) FC$(50) P9063+ C9$(P9)3 P9? QK340b "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" 6:"ONE PUZZLE; EACH WORD CAN HAVE UP TO"::"15 LETTERS; "E","F"= "G","H","I","J","K","L","M","N","O","P","Q","R"s "S","T","U","V","W","X","Y","Z",")","-","+","<" "=",">","&","$","*","(","%",AT","?","!",",","AT" "0","1","2","3","4","5","6","7","8","9","",";" "/",".","AT","AT" C9$dPROGRAM: CROSSWORD6iCOPYRIGHT (C) MECC 1979TnLAST UPDATE:83/09/07 CPEds62000:DR1w}D$(4):5600TZ60:CL868:CS958255:D$(13)(4):ZM24:(4);"NOMON C,I,O": "AT","[","]","#","AT"," ","A","B","C","D",          'EF1:P0-'EFĺD$"VERIFY"Z$".CROS"D2$:P13'M( ERROR PROCESSING} (ER(222):LN(218)(219)256::D$"CLOSE"(ER0ER16EF0:(LZ53856ER((ER255ĺ:"ERROR CTRL-C HIT AT LINE #"LN".":)2(:MZ01:PE(LZ):(PE);:MZ(PE1211101606'"THAT IS NOT A LIST NAME":1240:10020':5:"SOMETHING UNUSUAL IS HAPPENING."::"ERROR ";ER;" IN ";(218)(219)256;".":216,0' CATALOG OF LISTS':12:"CATALOG OF LISTS":2:10240'10300::' VERIFY FILE 0: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:10020 'ERI,15,N$:N$""QF1:10080&.'10090F8'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:ER(222):2700******************":W'G913:G:8:"*";23)"*":G:11:10:"NUMBER TRIED.....";Y1}'11:12:"NUMBER CORRECT...";C2:' ASK FOR DATA FILE':SAMEQGİ61200$':9:"WHAT IS THE NAME OF THE WORD LIST YOU"::"WANT TO BE TESTED ON? ";:SK(N$,1,1)"Y"QG1:304(N$,1,1)"N"2060GSA1ė:61100:11:"GETTING THE MENU PROGRAM...":D$;"RUN HELLO"D1$ 13:"PLEASE TYPE YES OR NO.":2002@L21N:L2:&::5:10:"HERE'S YOUR SCORE:"&G8146:8:G:"*******A GUESSES."j1240:C2C21't1170AL1:9970:1240:200024: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$ - REMOVE CHOSEN LETTERS FROM ALPHABET LIST7N126O(V$,N,1)B$1070vV$(V$,1,N1)" "(V$,N1,(V$))$1080.N8P1L:(C$,P,1)"-"1090:750BPLRGLDV12:7:A$(W):18 `"YOU GOT IT RIGHT WITH ";R;" EXTR26:(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$m 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$960Y1680% M5(W)1:G0:D0:YY1:CC0Q V$"ABCDEFGHIJKLMNOPQRSTUVWXYZ":Y1Y11Z :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 *C$1240: &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)0710 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),D$(100,1),M5(100):D$(13)(4):D$;"NOMON I,O,C"Z 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 WHATo PROGRAM: WORD GAME: LAST UPDATE: 83/09/07 CPEi COPYRIGHT MECC 1979 WORDGAME 8/8/79  AUTHOR: KENT KEHRBERG/MECC  ASSOCIATED PROGRAMS AND FILES: ONE USER-DEFINED FILE  20300255::::ZM24:62000FC$(50):          "THE PROGRAM CANNOT WRITE TO THIS FILE.":ER0:20500:200I_20500:200Qd15ZeEF1tlD$;"OPEN ";N$".CROS"nD$;"READ ";N$".CROS"xONERR GOTO 1370P$CZ1CZ2:D$:P$"CROSS/WORDGAME"20303Y3Y0:D$;"DELETE ";N$".CTER4CC0:20:CS:"PLEASE REMOVE THE WRITE-PROTECT STICKER"::"FROM THE EDGE OF THE DISKETTE.":20500:ER0:1285V20:CS:CCCC1:CC1ĺ"PLEASE MAKE SURE THE DISKETTE"::"IS IN PLACE AND THE DRIVE DOOR CLOSED.":20500:ER0:12859XCC0::12:ERR GOTO 136215EF19D$;"OPEN ";N$".CROS"X EFĺD$;"WRITE ";N$".CROS"g EF01364}"CROSS/WORDGAME"D(T1D2(34)A$(T);(34)","(34);D$(T,0);(34)",";(34)D$(T,1)(34)<TFD$;"CLOSE ";N$"".CROS"PCC0:v::"ANYONE USING THIS LIST ON"::"CROSSWORD MUST KNOW THE NAME."S20500:200d1260::230216,0:D$:CZ1Ģ22:CL:"SORRY, '";N$;"' IS NOT ON THIS DISK."10:D$;"CLOSE ";N$".CROS":D$;"DELETE ";N$".CROS":CC0POKE 216,0: ONI,DD)IN$"":450G" SECOND LINE: ";:FI$FD$:MLI:D$(I,DD)IN$""aD$(I,DD)""DD0370iDDxI:I100::I0200DI:4000:1:"THE LIST YOU HAVE JUST CREATED CAN BE"::"USED ON CROSSWORD."::"LIST NAME: ";N$:C#";I;:": ";:FI$FT$:MLI:A$(I)IN$""tL1(A$(I)):L22L1:(A$(I),L2,1)" "A$(I)(A$(I),L21)(A$(I),L21)|L2A$(I)""II1:CS15:"DEFINITION":DD0117DD:80):17DDDD0ĺ" FIRST LINE: ";:FI$FD$:MLI:D$(ND LINE."(P20500::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:CS&|12:CL:" WORD 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 FOR"::"THE SECO18:1:CS330B:Z$EC$(Y1)" A LIST":20(Z$)2:Z$8:CS:"WHAT IS THE NAME OF THE LIST? ";:FI$FT$:MLI:N$IN$"":N$""200Z$N$:5500:P0Ģ21:CS:N$" IS NOT ON THIS DISKETTE":20500:200CS"ED1:1380J:5L"0,270,2500,1840* :13:"CREATE A LIST" 8:"WHAT DO YOU WANT"::CS:"TO CALL THIS LIST? ";:FI$FT$:MLI:N$IN$"":N$""200 P((N$,1)):P47P58230 CZ1:Z$N$:5500:P1Ģ20:CL:N$" IS ALREADY ON THIS DISKETTE.":20500:200 CZ0LIST"" :" 3) DELETE A LIST"H :" 4) GET A CATALOG OF LISTS"k :" 5) RETURN TO MAIN MENU" 18:CL:"WHAT IS YOUR CHOICE (1-5)? ";:SKI,1,Y$:Y((Y$)):Y1Y5(Y)Y$210 Y13 Y2Y10 Y3Y11 CZ0: Y225,27"THIS PROGRAM WILL ALLOW YOU TO MAKE"U s:"CORRECTIONS OR ADDITIONS TO THE LIST,"} t:"OR TO DELETE AN UNWANTED LIST." x20500 D$"CLOSE" :1:958:14:"CROSSWORD EDIT":5:"YOU MAY:"::" 1) CREATE A LIST" :" 2) EDIT A 0Z1":FD$"11 7#1 1":IN$""> d:14:"CROSSWORD EDIT":34,2 i5:"THIS PROGRAM WILL ALLOW YOU TO CREATE"::"A LIST OF WORDS AND SHORT DEFINITIONS"::"TO BE USED IN 'CROSSWORD' AND 'WORD"::"GAME'."& n::"IF YOU HAVE ALREADY CREATED A LIST,"::  20300$ 255:::ZM24e A$(100),D$(100,1),FC$(60):D$(13)(4):D$;"NOMON I,O,C": 62000:DR1:5600: GET DRIVE STRINGS AND CHECK PRINTER CONFIGURATION EC$(1) (EC$(0)"EDIT":EC$(1)"DELETE":CS958:CL868 2FT$"11 2#3 PROGRAM: CROSSWORD EDIT? LAST UPDATE: 83/09/01 CPE\COPYRIGHT (C) MECC 1980AUTHOR: KENT KEHRBERG/MECC 8/8/79ASSOCIATED PROGRAM AND FILES: ONE USER-DEFINED FILE  RE-WRITTEN AND SEPARATED FROM CROSSWORD JAN. 1980         " 2. WORD GAME OR CROSSWORD"W 19:"WHICH NUMBER? ";:SKI,1,A$:A$"1"A$"2"160 N$"WORD FIND EDIT":A$"1"N$"CROSSWORD EDIT" ::12:"ONE MOMENT PLEASE..." D$;"RUN";N$:0d FILE EDITOR*n AUTHOR: TIM HEAPHxLAST UPDATE:83/08/15 CPE] (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" ::  LmC& x)I+JJJJ  XI L.,lՠԠԠӠˮŠԠŠ͠ˍĠӠٮ~DI O]D P PvD P3 jD3ɃLIɍ~DɍII N N L z#  &LP`L 䎱 掲`FCSEPDR P`PPP) QP`P PmPmP  {`L { P^ 'R`@ ߩ ie`  cQi#ڪLDQP sP`PPiPJɠP'R6P0P)PPPP) QP`P PmPmP  {`L { P^ 'R`@ ߩ ie` H <=nPI<mP?P O % OLԢ LOfLwOOOwOLRɯdQ 8ɀ   Lޥ8e湥 RHRH L`OOL mPnPoP <= <ȭ<ȭ<ȭmP<ȭoP<><ȥ?< <<= pxxxxxxpx0H@@@@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     RAMS# 00,ELEMENTARY,VOLUME 2,8LSPELL,"SPELL 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 Wp900::%SPACE-BAR ROUTINE:24:7:16368,0l"PRESS ";::"SPACE BAR";::" TO CONTINUE";Z01:ZC(16384):Z(ZC141)(ZC160):Z16368,0:1:868:23:: FIRST LINE OF DATA:DISKETTE #,NAME LINE 1,NAME LINE 2,# OF PROG5112":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-0638":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 CENTER":13:"3490 LEXINGTON AVENUE NORTH":13:"ST. PAUL, MN 5:DN$:11:"PROGRAM DESCRIPTIONS":34,4:HI1N:(37)21DLİ900:X MN$(I)" -"J1DL:DE$(I,J)""DE$(I,J)" "ĺ" "DE$(I,J) J::I:900*:4SUPPORT BOOK INFO>IP$"":IS$"YES"IP$"INSTRUCTIONAL "OH4:17(IP$""):"TION-:11:8:"INSERT THE NEW DISKETTE."8900:[CS(P(P(999))1)16:SLOT #oCS1CS7CS6yCS:DISPLAY LOGOJ1300:(16384)128J300J:16368,0:1023,DN:16303,0DESCRIPTIONS )::21(DN$)22450GET THE PROGRAM<::12:"GETTING "MN$(A)"..."SCNĺD$"RUN"CN$(A)fD$"RUN"MN$(A)}&NOT ENOUGH MEMORY010:"SORRY, THIS APPLE DOES NOT HAVE ENOUGH ":"MEMORY TO RUN THIS DISKETTE."::"(48K IS NEEDED.)"D900XEND OP958:VV2:6F35:"PLEASE TYPE A NUMBER FROM 1 TO "N2PD".";:IN0chIN:PRAN1ĺD$"RUN"X1$jDRAN1PRĺD$"RUN"X2$lAN2PDİ600rAN1PDİ750:MENU0|MENUSEED RANDOM # GENERATOR & CLEAR HGRX(P(78))230,32:6='(64435)6Ģ20:"MAKE SURE THE 'CAPS LOCK' KEY IS DOWN."[,RESPOND TO USER'S CHOICEw6VVVV7PD:VV22VV22@IN11:VV:6F35:"WHICH NUMBER? ";:SKI,2,A$TCAA$(1)ĺD$"RUN TEACHER OPTIONS"E^A((A$)):A1AN2PD(A)A$ĢVV: VV:6F35:"OTHER OPTIONS:"Y 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):N2PD". END"78)157İ550 DISPLAY MENUJ MENU11:1(D2$""):21(DN$)2:DN$c 2:21(D2$)2:D2$ 5F5:6F35:"PROGRAM"SP$":" VV7F5:HH9F38 I1N:VV:HH(I10):I". "MN$(I) VVVV1:F3IC2VV7F5:HH21 I:VVVV2F2F3F6 58,T:FL1 v955,T:FL1D wFL1ĺD$"BSAVE DRIVE OPTIONS,A953,L6"y xC2((N1)2):F2C2(N1)2:ODD # OF MENU ITEMS PDPRDR:F3N7PD:TWO COLUMNS F5N142PD:F6N182PD:FULL SCREEN (LIMIT VARIES 16-20) (1023)DNİ700 K48(9 dJ1DL:DE$(I,J):J:I5 nP(I)(I)(I1)256B oDR120_ 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)(958)Ĺ955,T:9DNĹ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) ZCNćCN$(I) HELLOVERSION 4.6= LAST UPDATE: 83/08/23 CPEP(C) MECC 1982Vk INITIALIZATIONS}20300:16384DL4:CN0:CA0:PR1:DR1:K481:IS1D$(13)(4):D$"NOMON CIO"(:::255:0:1:D$"PR#0":D$"IN#0"9 2DN:(1023)             $".WORD"pX11ĺ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.00001)1::" LIST: ";N$;:20:"WORDS: ";D:3:10:ATED A LIST OF WORDS"::"THAT CAN BE USED WITH WORD FIND."n::"THE NAME OF THE LIST IS ";(34);N$;(34)::"YOU NEED TO KNOW THE NAME OF THE LIST"::"TO USE IT IN 'WORD FIND'."20500::10015D$;"OPEN ";N$".WORD":D$;"READ ";N10: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:::100E10:ED1ė:1180;2:"YOU HAVE JUST CRETE ";N$".WORD"CEF01142+VD;",";T36`I1DTjW$(I);",";S(I);",";S1(I)xtI:D$;"CLOSE ";N$".WORD":1151~vwER4CC0::10:"PLEASE REMOVE THE WRITE-PROTECT"::"STICKER FROM THE EDGE OF THE DISKETTE.":20500::1081zCCCC1::21:CS:"CHANGE ";W$(I);" TO? ";:FI$FW$:MLI:Y$IN$"":Y$""1076u5W$(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$;"WRI"Y"Y$"N"1070 /Y$"N"ė:u021: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$10723I01070C4(R12)Ė204)32T16R1:T100ĺ" ";:T10ĺ" ";o*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$5 LETTERS PLEASE.";:1010,W$(T)""10603TH$DT1::D0880W%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):R129:5:70):13:1:40)<5:1:"WORD #";T;" ";:CLa"? ";:FI$FW$:MLI:W$(T)IN$""|LL(W$(T)):LL21020K92LL:(W$(T),K9,1)" "W$(T)(W$(T),K91)(W$(T),K91)(W$(T))15ČCS:104020:" KEEP THE WORDS TO 1N$""100` CR1:Z$N$:5500:P1Ģ20:CS:N$" IS ALREADY ON":"THIS DISKETTE.":20500::100o ED0:CREDw Z0 Z31ČCS:ED1980,1080 1303 T1100:"ENTER WORDS 1 AT A TIME UP TO 100 WORDS.":"ENTER A 'RETURN' WHEN FINISHED."HAT IS 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$"":1,Y$:Y1(Y$):Y11Y15Y1(Y1)(Y1)Y$890A {:X10:EDX1P |Y13X11i }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$A 5:CL:"W:11 q" 1) CREATE A NEW WORD LIST"::" 2) EDIT AN EXISTING LIST "::" 3) DELETE AN EXISTING LIST"::" 4) SEE A DIRECTORY OF WORD LISTS"::" 5) RETURN TO MAIN MENU" tCR0 uD$;"CLOSE"0 z22:CL:"WHAT IS YOUR CHOICE (1-5)? ";:SKI,FC$(60),S(101),S1(101):D$(13)(4):D$;"NOMON I,O,C"` ED$(1):ED$(0)"EDIT":ED$(1)"DELETE"| d:14:"WORD FIND EDIT" n4:"THIS PROGRAM WILL ALLOW YOU TO CREATE":"OR EDIT A WORD LIST FOR 'WORD FIND',":"'SPELL', AND 'MIXUP'." p9:"YOU MAY:" WORD FIND EDIT6 LAST UPDATE: 83/09/01 CPEUAUTHOR: LINDA BORRY, MECCi(C) MECC, 197920300:62000:SET UP DRIVE STRINGS 5600 :::255:ZM24 IN$"":FT$"11 2#1 1":FW$"11 2#4AZ1"CL868:CS9586 W$(101),               TTE"&34,3:3:SADL1İ61040:DL215600G:D$"CATALOG"D2$U24:::22:CS:"WOULD YOU LIKE TO DELETE ANY FILES? ";:SKI,3,A$:A$(A$,1):A$"Y"A$"N"5050A$"N"Ĺ216,0:100=22:1:CS:"FILE TO DELETE? ";:SKI,20,A$:Z$Ж1:CS:"DESTINATION DISKETTE":100000q20500FuD2DR:S2SL:V2VOzSD0S1S2D1D2V1V2Ģ21:CS:"THIS DISKETTE REQUIRES TWO DRIVES.":"PLEASE RE-ENTER YOUR OPTIONS.":20500:47104020 DISKETTE MAINTENANCE:10:"CATALOG OF DISKEDESTINATION DISKETTE.":20500:4500f2:CS:12:"PLEASE INSERT YOUR PROGRAM DISKETTE.":20500:100\SET DRIVES FOR DATA DISKETTE COPYf4:CS:6:"ORIGINAL DISKETTE":VOV1:SLS1:DRD1:10000k20500%pV1VO:S1SL:D1DR:VOV2:SLS2:DRD2:6:T,S1,D1,V1:DR,TK,0TK2,1516384:43009,SAMEİ60030d6SET,S2,D2,V2:DW,TK,0TK2,1516384:u@216,0:4500hERROR ON READr20:CS:"ERROR ON ORIGINAL DISKETTE.":20500:4500 FORMATTING ERROR#216,0:20:CS:"UNABLE TO WRITE ON A$""100A$"N"4700@V1V2D1D2S1S2SAME1:4076ISA0`SAMEİ60030:409020:CS:10:"INSERT YOUR DISKETTES":205001:20:CS:16:"COPYING"4300SET,S2,D2,V2:FMTTK3005:4200SAMEİ60020("SE5:"ORIGINAL DISKETTE:":7:" SLOT: ";S1:" DRIVE: ";D1:" VOLUME: ";V113:"DESTINATION DISKETTE:":15:" SLOT: ";S2:" DRIVE: ";D2:" VOLUME: ";V220:CS:"ARE THESE CORRECT? ";:SKI,3,A$:A$(A$,1):A$"Y"A$""A$"N"4060 X"? SET,2:DW,0,00,016640:DW,17,017,016384:216,0:100WCOPY DATA DISKETTEw:11:"COPY DATA DISKETTE":SADL2İ61020:DL1FL0S2(956):D2(957):V2(958):S1(953):D1(954):V1(955):11:"COPY DATA DISKETTE"NUME: ";VOh 15:1:CS:"DO YOU WANT TO INITIALIZE THIS? ";:SKI,3,A$:A$(A$,1):A$"Y"A$"N"3040x A$"N"100 12:CS:"INSERT YOUR DATA DISKETTE.":20500:2:CS:12:10:"INITIALIZING DISKETTE":DL2 5600 D$"INIT X"D2$:D$"DELETE 953,L6,S"(953)",D"(954)",V"(955):1002f2010P INITIALIZE DATA DISKETTEs D$;"BLOAD BOOT.BIN,A16384"D1$ :8:"INITIALIZE DATA DISKETTE" SL(956):DR(957):VO(958)  5:"DATA DISKETTE:":7:" SLOT: ";SL:" DRIVE: ";DR:" VOL954)VO(955)Ģ21:CS:"THIS DISKETTE REQUIRES TWO DRIVES.":"PLEASE RE-ENTER YOUR OPTIONS.":20500:2030 W21:CS:"ARE THESE ENTRIES CORRECT? ";:SKI,3,IN$:A$(IN$,1):A$"Y"A$"N"2010(\A$"Y"Ĺ956,SL:957,DR:958,VO:D$"BSAVEDRIVE OPTIONS,A3:"DATA DISKETTE:"::" SLOT: ";(956):" DRIVE: ";(957):" VOLUME: ";(958)d 20500:100~ SET DRIVE PARAMETERS SL(956):DR(957):VO(958) :10:"SET DRIVE PARAMETERS" 6:"DATA DISKETTE:" 10000j SSD0SL(953)DR(12:"RETURNING TO MENU...":1014,OP:1015,PO:16384:D$;"RUN HELLO"S d62000:55v VIEW CURRENT DRIVE PARAMETERS :5:"VIEW CURRENT DRIVE PARAMETERS":5:"PROGRAM DISKETTE:"::" SLOT: ";(953):" DRIVE: ";(954):" VOLUME: ";(955)T 1DATA FILES"::6:"6. RETURN TO MAIN MENU" FFI$"11 $#2 1":1:18:CL:" WHICH NUMBER? ";:SKI,1,IN$:A$IN$:(A$)1(A$)6Ģ21:" PLEASE ENTER A NUMBER FROM 1 TO 6":70 PJP(A$):JP1000,2000,3000,4000,5000 Q USADL2İ61020:DL1D Z868:CS958> 3D$"BRUN INPUTS.OBJ"D1$:D$"BRUN DUTIL.OBJ"D1$ 7::12:"DISKETTE SUPPORT":5:6:"1. VIEW CURRENT DRIVE PARAMETERS"* <:6:"2. SET DRIVE PARAMETERS"::6:"3. INITIALIZE DATA DISKETTE"::6:"4. COPY DATA DISKETTE"::6:"5. DELETE  PROGRAM:DISKETTE SUPPORT8COPYRIGHT 1982 MECCTAUTHOR: SHANE MCCARRONs(LAST UPDATE: 83/08/26 CPE-SD=SINGLE DRIVE OPTION.:16384:OP(1014):PO(1015)/SD1:1062000:DL11P(I)(I)(I1)256 2D$(13)(4):CL        <  @ ?$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`qrL     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*!! ! ,"