' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`00. TO STOP OUTPUT FROM GOING TO PRINTER, DO PR#0:IN#0.N ** IF YOU HAVE A SPECIAL INTERFACE FOR YOUR PRINTER (OTHER THAN A COMMUNICATIONS, SERIAL OR PARALLEL PRINTER INTERFACE), CHANGE ZF$ IN LINE 20210 TO THE STRING THAT WILL ACTIVATE YOUR PRINTER.NE--LOOKS FOR PRINTER INTERFACE IN SLOTS 1-7.GN LAST UPDATE: 6/3/81N ** TO USE: CHANGE THE WORD 'SPACEBAR' IN LINE 20214 TO THE LINE # OF YOUR 'PRESS SPACE BAR TO CONTINUE' ROUTINE.8N ** WHENEVER YOU WANT OUTPUT TO GO TO PRINTER, DO GOSUB 2020,0,0G 43,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25  26,27,28,29,30,31,48,49,50,51,52,53,54,55,56,57,34,33,40,60 41,32,39,36,5,46,61,3,1,2,42,58,5,45,38,5,44,35,37,5,5,4,59 (13);(4);"PR#0":43000-N ** PRINTER ROUTI,16,16,24,24,24,0,24,0,0,0,8,24,16,8,4,2,1,14,17,17,17,14s 4,12,20,4,14,30,1,30,16,31,30,1,2,1,30,18,18,30,2,2 31,16,30,1,30,28,16,31,17,31,31,2,4,8,16,14,17,14,17,14 31,17,31,1,7,12,12,0,0,0,0,8,0,8,24,1,2,4,8,16,0,0,0,24,24  10,10,,17,14 E< 17,17,17,10,4,17,17,21,27,17,17,10,4,10,17,17,10,4,4,4 P 31,2,4,8,31,16,8,8,8,16,0,0,14,0,0,0,4,14,4,0,0,2,4,2,0d 0,14,0,14,0,0,8,4,8,0,6,10,12,18,15,15,20,14,5,30x 0,10,31,10,0,1,2,2,2,1,25,26,4,11,19,0,16,0,16,0,289 2,2816,31,31,16,28,16,16,14,16,19,17,14a 17,17,31,17,17,31,4,4,4,31,31,4,4,20,28,18,20,28,18,17  16,16,16,16,31,17,27,21,17,17,17,25,21,19,17  31,17,17,17,31,30,17,30,16,16,31,17,17,19,31 ( 30,17,30,17,17,31,16,31,1,31,31,4,4,4,4,17,17,172) " ";XC 'D8 X1D%(B,1)>$ E8 XLL BX` X110^t e Xm T2 7,4,4,4,7,28,4,4,4,28,10,21,10,21,10,4,14,21,4,4  0,0,0,0,0,4,10,31,17,17,30,17,30,17,30,15,16,16,16,15# 30,17,17,17,30,31,16,28,NCLUDES OPTIONS TO DELETE OR ":" CHANGE A QUESTION)"j':" 2) LIST THE QUESTIONS ON A PRINTER"':" 3) ADD A QUESTION OR"':" 4) STOP"'22:"ENTER 1, 2, 3 OR 4?";:868:40000'ZN39000'&ZN4ĺ:FI$F$:4060::43000 &H$(JK)&JK&D$(&JL1TC5&,JM1QBA&@CT1CTh&TLO(CT,1)((H$(JL),6(JM1)1,4))&hLO(CT,2)((H$(JL),6JM1,2))&rCTNQ5600&|JM&JL&10:"DO YOU WANT TO:"::" 1) LIST THE QUESTIONS ON THE APPLE";'" (I"%NQ((G$,3)):MQ((G$,4,3))F%OB((G$,7,1)):RS((G$,8,2))[%(FO((G$,10,4))y%<FI$F$:LERS:4000:F$FI$%PRS42QB6%dRS76QB12%xNQQB(NQQB)TCNQQB:5280%TC(NQQB1)%H$(TC)%JK1TC%FI$F$:REJK:4040" "(PS),3)$XX(0):4$D$"OPEN"FI$",L"LE:N$D$"WRITE"FI$",R"RE:g$D$"READ"FI$",R"RE:{$D$"CLOSE"FI$:$:2:"WHAT IS THE NAME OF"::"YOUR DRILL OR TEST";$"? ";F$$FI$F$:LE74:4000:F$FI$$RE0:4040$G$%4060HAPPENING. SORRY.":"ERROR# ";ER;" AT LINE# ";LN:3250B# 39000W# 16:958:3000]# # D$"PR#0":39000::216,0:3260# # 216,0:3000# :QQ1:200 $G$(" "(NQ),3)(" "(MQ),3)(OB)(" "(RS),2)(" "(FO),4)(RC)('M SORRY, THIS FILE IS LOCKED":"AND YOU CAN'T USE IT.":3250" ER11ĺ"I'M SORRY, BUT THAT'S NOT A VALID":"FILE NAME. TRY SOMETHING ELSE.":3250" ER13ĺ"I'M SORRY, BUT YOU CAN'T USE THAT NAME.":3250" ER255430407# "SOMETHING UNUSUAL IS r! "YOUR DISK IS FULL. I SAVED AS MUCH":"ON IT AS I COULD, BUT I AM UNABLE TO":"SAVE ANY MORE ON THIS DISK."! :"IF YOU STILL NEED TO ADD MORE TO THIS":"FILE, YOU WILL HAVE TO MOVE THE FILE":"TO A DIFFERENT DISK FIRST."! 3250=" ER10ĺ"IHELLO"PCH(36):CV(37):7QâCV1:36,CH:868:XRù34,ZC1:ZC::34,0:CV2:S:"' TO CONTINUE.";:16368,06*(16384)12841002D+16368,0L,:^D$(13)(4)f: 10:"DO YOU WANT TO TRY"12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030 :R$"Y"Ĭ*(1023)123Ā4D$;"RUN ------------"8:(:"THE ANSWERS";<"-----------"C>:Q@"ACROSS"aB"------":lDZ1R}FR11Z590H:J"DOWN"L"----":NZ10N1PZA(Z1,4)596RZ1TAA$"[ "(A(Z1,1)A)" , "(A(Z1,2)B)" ]":AA$;)D546RR1 A(Z3,4)RNAA$"[ "(Z1A)" , "(Z2B)" ]":AA$;y13(AA$));B$(Z3,0):13);B$(Z3,1): 548"Z3$Z2&Z1(D2564*:"DOWN","----":.D20R1R25284: 6:"------------------Z80502Z81=Z9((Z1B)Z)Z8((Z1B)10)10J" ";Z9;RZ1X_Zg:m~"THE CLUES":"ACROSS" "------" D1Z1A135Z2B34CZ30N1A(Z3,1)Z1A(Z3,2)Z2A(Z3,0"XX";'C%(Z,Z2)0C%(Z,Z21)04660468;"[ ";\C%(Z,Z2)0C%(Z,Z21)0472e474p"]X";C%(Z,Z2)0C%(Z,Z21)0478480"I ";Z2ZZ1019BC2);4Z1B134CZ1500428DD1Z35444)Z1135>C%(Z1,Z)0444FZ1VB1Z440`BB1mBZ444wCC1~ZZA135DBC((ZA)9));1(ZA10)ZA;" ";Z2B34CC%(Z,Z2)0C%(Z,Z21)0460462: N6:"WHAT HEADING DO YOU"::868:"WANT ON THE PUZZLE? ";A$W614}:2:16::"THINKING"::4:34,3:34(A$)2);:1:A$:Z135Z1134C%(Z,Z1)0428Z1A1Z424AA1AZ1H372rH1H:H0:274&tFS3900vSS18xTSbzNN035:NM035:C%(NN,NM)0:NM:NNo|Z0N1~A(Z,0)0:A(Z,1)0:A(Z,2)0ZA0:B0:C0:D0:H0:H10:R0:W0:X0:Y0262:3:"SORRY, I COULDN'T GET THEM ALL IN.":396*NC%(A(Z1,1)Z2,A(Z1,2)Z5)A(Z,Z5Z35)@PA(Z,1)A(Z1,1)Z2VRA(Z,2)A(Z1,2)Z3^TZ5uV(A(Z1,0)1)0348XA(Z,0)1Z350\A(Z,0)2^358`Z3bZ2dZ1fZhT1jZ0N1:A(Z,0)0HH1lZnH0394pH: % 10:"DO YOU WANT TO TRY"j%12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030% :R$"Y"Ľ:QQ1:ZM24:210%*(1023)123Ā%/D$(13)(4)%4D$;"RUN HELLO" &LǢ24:868:16368,0:7:"PRESS ";::"SPACE BAR";::" :::$@CH(36):CV(37)D$A"";ZN$:(ZN$)(((ZN$)))40003q$BZN(ZN$):ZN0ZN(ZN)(ZN)ZN$40006$CZM:"PLEASE ENTER A POSITIVE NUMBER.";:40010:40001$FZM:868:CV1(CV23):$JCV1:36,CH:868:$ END OF PROGRAM % PRINTER INTERFACE FOUND(#!OZJ1:ZG1O#$O FOUND INTERFACE 'ZJ'IN SLOT 'ZG'\#.O:20212i#8OZE21632s#9O10:#;O768,ZG#=OZN$"30"20288#>O802,82:818,82#@O823,80:797,127#AO775:ST1#BOZJ3ZJ4İ20232:(9)ZH"N": CHAR/LINE$GOZQ1OZW4940850944256+"OZG(ZW49152)2567"OZJ14`"O(ZW5)Z5(ZJ)(ZW7)Z7(ZJ)20252h"OZJx"OZJ0:20255"OZK02:Z2(ZK)0"OZI02558:Z2(ZK)Z2(ZK)(ZWZI)::"OZ2(0)Z2(1)Z2(0)Z2(2)Z2(0)25620260"O:# O NO KNOWN! O'! O:10:"ONE MOMENT PLEASE..."2! O20280V!O SEARCH SLOTS FOR AN INTERFACE!OZ5(4),Z7(4): COMM=1, SERIAL=2, PAR=3, MALIBU=4!O: "-SEARCH-",24,56,56,24,72,72,8,72!OZI$:ZI$"-SEARCH-"20243!OZJ14:Z5(ZJ),Z7(ZJ):!OZ2(2)"$:ZN$"10"ZN$"30"202206 NZA17:ZN$"10"ZA82 O ZH=CHAR/LINE; ZV=I/O: 0-OUTPUT BOTH, INPUT APPLE; 1-OUTPUT BOTH, INPUT PRINTER; 254-OUTPUT PRINTER ONLY, INPUT APPLE; 255-OUTPUT PRINTER ONLY, INPUT PRINTER O20232:20235 OZH80 OZV0:5:"TURN YOUR PRINTER ON AT THIS TIME.":ZF$"COMM, SERIAL OR PARALLEL"ZJ1(ZQ)20220fN51020|N10::ZJ120289NZF$"COMM, SERIAL OR PARALLEL"ĺ(4);"PR#";ZG:20290N(4)ZF$:20295N10:868:"WHICH SPEED (10 OR 30 CPS) "; NZN,N ** ROUTINE USES LINE #'S 20200 - 202992N[NZQĺ(13);(4);"PR#0":(4);"IN#0"~NZF$"COMM, SERIAL OR PARALLEL"N(ZQ)ZF$"COMM, SERIAL OR PARALLEL"Ģ10:"ONE MOMENT PLEASE...":20240NZF$"COMM, SERIAL OR PARALLEL"ZJ120290[N LONGEST FIRST6v9W$(0)"":T1255:W$(0)W$(0)" ":A9T2AU9T1$W$(T):IT19(T1$)(W$(I))W$(I1)W$(I):II1:147409W$(I1)T1$9T9T319 PLACE THE WORDS9A6A59T1A!9B(0)(W$(T)):XX1B(0):XY163:(W$(T),$,1,1)"N"136506126"WHAT SIZE DO YOU WANT THE PUZZLE TO BE?"::"(BETWEEN ";L13;" AND 32) ";:868:ZN$:P(ZN$):PL13P32P(P)(P)ZN$14005"8:10:17::"WORKING":@8B1AJ8X$(B)""T8Bl9 SORT W$ BY LENGTH OF WORD -W$(JK) @.2T.JK16(JK16)(JKA)İ23000::h.JKEr.23000Kw.Q44:"WHAT HEADING DO YOU"::"WANT ON THE PUZZLE? ";H$R575"DO YOU WANT THE WORDS PRINTED IN A LIST"::"AT THE END? ";:868L6"";Z1$6(Z1$,1,1)"Y"(Z1O SEE A LISTING OF THE"::"WORDS IN THE FILE";:868d,"? ";C$:C$(C$,1):C$"Y"C$"N"11400{P-(C$,1)"N"13450-::"LIST: ";B$;:20:"WORDS: ";A-34,3.JK1A".R1((JK1)8.001),.32JKR1161.R12(R12)Ė206."Ĺ1022,1:43050B*D$;"MAXFILES 3"::22016:(1023)123ĉ::}*:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"**::60::60D A NUMBER - TRY AGAIN";:40010:40001M)FZM:868:CV1(CV23):ZN(ZN$):f)JCV1:36,CH:868:|) END OF PROGRAM)::5)10:"WOULD YOU LIKE TO TRY"::"AGAIN (YES OR NO)";:868)" ?";A$:A$(A$,1):A$"Y"A$"N"43005*A$"Y,L1:797,F1(AO:775(BOST1%(DO(24:868:16368,0:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:16384,128:16368,0:1:868:(@CH(36):CV(37)(A"";ZN$:(ZN$)(((ZN$)))40003(B(ZN$)0ZN$"0"40006%)CZM:"THAT IS NOT7(FACE)20260'OFACE"'OFACE0*'O:R' O NO KNOWN PRINTER INTERFACE FOUNDh'!OFACE255:SLOT255'$O FOUND INTERFACE 'FACE' IN SLOT 'SLOT''.O'8O(13);(4);"BLOADPRNTERB"';O768,SLOT'=OZN$"30"20288'>O802,82:818,82 (@O823"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"<&::112L& -PRINTERT02558:CS(ZK)CS(ZK)(ZSZI)::&OCS(0)CS(1)CS(1)CS(2)CS(2)256CS(0)256CS(1)25620255&OSLOT(ZS49152)256&OFACECOMMPAR 'O(ZS5)S5(FACE)(ZS7)S(ZN$): %CV1:36,CH:868:&%1%::5|%5:"WOULD YOU LIKE TO RUN THIS PROGRAM"::"AGAIN - YES OR NO";:868%" ?";A$:A$(A$,1):A$"Y"A$"N"722%A$"Y"Ĺ1022,1:732%D$;"MAXFILES 3"::22016:(1023)123ĉ::/&:10:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:16384,128:16368,0:1:868:g$CH(36):CV(37)$"";ZN$:(ZN$)(((ZN$)))712$(ZN$)0ZN$"0"714$ZM:"THAT IS NOT A NUMBER - TRY AGAIN";:716:708%ZM:868:CV1(CV23):ZNZWZI)::6#Z2(0)Z2(1)Z2(0)Z2(2)Z2(0)256684>#:N#ZJ1:ZG1T#_#:622g#10s#768,ZG#ZN$"30"696#802,82:818,82#823,80:797,127#:775#ZJ3ZJ4İ642:(9)ZH"N"#ZQ1:::Q$24:868:16368,0:24,72,72,8,72+"ZI$:ZI$"-SEARCH-"656H"ZJ14:Z5(ZJ),Z7(ZJ):S"Z2(2)k"ZW4940850944256"ZG(ZW49152)256"ZJ14"(ZW5)Z5(ZJ)(ZW7)Z7(ZJ)674"ZJ"ZJ0:680"ZK02:Z2(ZK)0 #ZI02558:Z2(ZK)Z2(ZK)(:700!x(4)ZF$:702E!z10:868:"WHICH SPEED (10 OR 30 CPS) ";g!|ZN$:ZN$"10"ZN$"30"634!~ZA17:ZN$"10"ZA82!642:648!ZH80!ZV0!!:10:"ONE MOMENT PLEASE..."!688!Z5(4),Z7(4) ":"-SEARCH-",24,56,56,EL"Ģ10:"ONE MOMENT PLEASE...":652R nZF$"COMM, SERIAL OR PARALLEL"ZJ1700 p:5:"TURN YOUR PRINTER ON AT THIS TIME.":ZF$"COMM, SERIAL OR PARALLEL"ZJ1(ZQ)634 r704 t10::ZJ1698!vZF$"COMM, SERIAL OR PARALLEL"ĺ(4);"PR#";ZGV13(AA$));A$(Z1)XZ'Z:M\"------------------------------"\^D$;"PR#0"k`:2:868~bFACE255İ704d718fhZQĺ(13);(4);"PR#0":(4);"IN#0"jZF$"COMM, SERIAL OR PARALLEL"$ l(ZQ)ZF$"COMM, SERIAL OR PARALLOUND INTERFACE 'ZJ'IN SLOT 'ZG',*.O:202129*8OZE21632C*9O10:O*;O768,ZGc*=OZN$"30"20288w*>O802,82:818,82*@O823,80:797,127*AO775:ST1*BOZJ3ZJ4İ20232:(9)ZH"N": CHAR/LINE*GOZQ1:::*U20200*VT13*"V*,VT+.VPZJ140)O(ZW5)Z5(ZJ)(ZW7)Z7(ZJ)202528)OZJH)OZJ0:20255])OZK02:Z2(ZK)0)OZI02558:Z2(ZK)Z2(ZK)(ZWZI)::)OZ2(0)Z2(1)Z2(0)Z2(2)Z2(0)25620260)O:) O NO KNOWN PRINTER INTERFACE FOUND)!OZJ1:ZG1*$O F80&(O SEARCH SLOTS FOR AN INTERFACE[(OZ5(4),Z7(4): COMM=1, SERIAL=2, PAR=3, MALIBU=4(O: "-SEARCH-",24,56,56,24,72,72,8,72(OZI$:ZI$"-SEARCH-"20243(OZJ14:Z5(ZJ),Z7(ZJ):(OZ2(2)(OZW4940850944256(OZG(ZW49152)256)OZA82'O ZH=CHAR/LINE; ZV=I/O: 0-OUTPUT BOTH, INPUT APPLE; 1-OUTPUT BOTH, INPUT PRINTER; 254-OUTPUT PRINTER ONLY, INPUT APPLE; 255-OUTPUT PRINTER ONLY, INPUT PRINTER'O20232:20235'OZH80' OZV0' O' O:10:"ONE MOMENT PLEASE..."( O202"COMM, SERIAL OR PARALLEL"ZJ1(ZQ)202206&N23000L&N10::ZJ120289&NZF$"COMM, SERIAL OR PARALLEL"ĺ(4);"PR#";ZG:20290&N(4)ZF$:20295&N10:868:"WHICH SPEED (10 OR 30 CPS) ";&NZN$:ZN$"10"ZN$"30"20220'NZA17:ZN$"10"N+%NZQĺ(13);(4);"PR#0":(4);"IN#0"N%NZF$"COMM, SERIAL OR PARALLEL"%N(ZQ)ZF$"COMM, SERIAL OR PARALLEL"Ģ10:"ONE MOMENT PLEASE...":20240%NZF$"COMM, SERIAL OR PARALLEL"ZJ120290+&N:5:"TURN YOUR PRINTER ON AT THIS TIME.":ZF$#0:IN#0.$N ** IF YOU HAVE A SPECIAL INTERFACE FOR YOUR PRINTER (OTHER THAN A COMMUNICATIONS, SERIAL OR PARALLEL PRINTER INTERFACE), CHANGE ZF$ IN LINE 20210 TO THE STRING THAT WILL ACTIVATE YOUR PRINTER.$N ** ROUTINE USES LINE #'S 20200 - 20299%N LAST UPDATE: 6/3/81#N ** TO USE: CHANGE THE WORD 'SPACEBAR' IN LINE 20214 TO THE LINE # OF YOUR 'PRESS SPACE BAR TO CONTINUE' ROUTINE.$N ** WHENEVER YOU WANT OUTPUT TO GO TO PRINTER, DO GOSUB 20200. TO STOP OUTPUT FROM GOING TO PRINTER, DO PRW$(T)"DT3T31#"DT90B(0)1>"DA(V8T9,H8T9)B(T91)F"DT9L"DZ"D REVERSEn"DT91(B(0)2){"EQ0B(T9)"EB(T9)B(B(0)T91)"EB(B(0)T91)Q0"$ET9".E14840"N ** PRINTER ROUTINE--LOOKS FOR PRINTER INTERFACE IN SLOTS 1-7.#M2PB(0)1!>DM1P8!HDH8((1)(M2.000001)1):H9H8c!RDV8((1)(M2.00001)(M1M21)):V9V8t!\DT90B(0)1!fDA(V8T9,H8T9)0A(V8T9,H8T9)B(T91)17580!pD14930!zDO0117640!DV8117500!DV8M1M21!D17500!DT9"DY$(T3)1)(M2.00001)1):H8H9( CT90B(0)1[ CA(V8T9,H8T9)0B(T91)A(V8T9,H8T9)17370f C14930v CO0117430 C17320 CT9 CY$(T3)W$(T) CT3T31 CT90B(0)1 DA(V8T9,H8T9)B(T91) DT9 D D DIAGONALLY2 *DO00 !4DA(T9,H8)B(T9V81)17200$C149304CO0117260?&C17150G0CT9X:CY$(T3)W$(T)dDCT3T31yNCT9V8V8B(0)1XCA(T9,H8)B(T9V81)bCT9lCvC DIAGONALLY 1CO00CM1PB(0)1:M2M1CV9((1)(M1.00001)1):V8V9 CH9(($(T3)W$(T)BT3T31&B PLACE IT;BT9H8H8B(0)1SBA(V8,T9)B(T9H81)[BT9aBrB VERTICALLY{BO00BM1PB(0)1BM2PBV9((1)(M1.00001)1):V8V9BH9((1)(M2.00001)1):H8H9BT9V8V8B(0)1CA(T9,H8)0040 :O01:%"B HORIZONTALLY.'BO007,BM1PG6BM2PB(0)1j@BV9((1)(M1.00001)1):V8V9JBH8((1)(M2.00001)1):H9H8TBT9H8H8B(0)1^BA(V8,T9)0A(V8,T9)B(T9H81)17020hB14930mBO0117090rB16980|BT9 BYD8D914850# :D8D9D9114910,*:D8174:14850>>:TIH:22000UR:H8H81n\:H8M2H8H915040f:H8H9H9114980p:H81z:15040:V8V81:H8H9:V8M1V8V915040:V8V9V91D84V9(M1M21)15030:V81:15XX,1)(UI$,XY,1)B(XX)XY:14823)9XY19XXC9B(0)P14910_9 PICK DIRECTIONAL MODEt9A62A61148409A64(1).5176509A549D8((1)(A5.00001)1):D9D8:D816930,17100,17270,17440:O0014910 :D8D81 :D8A5OF THIS QUESTION DIDN'T":"GET STORED. SORRY.":3250 ER8ĺ"PLEASE MAKE SURE THE DISK IS IN THE":"DRIVE AND THE DRIVE DOOR IS CLOSED.":3200 ER93050! LN4000ĺ"THIS DISK IS FULL. PLEASE INSERT":"ANOTHER DISK TO SAVE THE FILE ON.":3200" ZZ09:ZX:753ZZ,ZX::753y 16:958:ER4ĺ"PLEASE REMOVE THE WRITE-PROTECT":"STICKER FROM THE DISK.":3200 ER53030 RE0ĺD$"DELETE"FI$:"'"FI$"' ISN'T ON THIS DISK.":32505 NQNQ1:D$"WRITE"FI$",R0":3800:G$:D$:"THE REST R$"Y"Ľ:QQ1:100&*(1023)123Ā:4D$;"RUN HELLO"M@Ǻ(4);"PR#0":L;"RUN HELLO"p@Ǻ(4);"PR#0":)24:" PRESS '";::"SPACE BAR";::"' TO CONTINUE.";:16368,0\*(16384)12841002j+16368,0v,:::D$(13)(4): 10:"DO YOU WANT TO TRY"12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030 :NEGOZQ1:::'@CH(36):CV(37)OA"";ZN$:(ZN$)(((ZN$)))40003lB(ZN$)0ZN$"0"40006CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001FZM:868:CV1(CV23):ZN(ZN$):JCV1:36,CH:868:(G71999::1C) NO KNOWN PRINTER INTERFACE FOUND3!OZJ1:ZG1Z$O FOUND INTERFACE 'ZJ'IN SLOT 'ZG'g.O:20212t8OZE21632~9O10::O768,ZG=OZN$"30"20288>O802,82:818,82@O823,80:797,127AO775:ST1BOZJ3ZJ4İ20232:(9)ZH"N": CHAR/LIOZ2(2) OZW49408509442566OZG(ZW49152)256BOZJ14kO(ZW5)Z5(ZJ)(ZW7)Z7(ZJ)20252sOZJOZJ0:20255OZK02:Z2(ZK)0OZI02558:Z2(ZK)Z2(ZK)(ZWZI)::OZ2(0)Z2(1)Z2(0)Z2(2)Z2(0)25620260O:# O 0  OZV0 O2 O:10:"ONE MOMENT PLEASE..."= O20280aO SEARCH SLOTS FOR AN INTERFACEOZ5(4),Z7(4): COMM=1, SERIAL=2, PAR=3, MALIBU=4O: "-SEARCH-",24,56,56,24,72,72,8,72OZI$:ZI$"-SEARCH-"20243OZJ14:Z5(ZJ),Z7(ZJ): ";'NZN$:ZN$"10"ZN$"30"20220ANZA17:ZN$"10"ZA82O ZH=CHAR/LINE; ZV=I/O: 0-OUTPUT BOTH, INPUT APPLE; 1-OUTPUT BOTH, INPUT PRINTER; 254-OUTPUT PRINTER ONLY, INPUT APPLE; 255-OUTPUT PRINTER ONLY, INPUT PRINTERO20232:20235OZH8:ZN(ZN$):%0JCV1:36,CH:868:;0 END OF PROGRAMF0::5010:"DO YOU WANT TO TRY"::868:"AGAIN (YES OR NO) ?";A$:A$(A$,1):A$"Y"A$"N"430050:A$"N"43030030000(1023)123ė:1:10:"GETTING THE MENU PROGRA:868:"'";N$;"' IS NOT ON THIS DISK.":D$;"CLOSE ";N$:D$;"DELETE ";N$:6250d/@CH(36):CV(37)/A"";ZN$:(ZN$)(((ZN$)))40003/B(ZN$)0ZN$"0"40006/CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001 0FZM:868:CV1(CV23)K FOR:":.WT1T31#.WY$(T);<.WT2(T2)ĺ:22440G.W25);N.WTT.Wc.WD$;"PR#0"x.WFACE255İ23000.W43000.Y24:868:7:16368,0:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:16384,128:16368,0:1:868:15:N/]216,0:21-WT -WF-W"THERE ARE "T31" WORDS HERE - CAN":"YOU FIND THEM?"`-&W(Z1$,1,1)"N"22450n-0W SORT Y$-:WY$(0)"":T2T31-DWT1$Y$(T):IT1-NWT1$Y$(I)Y$(I1)Y$(I):II1:22350-XWY$(I1)T1$-bWT-W .W"HERE ARE THE WORDS TO LOO"KEY WHEN YOU WANT THE PUZZLE TO PRINT."0,VC$;,VT13A,VH,VTd,VP21(H$)ĺH$:22190|,V(P2(H$))2);H$,V,VT1P,VC1P,VA(T,C)022250,V(UI$,A(T,C),1);" ";,V22260,V(UI$,((1)261),1);" ";,VC,V21(H$)ĺH$:22066-+0V(P2(H$))2);H$3+2V>+6VT1PI+@VC1P]+JVA(T,C)022120w+TV(UI$,A(T,C),1);" ";+^V22130+hV". ";+rVC+|V+VT+V:(,V"IF YOU WISH, YOU MAY INSERT A DITTO":"MASTER AT THIS TIME. PRESS THE RETURN":(NQ):FO$(FO).0(NQ$)3NQ$S$NQ$:7600M0(FO$)4FO$S$FO$:7620q0G$NQ$(G$,4,6)FO$(G$,14,4)0FI$F$:RE0:40200 QT$;G$;QT$0F31:26200@::JD1LQ0TJD10ĺ" ";0hJD;S$;Q$(JD)0|(37)22LQJD81001(37):/QNQ7560./JB(LO(Q,1)LT)(FO1)E/FI$F$:REJB:4040M/W$`/REJBLT:4020p/QT$;W$;QT$x/$JB/8D$/LJCQ(NQ1)/`LO(JC,1)LO(JC1,1)LT:LO(JC,2)LO(JC1,2)/tJC/LO(NQ,1)0:LO(NQ,2)0/NQNQ1:FOFOLT0NQ$T.".34,23!.24:868:ED$=.RT0(ED$,1)"R"7160I. JB15. (ED$,1)("CDRNQ",JB,1)ĴJB8000,7320,7280,7300,7260.4JB.H7160.\FI$F$:4060:::43000.p::" #";Q:RT1RT0:JA.zRT0:6960.::6520/LTLALQ:7040 -lJAB-18:"----------------------------------------";k-"TYPE 'C' TO CHANGE THIS QUESTION,"-6:"'D' TO DELETE THIS QUESTION,"-RT1RT2Ė6:"'R' TO SEE THE REST OF QUESTION,"-6:"'N' TO SEE NEXT QUESTION,".6:"'Q' TO QUIQ,1)LQLA1:4040,|A$(LA)9,(A$(LA),1)(1)6840A,LAI,D$V,JA1LQb,Q$(JA)y,A716:RS72A715,(37)A7JALQRT1:7040,JA:,LA(17(37))6960,RT2:7040,0JA1LA,DA$(JA)-X(37)16JA(LA)RT1:-----------"::PG0:!+d:QQ16+xQQ1:QNQ5600Z+" #";Q;:RT0:OB0ĺ:6600r+25:"OBJ#";LO(Q,2)x++LQ120+FI$F$:RELO(Q,1)LQ1:4040+Q$(LQ)+(Q$(LQ),1)(1)6720+,LQ+@LQLQ1+TLA110,hFI$F$:RELO(D$*~PGLA465İ6441/*"OBJ# ";LO(Q,2)@*Q;4);Q$(1)O*LQ16340\*JA2LQp*4);Q$(JA):JAv**Q;4);A$(1)*LA16405*JA2LA*4);A$(JA):JA*:* PGPGLQLA4*(6000*)JF1(66PG2)::JF+*"----Q,1)0ĺ::"---------------":D$:D$"PR#0"::5600@)LQ120a)FI$F$:RELO(Q,1)LQ1:4040m)Q$(LQ))(Q$(LQ),1)(1)6140)LQ)LQLQ1)LA110)$FI$F$:RELO(Q,1)LQLA1:4040)8A$(LA))L(A$(LA),1)(1)6260)`LA*t(0ZN1ZN25640(:PRZNP(D:6:"AT WHICH QUESTION SHOULD THE LISTING"h(X8:"START?";:868x(l40000:QZN(vQ0ė:5600(Q15720(QNQLO(Q,1)15720(PR16500( 20200(\QQ1(k"---------------"(pQQ1:3)LO(NCLUDES OPTIONS TO DELETE OR ":" CHANGE A QUESTION)"j':" 2) LIST THE QUESTIONS ON A PRINTER"':" 3) ADD A QUESTION OR"':" 4) STOP"'22:"ENTER 1, 2, 3 OR 4?";:868:40000'ZN39000'&ZN4ĺ:FI$F$:4060::43000 &H$(JK)&JK&D$(&JL1TC5&,JM1QBA&@CT1CTh&TLO(CT,1)((H$(JL),6(JM1)1,4))&hLO(CT,2)((H$(JL),6JM1,2))&rCTNQ5600&|JM&JL&10:"DO YOU WANT TO:"::" 1) LIST THE QUESTIONS ON THE APPLE";'" (I"%NQ((G$,3)):MQ((G$,4,3))F%OB((G$,7,1)):RS((G$,8,2))[%(FO((G$,10,4))y%<FI$F$:LERS:4000:F$FI$%PRS42QB6%dRS76QB12%xNQQB(NQQB)TCNQQB:5280%TC(NQQB1)%H$(TC)%JK1TC%FI$F$:REJK:4040" "(PS),3)$XX(0):4$D$"OPEN"FI$",L"LE:N$D$"WRITE"FI$",R"RE:g$D$"READ"FI$",R"RE:{$D$"CLOSE"FI$:$:2:"WHAT IS THE NAME OF"::"YOUR DRILL OR TEST";$"? ";F$$FI$F$:LE74:4000:F$FI$$RE0:4040$G$%4060HAPPENING. SORRY.":"ERROR# ";ER;" AT LINE# ";LN:3250B# 39000W# 16:958:3000]# # D$"PR#0":39000::216,0:3260# # 216,0:3000# :QQ1:200 $G$(" "(NQ),3)(" "(MQ),3)(OB)(" "(RS),2)(" "(FO),4)(RC)('M SORRY, THIS FILE IS LOCKED":"AND YOU CAN'T USE IT.":3250" ER11ĺ"I'M SORRY, BUT THAT'S NOT A VALID":"FILE NAME. TRY SOMETHING ELSE.":3250" ER13ĺ"I'M SORRY, BUT YOU CAN'T USE THAT NAME.":3250" ER255430407# "SOMETHING UNUSUAL IS 20290fN:5:"TURN YOUR PRINTER ON AT THIS TIME.":ZF$"COMM, SERIAL OR PARALLEL"ZJ1(ZQ)20220qN41000N10::ZJ120289NZF$"COMM, SERIAL OR PARALLEL"ĺ(4);"PR#";ZG:20290N(4)ZF$:20295N10:868:"WHICH SPEED (10 OR 30 CPS)R PRINTER.7N ** ROUTINE USES LINE #'S 20200 - 20299=NfNZQĺ(13);(4);"PR#0":(4);"IN#0"NZF$"COMM, SERIAL OR PARALLEL"N(ZQ)ZF$"COMM, SERIAL OR PARALLEL"Ģ10:"ONE MOMENT PLEASE...":20240NZF$"COMM, SERIAL OR PARALLEL"ZJ1O GOSUB 20200. TO STOP OUTPUT FROM GOING TO PRINTER, DO PR#0:IN#0. N ** IF YOU HAVE A SPECIAL INTERFACE FOR YOUR PRINTER (OTHER THAN A COMMUNICATIONS, SERIAL OR PARALLEL PRINTER INTERFACE), CHANGE ZF$ IN LINE 20210 TO THE STRING THAT WILL ACTIVATE YOUINTER ROUTINE--LOOKS FOR PRINTER INTERFACE IN SLOTS 1-7.RN LAST UPDATE: 6/3/81N ** TO USE: CHANGE THE WORD 'SPACEBAR' IN LINE 20214 TO THE LINE # OF YOUR 'PRESS SPACE BAR TO CONTINUE' ROUTINE.CN ** WHENEVER YOU WANT OUTPUT TO GO TO PRINTER, D**";01070PPQ$01070/$" ";7.W2F8PQ01100PBPPQZLQQ2aVSi`Z$pjWwtC~T1Y2T10(T10)0119001200Z$TXD120DZ51008:430008N ** PR7) *008304Y(X)27 >X+HX2X17RU115=\DfUMpY21YzZ1Z2gX1X21yY(X)000940Y2(Y(X))01210C15W1Y2PA(Y(X),C)Q64S17W21Y2P001120PQ01060"MESSAGE CONTAINS AN ILLEGAL"::"CHARACTER. PLEASE TRY AGAIN.":(37)4:868:680kLLLL1:M(LL)YY:PPv20200X2(M$)1GM(X)G28G3200800G1G2600780G450082000830 Y(X)G00830 Y(X)0(G2BZ2(Z2)Z21ĺ:"PLEASE USE A WHOLE NUMBER.":(37)2:630Hc"ENTER YOUR MESSAGE";kM$M$""M$"HELLO"PP1(M$):YY((M$,PP,1)):YY64YY91YYYY64:710YY48YY54YYYY21:710YY32YY45:710R:"THAT ZD"WILL PRINT THE MESSAGE 'HELLO' OUT LIKE ":"THIS.. H SIZE 1, E SIZE 2, L SIZE 3,":wN"L SIZE 4, O SIZE 5.":X"LEGAL PRINT CHARACTERS ARE THE LETTERS"::" A-Z AND A SPACE.":41000lv"NUMBER OF COPIES?";:86840000:Z2ZN:958HE MESSAGE (1 - 5),"::" WHERE 1 IS THE SMALLEST AND 5 THE"::" LARGEST."Z 41000` r "EXAMPLES: "x  &" ENTER MESSAGE?HELLO 0:"WILL PRINT THE MESSAGE 'HELLO' OUT IN"::"DEFAULT SIZE (1)."::" ENTER MESSAGE?1H2E3L4L5O":"::"A MESSAGE IN BLOCK LETTERS DOWN THE"::"PAGE OF YOUR PRINTER. THE TWO MAIN"::"FEATURES OF THIS PROGRAM ARE:" ::"1) YOU CAN CHOOSE THE NUMBER OF COPIES"::" TO BE PRINTED."O ::"2) YOU CAN CHOOSE THE SIZE OF EACH"::" LETTER IN T,93,111,65,0,0,0,0,0 mQQ620K r4:7);"B L O C K L E T T E R S":8r |"DO YOU WANT INSTRUCTIONS";:868z A$ (A$,1,1)"N"ė:620 (A$,1,1)"Y"Ģ10:"YES OR NO, PLEASE.":8:380 :v "THIS PROGRAM WILL ALLOW YOU TO TYPE OUT1,127,8,20,34,65,127E @ 64,64,64,64,127,2,28,2,127,127,6,28,48,127u J 62,65,65,65,62,127,9,9,9,6,62,65,81,62,64 T 127,9,25,41,70,38,73,73,73,50 ^ 1,1,127,1,1,63,64,64,64,63,15,48,64,48,15,63,64,56,64,63 h 65,54,28,54,65,3,6,124,6,3,65,1137,5),Y(200),M(100) Y(1)1E ZZ127:OO15:A(ZZ,OO):OO:ZZN Y21  124,22,19,22,124,127,73,73,73,54,62,65,65,65,34  65,127,65,65,62 " 127,73,73,73,65,127,9,9,9,1,62,65,65,73,58 , 127,8,8,8,127,0,65,127,65,0 6 56,65,65,63,N COPYRIGHT MECC 1979: BLKLETR 81/7/28 CPEn AUTHOR: CHUCK LUND, CRAIG COPLEY AND OTHERS( ASSOCIATED PROGRAMS AND FILES: NONE2(4);"BLOAD PRNTERB,A765"d::255::LL1:ZM24n(4);"NOMON C,I,O":Z$"" A(2            ";F$;",R";TQ(JS)JT1" Q$(JT)F (Q$(JT),1)(1)LQJT1:3275[ JT:JT21LQ20j 216,0:D$ LQPG4LP3285 LPPG13279 JF1(LPPG)::JF:PG0 "---------------":::15);TN$;" (CONTINUED)": HM1ĺE:PGPG1  Q RA((1)NQ)1* LO(RA,1)130209 OB13100f TQ(JS)LO(RA,1):LO(RA,1)LO(RA,1):3190 OB(LO(RA,2),1)130200 TQ(JS)LO(RA,1)D LO(RA,1)(LO(RA,1))X OB(LO(RA,2),1)OB(LO(RA,2),1)1v 216,0:11000{ JT120 D$;"READP(LP)LP1(LP)LP$2140#f.p20200? E1HM:PG0U "----------"::c$ 15);TN$i8 ~B HM1ĺE:PGPG1L 53);"NAME: --------------"` :t LI1PGPG8:3000 JV1LI I$(JV):JV : PGPGLI10 JS1T:(ZB$,Z0,1)" "520100")ZB$(ZB$,Z01):Z0\"*ˁZ0(ZB$)11:(ZB$,Z0,1)" "52020v"/ZB$(ZB$,1,Z01):Z0|"4˱ ::QQ1:200+!*D$"CLOSE":(1023)123Ā=!/D$(13)(4)Q!4D$;"RUN HELLO"\! ZB$""|!!˾ZA$:ZA$;:ZA$(13)52006!"˭ZA$(8)Z01ZB$(ZB$,1,Z01):Z0Z01:52001!#˪ZB$ZB$ZA$!$Z0(ZB$)!%˫52001!&˭(ZB$)052020"(ˁZ01(ZB$)V1(CV23):ZN(ZN$):0 JCV1:36,CH:868:H END OF PROGRAM P :n 10:"DO YOU WANT TO TRY" 12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030 :R$"N"43050 !"Z01(N$):699Z0,((N$,Z0,1)):Z0:699,Z01";FR$:::6:"I CANNOT FIND A REPORT FILE FOR"::"'";F$;"' ON THIS DISK.":30000:43000o@CH(36):CV(37)A"";ZN$:(ZN$)(((ZN$)))40003B(ZN$)0ZN$"0"40006CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001 FZM:868:CQ),3)(G$,4)~y311067yD$"WRITE"F$",R0":G$:D$Wy216,0:960:TQTQ1:31100ay2201}y216,0:960:D$:31200y2680Dz216,0::10:"THIS DISK IS FULL. PLEASE REPORT"::"THIS TO YOUR INSTRUCTOR.":30000:43000Y}216,0:D$;"DELETEETE"F$C"y216,0:D$"CLOSE":22:"'"F$"' ISN'T ON THIS DISK.":680VJy216,0:31060|OyD$"DELETE"F$:D$"DELETE";F$"-R"TyD$::10:"SORRY, BUT THERE AREN'T ANY QUESTIONS"::"SAVED FOR THIS TEST.":30000:43000 |y216,0:D$:NQNQ1:G$(" "(N",L23"! D$;"WRITE ";FR$;",R0"( 1= D$;"CLOSE ";FR$H 43000Q0uHO11u24:868:16368,0:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";5u16384,128:16368,0:1:868:HOė6u1::1::uHO0:30001y216,0:31010yD$"DEL$;"CLOSE ";FR$* 216,0$4 30000UH ::6:"WOULD YOU LIKE TO CLEAN THE REPORT"k\ 8:"FILE";:868p AA$:(AA$,1)"N"43000 (AA$,1)"Y"Ģ18:"YES OR NO PLEASE.":3420 D$;"OPEN ";FR$;",L23" D$;"DELETE ";FR$ D$;"OPEN ";FR$; D$;"READ ";FR$;",R";JH% RR$\ TQ((RR$,3)):C((RR$,4,3)):N1$(RR$,(RR$)6)r PC(CTQ100.5) N1$;22L(TQ));TQ;31L(C));C;39L(PC));PC: (37)21JH(ER1)ĺD$;"CLOSE ";FR$:30000::D$;"OPEN";FR$;",L23" JH DR T":G0 " STUDENT";:18:"NUMBER";:27:"NUMBER";:34:"PERCENT";D 5:"NAME";:17:"POSSIBLE";:26:"CORRECT";:34:"CORRECT"X 34,5b 32000l D$;"OPEN ";FR$;",L23" D$;"READ ";FR$;",R0" ER ER13360 JH1(ER1) $;"OPEN ";FR$;",L23"1T D$;"WRITE ";FR$;",R";ERFh (34);RR$;(34)a| D$;"WRITE ";FR$;",R0"k ER1 D$"CLOSE":216,0 :43000 :6:"WHAT IS THE NAME OF THE" 8:868:"TEST OR DRILL? ";F$:958% FR$F$"-R"& :15:"R E P O  RR$(TQ):C$(C)3 (RR$)3RR$S$RR$:2785O (C$)3C$S$C$:2790i (N$)15N$(N$,15){ RR$RR$C$N$ :D$"CLOSE":216,0:2980 D$;"OPEN ";FR$;",L23" D$;"READ ";FR$;",R0"@ ERJ 216,0:D$"CLOSE"L 31300O D12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030e)FACE0FACE255:SLOT255) :R$"Y"Ĺ760,SLOT:761,FACE::QQ1:ST1:FACE(761):SLOT(760):220)*(1023)123Ā)/D$(13)(4))4D$;"RUN HELLO") ZB$""*!˾ZA$::(ZN$)(((ZN$)))400039(B(ZN$)0ZN$"0"40006t(CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001(FZM:868:CV1(CV23):ZN(ZN$):(JCV1:36,CH:868:( END OF PROGRAM (::D$"PR#0"( 10:"DO YOU WANT TO TRY"G)'>O802,82:818,82)'@O823,80:797,1277'AO775:ST1d'BOZJ3ZJ4İ20232:(9)ZH"N": CHAR/LINEs'GOZQ1:::'24:868:16368,0:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";'ˆ16384,128:16368,0::::'@CH(36):CV(37)(A"";ZN$ZI02558:Z2(ZK)Z2(ZK)(ZWZI)::S&OZ2(0)Z2(1)Z2(0)Z2(2)Z2(0)25620260[&O:& O NO KNOWN PRINTER INTERFACE FOUND&!OZJ1:ZG1&$O FOUND INTERFACE 'ZJ'IN SLOT 'ZG'&.O:20212&8OZE21632&9O10:&;O768,ZG'=OZN$"30"20288 "-SEARCH-",24,56,56,24,72,72,8,72B%OZI$:ZI$"-SEARCH-"20243_%OZJ14:Z5(ZJ),Z7(ZJ):j%OZ2(2)%OZW4940850944256%OZG(ZW49152)256%OZJ14%O(ZW5)Z5(ZJ)(ZW7)Z7(ZJ)20252%OZJ%OZJ0:20255%OZK02:Z2(ZK)0%&OUTPUT PRINTER ONLY, INPUT APPLE; 255-OUTPUT PRINTER ONLY, INPUT PRINTERY$O20232:20235c$OZH80l$ OZV0r$ O$ O:10:"ONE MOMENT PLEASE..."$ O20280$O SEARCH SLOTS FOR AN INTERFACE$OZ5(4),Z7(4): COMM=1, SERIAL=2, PAR=3, MALIBU=4"%O: OR PARALLEL"ĺ(4);"PR#";ZG:202907#N(4)ZF$:20295e#N10:868:"WHICH SPEED (10 OR 30 CPS) ";#NZN$:ZN$"10"ZN$"30"20220#NZA17:ZN$"10"ZA82G$O ZH=CHAR/LINE; ZV=I/O: 0-OUTPUT BOTH, INPUT APPLE; 1-OUTPUT BOTH, INPUT PRINTER; 254-O, SERIAL OR PARALLEL"Ģ10:"ONE MOMENT PLEASE...":20240h"NZF$"COMM, SERIAL OR PARALLEL"ZJ120290"N:5:"TURN YOUR PRINTER ON AT THIS TIME.":ZF$"COMM, SERIAL OR PARALLEL"ZJ1(ZQ)20220"N35000"N10::ZJ120289##NZF$"COMM, SERIALRIAL OR PARALLEL PRINTER INTERFACE), CHANGE ZF$ IN LINE 20210 TO THE STRING THAT WILL ACTIVATE YOUR PRINTER.!N ** ROUTINE USES LINE #'S 20200 - 20299!N!NZQĺ(13);(4);"PR#0":(4);"IN#0"!NZF$"COMM, SERIAL OR PARALLEL"8"N(ZQ)ZF$"COMM YOUR 'PRESS SPACE BAR TO CONTINUE' ROUTINE. N ** WHENEVER YOU WANT OUTPUT TO GO TO PRINTER, DO GOSUB 20200. TO STOP OUTPUT FROM GOING TO PRINTER, DO PR#0:IN#0.l!N ** IF YOU HAVE A SPECIAL INTERFACE FOR YOUR PRINTER (OTHER THAN A COMMUNICATIONS, SE2,169,34,72,96.:ZX$:ZX$"-ERRORS-"15010P:ZZ09:ZX:753ZZ,ZX::753V:N ** PRINTER ROUTINE--LOOKS FOR PRINTER INTERFACE IN SLOTS 1-7.N LAST UPDATE: 6/3/81, N ** TO USE: CHANGE THE WORD 'SPACEBAR' IN LINE 20214 TO THE LINE # OF(G$,4):D$"WRITE"F$",R0":G$:D$"CLOSE"?+15000:TQNQ3020I +3400c.216,0:D$:(7);(7)."*** THE ANSWER FOR THIS QUESTION ***"::"*** DID NOT GET SAVED ON THE DISK. ***".15000:PGPG2:3700::"-ERRORS-",166,223,154,169,216,7JJ120)OB(UI(JJ,1),1)UI(JJ,2):JJ6JI199SLO(JI,1)(LO(JI,1)):JIZEpD$"CLOSE":43000'216,0:10008'D$"DELETE"F$'216,0'15:"'";F$;"' ISN'T ON THIS DISK.":35000:500'*216,0:D$:NQNQ1:G$(" "(NQ),3)2LPPG13638*4JF1(LPPG)::JFJ6"---------------":::PG2c8JW" ";:JW10ĺ" ";n=A$(1)}BJX13700LJY2JX`" ";A$(JY):JYt:PGPGJX1:JW~LPPG13720JF1(LPPG)::JFHM13840OB3780 JFp "----------":PG0& ::TN$; HM1ĺE:PGPG1O :"ANSWERS:":[ PGPG7h JW1TQ{ 216,0:12000 JX110 D$;"READ ";F$;",R";TQ(JW)JX1 A$(JX)(A$(JX),1)(1)3630$JX.216,0:D$0PGJX1LP3640:PGPG6" JS" ";:JS10ĺ" ";- Q$(1)< LQ13340I JU2LQ_ " ";Q$(JU):JUs ::AB13380 41);"ANSWER:-------------------------":PGPG14 > TQ(JS)TQ(JS)LQ:PGPGLQ3H JSR (LPPG)13440\ JF1(LPPG)::"(ENTER 1 - 5) ";:X$:X9(X$)FX9(X9)X91X95(X9)X$1250gX91400,1570,1062,2210,1280y::ED0:896xD1001440DD1::"ENTER WORDS 1 AT A TIME UP TO 100 WORDS.":"ENTER A 'RETURN' WHEN FINISHED."TD10010009),S1(T):D$"CLOSE" D$k::" LIST: ";N$;:20:"WORDS: ";D:34,4:5:"WOULD YOU LIKE TO":tE10" 1) ADD WORDS,"::" 2) DELETE WORDS,"::" 3) CHANGE WORDS,":" 4) GET A LISTING,":" 5) STOP"18:868:PELL/WORDER/MIXUP"3180bP1$:P1$PW$ĺD$::5:"'";PW$;"' IS NOT THE CORRECT PASSWORD.":880t216,0:1170X11ĺD$:D$;"CLOSE ";N$:D$;"DELETE ";N$:216,0:12:N$;" HAS BEEN DELETED.":35000::880216,0 D,Z:D0āT1D:W$(T),S(TAM." !WORD FIND EDIT,SPEDIT2M"WORD FIND EDIT IS USED TO CREATE AND"|"EDIT LISTS OF WORDS TO BE USED WITH THE""WORD FIND PROGRAM."P SPACE-BAR ROUTINEPZH(36):ZV(37):ZZ1200:ZZP24:7:16368,0#P"PRESS ";::"SPACEUSED TO CREATE DRILLS"B"OR TESTS BASED ON TEACHER DETERMINED"i"MATERIAL. A PRINTER IS NEEDED." "WORD FIND","WORDER""WORD FIND MAKES WORD FINDS FROM A LIST""OF TEACHER-DETERMINED WORDS. A PRINTER""IS NEEDED FOR THIS PROGRVIDE DRILL ON "3"TEACHER DETERMINED MATERIAL."= " "W REVIEW LOAD,REVLOAD "REVIEW LOAD IS USED TO CREATE THE FILES" "USED WITH THE REVIEW AND TEST GENERATOR""PROGRAMS." TEST GENERATOR,TESTGEN "TEST GENERATOR IS ENT ASSISTS TEACHERS IN THE" ;f"CALCULATION OF GRADES."Eg " "[p POSTERS,POSTERSq"POSTERS MAKES SIGNS IN LARGE LETTERS." r"IT IS ASSUMED THAT THE USER HAS "s "A PRINTER AVAILABLE." z REVIEW,REVIEW"REVIEW IS USED TO PROOWS TEACHERS TO "<"CREATE AND EDIT LISTS OF WORDS AND "g"DEFINITIONS FOR USE WITH CROSSWORD."$ FREQUENCY,FREQUEN% "FREQUENCY PERFORMS BASIC STATISTICAL"&"COMPUTATIONS ON USER SUPPLIED" '"DATA." d PERCENT,PERCENe"PERCHAT A" 3"A PRINTER IS ATTACHED TO THE APPLE." I CROSSWORD,CROSSz "CROSSWORD CONSTRUCTS A CROSSWORD PUZZLE""FROM TEACHER-DETERMINED WORDS AND " "CLUES. A PRINTER IS NEEDED." CROSSWORD EDIT,CREDIT2"CROSSWORD EDIT ALL1:(37)18İ20500:;9C24:N$(T,C)""N$(T,C)" "835K>N$(T,C):C[C:T:20500hH::200 "TEACHER UTILITIES - VOLUME 1",11 BLOCK LETTERS,BLKLETR "BLOCK LETTERS CONSTRUCTS BANNERS FOR""THE USER. IT IS ASSUMED TDISKETTE.":20500::720* vVX$"N"6107 ::255= V A(999)(1000)256l B(A)(A1)256 CS(B1)16:SLOT # CS1CS7CS6 (4)"PR#"CS  DESCRIPTIONS *:34,1: /14:"DESCRIPTIONS":34,4 24T1N"ZN0:? ZM:"THAT IS NOT A NUMBER - TRY AGAIN";:550:500g ZM:868:CV1(CV23):ZN(ZN$): &CV1:36,CH:868: X: b10:1:"DO YOU WANT TO RUN ANOTHER"::"DISKETTE";:868:VX$:VX$(VX$,1) lVX$"Y"ė:10:9:"INSERT THE NEW 470@ 22:1:"PLEASE ENTER A NUMBER FROM 1 TO "N".":16:280M QN600s ::10:"GETTING THE PROGRAM..." 230,32:62450 D$;"RUN ";N$(Q,1) CH(36):CV(37) "";ZN$:(ZN$)(((ZN$)))520 (ZN$)0ZN$"0"540 ZN$"DT:(1023)123280@ J1(16384)128:J10JJ1:J300275X 16368,0:1023,123 16:1:"TYPE THE NUMBER OF THE PROGRAM YOU WANT.":"(IF YOU WANT DESCRIPTIONS, TYPE 'D'.) ";:868 16303,0 "490 ,ZN$"D"800 QZN Q0QN1$(N,4)5 xT1N1:C04:N$(T,C):::N$(N,0)"END"L 1:20(T$)2:T$\ VV4(N17) 2:11:"AVAILABLE PROGRAMS":VV T1N:2TN1Ė20 T10ĺ" "; T" "N$(T,0) T((N3)4)T((N3)4)((N1)2)ĺ T((N1)2)ĢVV ZA$;:ZA$(13)52006J*"˭ZA$(8)Z01ZB$(ZB$,1,Z01):Z0Z01:52001[*#˪ZB$ZB$ZA$i*$Z0(ZB$)t*%˫52001z*&˱D&˱ZZ0Z01:52001*#˪ZB$ZB$ZA$*$Z0(ZB$)*%˫52001*&˱ OF THIS QUESTION DIDN'T":"GET STORED. SORRY.":3250 ER8ĺ"PLEASE MAKE SURE THE DISK IS IN THE":"DRIVE AND THE DRIVE DOOR IS CLOSED.":3200 ER93050! LN4000ĺ"THIS DISK IS FULL. PLEASE INSERT":"ANOTHER DISK TO SAVE THE FILE ON.":3200" ZZ09:ZX:753ZZ,ZX::753y 16:958:ER4ĺ"PLEASE REMOVE THE WRITE-PROTECT":"STICKER FROM THE DISK.":3200 ER53030 RE0ĺD$"DELETE"FI$:"'"FI$"' ISN'T ON THIS DISK.":32505 NQNQ1:D$"WRITE"FI$",R0":3800:G$:D$:"THE REST :2740 R$R$L$0 O$(LO(JQ(JP1)QB,2))F (O$)2O$S$O$S R$R$O$[ JQk, QT$;R$;QT$s@ JPJ F31ĺD$::5600T FI$F$:4060h :43000 216,0:ER(222):D$  :LN(218)256(219) ZZ$:ZZ$"-ERRORS-"3004080 pJKNQJK:FORN1-NQ043000CFI$F$:RE0:4020M3800] QT$;G$;QT$< NQQB(NQQB)TCNQQB:2660P TC(NQQB1)d JP1TCx FI$F$:REJP:4020 R$"" JQ1QB L$(LO(JQ(JP1)QB,1)) (L$)4L$S$L$M...":(4);"RUN HELLO"40003#$B(ZN$)0ZN$"0"40006^$CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001$FZM:868:CV1(CV23):ZN(ZN$):$JCV1:36,CH:868:DELETE ";N$:D$;"CLOSE";N$:880^#v :5:"USE 'CROSSWORD EDIT' TO ";ED$(X1);" '";N$;"'.":880#24:868:7:16368,0:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:16384,128:16368,0:1:868:#@CH(36):CV(37)$A"";ZN$:(ZN$)(((ZN$)))40003#"B(ZN$)0ZN$"0"40006^"CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001"FZM:868:CV1(CV23):ZN(ZN$):"JCV1:36,CH:868:" 950"l 216,0:D$:CR1CR0:925#q P$""ė:5:"'";N$;"' IS NOT ON THIS DISK.":D$;"DELETE ";N$:D$;"CLOSE";N$:880^!v :5:"USE 'CROSSWORD EDIT' TO ";ED$(X1);" '";N$;"'.":880!24:868:7:16368,0:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:16384,128:16368,0:1:868:!@CH(36):CV(37)"A"";ZN$:(ZN$)(((ZN$))):39((PC)):PC0 Y3::Y2:35000::Y1:Y1^ (Y1)12((Y1)12.0001).0001İ35000l ::1180 :7:"THE CURRENT TIME LIMIT IS ";Z;" SECONDS." 950 l 216,0:D$:CR1CR0:925!q P$""ė:5:"'";N$;"' IS NOT ON THIS DISK.":D$;":21:"USED";:27:"MISSED";:35:"MISSED"l8: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);:PC(100S1(Y)S(Y).5)";E$:E$(E$,1):E$"Y"E$"N"17516E$"Y"1570@1180:L10:E1L1:Y1100:S(Y)0ĭ((S(Y)))L1L1((S(Y)))L10E11:1062ZH22((L11)2):L11ZH23XHZH7:L11XHZH6*5:24:"TIMES";:37:"%":6:"WORD"; DISKETTE.":35000:1632CCCC1::10:CC1ĺ"PLEASE BE SURE THE DISKETTE IS IN"::"PLACE AND THE DRIVE DOOR IS CLOSED.":35000:1632"I AM UNABLE TO USE THIS FILE.":35000:::880D01180%16:868:"DO YOU WANT TO DELETE SOME MORE? 1):S1(T)S1(T1) IT1D1>W$(I);",";S(I);",";S1(I)jW$(I)W$(I1):S(I)S(I1):S1(I)S1(I1)qID$;"CLOSE ";N$:216,0:1750ER(222):216,0ER4CC0::10:"PLEASE REMOVE THE WRITE-PROTECT"::"STICKER FROM THE EDGE OF THE70#TDD1:1:28:D;:868::12,^CC0>`216,0:1742QfD$;"OPEN ";N$ehD$;"WRITE ";N$r"SPELL/WORDER/MIXUP"wPW$|D;",";ZT11705I1T1W$(I);",";S(I);",";S1(I)ITD11740W$(T)W$(T1):S(T)S(T:5:"SORRY, YOU CANNOT ADD ANY MORE TO THIS LIST.":880v":D0Ģ10:"THERE ARE NO WORDS TO DELETE.":35000:1180'10:"WORD TO DELETE? ";E$,E$""11806T1D:E$W$(T)1620@TJ15:(34);E$;(34);" ISN'T IN THIS LIST.":35000:15TOP OF THIS TEST";:"? ";TN$P 10:"DO YOU WANT ANSWER BLANKS PRINTED";:868}4"? ";AA$:958:(AA$,1)"Y"AB1:2140H(AA$,1)"N"Ģ20:"YES OR NO PLEASE.":2080\15:"HOW MANY LINES PER PAGE ON"::868:"YOUR PRINTER? ";LP$:LP(LP$):LI$(JR)"END"ī2020(I$(JR))72Ģ22:"THAT LINE HAS MORE THAN 72 LETTERS.":"TRY AGAIN.":CV:868::868::868:CV:1910(37)18ė:2000:958JR::LIJR14:"WHAT NAME WOULD YOU LIKE TO HAVE PRINTED" 6:"AT THE 2040(AA$,1)"Y"Ģ23:"YES OR NO PLEASE.":1780@:I$(10)D:"ENTER YOUR INSTRUCTIONS ONE LINE AT A":"TIME (UP TO 10 LINES OF 72 LETTERS EACH)";X"TYPE 'END' TO STOP.":34,4:5lJR110:CV(37)1vJR"? ";52000:I$(JR)ZB$FERENT TEST SHEETS DO YOU":h8:"WANT PRINTED? ";:868K|40000:HMZNeHM1HM(HM)ī164012:"DO YOU HAVE A SET OF INSTRUCTIONS WHICH":"SHOULD BE PRINTED AT THE TOP OF EACH"16:"TEST";:868"? ";AA$(AA$,1)"N"20I(JP,2)(UI(JP,2))ī1490$150020:"THERE ARE ONLY ";OB(UI(JP,1),2);" QUESTIONS IN":"OBJECTIVE #";UI(JP,1);" - TRY AGAIN.":1440JP:JQ1(JP1)OB(UI(JQ,1),1)UI(JQ,2)"TQTQUI(JQ,2),JQ@T6:"HOW MANY DIF"YOU'VE ALREADY USED THAT OBJECTIVE #.":13406lLLQnOB(UI(JP,1),2)01400[s1420x20:"BAD OBJECTIVE NUMBER - TRY AGAIN.":134095814:"NUMBER OF QUESTIONS?";:86840000:UI(JP,2)ZNUI(JP,2)OB(UI(JP,1),2)UI(JP,2)1USTOP, TYPE A '0' FOR THE OBJECTIVE #":34,78JP130>(^<10:"OBJECTIVE #? ";:868{P40000:UI(JP,1)ZN:958dUI(JP,1)0ī1520iUI(JP,1)0UI(JP,1)99UI(JP,1)(UI(JP,1))1400jJP11390.kLL1(JP1):UI(JP,1)UI(LL,1)Ģ18:0 LJM`JL!tOB116008OB(99,2),UI(30,2)EJN199RJO1NQwLO(JO,2)JNOB(JN,2)OB(JN,2)1JO:JN:"TYPE IN THE OBJECTIVE NUMBER AND THE"::"NUMBER OF QUESTIONS REQUESTED OUT OF":"THAT OBJECTIVE.":+"TO \NQQB(NQQB)TCNQQB:8901pTC(NQQB1)=zH$(TC)JJK1TCeD$;"READ ";F$;",R";JKqH$(JK)yJKD$JL1TCJM1QBCT1CT$LO(CT,1)((H$(JL),6(JM1)1,4))8LO(CT,2)((H$(JL),6JM1,2))BCTNQ114TIONS DO YOU WANT ON EACH"3 11:"TEST? ";:868D 40000:TQZN TQNQĢ21:"SORRY, THE MAXIMUM NUMBER OF QUESTIONS":"AVAILABLE IN '";F$;"' IS "NQ".":740 15:958:"ONE MOMENT PLEASE...":D$"OPEN"F$",L"RS 4RS42QB6 HRS76QB12(G$)17Ģ10:958:"'"F$"' CAN'T BE USED"::"WITH THIS PROGRAM.":35000:43000r NQ((G$,3)):MQ((G$,4,3)) OB((G$,7,1)):RS((G$,8,2)) FO((G$,10,4)):RC((G$,14,1)) PS((G$,15,3)) 958 OB1800 9:"HOW MANY QUES":% "BOTTOM OF EACH TEST SHEET."0 35000[ 3:"WHAT IS THE NAME OF YOUR FILE OF" 5:868:"QUESTIONS AND ANSWERS? ";F$:F$""520 &216,0:10000 0D$;"OPEN ";F$;",L74" DD$;"READ ";F$;",R0" lG$ v216,0 D$"CLOSE"P HEN BE USED TO PRINT OUT":H r"ANY NUMBER OF DIFFERENT TEST SHEETS":u t"USING SOME OR ALL OF THE QUESTIONS.": w"QUESTIONS WILL BE PRINTED AT RANDOM": |"WITH OPTIONAL ANSWER BLANKS. A LIST OF": "CORRECT ANSWERS WILL BE PRINTED AT THED$(4):D$;"NOMON I,O,C":% ZM231 QQ500[ J::7:"T E S T G E N E R A T O R"a T ^"TO USE THIS PROGRAM YOU MUST HAVE": c"CREATED A FILE OF QUESTIONS AND ANSWERS": h"WITH THE PROGRAM 'REVIEW LOAD'. THIS": m"PROGRAM MAY T{"TESTGEN,LAST UPDATE: 8/31/81 RJG2G(C) MECC, 1979 yAUTHOR: DEAN HJELLE, BRANDON ASSOCIATED FILES: REVLOAD, REVIEW (4);"BLOAD PRNTERB,A765"255:::LO(200,2),Q$(20),A$(10),TQ(200)                   CORRECTLY ON":% "THE FIRST TRY."W 14:10:"SCORE: ";(CTQ100.5);"% CORRECT"w 20:(CTQ100.5)PS2758 "GOOD WORK, ";N$;".":2760 "YOU BETTER HIT THE BOOKS, ";:(N$)13ĺ N$;"." 30000 RC143000 FR$F$"-R" LA  D$, :JY;")";Q$(1):LQ12560B JU2LQ:LQ11ĺW " ";Q$(JU):JU]  :"ANSWER? ";:52000:AN$ZB$( JV1LA< AN$A$(JV)ī2020P JVd 1650n D$;"CLOSE ";F$x JY:216,0 :8:"YOU ANSWERED ";C;" QUESTIONS ;"READ ";F$;",R";WR(JY)LQ1(Q$(LQ)C (Q$(LQ),1)(1)2360K$ LQW8 LQLQ1dL LA111jV ` D$;"READ ";F$;",R";WR(JY)LQLA1t A$(LA)~ LA1A$(LA)(A$(LA),(A$(LA))1) (A$(LA),1)(1)A$(LA)(A$(LA),(A$(LA))1):2480D JOB!!!";:214094" YOU'RE DOING GREAT!!!";:2140ZH" RIGHT ON TARGET!!!";o\(7);(7);(7);p(37)23āST1600:ST:30000:FL12680JSJB02700216,0:31200JY1JB:FL1LQ120D$B$JV1LA$AN$A$(JV)2000,JVb:"LOOK AT THE CORRECT ANSWER(S) AGAIN...":179014:"CORRECT.":30000::2200:(5(1)1)2040,2060,2080,2100,2120" GREAT!!!";:2140 " CORRECT!!!";:2140 " GOO A LITTLE OFF TARGET.":?"THE CORRECT ANSWER(S) WAS/WERE:"HJV1V:A$(JV)zJVLA1ĺ" -OR-":A$(LA):18600JVJV1:JV(LA)1800D30000X4:"NOW, TYPE IN A CORRECT ANSWER"::"FOR PRACTICE.":b:"ANSWER? ";l52000:AN$Z:"ANSWER? "; ,52000:AN$ZB$-@JV1LAITAN$A$(JV)CC1:2020QhJVWrrwJBJB1:WR(JB)LO(RA)|(4(1)1)1680,1700,1720,1760"OOPS, ";:1780"NO, ";:1780"YOU DIDN'T QUITE GET THAT ONE."::1780"NO, THAT WAS)LQLA1A$(LA)<LA1A$(LA)(A$(LA),(A$(LA))1)u(A$(LA),1)(1)A$(LA)(A$(LA),(A$(LA))1):1495}LALO(RA)LO(RA)D$:216,0:JS;:JS10ĺ" ";Q$(1):LQ11560JU2LQ:LQ11ĺ" ";Q$(JU):JU :(JM1)1,4))CTNQ1280(JM:JL5JS1TQIRA((1)NQ)1\(LO(RA)11300hP31100udLQ120xD$;"READ ";F$;",R";LO(RA)LQ1Q$(LQ)(Q$(LQ),1)(1)ī1465LQLQLQ1LA111 D$;"READ ";F$;",R";LO(RA TQ1920' D$;"OPEN ";F$;",L42"G NQ6(NQ6)TCNQ6:1060X TC(NQ61)d $H$(TC)w .216,0:31100 8JK1TC LD$;"READ ";F$;",R";JK `H$(JK):JK tD$ ~216,0 JL1TC JM16 CT1CT LO(CT)((H$(JL),642900K \20:"'"F$"' CAN'T BE USED WITH":"THIS PROGRAM.":30000:43000Q  9:"HOW MANY QUESTIONS DO YOU WANT?";:868 40000:TQZN 958 TQNQĢ21:"SORRY, THE MAXIMUM NUMBER OF QUESTIONS":"AVAILABLE IN '";F$;"' IS ";NQ;".":920NAME OF THE DRILL OR TEST"J 19:868:"YOU'RE GOING TO TRY? ";F$:958V 31000p D$;"OPEN ";F$;",L42" D$;"READ ";F$;",R0" G$ 216,0 D$;"CLOSE ";F$ NQ((G$,3)):RS((G$,8,2)) 4RC((G$,14,1)):PS((G$,15,3)) HRS$((699Z0)):Z0:3801 @8:15:"R E V I E W"Y T18:"HELLO, WHAT'S YOUR NAME? ";N$g ^18:958 |N$"*REPORT*"3100 N$""340 X12:" THIS PROGRAM WILL QUIZ YOU ON A SET"::"OF QUESTIONS STORED ON THE DISKETTE." 17:"WHAT IS THE AD AND TESTGENO I09:X:960I,X:: 166,223,154,169,216,72,169,34,72,96 ^ 255:::y V(X)(X)256(X1) L(X)((X)) LO(200),Q$(20),A$(10),WR(200) ZM23:S$(32) D$(4) D$;"NOMON I,O,C": QQāZ01(699):N$N} PROGRAM: REVIEW< LAST UPDATE: 81/8/3 CPEBYd (C) MECC 1979x PROGRAM NAME:REVIEW 6/2/80 FP AUTHOR: DEAN HJELLE, BRANDON ASSOCIATED FILES: ONE OR TWO USER-DEFINED FILES ASSOCIATED PROGRAMS: REVLO             ENTER THE OBJECTIVE NUMBER, AND":YP"THEN THE QUESTION FOLLOWED BY THE ANSWER":1400d"NOW PLEASE ENTER EACH QUESTION FOLLOWED"::"BY ITS ANSWER.":x"(EACH QUESTION MAY BE UP TO TWENTY LINES":"LONG, AND YOU MAY HAVE AS MANY AS TEN":O"0(A$,1)"Y"Ģ23:"YES OR NO PLEASE.":1180MFR$F$"-R":RC1:FI$FR$eLE23:4000:FR$FI$tRE0:4020RC:4060FRMQQB1FR(FR)FR(FR1) RNFR1:(OB01380#<"NOW PLEASE ENTER YOUR QUESTIONS."::"FIRSTLAA2RS42:QB6l`11:"WHAT PERCENTAGE IS A PASSING GRADE?"::"ENTER A NUMBER FROM 0 TO 100?";:868}t40000:PSZNPS100PS0112016:"WOULD YOU LIKE TO HAVE A RECORD KEPT OF"::"STUDENT SCORES";:868A$(A$,1)"N"1260(A$,1)"N"Ģ23:"YES OR NO PLEASE.":88042:"WILL THIS FILE BE FOR"::" 1) TESTGEN ONLY, OR"::" 2) REVIEW AND/OR TESTGEN?"8:"(ENTER 1 OR 2) ?";:868:40000:AAZN:AA1AA29908AA1RS76:QB12:PS0:RC0:1260NGE OF 1 TO":"99 MAY BE ASSOCIATED WITH EACH QUESTION"\16:"AND MAY BE USED WITH THE TEST GENERATOR"::"PROGRAM TO GENERATE TESTS BY OBJECTIVE"::"NUMBERS."p22:"DO YOU WISH TO USE OBJECTIVE NUMBERS";:868A$(A$,1)"Y"OB1:960.LETE"FI$:D$"CLOSE" 3000v 7:"ENTER THE MAXIMUM NUMBER OF QUESTIONS"::"WHICH WILL BE IN THIS FILE?";:868 40000:MQZN4MQ1MQ200MQ(MQ)Ģ23:"ENTER AN INTEGER FROM 1 TO 200.":780>9587H12:"AN OBJECTIVE NUMBER IN THE RA00E2:"WHAT DO YOU WANT TO"::868:"NAME YOUR FILE? ";F$O958_AA443040uFI$F$:LE1:4000D$"READ"FI$:778A$:216,0:D$"CLOSE"18:"THERE IS ALREADY A FILE ON THE DISK":"WITH THAT NAME.":3250 216,0:D$"DE0:4040p216,0:650!rG$3v216,0:3000[x(G$,14,1)"1"ĺD$"DELETE";F$"-R"mzD$"DELETE"F$||D$"CLOSE"10:"'"F$"' HAS BEEN DELETED.":39000:500216,0:3000D$"DELETE"F$10:"'"F$"' ISN'T ON THIS DISK.":39000:5, OR"::" 4) END"\12:"(ENTER 1 - 4) ?";:868:40000:AAZN:AA1AA4AA(AA)510lAA443040{0AA15000:AA2700Xb5:"WHAT IS THE NAME OF THE FILE"::868:"YOU WANT DELETED? ";F$:F$""500lFI$F$:LE74:4000nRE NAME IN 'REVIEW'.":G :"THIS PROGRAM WILL ALSO LIST OUT AND EDIT"| "PREVIOUSLY CREATED FILES OF QUESTIONS.":39000  ::2:"DO YOU WANT TO"::" 1) WORK WITH AN EXISTING FILE,":" 2) CREATE A NEW FILE,"::" 3) DELETE A FILE) "USED. ALL QUESTIONS NOT ANSWERED":Y "CORRECTLY IN REVIEW WILL BE ASKED AGAIN." "AN OPTIONAL LIST OF STUDENT'S SCORES": "CAN BE KEPT BY THE COMPUTER. TO GET A": "REPORT OF THESE SCORES TYPE '*REPORT*'": "WHEN ASKED FOR YOUR|"ENSURING A DIFFERENT DRILL OR TEST EACH"2 }^ "TIME THE PROGRAM IS RUN. UP TO 200 "d  "QUESTIONS MAY BE STORED IN ONE FILE.":39000  :"QUESTIONS UP TO TWENTY LINES IN LENGTH": "WITH UP TO TEN POSSIBLE ANSWERS MAY BE": THE":8 J"QUESTIONS AND ANSWERS TO BE USED BY THE":j T"PROGRAMS, 'REVIEW' AND 'TEST GENERATOR'.": ^"ALL QUESTIONS WILL BE ASKED AT RANDOM.": h"MORE QUESTIONS MAY BE ENTERED THAN WILL": r"BE USED IN REVIEW OR TEST GENERATOR," s, 54,169,216,72,169,34,72,968 D$(4):D$;"NOMON I,O,C"U LO(200,2),Q$(20),A$(20) RN0:OB0:RC0:ZM23:S$" ":QT$(34) 255::: 3000 QQ500 QQ1 ,:10:"R E V I E W L O A D" 6: @"THIS PROGRAM ALLOWS YOU TO ENTER BAR";::" TO CONTINUE";A(PZC(16384):ZC141ZC16020520l2P16368,0:1:868:21::ZV1:ZH1:Dz!#~?    Ϡ" Š ˠ"ˠ" ҠנΠ$ԲȠ!Բ!  ϠΠΠl!Ġ:Ӡ Ӡ$Ҡ+NTINUE' ROUTINE.7N ** WHENEVER YOU WANT OUTPUT TO GO TO PRINTER, DO GOSUB 20200. TO STOP OUTPUT FROM GOING TO PRINTER, DO PR#0. j8N ** IF YOU HAVE A SPECIAL INTERFACE FOR YOUR PRINTER (OTHER THAN A COMMUNICATIONS, SERIAL OR PARALLEL PRINTER INTERFA 6h$:5600|6N ** PRINTER ROUTINE - LOOKS FOR COMMUNICATIONS, SERIAL, OR PARALLEL PRINTER INTERFACE IN PERIPHERAL SLOTS.6N LAST UPDATE: 7/11/807N ** TO USE: CHANGE THE WORD 'SPACEBAR' IN LINE 20214 TO THE LINE # OF YOUR 'PRESS SPACE BAR TO COLF0W$L$O$:9135+5#W$(W$,6LF)L$O$15#H5#FI$F$:RETC:4020X5#QT$;W$;QT$p5#NQ$(NQ):FO$(FO)5#(NQ$)3NQ$S$NQ$:92005$(FO$)4FO$S$FO$:92205$G$NQ$(G$,4,6)FO$(G$,14,4)5,$FI$F$:RE0:40205@$QT$;G$;QT$6T$D$9584!6860$4(#:JKNQ1:"#";JK;42#B91:RNFO1:1510O4<#FORN1:NQNQ1o4P#LF(NQ1)QB(((NQ1)QB))4n#LF0TCTC1:91054x#FI$F$:RETC:40404#W$4#L$(LO(NQ,1)):O$(LO(NQ,2))4#(L$)4L$S$L$:91104#(O$)2O$S$O$5#(ZB$)70Ģ20:"THAT LINE IS TOO LONG. RETYPE.":11:868::868::868:11:8420[3 !:u3!ZNLQ1ZB$(1)ZB$3!ZN(LQLA)ZB$ZB$(1)34!FI$F$:RELO(Q,1)ZN1:40203H!QT$;ZB$;QT$3\!D$3!ZNLQA$(ZNLQ)ZB$:86203!Q$(ZN)ZB$4!0ė:6500)2l :4:ZNLQĺQ$(ZN):834082 A$(ZNLQ)Z2 9:"CHANGED TO?":RS768420p2 11:" ";:520002 (ZB$)38Ģ20:"THAT LINE IS TOO LONG. PLEASE RETYPE.":11:868::868::868:11:83602 84602 11:" ";:52000S3 21RS76LQJD8100 18120-139000:51JDM1LA(24(37))8180Z139000:m1JDLQ1LQLA~1 JD10ĺ" ";1 JD;S$;A$(JDLQ)10 JD1D 23:"WHICH LINE DO YOU WANT TO CHANGE?";:868:400001X ZN0ZNLALQZN(ZN)8260 2b ZN(NQ):FO$(FO).0(NQ$)3NQ$S$NQ$:7600M0(FO$)4FO$S$FO$:7620q0G$NQ$(G$,4,6)FO$(G$,14,4)0FI$F$:RE0:40200 QT$;G$;QT$0F31:26200@::JD1LQ0TJD10ĺ" ";0hJD;S$;Q$(JD)0|(37)22LQJD81001(37):/QNQ7560./JB(LO(Q,1)LT)(FO1)E/FI$F$:REJB:4040M/W$`/REJBLT:4020p/QT$;W$;QT$x/$JB/8D$/LJCQ(NQ1)/`LO(JC,1)LO(JC1,1)LT:LO(JC,2)LO(JC1,2)/tJC/LO(NQ,1)0:LO(NQ,2)0/NQNQ1:FOFOLT0NQ$T.".34,23!.24:868:ED$=.RT0(ED$,1)"R"7160I. JB15. (ED$,1)("CDRNQ",JB,1)ĴJB8000,7320,7280,7300,7260.4JB.H7160.\FI$F$:4060:::43000.p::" #";Q:RT1RT0:JA.zRT0:6960.::6520/LTLALQ:7040 -lJAB-18:"----------------------------------------";k-"TYPE 'C' TO CHANGE THIS QUESTION,"-6:"'D' TO DELETE THIS QUESTION,"-RT1RT2Ė6:"'R' TO SEE THE REST OF QUESTION,"-6:"'N' TO SEE NEXT QUESTION,".6:"'Q' TO QUIQ,1)LQLA1:4040,|A$(LA)9,(A$(LA),1)(1)6840A,LAI,D$V,JA1LQb,Q$(JA)y,A716:RS72A715,(37)A7JALQRT1:7040,JA:,LA(17(37))6960,RT2:7040,0JA1LA,DA$(JA)-X(37)16JA(LA)RT1:-----------"::PG0:!+d:QQ16+xQQ1:QNQ5600Z+" #";Q;:RT0:OB0ĺ:6600r+25:"OBJ#";LO(Q,2)x++LQ120+FI$F$:RELO(Q,1)LQ1:4040+Q$(LQ)+(Q$(LQ),1)(1)6720+,LQ+@LQLQ1+TLA110,hFI$F$:RELO(D$*~PGLA465İ6441/*"OBJ# ";LO(Q,2)@*Q;4);Q$(1)O*LQ16340\*JA2LQp*4);Q$(JA):JAv**Q;4);A$(1)*LA16405*JA2LA*4);A$(JA):JA*:* PGPGLQLA4*(6000*)JF1(66PG2)::JF+*"----Q,1)0ĺ::"---------------":D$:D$"PR#0"::5600@)LQ120a)FI$F$:RELO(Q,1)LQ1:4040m)Q$(LQ))(Q$(LQ),1)(1)6140)LQ)LQLQ1)LA110)$FI$F$:RELO(Q,1)LQLA1:4040)8A$(LA))L(A$(LA),1)(1)6260)`LA*t(0ZN1ZN25640(:PRZNP(D:6:"AT WHICH QUESTION SHOULD THE LISTING"h(X8:"START?";:868x(l40000:QZN(vQ0ė:5600(Q15720(QNQLO(Q,1)15720(PR16500( 20200(\QQ1(k"---------------"(pQQ1:3)LO(          ,1,Z01):Z0Z01:52001(*#˪ZB$ZB$ZA$6*$Z0(ZB$)A*%˫52001G*&˱ $"Y"R$"N"430302)FACE0FACE255:SLOT255}) :R$"Y"Ĺ760,SLOT:761,FACE::QQ1:ST1:FACE(761):SLOT(760):220)*(1023)123Ā)/D$(13)(4))4D$;"RUN HELLO") ZB$"")!˾ZA$:ZA$;:ZA$(13)52006*"˭ZA$(8)Z01ZB$(ZB$ŠîŠȢӢȠȠȮȠȠȮZB$(ZB$,1,Z01):Z0Z01:520015@#˭ZA$(34)52001O@$ZB$ZB$ZA$:Z0(ZB$)Z@%˫52001v@&˹16368,0:ZB$""52030@*ˁZA(ZB$)11:(ZB$,ZA,1)" "52030@4ZB$(ZB$,1,ZA1):@>˱ 40010:400014?FZM:868:CV1(CV23):ZN(ZN$):M?JCV1:36,CH:868:e? END OF PROGRAM y?:::QQ1:200? ::D$"CLOSE"?*(1023)123Ā?4D$;"RUN HELLO"? ZB$""?!˾ZA$:ZA$(34)ĺZA$;:ZA$(13)52006 @"˭ZA$(8)Z01:K>X24:868:16368,0:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";v>b16384,128:16368,0:1:868:22::>@CH(36):CV(37)>A"";ZN$:(ZN$)(((ZN$)))40003>B(ZN$)0ZN$"0"40006 ?CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:O:,= O NO KNOWN PRINTER INTERFACE FOUND@=!OFACE1:SLOT1t=$O FOUND INTERFACE 'FACE' IN SLOT 'SLOT'=.O:20212=8OD$"BLOAD PRNTERB"=;O768,SLOT==OZN$"30"20288=>O802,82:818,82=@O823,L1:797,F1=AO:775=BOST1>DO22:100C700256!<OZK02:CS(ZK)0L<OZI02558:CS(ZK)CS(ZK)(ZSZI)::<OCS(0)CS(1)CS(1)CS(2)CS(2)256CS(0)256CS(1)25620255<OSLOT(ZS49152)256<OFACECOMMPAR<O(ZS5)S5(FACE)(ZS7)S7(FACE)20260<OFACE<OFACE0= ; O20280B;O SEARCH SLOTS FOR A PARALLEL OR SERIAL INTERFACEi;OS5(3),S7(3):COMM1:SERIAL2:PAR3;O: "-SEARCH-",24,56,56,24,72,72;OA$:A$"-SEARCH-"20243;OFACECOMMPAR:S5(FACE),S7(FACE):;OCS(2):C10049408:C70050944 <OZSC9=:NFACE$"COMM, SERIAL OR PARALLEL"ĺD$;"PR#";SLOT:20290Z:N(13);(4);FACE$:20290:N10:868:"WHICH SPEED (10 OR 30 CPS) ";:NZN$:ZN$"10"ZN$"30"20220:OL180: # OF CHARACTERS PER LINE: OF1127; O:10:"ONE MOMENT PLEASE..."N(ST)FACE$"COMM, SERIAL OR PARALLEL"Ģ10:"ONE MOMENT PLEASE...":202409NFACE$"COMM, SERIAL OR PARALLEL"FACE1202909N:5:"TURN YOUR PRINTER ON AT THIS TIME.":FACE$"COMM, SERIAL OR PARALLEL"FACE1(ST)202209N39000:NFACE12028CE), CHANGE FACE$ IN LINE 20210 TO EQUAL THE SET OF DOS COMMANDS NECESSARY TO SEND OUTPUT TO YOUR PRINTER.8N ** ROUTINE USES LINE #'S 20200 - 20299 AND 61000 - 610998N8NSTĺ(13);(4);"PR#0":(4);"IN#0"8NFACE$"COMM, SERIAL OR PARALLEL"L9))A"";ZN$:(ZN$)(((ZN$)))40003FB(ZN$)0ZN$"0"40006CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001FZM:868:CV1(CV23):ZN(ZN$):JCV1:36,CH:868:(G71999::1)24:" PRESS '";::"SPACE BAR";:39:IG1202Q(I)01180*I16ĠIAI15I31Ġ(I15)SI30Ġ(I30)p39(Q(I)HF39),38ISwI:(S1):MN;(GSV1):(MNRG)22" FREQUENCY HISTOGRAM"41000@CH(36):CV(370=I139?IG1126;BC(V(I1)MN)(VIMN1)HGL1OBS]L(A(L))C1110gQNN1{V(A(L))C1115XL[C`Q(I)N:N0eIf::12g0,390h0,3939jI139:IG1150oQ(I)HFHFQ(I)tI ~I1OR NO PLEASE.":8:1020A22:10:"ONE MOMENT PLEASE..."L!Q(39)a"(A(1))11060#I1OBS:A(I)10A(I):I:RG10RG:MIN10MIN:1058$GRG1)MN(MIN).G19G40V1:S13G20V1:S(39G)8G39V(G39)1:S1<N,P(A);10);P(B);20);P(C);30);P(D)L(I1)36((I1)36)1010W41000::IPĺ"VALUE FREQ PCT CUM PCT":IOBS39İ41000::"DO YOU WANT A HISTOGRAM";A$:(A$,1)"N"ı (A$,1)"Y"ė:4:"YES VA(I) J1P2KJ1: VF(J)F(K)F(K)1:850A*JK4PP2V>F(P)VcHF(P1)1lRI:\:"VALUE ";f"FREQ ";p"PCT ";z"CUM PCT ":D0I1P2AF(I)BF(I1)CBOBS100DDCP(D2):%"VARIANCE";20);P(V2):L"COEF OF VARIATION";20);P(C2):i"STD ERROR";20);P(E2)t41000zI1OBS1JI1OBSA(I)A(J)TA(J):A(J)A(I):A(I)TJIP1:F(P)A(1):F(P1)1I2OBS;P(V1):,b"AVG DEVIATION";20);P(D3):Sg"COEF OF VARIATION";20);P(C1):rl"STD ERROR";20);P(E1):v"SKEWNESS";20);P(SK):"KURTOSIS";20);P(KU)41000:9);"POPULATION PARAMETERS"::"STD DEVIATION";20);STICS"::("MINIMUM";20);P(MIN):F&"MAXIMUM";20);P(MAX):a0"RANGE";20);P(RG):{:"MEAN";20);P(M1):D"MEDIAN";20);P(M2)I41000K:9);"DESCRIPTIVE STATISTICS"::N"STD DEVIATION";20);P(D1): X"VARIANCE";20)V12)3  12:868:10O "DO YOU WANT"::"FREQUENCY DISTRIBUTION"; A$:(A$,1)"Y"ė:OBS20Ģ12:10:"ONE MOMENT PLEASE..." (A$,1)"Y"İ750:525 (A$,1)"N"Ė1:20:"YES OR NO PLEASE.":505 : 9);"DESCRIPTIVE STATI ^C1D1M1 hC2D2M1! rX50. |I1OBSC X5X5(M1A(I))J IX D3X5OBSb T1M1p T2X2OBS~ T3X3OBS T4X4OBS M3T33T1T22T13 M4T44T1T36T2T123T14 V10SK0:KU0:510 SKM3(V11.5) KUM4(# MINA(1):MAXA(OBS):RGMAXMIN0 M1XOBS[ OBS2(OBS2)M2A((OBS2)1):270z M2(A(OBS2)A(1OBS2))2 VX2X2OBS V1V(OBS1) "V2VOBS ,D1(V1) 6D2(V2) @E1D1(OBS) JE2D2(OBS) TM10C10:C20:370 001:105 x50002/ :"ENTER YOUR DATA:":F X0:X20:X30:X40S I1OBSu "VALUE #";I;"?";:40000:NZN A(I)N XXN X2X2N2 X3X3N3 X4X4N4 (37)22ė: I 12:10:"ONE MOMENT PLEASE..." 710IVARIATE DATA" #41000< (P(Z)(Z103.5)(103.5)] -M(Z1)(Z1)(Z140)(40)f 2100q <43000 d::"HOW MANY OBSERVATIONS?"; h50000 i40000:OBSZN nOBS(OBS)OBS2OBS100ĢZC:"MUST BE AN INTEGER BETWEEN 2 AND 100":50Y COPYRIGHT MECC 19799 FREQUEN 7/15/80 FP H AUTHOR:t ASSOCIATED PROGRAMS AND FILES: NONEA(100),F(200)ZM24:ZC23 ::255:8:10:"F R E Q U E N C I E S" 18:"ELEMENTARY DESCRIPTIVE STATISTICS":"FOR UN     ' t:"OR TO DELETE AN UNWANTED LIST."1 x12409 :l 2:"DO YOU WANT TO"::" 1) CREATE A LIST," :" 2) EDIT A LIST," :" 3) DELETE A LIST, OR" :" 4) STOP" 12:868:"(ENTER 1, 2, 3, OR 4) ?";Y$:Y((Y$)):Y1Y4(x d5:"THIS PROGRAM WILL ALLOW YOU TO CREATE"::"A LIST OF WORDS AND SHORT DEFINITIONS"::"TO BE USED IN CROSSWORD." n::"IF YOU HAVE ALREADY CREATED A LIST,"::"THIS PROGRAM WILL ALLOW YOU TO MAKE" s:"CORRECTIONS OR ADDITIONS TO THE LIST,"0  16382% 255:::ZM24^ A$(100),D$(100,1):D$(13)(4):D$;"NOMON I,O,C":j EC$(1) (EC$(0)"EDIT":EC$(1)"DELETE" 1 ROUTINE TO TAKE GARBAGE OFF STACK IF ERROR 2I09:X:16384I,X:: 166,223,154,169,216,72,169,34,72,96? PROGRAM: CREDIT29 LAST UPDATE: 7/23/80?Y COPYRIGHT MECC 1979 AUTHOR: KENT KEHRBERG/MECC 8/8/79 ASSOCIATED PROGRAM AND FILES: ONE USER-DEFINED FILE  RE-WRITTEN AND SEPARATED FROM CROSSWORD JAN. 198030 :R$"Y"Ĭ'*(1023)123Ā;4D$;"RUN HELLO"(1999::1R)24:" PRESS '";::"SPACE BAR";::"' TO CONTINUE.";:16368,0k*(16384)12841002y+16368,0,:D$(13)(4): 10:"DO YOU WANT TO TRY"12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43 S.D. = ";S f41000:430006@CH(36):CV(37)^A"";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: (G7ЭP000810 " "P,Y(J),X(J),K10ĺMJ15(J15)İ41000::34,0]CCY(J)2dJo 00830" >99+",Y(J),X(J) 00770*" <1-",Y(J),X(J)400770>41000:5H" NO. = ";NR:" MEAN = ";M:\" NY(K)FXKK1 bF1+l006406vFF1=IKS(DN)Q~"PERC.RANK FREQUENCY RAW SCORE""--------- --------- ---------"C0J1K1CCY(J)2P(.5100(NC)N)P10000790 I1N J1 K1$ KK19 X(J)X(K)00450D 00420U KN100480^ JKi 00420x Y(I)X(J) X(J)1.1E38 I D0 Y(N1)1E38 K1 F1 &I1N 0DD(MY(I))2 :Y(I)Y(I1)00630DX(K)Y(I)(N7):X(N1),Y(N1):X(N1)1E38+ ;G71NI <(G71)10((G71)10)ėn =5:2(G710((G71)10)):868 @"SCORE # "G7;:X$:X(X$):X0X10000317 EX0X$"0"317 ^X(G7)X:TTX r w:12:10:"ONE MOMENT PLEASE..." |MTN 77  PROGRAM NAME: PERCEN VERSION: 7/25/77[  CDC CYBER 70/73-26 BASIC 3.1| ,:10:"HOW MANY RAW SCORES" 112:868:"WOULD YOU LIKE TO ENTER? ";N7$:N7(N7$):N71N7500Ģ18:"(ENTER A NUMBER BETWEEN 1 AND 500.)":305 3 6N TO BE"::"COMPUTED. ENTER A SCORE AFTER EACH"::"QUESTION MARK."O 41000 CONVERTED FROM MPLS PUBLIC SCHOOL SYSTEM ON 7/7/75 BY ANDREW SCHMIDT REVISED BY JOHN ARNESON (11/13/75)  CONVERTED TO CDC BY CATHY BONIFAS ON 6/1/7100\ "THIS PROGRAM WILL FIND THE MEAN AND THE"::"STANDARD DEVIATION OF A SET OF RAW": "SCORES. IT WILL ALSO PRINT OUT THE"::"PERCENTILE RANK AND FREQUENCY OF EACH":D "RAW SCORE. THE COMPUTER WILL ASK YOU ":"HOW MANY SCORES THERE ARE<  COPYRIGHT MECC 19799 PERCEN 7/15/80 FP H AUTHOR:t ASSOCIATED PROGRAMS AND FILES: NONEZ::255::ZM24_4:13:"P E R C E N T"d12:"DO YOU NEED INSTRUCTIONS";nA$:x(A$,1,1)"N"300 }(A$,1,1)"Y"     0Y$"D"16205:10:"WORD TO CHANGE";:W$:@T1DSA$(T)W$1570T::10:"I CAN'T FIND ";W$:1240:1530",10:1:W$;" CHANGED TO";:A$(T)6(A$(T))20ī1720@20:"KEEP THE WORDS TO 20 LETTERS PLEASE."J10:18) DELETE ENTRIES,"::" 3) CHANGE ENTRIES,"K:" 4) GET A LIST, OR"_:" 5) STOP"17:868:"(ENTER 1 - 5) ?";Y$:Y((Y$)):Y1Y5(Y)Y$1488:Y3000,3500,4000,4500,18401480Y$(Y$,1,1):Y$"W"Y$"D"1520148Y3Y0:D$;"DELETE ";N$:D$:22:868:N$;" IS NOW DELETED.":1240:200RD]T1DxA$(T),D$(T,0),D$(T,1)T:D$;"CLOSE ";N$:::" LIST: ";N$;:20:"ENTRIES: ";D:34,4:5-"WOULD YOU LIKE TO"::" 1) ADD ENTRIES,"::" 2 DISKETTE.":1240:16384:13808lD$;"OPEN ";N$:216,0KnD$;"READ ";N$Vx1370eP$:216,0zCZ1CZ2:D$:P$"CROSS/WORDGAME"2030P1$:P1$PW$ĺD$;"CLOSE ";N$:D$:22:958:"'";PW$;"' IS NOT THE RIGHT PASSWORD.":1240:200KER(222):216,0:ER4CZ1Ģ20:958:"THERE IS ALREADY A"::"PROGRAM CALLED '";N$;"'.":1240:CZ0:15:225gER4Ģ20:958:"'";N$;"' IS NOT A WORD LIST.":1240:200h20:958:"PLEASE REMOVE THE WRITE-PROTECT"::"STICKER FROM THE EDGE OF THECCC1:CC1ĺ"PLEASE MAKE SURE THE DISKETTE"::"IS IN PLACE AND THE DRIVE DOOR CLOSED.":1240:ER0:1285XCC0:"I AM UNABLE TO WRITE INFO TO THIS FILE.":1240:ER0:200Z1260:CZ1Č16384:_1240:200d216,0:ER0:15:1382e1388nfT1D*2A$(T);",";D$(T,0);",";D$(T,1)1<TEFD$;"CLOSE ";N$WP216,0:CC0:lRER(222):216,0wS16384TER4CC0:20:958:"PLEASE REMOVE THE WRITE-PROTECT STICKER"::"FROM THE EDGE OF THE DISKETTE.":1240:ER0:1285jV20:958:C68:23:1260::230a216,0:D$:CZ1Ģ22:868:"SORRY, '";N$;"' IS NOT ON THIS DISK."10:D$;"CLOSE ";N$:D$;"DELETE ";N$:CC0216,0:136215D$;"OPEN ";N$ D$;"WRITE ";N$"CROSS/WORDGAME"PW$D(ESSARY ONLY IF YOU"::"WANT TO MAKE ADDITIONS OR CHANGES TO"::"THE LIST USING THIS PROGRAM,":"OR IF YOU WANT TO DELETE THE LIST."1240:20024:868:7:16368,0:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:16384,128:16368,0:1:800::I0200!DI:4000k:1:"THE LIST YOU HAVE JUST CREATED CAN BE"::"USED ON CROSSWORD."::"LIST NAME: ";N$::"PASSWORD: ";PW$::"ANYONE USING THIS LIST ON"::"CROSSWORD MUST KNOW THE NAME."_::"THE PASSWORD IS NEC17DD:80):17DDCDD0Ą" FIRST LINE: ";D$(I,DD):450d" SECOND LINE: ";D$(I,DD)~D$(I,DD)""DD0370(D$(I,DD))20ĂDD:49023:10:"PLEASE KEEP THE DEFINITION":10:"UNDER 20 LETTERS PER LINE.";:1440I:I168:" WORD #";I;:": ";A$(I)jL1(A$(I)):L22L1:(A$(I),L2,1)" "A$(I)(A$(I),L21)(A$(I),L21)rL2(A$(I))1542023:"KEEP THE WORDS TO 15 LETTERS PLEASE."380A$(I)""II1:95815:"DEFINITION":DD01THE SECOND LINE."/P1240::3:IN1:340:500T"MAXIMUM NUMBER OF WORDS.........100 MAXIMUM LETTERS PER WORD.........15 MAXIMUM LETTERS PER DEFINITION...40"^::"PRESS WHEN YOU'RE DONE."hI(IN)100r12:958|12:85L"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"::"0 18:1:958` 20:"WHAT PASSWORD DO YOU"::868:"WANT ON THE LIST? ";PW$:PW$""240i 330 15:868:"WHAT IS THE NAME OF THE LIST? ";N$:N$""270 958 18:868:"WHAT IS THE PASSWORD? ";PW$:PW$""280 "ED1:1380J:Y)Y$210 Y13! Y2Y10/ Y3Y118 CZ0P Y225,270,270,1840Z 958 15:"WHAT DO YOU WANT"::868:"TO CALL THIS LIST? ";N$:N$""200 CZ1:1380:CZ2CZ0:22:868:"THERE IS ALREADY A LIST CALLED '";N$;"'.":230 CZ))2));XC1(B$(B))"lQ16OFA%(Z9(Q1%(C1)1),((D.1)D%(B,1)1))aFQ102060rX1D%(B,2)|" ";X02140 X1D%(B,2) E$(B,C);4XHFFQ\Q(Q2)pQ001960C(B$(B))02260X1D%(B,20200T21N4 X110&-X8B1T Q1%(1)(B$(B)):XX2Q1%(1)1:XY163:(B$(B),XX1,1)(UI$,XY,1)Q1%(XX)XY:1806 XYXXD15D%(B,1)0(Z$,1,1)"N"1880D((72(B$(B))5D%(B,2)((B$(B))1)D%(B,2958L5TT11290' L5İ510206FL1:1285H@K1(B$(J))aTE$(J,K)(B$(J),K,1)hhKsrL5ė|J::4L51680J1T:D%(J,1)Q:D%(J,2)R:J"HOW MANY COPIES OF THIS POSTER WOULD"::"YOU LIKE?";40000:N4ZNB$(J)"&"01520 B$(J)" "@D%(J,2)(B$(J))1201600j17:"TOO MANY CHARACTERS FOR WIDTH."19:L5ĺ"DO YOU WISH TO CHANGE: "::"1) DIMENSIONS OR 2) LINE? ";:40000:TTZN:958:TT1TT2ĺ:"PLEASE TYPE 1 OR 2.":1535L5Ģ17::40000:QZNo14:" WIDTH? ";:868:40000:RZN:958:R12Ģ17:"THE WIDTH MUST BE FROM 1 TO 12.":1294L5J1RD%(J1,2)ĺ:"WIDTH TOO LARGE. TRY AGAIN.":1294D%(J,1)Q:D%(J,2)R(B$(J),1)" "B$(J)(B$(J),1,(B$(J))1):1460 THE POSTER CENTERED";$868:Z$p(Z$,1,1)"N"(Z$,1,1)"Y"ĺ::"YES OR NO, PLEASE.":(37)2:1220vJ1T3:"LINE #";J;" ";:868:B$(J):B$(J)""1285L5(J1FL)1300 10:958:"DIMENSIONS:"  12:" HEIGHT? ";II164:Z9(II):IIB4:"HOW MANY LINES? ";:40000:TZN87:"DO YOU WANT UNIFORM CHARACTERS"::868:"THROUGHOUT THE POSTER? ";A$:A$(A$,1):958:A$"Y"A$"N"Ģ12:"PLEASE ANSWER YES OR NO.":1080LA$"Y"L5112:"DO YOU WANT 4 3"G4:" 5-6 2 ":mH" 7-12 1 "\:::"12 IS THE MAXIMUM WIDTH. THERE IS NO"::"LIMIT ON THE HEIGHT."II162:JJ15:A%(II,JJ):JJ:II(X$,1,1)"Y"İ51020R"::"LINE DECREASES. HERE IS A CHART OF THE":C"VARIATION:"N51020T~" WIDTH CHAR. PER LINE":" 1 12 ":" 2 6" :" 3 4": " AND 2 WOULD GIVE": "CHARACTERS 10 LINES HIGH AND 10 SPACES"::"WIDE."::" MANY STYLES OF LETTERS CAN BE CREATED":"BY USING DIFFERENT DIMENSIONS FOR THE ":1"HEIGHT AND WIDTH. HOWEVER, AS THE WIDTH":"INCREASES, THE NUMBER OF CHARACTERS PEHE DIMENSION"::"DESIRED FOR EACH LINE OF THE POSTER.": "DIMENSIONS FOR THE CHARACTERS CONSIST"::"OF HEIGHT AND WIDTH." 51020 " DIMENSIONS OF 1 AND 1 WOULD PRINT "::"OUT CHARACTERS 5 LINES HIGH AND 5 SPACES":"WIDE. DIMENSIONS OF 2 OF MES- ":"SAGE. YOUR POSTER MAY CONTAIN ANY OF "::"THE CHARACTERS ON YOUR KEYBOARD.": |" YOU WILL BE ASKED IF YOU WOULD LIKE ":"ONE UNIFORM SIZE OF LETTERS THROUGHOUT"::"THE PROGRAM. IF YOU ANSWER NO, YOU ":9 "WILL HAVE TO TYPE IN TQQ1ī10001 "DO YOU WANT INSTRUCTIONS";:8689 X$p (X$,1,1)"N"ė:10:"ONE MOMENT PLEASE...":1000 ,(X$,1,1)"Y"ĺ:"YES OR NO, PLEASE.":(37)2:240 @:" THIS PROGRAM WILL PRINT A POSTER":] T"WITH UP TO 100 HORIZONTAL LINESMS AND FILES: NONE 4 (4);"BLOAD PRNTERB,A765"I ::ZM24:255:i 4:16);"P O S T E R S":8v BASE 1 UI$"ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789+-*/()$= ,. ]:'& ^#<> ? ;" A%(62,5),B$(100),D%(100,2),E$(100,14),Q1%(80),Z9(64) 0 PROGRAM: POSTERS9 LAST UPDATE: 81/7/28 CPEe ASSOCIATED PROGRAMS AND FILES: NONE COPYRIGHT MECC 1979 POSTERS 5/30/80 FP  AUTHOR: WILLIAM WILSON, ELK RIVER   ASSOCIATED PROGRA          ")Z4)03522:C%(A(Z1,1)Z2,A(Z1,2)Z31)0352^<C%(A(Z1,1)Z2,A(Z1,2)A(Z,3)Z3)0352f>Z4~@Z5Z3A(Z,3)1Z3BZ50340DA(Z1,0)2334FC%(A(Z1,1)Z5,A(Z1,2)Z2)A(Z,Z5Z35)HA(Z,1)A(Z1,1)Z3JA(Z,2)A(Z1,2)Z2L340Z4,A(Z1,2)Z2)0352<,C%(A(Z1,1)Z4,A(Z1,2)Z21)0352c.C%(A(Z1,1)Z31,A(Z1,2)Z2)03520C%(A(Z1,1)A(Z,3)Z3,A(Z1,2)Z2)035223184C%(A(Z1,1)Z21,A(Z1,2)Z4)03526C%(A(Z1,1)Z2,A(Z1,2)Z4)0352 8C%(A(Z1,1)Z21,A(Z1,2A(Z1,0)0356%Z20A(Z1,3)18Z30A(Z,3)1WA(Z,Z35)A(Z1,Z25)352 A(Z1,A(Z1,0))Z32A(Z1,A(Z1,0))A(Z,3)1Z334352"Z4Z3A(Z,3)Z31$Z40318&A(Z1,0)2308(C%(A(Z1,1)Z4,A(Z1,2)Z21)0352*C%(A(Z1,1)A(Z,Z14)P9Z1$Z:ZZ15(FI)NZ1\:(FI)ė:12:16::"THINKING":iN0718}Z0A(T1,3)1C%(17,13Z)A(T1,Z5) Z A(T1,0)1A(T1,1)17A(T1,2)13ZT1N1A(Z,0)0358Z10N1):232$"SECOND LINE: ";B$(Z,DD)HB$(Z,DD)""DD0Ģ8:958:212(B$(Z,DD))20Ģ14:"MAXIMUM LENGTH IS 20 LETTERS PER LINE.":228DDA(Z,3)(A$(Z))Z11(A$(Z))C8$(A$(Z),Z1,1)P9063C9$(P9)C8$250P9ZZ1:256YL1(A$(Z)):L22L1:(A$(Z),L2,1)" "A$(Z)(A$(Z),L21)(A$(Z),L21)aL2v(A$(Z))162228:"MAXIMUM WORD LENGTH IS 15 LETTERS.":2129588:"CLUE"DD0110DD:868:4:DD0Ą"FIRST LINE: ";B$(Z,DD3:958:18:"'";N$;"' ISN'T ON THIS DISK.":D$;"CLOSE ";N$:D$;"DELETE ";N$:158eT1:ST:FT:R0mD0(FI)NTZ:2:"PRESS WHEN YOU'RE DONE.":5:34,4Z0N1(FI)238 5:868:"WORD #";Z1;:": ";A$(Z):A$(Z)""::12:16::"THINKING"::ND200D1D:X0N1:R((1)(DX)):RDR1:T$A$(R):A$(R)A$(X):A$(X)T$:T$B$(R,0):B$(R,0)B$(X,0):B$(X,0)T$:T$B$(R,1):B$(R,1)B$(X,1):B$(X,1)T$:KND1:A$(K)"":B$(K,0)"":B$(K,1)""::200Q216,0:D$:1DTZ*T0D1:A$(T),B$(T,0),B$(T,1):BD$:D$;"CLOSE ";N$:6:"THERE ARE ";D;" WORDS IN THIS LIST; HOW"::"MANY DO YOU WANT IN THE PUZZLE?"MAXD:D60MAX6010:868:"(1 - ";MAX;:") ?";Y$:N((Y$)):N1NMAX(N)Y$190$.":156: 17:868:"'";N$;"' ISN'T ON THIS DISK.":156K 216,0:198 P$:216,0:P$"CROSS/WORDGAME"ĺD$:13:958:18:"SORRY, I CAN'T USE '";N$;"'.":D$:D$;"CLOSE ";N$:158 PW$:DDTZĺ"I CAN ONLY USE ";TZ;" WORDS FROM THE LIST.":Y$"Y"Y$"N"158, Y$"N"FI0::2005 FI1w 13:"WHAT'S THE NAME OF THE LIST? ";N$:N$""Ģ13:958:158 958:216,0:170 D$;"OPEN ";N$:216,0:D$;"READ ";N$:174 ER(222):216,0:ER13Ģ17:868:"'";N$;"' IS NOT A WORD LISTE 2 LINES,") :"20 LETTERS PER LINE."Y ::"MAKE SURE YOUR PRINTER IS HOOKED UP." A$(59),B$(59,1),A(59,19),C%(35,35) (1022)1158 704:D$(13)(4):ZM24: 8:"IS YOUR WORD LIST"::868:"ALREADY ON THIS DISK? ";Y$:Y$(Y$,1):9063 C9$(P9) P9. (1022)1152Q 4:12:"C R O S S W O R D":7 "THIS PROGRAM WILL GENERATE A CROSSWORD"::"PUZZLE. YOU CAN HAVE UP TO ";TZ;" WORDS ON" :"ONE PUZZLE; EACH WORD CAN HAVE UP TO"::"15 LETTERS; EACH CLUE CAN HAV "G","H","I","J","K","L","M","N","O","P","Q","R"h | "S","T","U","V","W","X","Y","Z",")","-","+","<" ~ "=",">","&","$","*","(","%",AT","?","!",",","AT" "0","1","2","3","4","5","6","7","8","9","",";" "/",".","AT","AT" C9$(63) PMdPROGRAM: CROSS3eLAST UPDATE: 81/7/28 CPEPf(13);(4);"MAXFILES 1"oh(4);"BLOAD PRNTERB,A765"{l1022,0pTZ60r255:tD$(13)(4)v:ZM24:(4);"NOMON C,I,O":x "AT","[","]","#","AT"," ","A","B","C","D","E","F"2 z          ENTER THE OBJECTIVE NUMBER, AND":XP"THEN THE QUESTION FOLLOWED BY THE ANSWER":1400d"NOW PLEASE ENTER EACH QUESTION FOLLOWED"::"BY ITS ANSWER.":x"(EACH QUESTION MAY BE UP TO TWENTY LINES":"LONG, AND YOU MAY HAVE AS MANY AS TEN":N"P(A$,1)"Y"Ģ23:"YES OR NO PLEASE.":1180LFR$F$"-R":RC1:FI$FR$dLE23:4000:FR$FI$sRE0:4020RC:4060FRMQQB1FR(FR)FR(FR1) RNFR1:(OB01380"<"NOW PLEASE ENTER YOUR QUESTIONS."::"FIRST LAA2RS42:QB6k`11:"WHAT PERCENTAGE IS A PASSING GRADE?"::"ENTER A NUMBER FROM 0 TO 100?";:868|t40000:PSZNPS100PS0112016:"WOULD YOU LIKE TO HAVE A RECORD KEPT OF"::"STUDENT SCORES";:868A$(A$,1)"N"1260/(A$,1)"N"Ģ23:"YES OR NO PLEASE.":88032:"WILL THIS FILE BE FOR"::" 1) TESTGEN ONLY, OR"::" 2) REVIEW AND/OR TESTGEN?"8:"(ENTER 1 OR 2) ?";:868:40000:AAZN:AA1AA29908AA1RS76:QB12:PS0:RC0:1260Z>01,Z9:ZE41,120ZG:ZE19,Z8:ZE25,Z81AO:ZE^BOZJ3ZJ4İ20232:(9)ZH"N": CHAR/LINEmGOZQ1:::0 O:3 O NO KNOWN PRINTER INTERFACE FOUNDC!OZJ1:ZG1j$O FOUND INTERFACE 'ZJ'IN SLOT 'ZG'w.O:202128OZE216329O10::O(4)"BLOADLIST 32K";OZE3,ZH:ZE4,ZA:ZE5,ZV'JCV1:36,CH:868:M:868:CH:868:CH:868:Y$""DD04274&&D$(Y,DD)Y$:DD=&20:958:IR11:Q& GET A LISTINGg&LI1:4000:LI0:}&@CH(36):CV(37)&A"";ZN$:(ZN$)(((ZN$)))40003&B(ZN$)0ZN$"0"40006&CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001%'HAN 15 LETTERS.":20:868:4250@%20:958:A$(Y)Y$:IR11:c%20:868:"#";Y;" DEFINITION"o%DD01%21DD:868:7:DD0Ą"FIRST LINE: ";Y$:4280%"SECOND LINE: ";Y$%(Y$)20Ģ24:"KEEP IT UNDER 20 LETTERS PER LINE.";:1:4270&HE DEFINITION ('W' OR 'D') ?";Y$:Y$(Y$,1):Y$"W"Y$"D"4232\$20:958:Y$"D"4270$20:868:"WORD #";Y;:": ";Y$:Y$""4250$L1(Y$):L22L1:(Y$,L2,1)" "Y$(Y$,L21)H(Y$,L21)$L2 %(Y$)15Ģ23:"PLEASE KEEP IT SHORTER TY$"N"ı#wR1((I1)4)41#|20:"WHICH ONE DO YOU WANT TO CHANGE?"::868:"(ENTER ";R1;" - ";R2;:") ?";Y$:Y((Y$)):((YR1YR2)Y0)(Y)Y$4220#Y0Ģ20:958:4200#20:868:"DO YOU WANT TO CHANGE THE WORD OR"A$22:868:"T;:I10ĺ" ";@"I;" ";A$(I);:20:D$(I,0);:20:ZV1:D$(I,1)k"@I4(I4)IDR2I:LI14200,1240:"JI:::II1:LI0İ1280"T"h20:"DO YOU WANT TO"::868:"CHANGE ANY OF THESE? ";Y$:Y$(Y$,1):Y$"Y"Y$"N"4200"m20:958 #rY$"Y"ė:3510!$1480/! CHANGE ENTRIES]!:::" LIST: ";N$;:20:"ENTRIES: ";D!D0Ģ10:"THERE ARE NO WORDS IN THIS LIST.":1240:!5:5:"WORD";:22:"DEFINITION":7:34,6!I1D:R1((I1)4) "ZV43I12R1:ZV:I100ĺ" "I:15:"'";W$;"' ISN'T IN THE LIST.":3600 I1I:II1D1:A$(I)A$(I1):D$(I,0)D$(I1,0):D$(I,1)D$(I1,1)::A$(D)"":D$(D,0)"":D$(D,1)"":DD1:1280 19:"DO YOU WANT TO"::868:"DELETE ANOTHER ENTRY? ";Y$:Y$(Y$,1):Y$"N"Y$"Y"3600!TO ";EC$(Y1);" '";N$;"'.":14:D$;"CLOSE ";N$:1240:200J ADD ENTRIESZ IND1:340h ID1480| DI:1280:1480 DELETE ENTRIES 8:"WHICH WORD DO YOU"::868:"WANT DELETED? ";W$:W$""1480 958 I1D:A$(I)W$3550* $;"WRITE ";N$"WORDGAME"$D/T1DDA$(T);",";D$(T)KT_D$;"CLOSE ";N$h&5200 END OF PROGRAM:::5D(1023)123ĉ:::10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"8D$:22:"USE 'SPELL CREATE' NITION":15:"UNDER 40 LETTERS."511:250):1660HD$(T)M$:1720x:10:"DEFINITION NOT CHANGED":1240:1720:10:"DO YOU WANT TO CHANGE MORE";:Y$:Y$(Y$,1,1):Y$"Y"1480Y$"N"1720D$;"DELETE ";N$D$;"OPEN ";N$ D0):1580DT:10:"THE WORD OF THE DEFINITION TO BE CHANGED":W$:O^T1DbhA$(T)W$1660rT:10:"I CAN'T FIND THAT WORD":1240:1620|10:1:D$(T)::"NEW DEFINITION":M$:M$" "1710(M$)411700 20:10:"PLEASE KEEP THE DEFI_ |~?_>{m7]?_?|k{o;_ow[o{=>_ox? }xc}>}~_~{}w?X_{{?ww~_>wv{w?o@?x?~>{m?_UvuG_@X~nx1{~?G wpO_X_lfW_{_>fwooq?o          3,0,0,0,255,255,255,0 36,173,2,3,240,9,237,1,3,233,247,144,4,105,31,133,36,104,96,108,3,3,0,0,0,255,255,255,0 V73,2,3,197,36,104,176,3,72,169 _ 160,44,98,3,240,3,238,2,3,8,32,169,3,40,104,72,144,228,73,13,10,208,13,141,2,3,169,138,32,169,3,169,88,32,168,252,169,0,133 d 36,173,2,3,240,9,237,1,3,233,247,144,4,105,31,133,36,104,96,108,3,153,248U 7,152,10,10,10,10,168,169,3,153,142,192,169,17,153,142,192,169,155,141,1,3,169,54,133,42,160,0,140,2,3,132,43,40,144,14,173 Z 231,3,233,110,133,42,173,232,3,233,0,133,43,169,99,145,42,200,169,3,145,42,104,168,96,72,72,1- 7ST1:1?|}?~?xp~@|_>?7{ox?s}|q}>}~_~{}w{?oo~o@_~{~?g]{m?_}vw?~~~?~PO>zog>{k/{~?_]{m7}~?|>{o7ow[n}?wxo?~_|pn6|Xg]_cnw_opg?xw~xA?o/wu>o{{^o_k~s}wg?|{_ox<@}~??|_Oox?g}xG}>}~_~{}{?go?~o@|?p>{m?_}vw?ppx?X_~zoo>{k/?{~?_k{m7}~?~>{o7owo}~~ox_8onV;W[]_]nw_ox?|g?~xc?oox p|ao?lxg}sO{_qq~{nqan{`xq`o88`}~?`>n7@}~?~~gox?O}x~}>}~_~{}{?|p{{@|~?~~1wvwg?o@q?|C>{m?_}~w?@~`?@_O~zog>{K/{~`wn7@??~>{o7_ow[o{}}gxs_X_nfWO{]_>nwOo?~?o?x?ocO}{o_nn~{v{nn{{wn{O0?~}~?_>{m7=?_qwlw`\o>~`ox?a@}xx}>}~_~{A|?8o{;?o{~_}~.wvsw?o@G?xx>{m?_mvw??`@?`@?W~v[k>w-w.{~?> x`\o~Cwpg_X_nvW_{]_~nwoo|?o?x?o~_}?@{?|c@ooo}}`|a?l?~gO~n~{z{fn{{on{m HELLOVERSION B-3.09LAST UPDATE: 6/17/81?S(C) MECC 1980Y :d 22016vD$(13)(4):::255:(1023)123100:16302,0:::D$"BLOAD LOGO":16304,0:16368,02D$"NOMON CIO"dZM24 n:T$,N:NN1:N       dyxA?ooo}={{^o^k|sg~np{p{~`{{aq{wxO8oJV[_{]n]vox?>pp}xO}>}~_~{}w?X_{{@ww~_>?wvyx?o`}?__`_@_~{~?p_0G~~?_{o7m?]{o}_ow[g}?_wgog?wox?o@?~?x>{m?_9vs}xA?ooo}];?oogy{s~nnun{~n{{nn{w?~oxp67\_{]qcfoxG?G|}x}>}~_~{}w{?X_s;ww|_>?gv|_x?o~?~}?__y_@_8{~??~wp`}xxs~xXc{0p?c>{o~_ow[k}?_wwoO?w{nsox|?xO>n?_}xw|xA?ooo}@?Wt?~Ox?x|}??p~~`|?OO|O@_~{~?k{m?_}vw?|x~0W]v[k6wmo.{~?_>{o7}~?y>x`ow[m~?`wsownw_opq?xg~xA?oOoy]_{??oogO{}qqpnpqan`{qq{wqq`}OE SURE THE DISKETTE IS IN"::"PLACE AND THE DRIVE DOOR IS CLOSED.":35000::1180CC0:"I AM UNABLE TO USE THIS FILE.":35000::88015:1170D$;"OPEN ";N$:216,0:D$;"READ ";N$:216,0:3180P$"":P$:216,0:CR1ĺD$:923P$"SVE THE WRITE-PROTECT"::"STICKER FROM THE EDGE OF THE DISKETTE.":35000:880ER13CR1ĺ"SORRY, YOU CAN'T NAME"::"THE FILE '";N$;"'.":35000:CC0:880ER13CC0:"SORRY, '";N$;"' ISN'T A WORD LIST.":35000:880RCCCC1:CC1ĺ"PLEASE MAK(34);PW$;(34);"."::"STUDENTS NEED TO KNOW THE NAME OF THE"::"LIST TO USE IT IN WORD FIND.":::"THE PASSWORD IS NEEDED ONLY IF YOU"::"WANT TO EDIT THE LIST ON THIS PROGRAM."35000::880MER(222):216,0::4:ER4CC0:"PLEASE REMO.":35000:1082D|"I AM UNABLE TO USE THIS FILE.":35000:::880[E10:ED1ė:11802:"YOU HAVE JUST CREATED A LIST OF WORDS"::"THAT CAN BE USED WITH WORD FIND."::"THE NAME OF THE LIST IS ";(34);N$;(34)::"AND THE PASSWORD IS ";LOSE ";N$:216,0:1151+vER(222):216,0wER4CC0::10:"PLEASE REMOVE THE WRITE-PROTECT"::"STICKER FROM THE EDGE OF THE DISKETTE.":35000:1082zCCCC1::10:CC1ĺ"PLEASE BE SURE THE DISKETTE IS IN"::"PLACE AND THE DRIVE DOOR IS CLOSED(R22)Ė20F632I16R2:36,(36)4:15):5:R22(R22)Ė24W7W$(I):1070`8CC0r:216,0:1142=D$;"OPEN ";N$BD$;"WRITE ";N$L"SPELL/WORDER/MIXUP"QPW$VD;",";Z`I1DjW$(I);",";S(I);",";S1(I)tI:D$;"CZZ(R11)81:R1(R12.01)ZZR181T1ZZ;" - ";:Z1D:(R11)8DZ1(R11)82Z1;") ";:Y$:I(Y$):(IZZI0)IZ1I(I)(I)Y$10723I01070421:958:"CHANGE ";W$(I);" TO ";:Y$:Y$""1076 5W$(I)Y$:R2((I1)8.01):R22" ";W$(T):T16(T16.01)TDĴE111070,35000:K,T:E111070,35000g-34,0::E111080,1210.21:958:"DO YOU WANT TO CHANGE":868:"ANY OF THESE WORDS? ";Y$:Y$(Y$,1):Y$"Y"Y$"N"1070/Y$"N"ė:'021:958:"WHICH WORD (";:LEASE.";:1010!W$(T)""1060(T=$DT1::D0880L%ED11080{&34,0::" LIST: ";N$;:20:"WORDS: ";D'34,4:D0ĉ::E111080,1210(T1D:R1((T1)8.01):R12(R12)Ė20)32T16R1:T100ĺ" ";:T10ĺ" ";3*T; T1100( 9:5:70):13:1:40)I 5:1:"WORD #";T;" ";:868T W$(T)o LL(W$(T)):LL21020 K92LL:(W$(T),K9,1)" "W$(T)(W$(T),K91)(W$(T),K91)  (W$(T))15Č958:104020:" KEEP THE WORDS TO 15 LETTERS PMED '";N$;"'.":35000:CR0:880. ED0:CREDR 8:"WHAT PASSWORD DO YOU WANT" 10:868:"ON THIS LIST? ";PW$:PW$""940 Z0 Z31Č958:ED1980,1080 :"ENTER WORDS 1 AT A TIME UP TO 100 WORDS.":"ENTER A 'RETURN' WHEN FINISHED." LO" :H 5:868:"WHAT IS THE NAME OF THE LIST? ";N$:N$""910 8:868:"WHAT IS THE PASSWORD? ";PW$:PW$""912 ED1:1180 5:868:"THE NAME OF THE LIST WILL BE? ";N$:N$""920 CR1:1180 :5:"THERE IS ALREADY A FILE NAOR"::" 4) STOP?" qCR0- uD$;"CLOSE" z20:868:"(ENTER 1, 2, 3, OR 4) ?";Y$:Y1(Y$):Y11Y14Y1(Y1)(Y1)Y$890 {:X10:EDX1 |Y13X11 }Y1920,910,910,896 (1023)123ė:10:"GETTING THE MENU...":(13);(4);"RUN HEL 22:"THIS PROGRAM WILL ALLOW YOU TO CREATE"::"OR EDIT A WORD LIST FOR WORD FIND."| d PROGRAM NAME:SPELL 6/28/79 FP p10:"DO YOU WANT TO"::" 1) CREATE A NEW WORD LIST,"::" 2) EDIT AN EXISTING LIST, "::" 3) DELETE AN EXISTING LIST, SPEDIT2)LAST UPDATE: 4/29/81/NAUTHOR: LINDA BORRY, MECCb(C) MECC, 1979h:s 216,0 0:0:1002 :::255:ZM24W$(100),S(100),S1(100):D$(13)(4):D$;"NOMON I,O,C"ED$(1):ED$(0)"EDIT":ED$(1)"DELETE"V             ;"'."::"THE PASSWORD IS '";PW$;"'."+::"YOU NEED TO KNOW THE NAME OF THE LIST"::"TO USE IT ON ANY OF THESE PROGRAMS."+::"THE PASSWORD IS NECESSARY ONLY IF YOU"::"WANT TO EDIT THE LIST.":23000$,A6013450V,5,6:"DO YOU WISH T"WRITE ";B$3*"SPELL/WORDER/MIXUP":PW$:A;",";5?*JK1AW*W$(JK);",";0;",";0]+q\+D$;"CLOSE ";B$|f+216,0+::"THE WORD LIST YOU HAVE JUST CREATED"::"CAN BE USED FOR WORDER, SPELL OR MIXUP."%+::"THE NAME OF THE LIST IS '";B$SE REMOVE THE WRITE-PROTECT"::"STICKER FROM THE EDGE OF THE DISKETTE.":23000:10850*CCCC1:CC1ĺ"MAKE SURE THE DISKETTE IS IN PLACE"::"AND THE DRIVE DOOR IS CLOSED.":23000:10850*"I AM UNABLE TO USE USE THIS FILE.":23000::8900 *D$;68:10400(958(.)W$(JK)""10700M)(W$(JK))L1L1(W$(JK))f6)(37)21Ģ6:958:nh)JK)AJK1:A0430000*G6111300b*CC0l*216,0:10890v*D$;"OPEN ";B$*10900*ER(222):216,0::17V*ER4CC0:"PLEAWORD BE? ";PW$:PW$""9710$t'G61,':{'"TYPE IN YOUR WORDS ONE PER LINE."::"WHEN YOU'RE DONE, PRESS ." (:(L10<(JK1100(JK;:" ?";W$(JK)(CV(37) ((W$(JK))15Ģ23:"WORDS MUST BE 15 LETTERS OR LESS.":CV:8;B$ |$P$""$9600'$P$:216,07$D$;"CLOSE"z$216,0:D$:17:"SORRY, YOU CAN'T USE THAT NAME.":23000:8850%216,0%15:"IF YOU WANT TO EDIT THE LIST YOU'LL"::"HAVE TO KNOW THE PASSWORD FOR IT."%20:868:"WHAT SHOULD THE PASS"TO CALL THE FILE? ";B$'^$B$""93009c$216,0:9317Cd$9320de$ER(222):216,0:ER139370f$17:"PLEASE REMOVE THE WRITE-PROTECT"::"STICKER FROM THE EDGE OF THE DISKETTE.":23000:17:958:9315h$D$;"OPEN ";B$m$216,0r$D$;"READ ";:868:ZN$:A5(ZN$):A51A54(A5)ZN$A5(A5)8050J`"A011300P""4:"DO YOU WANT THE LIST OF WORDS SAVED IN"::"A FILE";:868(#"? ";C$:C$(C$,1):C$"Y"C$"N"8900*#958:C$"N"10150T$10:"WHAT DO YOU WANT"::868:RIZONTALLY,":?T" 2) WORDS HORIZONTALLY AND VERTICALLY,":^" 3) WORDS HORIZONTALLY, VERTICALLY AND"::" DIAGONALLY, OR":h" 4) WORDS HORIZONTALLY, VERTICALLY,"::" DIAGONALLY AND IN INVERTED ORDER";r19:"(ENTER 1, 2, 3, OR 4) "/MIXUP"ĺD$:13:956:21:"SORRY, I CAN'T USE THAT LIST.":13:5900X )958:PW$:A,Za ,L10m -JK1A~ 2W$(JK),S,S1 7(W$(JK))L1L1(W$(JK)) <JK PD$;"CLOSE ";B$ dA61 @:4:"HOW DO YOU WANT THE PUZZLE?":J" 1) WORDS HO,0:ER13Ģ21:868:"'";B$;"' ISN'T A WORD LIST.":23000::5850~ 21:868:"'";B$;"' ISN'T ON THIS DISK.":23000::5850 216,0:6416 D$;"OPEN ";B$ 216,0 D$;"READ ";B$ A$"" 216,0:24000D (A$:216,0:A$"SPELL/WORDER YOU WANT TO USE A WORD LIST THAT'S"4 D$;"CLOSE" 15:868:"ALREADY ON THIS DISK? ";B$:B$(B$,1):B$"Y"B$"N"5910 956 B$"N"8000 j18:868:"WHAT IS THE NAME OF THE LIST? ";N$:N$""ė:5850 B$N$:6419A ER(222):21650) A(32,32)  Y$(50)' 5800K / ::2:10:"W O R D F I N D"S > : "THIS PROGRAM WILL CREATE A WORD PUZZLE." : P"YOU NEED TO HAVE A PRINTER ATTACHED"::"TO YOUR APPLE TO USE THIS PROGRAM." Z A0:G0 13$ "DO(768):SLOT(769):ST(770):L1(771):L103100_ FACE$"":K1L1:FACE$FACE$((771K)):  UI$"ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789+-*/()$= ,. ]:'& ^#<> ? ;" D$(13)(4):D$;"NOMON I,O,C":255: ZM23 B(35),C(35),R(35),W$(50),X$() WORDER+LAST UPDATE: 81/7/28 CPE1E (C) MECC, 1979lAUTHOR: L. BORRY, MECC AND OTHERS(ASSOCIATED PROGRAMS AND FILES: FILES ARE USER DEFINED*(4);"BLOAD PRNTERB,A765"-1022,0233751022,0:770,0 0 FACE              O GOSUB 20200. TO STOP OUTPUT FROM GOING TO PRINTER, DO PR#0:IN#0. N ** IF YOU HAVE A SPECIAL INTERFACE FOR YOUR PRINTER (OTHER THAN A COMMUNICATIONS, SERIAL OR PARALLEL PRINTER INTERFACE), CHANGE ZF$ IN LINE 20210 TO THE STRING THAT WILL ACTIVATE YOUINTER ROUTINE--LOOKS FOR PRINTER INTERFACE IN SLOTS 1-7.RN LAST UPDATE: 6/3/81N ** TO USE: CHANGE THE WORD 'SPACEBAR' IN LINE 20214 TO THE LINE # OF YOUR 'PRESS SPACE BAR TO CONTINUE' ROUTINE.CN ** WHENEVER YOU WANT OUTPUT TO GO TO PRINTER, D**";01070PPQ$01070/$" ";7.W2F8PQ01100PBPPQZLQQ2aVSi`Z$pjWwtC~T1Y2T10(T10)0119001200Z$TXD120DZ51008:430008N ** PR7) *008304Y(X)27 >X+HX2X17RU115=\DfUMpY21YzZ1Z2gX1X21yY(X)000940Y2(Y(X))01210C15W1Y2PA(Y(X),C)Q64S17W21Y2P001120PQ01060"MESSAGE CONTAINS AN ILLEGAL"::"CHARACTER. PLEASE TRY AGAIN.":(37)4:868:680kLLLL1:M(LL)YY:PPv20200X2(M$)1GM(X)G28G3200800G1G2600780G450082000830 Y(X)G00830 Y(X)0(G2BZ2(Z2)Z21ĺ:"PLEASE USE A WHOLE NUMBER.":(37)2:630Hc"ENTER YOUR MESSAGE";kM$M$""M$"HELLO"PP1(M$):YY((M$,PP,1)):YY64YY91YYYY64:710YY48YY54YYYY21:710YY32YY45:710R:"THAT ZD"WILL PRINT THE MESSAGE 'HELLO' OUT LIKE ":"THIS.. H SIZE 1, E SIZE 2, L SIZE 3,":wN"L SIZE 4, O SIZE 5.":X"LEGAL PRINT CHARACTERS ARE THE LETTERS"::" A-Z AND A SPACE.":41000lv"NUMBER OF COPIES?";:86840000:Z2ZN:958HE MESSAGE (1 - 5),"::" WHERE 1 IS THE SMALLEST AND 5 THE"::" LARGEST."Z 41000` r "EXAMPLES: "x  &" ENTER MESSAGE?HELLO 0:"WILL PRINT THE MESSAGE 'HELLO' OUT IN"::"DEFAULT SIZE (1)."::" ENTER MESSAGE?1H2E3L4L5O":"::"A MESSAGE IN BLOCK LETTERS DOWN THE"::"PAGE OF YOUR PRINTER. THE TWO MAIN"::"FEATURES OF THIS PROGRAM ARE:" ::"1) YOU CAN CHOOSE THE NUMBER OF COPIES"::" TO BE PRINTED."O ::"2) YOU CAN CHOOSE THE SIZE OF EACH"::" LETTER IN T,93,111,65,0,0,0,0,0 mQQ620K r4:7);"B L O C K L E T T E R S":8r |"DO YOU WANT INSTRUCTIONS";:868z A$ (A$,1,1)"N"ė:620 (A$,1,1)"Y"Ģ10:"YES OR NO, PLEASE.":8:380 :v "THIS PROGRAM WILL ALLOW YOU TO TYPE OUT1,127,8,20,34,65,127E @ 64,64,64,64,127,2,28,2,127,127,6,28,48,127u J 62,65,65,65,62,127,9,9,9,6,62,65,81,62,64 T 127,9,25,41,70,38,73,73,73,50 ^ 1,1,127,1,1,63,64,64,64,63,15,48,64,48,15,63,64,56,64,63 h 65,54,28,54,65,3,6,124,6,3,65,1137,5),Y(200),M(100) Y(1)1E ZZ127:OO15:A(ZZ,OO):OO:ZZN Y21  124,22,19,22,124,127,73,73,73,54,62,65,65,65,34  65,127,65,65,62 " 127,73,73,73,65,127,9,9,9,1,62,65,65,73,58 , 127,8,8,8,127,0,65,127,65,0 6 56,65,65,63,N COPYRIGHT MECC 1979: BLKLETR 81/7/28 CPEn AUTHOR: CHUCK LUND, CRAIG COPLEY AND OTHERS( ASSOCIATED PROGRAMS AND FILES: NONE2(4);"BLOAD PRNTERB,A765"d::255::LL1:ZM24n(4);"NOMON C,I,O":Z$"" A(2L8Hmx 6*+(n*+c*ȩ*h`HHhH,b (hHI  X   h`l   NAME IN 'REVIEW'.":G :"THIS PROGRAM WILL ALSO LIST OUT AND EDIT"| "PREVIOUSLY CREATED FILES OF QUESTIONS.":39000  ::2:"DO YOU WANT TO"::" 1) WORK WITH AN EXISTING FILE,":" 2) CREATE A NEW FILE,"::" 3) DELETE A FILE) "USED. ALL QUESTIONS NOT ANSWERED":Y "CORRECTLY IN REVIEW WILL BE ASKED AGAIN." "AN OPTIONAL LIST OF STUDENT'S SCORES": "CAN BE KEPT BY THE COMPUTER. TO GET A": "REPORT OF THESE SCORES TYPE '*REPORT*'": "WHEN ASKED FOR YOUR|"ENSURING A DIFFERENT DRILL OR TEST EACH"2 }^ "TIME THE PROGRAM IS RUN. UP TO 200 "d  "QUESTIONS MAY BE STORED IN ONE FILE.":39000  :"QUESTIONS UP TO TWENTY LINES IN LENGTH": "WITH UP TO TEN POSSIBLE ANSWERS MAY BE": THE":8 J"QUESTIONS AND ANSWERS TO BE USED BY THE":j T"PROGRAMS, 'REVIEW' AND 'TEST GENERATOR'.": ^"ALL QUESTIONS WILL BE ASKED AT RANDOM.": h"MORE QUESTIONS MAY BE ENTERED THAN WILL": r"BE USED IN REVIEW OR TEST GENERATOR," s, 54,169,216,72,169,34,72,968 D$(4):D$;"NOMON I,O,C"U LO(200,2),Q$(20),A$(20) RN0:OB0:RC0:ZM23:S$" ":QT$(34) 255::: 3000 QQ500 QQ1 ,:10:"R E V I E W L O A D" 6: @"THIS PROGRAM ALLOWS YOU TO ENTER8d PROGRAM: REVLOAD:fLAST UPDATE: 81/8/3 CPE@gVx REVLOAD 80/6/2x AUTHOR:DEAN HJELLE, BRANDON ASSOCIATED FILES: ONE OR TWO USER-DEFINED FILES ASSOCIATED PROGRAMS: REVIEW AND TESTGEN "-ERRORS-" 166,223,1!!!!!!"" " " " " """""""""                   R$"Y"Ľ:QQ1:100&*(1023)123Ā:4D$;"RUN HELLO"M@Ǻ(4);"PR#0":L;"RUN HELLO"p@Ǻ(4);"PR#0":)ŠנŠנŠͰNEGOZQ1:::'@CH(36):CV(37)OA"";ZN$:(ZN$)(((ZN$)))40003lB(ZN$)0ZN$"0"40006CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001FZM:868:CV1(CV23):ZN(ZN$):JCV1:36,CH:868:(G71999::1C) NO KNOWN PRINTER INTERFACE FOUND3!OZJ1:ZG1Z$O FOUND INTERFACE 'ZJ'IN SLOT 'ZG'g.O:20212t8OZE21632~9O10::O768,ZG=OZN$"30"20288>O802,82:818,82@O823,80:797,127AO775:ST1BOZJ3ZJ4İ20232:(9)ZH"N": CHAR/LIOZ2(2) OZW49408509442566OZG(ZW49152)256BOZJ14kO(ZW5)Z5(ZJ)(ZW7)Z7(ZJ)20252sOZJOZJ0:20255OZK02:Z2(ZK)0OZI02558:Z2(ZK)Z2(ZK)(ZWZI)::OZ2(0)Z2(1)Z2(0)Z2(2)Z2(0)25620260O:# O 0  OZV0 O2 O:10:"ONE MOMENT PLEASE..."= O20280aO SEARCH SLOTS FOR AN INTERFACEOZ5(4),Z7(4): COMM=1, SERIAL=2, PAR=3, MALIBU=4O: "-SEARCH-",24,56,56,24,72,72,8,72OZI$:ZI$"-SEARCH-"20243OZJ14:Z5(ZJ),Z7(ZJ): ";'NZN$:ZN$"10"ZN$"30"20220ANZA17:ZN$"10"ZA82O ZH=CHAR/LINE; ZV=I/O: 0-OUTPUT BOTH, INPUT APPLE; 1-OUTPUT BOTH, INPUT PRINTER; 254-OUTPUT PRINTER ONLY, INPUT APPLE; 255-OUTPUT PRINTER ONLY, INPUT PRINTERO20232:20235OZH820290fN:5:"TURN YOUR PRINTER ON AT THIS TIME.":ZF$"COMM, SERIAL OR PARALLEL"ZJ1(ZQ)20220qN41000N10::ZJ120289NZF$"COMM, SERIAL OR PARALLEL"ĺ(4);"PR#";ZG:20290N(4)ZF$:20295N10:868:"WHICH SPEED (10 OR 30 CPS)JO1JM1(RELO(JK,1)JNJO2:4020<QT$;A$(JO);QT$DJOL D$[B919020kJKMQ2200s: 6:"ARE THERE ANY MORE QUESTIONS TO"::"BE ENTERED";:8684A$H(A$,1)"N"2200\(A$,1)"Y"Ģ18:"YES OR NO PLEASE.":2381840@ 24:"THAT LINE IS TOO LONG. RETYPE.";:CV:1:1795F0cDA$(JM)""RNRN1:1890kXJMbA$(JM1)A$(JM1)(1)gJK11920lFI$F$:LERS:4000:F$FI$JN1(JL1)RELO(JK,1)JN1:4020QT$;Q$(JN);QT$JN 20702::"ENTER THE ANSWERS ONE AT A TIME:":?JM110KRNRN1ZCV(37)1lRS42ĺ" ";RS76ĺ" ";52000:A$(JM)ZB$ JM1A$(JM)""1600JM1A$(JM)(1)A$(JM)(A$(JM))701840RS42(A$(JM))rRS42(Q$(JL))381679<wRS76(Q$(JL))701679n|24:"THAT LINE IS TOO LONG. RETYPE.";:CV:1AJ13:868::AJ:CV:1636958Q$(JL)""RNRN1:1740JL1LO(JK,1)RNCV20Ģ4:958:5JLJL1JKJK1:2)ZNd,LO(JK,2)99LO(JK,2)1LO(JK,2)(LO(JK,2))Ģ18:"MUST BE IN THE RANGE OF 1 TO 99":1540@:"ENTER THE QUESTION ONE LINE AT A TIME:":TJL120^RNRN1cCV(37)1dRS42ĺ" ";eRS76ĺ" ";h52000:Q$(JL)ZB$POSSIBLE ANSWERS. WHEN YOU HAVE"::"COMPLETED A QUESTION OR ANSWERS, SIMPLY":"PRESS 'RETURN' WHEN ASKED FOR THE"::"FOLLOWING LINE)."39000JK1MQ:::"#";JK34,2OB016008:"OBJECTIVE NUMBER?";:86840000:LO(JK, ENTER THE OBJECTIVE NUMBER, AND":YP"THEN THE QUESTION FOLLOWED BY THE ANSWER":1400d"NOW PLEASE ENTER EACH QUESTION FOLLOWED"::"BY ITS ANSWER.":x"(EACH QUESTION MAY BE UP TO TWENTY LINES":"LONG, AND YOU MAY HAVE AS MANY AS TEN":O"0(A$,1)"Y"Ģ23:"YES OR NO PLEASE.":1180MFR$F$"-R":RC1:FI$FR$eLE23:4000:FR$FI$tRE0:4020RC:4060FRMQQB1FR(FR)FR(FR1) RNFR1:(OB01380#<"NOW PLEASE ENTER YOUR QUESTIONS."::"FIRSTLAA2RS42:QB6l`11:"WHAT PERCENTAGE IS A PASSING GRADE?"::"ENTER A NUMBER FROM 0 TO 100?";:868}t40000:PSZNPS100PS0112016:"WOULD YOU LIKE TO HAVE A RECORD KEPT OF"::"STUDENT SCORES";:868A$(A$,1)"N"1260(A$,1)"N"Ģ23:"YES OR NO PLEASE.":88042:"WILL THIS FILE BE FOR"::" 1) TESTGEN ONLY, OR"::" 2) REVIEW AND/OR TESTGEN?"8:"(ENTER 1 OR 2) ?";:868:40000:AAZN:AA1AA29908AA1RS76:QB12:PS0:RC0:1260NGE OF 1 TO":"99 MAY BE ASSOCIATED WITH EACH QUESTION"\16:"AND MAY BE USED WITH THE TEST GENERATOR"::"PROGRAM TO GENERATE TESTS BY OBJECTIVE"::"NUMBERS."p22:"DO YOU WISH TO USE OBJECTIVE NUMBERS";:868A$(A$,1)"Y"OB1:960.LETE"FI$:D$"CLOSE" 3000v 7:"ENTER THE MAXIMUM NUMBER OF QUESTIONS"::"WHICH WILL BE IN THIS FILE?";:868 40000:MQZN4MQ1MQ200MQ(MQ)Ģ23:"ENTER AN INTEGER FROM 1 TO 200.":780>9587H12:"AN OBJECTIVE NUMBER IN THE RA00E2:"WHAT DO YOU WANT TO"::868:"NAME YOUR FILE? ";F$O958_AA443040uFI$F$:LE1:4000D$"READ"FI$:778A$:216,0:D$"CLOSE"18:"THERE IS ALREADY A FILE ON THE DISK":"WITH THAT NAME.":3250 216,0:D$"DE0:4040p216,0:650!rG$3v216,0:3000[x(G$,14,1)"1"ĺD$"DELETE";F$"-R"mzD$"DELETE"F$||D$"CLOSE"10:"'"F$"' HAS BEEN DELETED.":39000:500216,0:3000D$"DELETE"F$10:"'"F$"' ISN'T ON THIS DISK.":39000:5, OR"::" 4) END"\12:"(ENTER 1 - 4) ?";:868:40000:AAZN:AA1AA4AA(AA)510lAA443040{0AA15000:AA2700Xb5:"WHAT IS THE NAME OF THE FILE"::868:"YOU WANT DELETED? ";F$:F$""500lFI$F$:LE74:4000nRETO CONTINUE";/&Qǵ16384,128:16368,0::::