' +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`SHA>VD;;P >(ED Z> ?$0x?5*?5+?755L ? H8`B5C5 5L"55B55ܭ57B57C?ȱB7ȱB7 ? B7ȱB7Ȍ?5575755 ?55757 ?L>L&  `   LD7c*p*q*` ['*` ~.3 #3 L3LA@@&E&&A@@&AA)߅CBBH&E&&A@B& ChLQhBAȌy8zx8v{v I7H7@)*AL@m{@AAA,+i(ˢ3Z@[A@ /@v wm{@8/e@@eAA3]ͥ@\ƊiY?AyC@B@B|ACLT$VXZdflpx|~**7777(*3]67V<<8:=???@@##topmnU^_R ij^_lk 󅔆nmLY^^ȱ^ȱ^eȱ^e(ӊ0Цe^^u**`*5".Q`pN%$#$$b"p"t""%%%%"""m%2"<"("-"P"y%%0#\##|"6$6$$$e<%%g< 7JJJJj*7h*I * aUL@* kU8*  L % Q(^*R*(jQ*0l^l\ * wU*u**W* '* H &h@ ['_* /QSIRb*_*L!`LLL*L7`**`LQ(LYLeLXLeLee Q*H\*(h0L&& $`(* &R*  \*Z*Ll8 R* HH\*`\*Z*[*Y*S*6`*LxQ*ɿu3'R*Ͳ*ʎR*ʎ]*]*]*ɍuLɍ}R*LR*ɍ*g^H8* ^&hZ*LɍR* &LͲ*ɊR*R*%* Q(L$Ͳ* Z*@ -^*  \*[*Z* Q(Y*\*[*Z*8`l6L_*Ȍb*_*Ͳ*]* !)Y( h( (֭Ͳ*Lɍ ['LL&_*_* ^& 9 )L&3 9 )a  ! 0L jLY ! u*< !(_*9 ) ˭*ɠu*ɠK_*9 )?L ˆʎ55L> 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   ͳ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`W*UjVV*Uj*c*U>U`jV*Uj`*C*Ufu00 0303>>3 @UzjW3' 3>>3>>0>3 `W*Uj|x+c*U*U`jT*U:`*G+Uc???????????????????30.0.>033 0??????????3 33> >36833>6333633 `U`*U?????????????????3333!??????????3''''' ?333360633>33 `*U*Uj\Xjq*U*U`\*U:????????????????`* *U903 .3??????????????????333>33>3633>333 0?????????? 333 33>3333>333 U+U?????????????????33330333003x????????????''''3 ?3>333333>?`*U*U:\XjX*U*U`+U????????????????`*,5.3>330 30333>333>333333? ? 333 3?333?303?3I7C1C1:I6K(P8):A$A$(K$,P8,I6):P8P8I6:I7(P8K8I6)::A$A$W$:P8P8C1::A$A$T$:sTL8C2A$A$LA$T K(P8)āI7C1C1:A$A$(K$,P8,C1):P8P8C1:I7K(P8):T9K(P8)C1A$A$SP$:P8P8C1 UCK(P8)āI7C1C1:A$A$(K$,P8,C1):P8P8C1:I8K(P8)::A$(K$,P8C1)5SA(C1)C2A$A$RA$SI8C2A7C1:L8A(I8):L8THA$A$UA$:L8L8TH:K(P8)āI7C1C1:A$A$(K$,P8,C1):P8P8C1:I7K(P8):SL8C0āI7C1L8:A$A$(K$,P8,C1):P8P8C1:I7I7(I7L8K(P8)):::A$A$T$:]TL8āHH1,VV1:KI$T$KN$;:nRB$(A$,C1):J8C1:A8C1N8:A$(A$,J8C1):(A$,B$,C1,P%):J8P%::A$(A$,J8C1):RT$NL$:K8(K$):P8K8:K(P8)āI8C1C1:P8P8C1:I8K(P8)::T$(K$,P8C1)RA(A7)C3T$LA$T$SA$NL$:P8C1:K(P8)āI8C1C1:P8P87C1):A7(A$):B$(B$,S8C1)RC$(B$,E8C1):B8(B$):K8K8C1:P7P7C2:L7C1O7S8::Q (VP)(BM)1HH(HP)1::(VP):HHQ (VP)(TM)Ģ(VP)C2R (SP$,1,(HP)0);:VV8(VP):HH7(HP):L27(T$):HH,VV1HHL2,VV1HHL2,VV8HH1,VV81:K8C0:P7C1:A8C1W7:P8W(A8):I8(16336)_P(B$,(A$,P7,P8),L7,P%):P%P7P7P8C1::PW8C1:S7P7C1:E7S7P8C3:S8P%C1:E8S8P8C3:X8X8(S8X7):X8X7S8XQI8C1A7E7:A(S7I8)A(E7I8)::A(S7)A(S7)E7S7C1:A$(A$,S7C1)RC$(A$,E,P8):(B$,T$,C1,P%):B$(B$,P%)(96A8)(B$,P%P8C1):P7P7P8C1:OA$SL$B$SL$:(A$,SP$,C1,P%):IC1C1:A$(A$,P%C1)(A$,P%C1):(A$,SP$,P%,P%):IP%::TRANS(A$,US$,A$)O(F$,A$,C1,P%):P%W8C1:T9T9C1:D8C0O!-PX7C0:X8C0:L7C7W"WJ:I1J:J:J:J:::J::C1J:J:I8:J8(I8):TT%(J,C0)J8:SG(J8)I8C0:I8:J8(I8):TT%(J,C1)J8:SG(J8)I8C0::W:I15:J:I8:TT%(J,C0)I8:SG((I8))I80:I8:TT%(J,C1)I8:SG((I8))I80::I15:J:TT%(JBLEE,C0)I::EETT%(92,0)7:TT%(92,1)7:TT%(96,0)7:TT%(96,1)0:63960:63955:FT%(5,2):I15:FT%(I,0):FT%(I,1):FT%(I,2)::I15:J12:SG(FT%(I,J))1:::U 3,123,91,5,35,69,7,-7,-7,24,-24,-24,94,-94,-94U 65,69,73,79,85,97,124,37,101,125,38,105,105,64,111,111,92,117,126,93: FRENCH YVJ:I5,93: GERMAN$TLG$"SPAN":CM91:qT63960:63950:EETT%(126,0)91:TT%(126,1)91:TT%(96,0)123:TT%(96,1)91wTT 8,1,38,65,5,92,69,9,93,73,14,123,91,15,124,79,21,64,85,33,-33,-35,63,-63,-37: SPANISHTLG$"FREN":FR1:CM91:cU6396wS'TM,0:BM,24::KY$KP$:12:3:T$" INSERT A DISKETTE AND PRESS RETURN.":HC3:9220:9200:3:11:L(I$):DO$"PR#6"Sg+DO$"PR#0":DO$"IN#0"::SLG$"ENGL":CM90:SSLG$"GERM":CM93:S63950: T 4,1,123,91,15,124,92,19,38,38,21,12N DETECTED."::R&::"THE ERROR OCCURRED IN LINE "KI$(218)(219)256KN$:"OF DASHER. PLEASE RECORD THIS NUMBER":"AND ERROR TYPE NUMBER "KI$(222)KN$". THANKS."S'(5121)11111:23:10:T$" PLEASE PRESS RETURN.":HC3:9220:9200:22:10:L(I$)(222):EC0E159940Q&C5:"AN ERROR WAS DETECTED DURING DISK OPERATION. ";:"THE CURRENT FILENAME IS:":::10:(34)F$(34)::Q&EC8ĺ"IS DRIVE DOOR CLOSED?":"IS DISKETTE INSERTED PROPERLY?"Q&9950R&5:"A PROGRAMMING ERROR HAS BEE520"DASHER.MAIN"P%22:1:" "M$(3);:35:"< > .";:235,166247,166247,176235,176235,166:255,166268,166268,176255,176255,166P%24:T$M$(4):9200:T$;:PH&"SWITCH TO DASHER FAILED"Q&SI:6146:216,0:TM,C0:BM,24::(16);:BE$:CL$:E(CX):9200:J$"":HC0:9220:HC3:9200:9240:I$KU$CXCX1PO$I$KD$CXCX1cO$CXLXCXFX:tO$CXFXCXLXO$NX6CXLXĂO$I$KU$CXLX1:O$CXFX:O%KY$KP$:10:T$MM$:9200:HC3:9220O&%DO$"PR#0"O0%DO$"BLOAD CHAIN,A520"P:%:M(C1)C1:M(I7C1)C1:W7W7C1:W(W7)L7:dK$(Q$,C6):TRANS(Q$,W$RC$,Q$):(Q$,RC$,C1,L%):IC1C1:(Q$,RC$,L%C1,R%):Q$(Q$,L%C1)(WX$,R%L%C1((C1)C4))(Q$,R%C1):(Q$,RC$,C1,L%):IL%:ReA$(Q$,C6):(A$,LP$,C1,L%):L%āIC1C1:K$,(14),NL$,K$,I%):TRIM(K$,K$):M$NL$:N$NL$:W7C0:L7C2:I7C1:L$K$:L9įTRANS(L$,US$,L$)c|I8C1(L$):T$(L$,I8,C1):K(I8)SG((T$)):S7K(I8):S7M$M$T$:I7I7C1:S7C0L7L7C1:M(I7)C0:N$N$T$cS7C0M(I7)C1:W7W7C1:W(W7)L7:L7C2,d("T$:Ib6T$SP$M$(23):A7((41(T$))2):A7:3000:A7:1000:KP$:9:b^LN(T$):LN35āI35255FY:JIC1C1:LSJ:JJ((T$,J,C1)SP$)::T$(T$,C1,LS)(WR$,C1,ILSC4)(T$,LS):II255((IFY)(T$)):bc]cwEDIT(K$,(9),NL$,K$,I%):EDIT(ASRAASRAASUA)::4750:,adJ9C2İ9:aJ9C16430:J97000,7100:J9C06430:I$NL$:I8C1A7C1:I$I$((A(I8)))::TRIM(I$,A$):6180aA$P$:N8C1:(T9C3H9)N8C2(P9(C1))b3750:T$A$:SP$;:3000:::D8V7T$K$RP$:6750:" I)`4500:T$A$:6750:A$T$u`KN$Q$KN$::AL(VP):KN$" ";:HH(HP)C1:VV(VP)C1:A$;:T9I9V7ĺ:6120a(HH:VV:A7(A$):I8C1A7:A(I8)((A$,I8,C1))::A7A7C1:A(A7)BL:J9C0:PSC0:I8C1C1:PSPSC1:AS((A$,PS,C1)):I8(ASDHASLAA$):D$SP$A$SP$:A$M$6640:P%C1:EDIT(A$,SP$,NL$,A$,I%):A$N$6640:5000:W8C4M9C0(F$)İ1800:W86640_VV(VP)C1:(BM):IC1(TM)AL:::VVAL(TM):1`A$O$:N8C1(O9(C1)):3750:T$A$:SP$;:3000:::(U$):KN$"("U$")"KN$::I(60756^$D$A$:M9C0į(K$,SL$,C1,P%):P%İ1500:6205u^8D8C0:D$K$6640:D8C1:L9įTRANS(D$,US$,D$):D$L$6640^=D8C0:D$K$6640:D8C1:L9įTRANS(D$,US$,D$):D$L$6640^`TRANS(D$,NS$,A$):EDIT(A$,RC$,NL$,A$,I%):(A$)ĺ:6075o_oTRIM(A$,]M9C0İ6775=]M9C0F$NL$:(K$,SL$,C1,I%):P%İ6775K]KN$Q$KN$]BM,24:V8(VP)C1:23:T$M$(22):((41(T$))2):3000:BM,21:V8]I(I)::AL(VP):KN$" -->";:1000::J9C2İ9:]J9ĴJ97000,7100:6075^TRIM(I$,A$):(A$)īASNTI8A7\:0\COUN(D$,SP$,I%):B8I%\A7(M$)C2:I8C1A7:A(I8)M(I8)::W7B8C1O7C1:A$SP$M$SP$:B$D$:A7(A$):B8(B$):2000:U$M$(20):W8C4:\#U$M$(21):W8C3:\pKP$;:T9C1:H9C0:(Q$,W$,C1,P%):P%D8C0:V7C1:6900:6430W8ı[U$NL$:X8U$M$(18)F[COUNT(D$,SP$,I%):B8I%:W8C25115x[W7B8C1U$U$(CR$,C1,C2(U$NL$))M$(19)[W8C25115[I8C1A7:I7A(I8):I7C1I7THI8A7::[I7Ă:U$U$(CR$,C1,C2(U$NL$))V$: \AS((A$,I8,C1)):ASDSC0:(SG(AS)PSA7)B8A(PS):(B8DHB8C0)A(PS)AS:ASXOZVASXOPSA7B8A(PS):J8C1C1:((B8));:PSPSC1:B8A(PS):J8(SG((B8))C2B8C0):Z~USC0:ASC0:[T9T9C1:U$NL$:A$SP$M$SP$:A7(A$):I8C1A7:A(I8)M(I8)::B$D$:B8(B$):300:XC1)A(FX):J8(HP):FXFXA7J8::HH:VV:A7A7J8:ASXOUYASBLĭB8DHASC0:fYASBLASXOYFRĭFTFT(ASKG)C2(ASXX):FTA(PS)43(FTC1)XX(FTC2):ASC0:YFRĭASC6ASFT%(AS,FT):FTC0YFRFTFTC0:ASC0:A(PS)BL::Z$FTЂ::PX(ASDHASBL)B8A(PS):((B8)DHB8C0)A(PSC1)BLA(PS)BL:ASXOXASSLĺKP$:2:T$M$(5)": "SL$::3000:I$SL$:30:J9C1:I$NL$1040:;YASBLB8A(PS):(B8LAB8RAB8UA)HH(HP)C1:VV(VP)C1:FXPSC1A7:((A(FX)));:A(FSESUSC1:ASC0:WASBSĭPSC1āJ8C1C1:BS$;:PSPSC1:B8A(PS):J8(B8C0SG((B8))C2PSC0):I$((B8)):KI$"?"BS$;:I135::KN$I$BS$;::ASXO:PSC0ASC0:XASRTĂ:I8PSA7:AS((A(I8))):I2(V7C0ASDH):ASBLI2ASI2:A(I8)AS:(AS);:$J1$BS$KN$;:V1(VP):V1:KS,C0:J$:V1C1:J1$BS$;:(J$)ASC0:VAS(J$):ASTT%(AS,US):ASC0FTC0:USC0:(SG(AS)PSA7)B8A(PS):B8DHB8C0A(PS)AS:B8AS:J8C1C1:((B8));:PSPSC1:B8A(PS):J8(SG((B8))C2B8C0)::ASC0:WAS(AS):AC1:I7K(P8):*UaL8C2L8C4A$A$RA$;Uf:A$A$T$:{UHH(HP)C1:VV(VP)C1:PSC1āI3C1PSC1:((A(I3)));:UBM,24:H8(HP)C1:V8(VP)C1:23:T$M$(22):((41(T$))2):3000:BM,21:V8:H8CVFTC0:USC0:ASC1C1:J1$((A(PS))):KI1J:J:J:J::L,92,117,126,93: FRENCH eJ:I1J:J:I8:J8(I8):TT%(J,C0)J8:I8:J8(I8):TT%(J,C1)J8:::I15:J:I8:TT%(J,C0)I8:I8:TT%(J,C1)I8::I15:J:TT%(JBLEE,C0)I::EETT%(92,0)7:TT%(92,1)7:TT%(96,0)7:TT%(96,1)7J:I,123,91,15,124,79,21,64,85,33,-33,-35,63,-63,-37: SPANISH63960:63960:63955:FT%(5,2):I15:FT%(I,0):FT%(I,1):FT%(I,2):: 3,123,91,5,35,69,7,-7,-7,24,-24,-24,94,-94,-94 65,69,73,79,85,97,124,37,101,125,38,105,105,64,111,111THIS LINE NUMBER":"AND ERROR TYPE #"(222);::". THANKS.":CP63950: 4,1,123,91,15,124,92,19,38,38,21,125,93: GERMAN63960:63950:EETT%(126,0)91:TT%(126,1)91:TT%(96,0)123:TT%(96,1)91= 8,1,38,65,5,92,69,9,93,73,1416384)128:IWT::I$(I):KS,C0:.'9900='CDCC:CC0]'SI:BE$;:(ER)255ī9900g'9500'CD8,111,735,8000,500'9900=g+216,0:54915:34,0:DO$"IN#0":DO$"PR#0":::"ERROR IN LINE #"(218)(219)256" OF DANCER.":"PLEASE RECORD L)A&BL$"FILE TOO LARGE.":E$S1$:BN$S$:9000:9999:9500:100&KP$;:TN:"CONTROL-C CAUSED A PROBLEM.":"THIS ONLY HAPPENS WHEN IT IS TYPED":"HASTILY OR CLUMSILY.":E$S1$:BN$S$:9000:9999:F$NL$9500:111'10001#'KS,C0:WTC1C1:WT(:KS,0:CCC2:9999:95001&LCCC2:9999:111n&KP$;:BL$"READY TO RESUME":BN$S$:E$S1$:9000:I$:100&KP$;:C8:TN:KI$"ACTIVE FILE IS FULL"::KN$"PLEASE FILE IT AND CONSULT YOUR MANUAL ABOUT THE CONTOL FILE."::"LAST LINE:"::LLC1:LF$(m'CHAIN,A520":520"TOP""(X$,P7C1)KN$::0gLI135:I:>g@ INDEXg%FL$LF$(CX):DO$"VERIFY "FL$:DO$"OPEN "FL$:DO$"READ "FL$:LNX:9530g0%I11:I0:L(I$):LL1:LF$(L)I$:h:%SI:LLL:CL$:ERC0:KY$KP$:LNX2:BX1:I11:LL1:ILF$(L)":":BXBX$,NL$,K$,I%):TRIM(K$,K$):6775:WfX:M9C0F$NL$:(K$,SL$,C1,P%):P%D$NL$:1500gfT$K$:6750fKP$:Q$::KN$" -->"T$::fKP$;:(X$)C2ĺM$(24):f:T$M$(25):3000:::(X$,PL$,C1,P%):P7P%:P7ĺX$::gKN$" "(X$,P7C1):(A$,RP$,C1,R%):A$(A$,C1,L%C1)(A$,R%C1):(A$,LP$,C1,L%):IL%::TRIM(A$,A$)e (K$,LP$,C1,L%):L%āIC1C1:(K$,RP$,C1,R%):K$(K$,C1,L%C1)(K$,R%C1):(K$,LP$,C1,L%):IL%:eT$(Q$,6):6750:Q$(Q$,5)T$:T$A$:6750:A$T$!fEDIT(K$,WLC1 ^rR^I$UN$:V$LF$(UN):ELUN:UT1,1,1,4260,4260,4805,4710:UN$V$:MUT:d^LF$(UN)UN$:^E$"EDITOR":9000:FQİ4500:UN$LF$(EL):UNEL:LF$(EL)RS$:^ELC1İ4650:^ELFQANC2İ4500:UN$LF$(EL):UNEL:LF$(EL)RS$:C_DFFQEL:DFNDEX":9000:MAMA(MOELC2):40155]ELEL(ELL):Q]6E$"EDIT/CHECKER":9000];"SKIP TO WHICH LINE? "KE$;:50:ASESı]@NL(I$):NLC1NLLĺBE$"INVALID LINE NUMBER. RANGE IS 1 TO "L".":4155]JELNL:^hELELC1:FQELFQC4ELFQC1ELE(LA);FY(HP))KN$;>\MSC7:TM,(VP):FQ4043:ELC1MSC6S\ELFQC4MSC5j\ELC2FQC8MSC6\8000:MC0UNC0:\MC0İ4250:4015\UNC0:ELC1MC3ELLC1\ELLMC1ELC0"]UTM:M4100,4150,4200,4300,4600,4700,4800:E$"I"INDEX":M$(C0)"UNDO LAST EDIT"O[FQĭELFQC4ELFQC1ELELC1:ELLELC1[BL$XL$", LINE "(EL):ELLBL$BL$" (LAST)"[LBELC1:LBC0LBC0[LAELC1:LALLAC0\TM,C0:C1:C1::KI$LF$(LB);FY(HP)):KN$LF$(EL)KI$FY(HP)):LF$T ANSWER.":BE$" -->"I$:2341ZXL$"EDITING "F$:LF$(C0)NL$:ELC1:UNC0:M$(C1)"NEXT LINE":M$(C3)"PREVIOUS LINE":M$(C2)"SKIP TO LINE"[M$(C4)"CHANGE CHUNK OF LINE":M$(C5)"REPLACE WHOLE LINE":M$(C7)"DELETE LINE":M$(C6)"ADD LINE AFTER THIS":E$(I$)C0ĺBE$:"ANSWER NEEDS TEXT.":2340Y( (I$,KI$,C1,L%):L%ĺBE$"DO NOT USE "KI$"INVERSE"KN$" IN ANSWERS.":BE$"PLEASE RETYPE THIS ANSWER.":2340Y) (I$,DS$,C1,L%):L%(I$,C1)SP$(I$,C1)SP$ıZ. TRIM(I$,I$):"EXTRA BLANKS REMOVED FROM LASDO$"APPEND "I$:DO$"WRITE "I$:F$:(4)"CLOSE":DO$"LOCK "I$:KX ASESıX I$QN$I$:(I$)C6ĺBE$;"QUESTION NEEDS ";("PREFIX OF FIVE CHARACTERSPLUS ",C1,(ANC2)FY);"TEXT.":2325X X$ KI$"ANSWER "((QN),C1,(ANC1)C5)KN$:" -->";:50(Y% :LLC1:LF$(L)I$:HLHLLC22320:W :KI$"QUESTION "((QN),C1,(ANC1)C5)KN$:QN$NL$:ANC1QN$(QN)". ":QN10QN$SP$QN$>X KN$QN$;:QWC1:50:QWC0:CC1ASESMAMAC1:BN$"UPDATING MENU":E$"NONE":9000:I$"MENU.AUTHOR":DO$"UNLOCK "I$:--MAKE NUMBERS":M$(C2)"NO--MY PREFIX":MSC2:E$"NONE"V 8000:MC02305:TM,C0:BN$"FILE "F$:ANM:KP$;:FQLC1:QNC0:2320:111V QNQNC1:E$"NO MORE ITEMS":9000:2325:ASESı&W LLC1:LF$(L)I$:MOC1:E$"NONE":9000:I4C1C1:2340:I4AS27:$:KI$"EXAMPLE ANSWER":" -->"KN$;:I4C1C1:C6:KN$KF$;qU50:I4ASES::LLC1:LF$(L)I$:LLC1:LF$(L)":"6VM$(C1)BL$:M$(C2)BN$:M$(C3)E$:9500:BL$M$(C1):BN$M$(C2):E$M$(C3):C5:"DO YOU WANT AUTOMATIC QUESTION NUMBERS?":TM,(VP):M$(C1)"YESRUCTIONS.":22160TLC2E$"END INSTR.":9000TTASESLLC1:LF$(L)I$:IC0:TNWC0:LLC1:LF$(L)":":LLC1:E$"NONE":9000:TM,C0:KP$;:5:KI$"EXAMPLE QUESTION:":" "KI$;:I4C1C1:6:KN$KF$;:1::UQWC1:50:QWC0:I4ASES::LF$(L)IE TITLE OF EXERCISE:"::KN$;:TM,2:KI$DS$KN$;:NWC1:50:LF$(C2)I$:(I$)C2(I$)38ĺBE$:2211SKP$KI$;:E$"NONE":9000:5S"TYPE INSTRUCTIONS:"::KN$;:TM,2:LC2:IC1C1:KI$DS$KN$;:50:ASESIC1:TASESLC2ĺ:BE$"YOU MUST HAVE INST ALREADY EXISTS.":::"PLEASE USE *MODIFY* TO ADD ITEMS;"::" USE *CHECK/EDIT* TO MAKE CHANGES.":CCC2:9999:KP$:111RM9900RRSI:BN$"FILE "F$:9000RLF$(C1)"FILE="F$DS$TD$DS$"VERSION 1":WC1bSKP$KI$;:E$"NONE":9000:5:"TYPI$Q*=QBL$"AUTHORING":E$"INDEX":9000:TM,C0:KP$;:5dQ4Q$"NEW FILENAME":510:ASESī100wQ5(F$)C12100Q6(F$,C2)"D."F$"D."F$Q72125Q8E$"NONE":9000::DO$"VERIFY "F$Q99900~R?BN$S$:E$"INDEX":9000:"FILE "KI$F$KN$""PBN$S$:E$S1$:9000:CC3:9999/PFQ111PANĺKP$;:C5:"DO YOU WANT AUTOMATIC QUESTION NUMBERS?":TM,(VP):M$(C1)"YES--MAKE NUMBERS":M$(C2)"NO--MY PREFIX":MSC2:E$"NONE":8000:MC0740:ANMP100Q "TODAY'S DATE: ";:50:ASESTD$((I$)C5)*OANANAN((LF$(IC1)))GOII(ANC0)L::ANC2ANsOFQ(F$)C2(F$,C2)"D."F$(F$,C3)OFQ(F$,C1,C2)"D."F$"D."F$O"IT IS "("NOT ",C1,C4(FQ));"A STANDARD DANCER FILE.":ANC1ĺ"IT EMPLOYS AUTOMATIC NUMBERING."IFQLC1C2:QNQNC1:QN$(QN):QNTNQN$SP$QN$SnLF$(I)QN$(LF$(I),C3)::ynXBL$"SHOWING "F$:N19:E$"INDEX"obKP$;:BN$S1$" FOR MORE":9000:JC0:KC0:IC1C1:JJC1:KK((LF$(J))39)C1:KNC1JLCCC2:9999:KC0:(I$)C0AS(I$):OND PAIR: ";:50:ASESıQmOSS(I$):SSC1SSNQĺ"RANGE IS 1 TO "NQ".":6730zmTFSSSĺ"FIRST SAME AS SECOND":6730m^FSFQC2(FSC1):SSFQC2(SSC1):IC0C1:I$LF$(FSI):LF$(FSI)LF$(SSI):LF$(SSI)I$:I:6900:mMOC1:FQC0ı3nQNC0:l,BN$"SWITCH":E$"MODIFY":9000:NQ(LC1FQ)C2:KP$;:5:LFQĺ"THERE ARE NO QUESTIONS TO SWITCH.":BN$S$:E$S1$:9000:CCC2:9999:l6"NUMBER OF FIRST PAIR: ";:50:ASESıl@FS(I$):FSC1FSNQĺ"RANGE IS 1 TO ";NQ".":6710mJ"NUMBER OF SECNSERT BEFORE WHICH QUESTION? ";:50:ASESıdkxBQ(I$):BQC1BQNQĺ"RANGE IS 1 TO "NQ".":6510k}QNBQC1:NLC2(NQBQC1):IC0NLC1:LF$(DMI)LF$(LI)::LFQC2(BQC1)C1:ANC1:HLDMNL:2320:IC1NL:LF$(LI)LF$(HLI)::HLC0:LLNL:6900:NQLLC2:8j"NUMBER OF LAST PAIR: ";:50:ASESıojLD(I$):LDFDLDNQĺ"RANGE IS 1 TO "NQ".":6330jOS(LDFDC1)C2:IFQC2(FDC1)LOS:LF$(I)LF$(IOS)::LLOS:6900:jdBN$"INSERT":E$"MODIFY":9000:NQ(LC1FQ)C2:KP$;:5-kn"Ii2320:iBN$"DELETE":E$"MODIFY":9000:NQ(LC1FQ)C2:KP$;:5:LFQĺ"THERE ARE NO QUESTIONS TO DELETE.":BN$S$:E$S1$:9000:CCC2:9999:i"NUMBER OF FIRST PAIR: ";:50:ASESıiFD(I$):FDC1FDNQĺ"RANGE IS 1 TO ";NQ".":6310 jFDDELETE Q/A PAIRS":M$(C3)"INSERT Q/A PAIRS":M$(C4)"SWITCH TWO Q/A PAIRS":MS4:E$"INDEX"xhTM,C0:KP$;:8000:MC0ıhM6100,6300,6500,6700:6020hBN$"APPEND":E$"MODIFY":9000:QN(LC1FQ)C2:KP$;:LFQāIFQL2:LF$(I):" "LF$(IC1): L$"MODIFYING "F$:FQ6010guKP$;:C9:"SINCE "KI$F$KN$" IS NOT A STANDARD":"DANCER FILE, MODIFY WILL NOT WORK.":"PLEASE USE EDIT/CHECK OR TEXT ENTRY":"OPTIONS TO MAKE CHANGES.":BN$S$:E$S1$:9000:CC2:9999:YhzM$(C1)"APPEND Q/A PAIRS":M$(C2)"9000:8000:MC15100:MC0ıvfLL(MC1):FQFQ(L):ANC1(L):E$"INDEX":9000:KP$;:Q$"FILENAME":510:ASESıfTM,C0:KP$;:BN$"FILE="F$::E$"END ENTRY":9000:TC1C1:KI$"LINE "LC1":"KN$:50:TASES:TLLC1:LF$(L)I$:MOC1f:gpB(I)LF$(IC1):GeELEL(ELL)C1(ELL):LLC1:FQFQ(FQC0):MOC1:Re9900weMOC0:TM,C0:KP$;:MC1:L5003fTN:"DO YOU WANT TO CLEAR THE ACTIVE FILE?":M$(C1)"NO--APPEND TO IT.":M$(C2)"YES--THIS IS NEW TEXT.":MSC2:TM,(VP):E$"INDEX":DD:":50:ASESıpdfELELC1:ILELC1:LF$(IC1)LF$(I)::UTC6:UNEL:LF$(EL)I$:FQFQ(FQ):LLC1:MOC1:dELC1ĺKP$;:TN:BE$;"FIRST LINE MAY NOT BE DELETED.":BN$S$:E$BN$:9000:CCC2:9999:eUN$LF$(EL):UT7:UNELC1:ELLāIELLC1:LF$1C1:JI:I(I$,I,C1)SP$::VN((I$,J)):E$(VN):9000:50:ASES4665c5VN(I$):VNC1VN999ĺBE$;"RANGE IS 1 TO 999.":4660c9I$"FILE="F$DS$TD$DS$"VERSION "(VN):UN$LF$(C1):UNC1:LF$(C1)I$:MOC1:d\E$"EDIT/CHECKER":9000:"LINE TO AEW LINE:":50:ASESı?bMOC1:UN$LF$(EL):UNEL:LF$(EL)I$:b*KP$;:TN:OF$F$:Q$"CHANGE TO FILENAME":E$OF$:9000:510:ASESF$OF$:b,FQĭ(F$,C2)"D."F$"D."F$b/E$TD$:9000:800:ASESĺIc4"VERSION NUMBER: ";:I$LF$(C1):I(I$)C09aQNC1((ELFQ)C2):DFELFQ:DFC2(DFC2)ī4615daE$"OLD QUESTION":9000:2325:ASESıaUN$LF$(EL):UNEL:LF$(EL)I$:MOC1:aE$"OLD ANSWER":9000:2340:ASESıa UN$LF$(EL):UNEL:LF$(EL)I$:MOC1:bE$"OLD LINE":9000:"TYPE N:OP$NL$:45303`(T$,I$,C1,P%):P%ĺBE$;:4500D`OP$I$:PLP%y`"NEW CHUNK: ";:50:NP$I$:ASESRS$LF$(EL):`(T$)(NP$)(OP$)255ĺBE$:4500`NP$I$:RS$(T$,C1,PLC1)NP$(T$,PL(OP$)):MOC1:aFQ4630:ELC14650:ELFQ463C2(DFC2)İ4500:(RS$)C04350:UN$LF$(EL):UNEL:LF$(EL)RS$:_QN$(LF$(EL),C5):4500:(ANC1(RS$)C5(RS$,C1,C5)QN$)ANC2UN$LF$(EL):UNEL:LF$(EL)RS$_0_T$LF$(EL):"OLD CHUNK: ";:50:ASESRS$LF$(EL):`(I$)C0PL(T$)C1AS DETECTED"~&"IN LINE "KI$(218)(219)256KN$" OF DANCER.MAIN.":"PLEASE RECORD THIS LINE NUMBER":"AND ERROR TYPE #"KI$(222)KN$;::". THANKS."&::Lĺ"FILE "KI$F$KN$" IS STILL ACTIVE.":"PLEASE CONTINUE AFTER I BACK IT UP.":KS,0:CCC2:9999:RE YOU ARE NOT USING A MASTER DISK."Y}&EC9ĺ"DELETE FILES OR CHANGE TO NEW DISKETTE."}&EC9ETNĺ"USE INDEX OPTION D FOR DISK COMMANDS."}&9950 ~&E107LDM9960:E2559980:BL$"PROGRAM ERROR.":BN$S$:E$S1$:9000:9:"A PROGRAMMING ERROR W"DISK OPERATION ERROR.":E$S1$:BN$S$::"AN ERROR OCCURED DURING DISK OPERATION:":9000:7:"ERROR NUMBER IS "(ER)".":"CHECK APPLE DOS MANUAL."|&EC8ĺ"IS DRIVE DOOR CLOSED?":"IS DISKETTE INITIALIZED?"$}&EC4ĺ"DISK IS WRITE-PROTECTED.":"BE SUKP$;:BL$"BACKING UP "F$:BN$NL$:E$"NONE":9000:DO$"OPEN "BF$:DO$"UNLOCK "BF$:DO$"DELETE "BF$:DO$"OPEN "BF$:DO$"WRITE "BF$:IC1L:LF$(I)::CL$:MOC0:{&SI:DO$(13)(4):TM,C0:BM,24:KP$;:BE$:DO$"CLOSE":E(ER):EC0E159940|&C5:BL$:BN$S1$:9000:CCC2:9999:111z(#CH(HP):CV(VP):BM,21:C1:23:KI$;:(FY((BL$,FY)))C2);(BL$,FY);FY):C1:24:(BN$,FY(E$)C8);33(E$));"EscEsc="E$KN$KF$;:CHC1:CVC1z2#KS,C0:C0,175272,175:z%9900z%LC0MOC0:{%TM,C0::E$"NONE":9000:DO$BL$:KP$;:11:"YOUR COMMAND "::KI$BL$KN$::"SUCCEEDED.":E$"COMMANDS":BN$S1$:9000:CCC4:9999:BL$T$:8500y!KP$;:E$"NONE":9000::DO$"CATALOG":E$"COMMANDS":9000:CCC4:9999:(I$)AS(I$):ASES8505z!8600:E$"INDEX""COMMANDS":9000:T$F$:510:I$F$:F$T$:ASES8500>x@!8514XxA!DO$"VERIFY "I$:8515zxB!SI:BE$:(ER)C68509:9900xC!9900xD!MC5Q$"NEW FILENAME":K$I$:T$F$:510:I$F$:F$T$:ASES8505:I$K$8505:I$K$", "I$yH!T$BL$:BL$M$(M)SP$I$w9!TM,C0:KP$;:M$(C1)"CATALOG":M$(C2)"LOCK":M$(C3)"UNLOCK":M$(C4)"VERIFY":M$(C5)"RENAME":M$(C6)"DELETE":MSC6:T$("ACTIVE=",C1,(F$)C7)F$:E$"INDEX":8000:M111w:!BN$T$:9000w=!99003x>!MC18600:TM,C0:KP$;:Q$"FILE TO "M$(M):E$ЭEEASASBL(AS96AS123):I$(AS)Fv EXC2MC0:BN$NL$:M1C1::[v EXASESEXC0v (M$,I$,C1,P%):M1P%(I$)RT::MP%:(I$)RTMC1(UN):I$(M$(C1),C1)v MM(UN):BN$I$"="M$(M):9000:I$:MC0MC1v UNUN(MC1):w4!9900:IC1M1:KE$::M1C1(UN)MS:C5)KI$(M$(M1),C1)KN$" = ";M$(M1);:M1C1ĺ" (= "KI$"RETURN"KN$")";uFKE$;::M$M$(M$(M1),C1)::KF$;:" -->"KF$;:BN$"SELECT BY LETTER":9000:M1C1C1:KS,C0:I$:(I$)C0M1C0:u AS(I$):ASESEXEXC1$v TILL NEED THE WORKING COPY?":TM,(VP):M$(C1)"YES--I NEED IT.":M$(C2)"NO--I'M DONE WITH IT.":E$"INDEX"t)9000:8000:LL(MC2):F$(F$,C1,(F$)(LC0)):FQFQ(LC0):111t@9900tAEXC0:M1(TM):M1C1fuBM$NL$:M1((BM)(TM)(MSC3UN))C2O$"UNLOCK "F$:DO$"DELETE "F$:7605.s9900TsSI:TM,C0:(ER)C69900:9900sBN$"SAVING THIS "F$:E$"NONE":9000::DO$"OPEN "F$:DO$"WRITE "F$:WC0:I1L:LF$(I)::CL$it(KP$::::"FILE "KI$F$KN$" SAVED ON DISK,":L" LINES.":"DO YOU S7700r:DO$"VERIFY "F$:KP$;:10:"THERE IS ALREADY A COPY OF":F$;" ON THIS DISK.":"SHOULD I REPLACE IT?":TM,(VP):MSC2:E$"INDEX":M$(C1)"NO!!":M$(C2)"YES, REPLACE IT.":8000:MC2ı#sTM,C0:KP$;:BN$"DELETING OLD "F$:E$"NONE":9000::D"VERSION NUMBER: ";:E$"CURRENT NUMBER":9000:50:ASES7570TqVN$" "((VN))qI$"FILE="F$:I(I$)39:I$I$SP$::I$I$TD$:I(I$)79:I$I$SP$::I$I$"VERSION"VN$:LF$(C1)I$:MOC1:7500qBN$"CHECKING FOR FILE":E$"NONE":9000:KP$r":TM,(VP):E$"INDEX":BN$"CHECKING FILENAME":9000:MSC2:M$(C1)"YES--"F$:M$(C2)"NO--RENAME IT":8000:TM,C0:MC0ıp~MC17600pKP$;:Q$"NEW FILENAME":510:ASESıpFQ7500p(F$,C2)"D."F$"D."F$>qVN$" "(((LF$(1),C3))):ASESıocJC1ĺKI$;KodFQC0ĭ((JFQ)C2)(JFQ)C2JFQĺ" ";ogLF$(J):KN$;:IJL::BN$S1$" TO RE-DISPLAY":9000:CCC2:9999:(I$)C0AS(I$):ASESıo7010:xpLBL$"SAVING FILE "F$:TM,C0:KP$;:(10):"SAVE AS FILE "KI$F$KN$"?쿍󠯠ﮍ󍴱󠯠堠ܿᠯᠠ󮠍ܠﮠܠܠ܍򠠠ᠯᮍ፳󠯠䮿󍳸󠯠䮳宍ᠠ뮍ᮍ፱䩠󠠠󮠨󍱴ᠨ䩠ﮠ䩠ᠠᮠ򩠍󍱰ᠨ䩠򠠠፱䩠򠠠򮠨ᠨ䩠󮠠򩍮堠򮠨󍠸䩠򠠠宠󍠹䩠젠宠破䩠堠󮠨ᠨ󠠠䩠ﮠ̠堨򠠠򩮍፺ᠨ򠠠󮠨፠堨򠠠ﮨᠨ䩠ᠠᮠŽĮŠԠΠŠŠȠӍ᠍宠堯ؠ䩍ᠨᠠᮠ      ĭԭĠȍΠŠȍ͠ŠȍԠčŠҠȯٍРčƽүҭŠӠȍƽĭȭ٠ȍƽŭԭĠȍƽȭԭԠĠȍ O LARGE.":E$S1$:BN$S$:9000:9999:9500:100ƀ&KP$;:TN:"CONTROL-C CAUSED A PROBLEM.":"THIS ONLY HAPPENS WHEN IT IS TYPED":"HASTILY OR CLUMSILY.":E$S1$:BN$S$:9000:9999:F$NL$9500:111Ҁ'10001'KS,C0:WTC1C1:WT(16384)128:IWT::9500&LCCC2:9999:111[&KP$;:BL$"READY TO RESUME":BN$S$:E$S1$:9000:I$:100&KP$;:C8:TN:KI$"ACTIVE FILE IS FULL"::KN$"PLEASE FILE IT AND CONSULT YOUR MANUAL ABOUT THE CONTOL FILE."::"LAST LINE:"::LLC1:LF$(L).&BL$"FILE TOﮍ፴󠯠ᮍ󍴴쿍󠯠ﮍ󍴱󠯠堠ܿᠯᠠ󮠍ܠﮠܠܠ܍򠠠ᠯᮍ፳󠯠䮿󍳸󠯠䮳宍ᠠ뮍ᮍᠯᮍ፲堯򠠠ᮍ卲ﮍܠ󠯠宍󠠠󮠨󍱴ᠨ䩠ﮠ䩠ᠠᮠ򩠍䩠򠠠፱䩠򠠠򮠨ᠨ䩠󮠠፱䩠堠򮠨󍠸䩠򠠠宠󍠹䩠젠宠󍱰ᠨ󮠨ᠨ󠠠䩠ﮠ̠堨򠠠쮨㩠򠠠󮠨፠堨򠠠ﮨᠨ䩠ᠠᮠ፠䩠堠ŽĮŠԠΠŠŠȠӍ᠍宠堯ؠ䩍ᠨᠠᮠ򩮍፺ᠨ    堯Π宍ϠŠӠŮź宍宍ؠӠԠĮčԧӠԠĠ̠ĮźЎ؎Ў؎ҠĎĠӠԠĮ砠ﬠҠӠΠӠˍĠӠ΍Π̠čЍРӠԠĮ؍ŠӠԠĮЍǠӠԠĮ؍ΠϠ  󠠠򮢍򮍠ɠ֮֮캠󮢍󮍺庠ɧ󮢍󮍠堠ŽĮүҠԠΠҠӮҍᠠ宠堯ؠ栠䮩󠯠ᮍ󍺍ᮍ῍뮍뿍箍翍ɠᮍɠ῍Įβ" <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "* <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""**6""">>8  80,"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>"(~ < (&20 *, **>> """ " >> ">> """>""""""< >>  "$! $%%#,ep% !Lp"% $`"H *+)hi#"H !*0+i+icH#c hc`"%$$%H hi#`$% b,c*+Md,cPMb*!0 +i+`%J) a+je *`PPPP򠥹͠0sL"$!e (' !!%##`e`" e$$ ",q0rs(!#L"L$a -  $    `L `,fPfA[8 & & &mg)mh e$*+Md$(Mb,cp ,bpP!pA* +i+Md$ҠӮҍҠӮŠŠȠӍ ҠΠӍĮүҍĮүĮŠĮŠ ﮍ󮍠ﮍﮍ쿍쿍ᮍᮍŽĮα報Π󮍠嬍쮍ᮍ󮍺ﮍ󠠠󮠨󍱴ᠨ䩠ﮠ䩠ᠠᮠ򩠍䩠򠠠፱䩠򠠠򮠨ᠨ䩠󮠠፱䩠堠򮠨󍠸䩠򠠠宠󍠹䩠젠宠󍱰ᠨ󮠨ᠨ󠠠䩠ﮠ̠堨򠠠쮨㩠򠠠󮠨፠堨򠠠ﮨᠨ䩠ᠠᮠ፠䩠堠ŽĮŠԠΠŠŠȠӍ᠍宠堯ؠ䩍ᠨᠠᮠ򩮍፺ᠨoo_* <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""**6""">>,"""""""""2,,__oo"""2,"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >,">< "< ( <"< **>> """ " >> ">> """>""""""< >>  "$! $%%#,ep% !Lp"% $`"H *+)hi#"H !*0+i+icH#c hc`"%$$%H hi#`$% b,c*+Md,cPMb*!0 +i+`%J) a+je *`PPPP򠥹͠0sL"$!e (' !!%##`e`" e$$ ",q0rs(!#L"L$a -  $    `L `,fPfA[8 & & &mg)mh e$*+Md$(Mb,cp ,bpP!pA* +i+Md$qr"s`,Ta@0,U`* L" zLB$!$$"% %L"b`f`f`,,Lҩb`@``cd` pLXcd`r$s%L$tc`d`f`e`Yc`d`L$e (' 8!$!$%",qL !%# !L5 (5`)`W L{ IHHH``F}"*?GOWrzFF*Q$``1  emgh` a` ,q0qai$r%s`@a`r$$hLcd`,qSiaLL L$L$ B `t8967 ,R,W T ,P`ɭӠҠΠΠ ((*)  a+*HN OI*P,h*,H,_0ɛ_ ɍ $h`ɐ 6+_ pL L z     z"#???   ٠ӠЮˠֱ Įү ĮŠҠ ĮŠ  ծԠ҂Ԡ ĮүҠ Ӡ ̠  éԠ   Ҡ ήҠ! ήҮŠ"ήРήǠ ծҠ ҠҮΠ/ҠҮΠC ծҠ Π !ΠͳͳŠ!" ϮҠϮҠϮԠҠԠŽĮŠԠΠŠŠϠӍ᠍宠堯䩍讠䮍卺I$(I):KS,C0:'9900*'CDCC:CC0J'SI:BE$;:(ER)255ī9900T'9500o'CD8,111,735,8000,500y'9900Z16,0:WD"ERROR TYPE "(222):"IN LINE "(218)(219)256". PLEASE RECORD IT.":1602L:(LF$(I),1,38)::D$"CLOSE":D$"LOCK "F$C::"MENU.STUDENT HAS NOW BEEN UPDATED.":DLĺDL" FILENAMES WERE DELETED FROM":"MENU.AUTHOR:"::I1DL:(7)DL$(I):C::"PLEASE PRESS RETURN.":L(I$)DD$"NOMON C,I,O":D$"IN#0":D$"PR#0"::2F$:D$"OPEN "F$:D$"WRITE "F$:I1L:LF$(I)::D$"CLOSE":D$"LOCK "F$BZL1āI2L:F$LF$(I):D$"OPEN "F$:D$"READ "F$:L(I$):L(I$):LF$(I)I$:D$"CLOSE":.CdF$"MENU.STUDENT":D$"UNLOCK "F$:D$"OPEN "F$:D$"DELETE "F$:D$"OPEN "F$:D$"WRITE "F$:I,ASI:ET(222):ET5200:D$"CLOSE":C25A#45^A(CL55:D$"VERIFY "LF$(C):CC1:40A-SI:(7)"FILE "LF$(C)" DELETED FROM MENU.":DLDL1:DL$(DL)LF$(C):LL1:CLāICL:LF$(I)LF$(I1):A240A7200FB<DLĺD$"UNLOCK "F$:D$"DELETE "Y%@ DASHER MENU.UPDATER 9 JULY 830@NX100:@200@ ::6146:D$(4):SI54915:2:14:"UPDATING MENU":34,3:D$"MON I,O":LF$(NX):DL$(NX)@F$"MENU.AUTHOR":D$"VERIFY "F$:D$"OPEN "F$:D$"READ "F$:30AI010:L(I$):LL1:LF$(L)I$:     12:12,"ONE MOMENT PLEASE"K((4);"BLOAD HUM374.TITLE"2N:I1N:S:S,0::4,49239,49236,49234,49232 <PAUSE500FI1PAUSE:IIPAUSE((49152)127):P49168,0Z(4);"RUN HELLO.DASHER"ᮍ፴ܠ󠠠󠯠堠쿍󍴹塠𠠠ﮍ፴󠯠ᮍ󍴴ܠ󠠠ᠯ䮠쿍󠯠ﮍ󍴱󠯠堠ܿᠯᠠ󮠍ܠﮠܠܠ܍򠠠ᠯᮍ፳󠯠䮿󍳸󠯠ōᮍᠠ뮍ᮍᠯᮍ፲堯򠠠ᮍ卲ﮍܠ󠯠宍ᮍ堯򠠠ﮍ卲󠯠ᮍ󍲵󠯠󍲶󠠠危宠ݮ쮠쮍፠䮠߮堠䮠߮ᮠ󮠨򦍠ᮨ򩠠䮠󮠨䮠ﮍŽĮŠԠΠŠŠϠӍ᠍宠堯䩍讠䮍卺     ᮍ፴ܠ󠠠󠯠堠쿍󍴹塠𠠠ﮍ፴󠯠ᮍ󍴴ܠ󠠠ᠯ䮠쿍󠯠ﮍ󍴱󠯠堠ܿᠯᠠ󮠍ܠﮠܠܠ܍򠠠ᠯᮍ፳󠯠䮿󍳸󠯠ōᮍᠠ뮍ᮍᠯᮍ፲堯򠠠ᮍ卲ﮍܠ󠯠宍ᮍ堯򠠠ﮍ卲󠯠ᮍ󍲵󠯠󍲶ܠ堯忍危ᠠﮍ󠯠쮍󍲲ﮍ󍱳堯젠ﮍ፱堠ﮍ堯ᮍ󠯠ﮍ󍱷򠠠宍󠯠ﮍ󍠹󠯠宍ﮍﬠ󠯠ﮍ󠯠򠠠堠ᮍ󍠳ᬠܠ󠯠塍󍠵󠯠ᮍ󠯠ᮍ󠯠ᠠŽĮүҠԠΠҠӮҍᠠ宠堯ؠ栠䮩󠯠ᮍ󍺍󠯠ᮍ󍠲󠯠    @ DASHER HELLO.AUTHOR6@:::8:17:"DASHER"@(48815)240ė:"PLEASE INSERT A DASHER DISKETTE":"AND PRESS RETURN.":"";I$:(4)"PR#6"@ 5121,1: AUTHOR DISK@5122,68@104,64:64256,0:(4);"RUN STARTER"185p,U?3?3?33+U3''''33 33330333333330?`*U*UWXjX*U*U/u`*5p. 33>?3>??????????????????30333033333?3?3?????????? 3333333(<50U?????????????????33333333333`*U??????????3''''33>>>3`*U*UWX:\*U*Ux????????????????`*U.3303333303??????????????????333>333303??????????  . ;U1U?????????????????3333X*U~??????????''''' 000`*U*UWX:\*U*U????????????????`*Up+3!3333033!?30*G+U3UV*UjV'>`**UWx?T*Uj `jWz_j<          󠠠危宠ݮ򦍠쮠쮠፠䮠߮堠䮠߮ᮠ󮠨ᮨ򩠠䮠󮠨䮠ﮠŽĮŠԠΠŠŠϠӍ᠍宠堯䩍讠䮠卺    󠠠危宠ݮ򦍠쮠쮠፠䮠߮堠䮠߮ᮠ󮠨ᮨ򩠠䮠󮠨䮠ﮠŽĮŠԠΠŠŠϠӍ᠍宠堯䩍讠䮠卺    DASHER HELLO.AUTHOR6:::8:17:"DASHER"(48815)240ė:"PLEASE INSERT A DASHER DISKETTE":"AND PRESS RETURN.":"";I$:(4)"PR#6" 5121,1: AUTHOR DISK5122,68104,64:64256,0:(4);"RUN STARTER"򍵰ᬠ堠򍴵ߠ򍴶ᮍ򍴷堠ᮍ፴ﮍ򍴹젠፳፴ݿ፴宍򍴲򠠠ﮍ򍴳宍򍴴󡠠宍፳򍳴ߠ堠ᮍ፳󠠠򍳶ܠ宍򍳷ܠﮍ򍳸ߠ堠ᮍ򍲸򍲹ᮍ򍳰䮍򍳱ᠠ쮍򍳲ﬠ䮿፲፲ܠ򍲴ᠲ፲፲፲󍱶󠠠򍱷򍱸፱ᠠ䮍򍲰ߠﮍ򍲱𦮍፱ﮍ򍱱ﮍ፱፱宠򍱴ߠ젠ﮍ򍱵宍宍፠ܠᮍ፠ߠᮍ򍠶ᅪ፠宍򍠸፠ҠӮҍҠӮŠŠȠӍŠŠϠӍ 0:(4);"RUN STARTER" DASHER HELLO.STUDENT7:::8:17:"DASHER"(48815)240ė:"PLEASE INSERT A DASHER DISKETTE":"AND PRESS RETURN.":"";I$:(4)"PR#6" 5121,0: STUDENT DISK5122,68d1010,0:1011,0:1012,0: BOOT ON RESET 104,64:64256, 򍵰ᬠ堠򍴵ߠ򍴶ᮍ򍴷堠ᮍ፴ﮍ򍴹젠፳፴ݿ፴宍򍴲򠠠ﮍ򍴳宍򍴴󡠠Ԡ宍፳򍳴ߠ堠ᮍ፳󠠠򍳶ܠ宍򍳷ܠﮍ򍳸堠ᮍ򍲸򍲹ᮍ򍳰䮍򍳱ᠠ쮍򍳲ﬠ䮿፲፲ܠ򍲴ᠲ፲፲宍፲򍱶󠠠򍱷򍱸፱ᠠ䮍򍲰ߠﮍ򍲱𦮍፱ﮍ򍱱ﮍ፱፱宠򍱴ߠ젠ﮍ򍱵客宍፠ܠᮍ፠ߠᮍ򍠶ᅪ፠宍򍠸፠ŽĮүԠΠҠӮᠠ宠堯󠠠䮩宍፺፠ݮ򍠳ᮨ򩠠䮠󮠨䮠ﮠŽĮŠԠΠŠŠϠӍ᠍宠堯䩍讠䮠卺򍵰ᬠ堠򍴵ߠ򍴶ᮍ򍴷堠ᮍ፴ﮍ򍴹젠፳፴ݿ፴宍򍴲򠠠ﮍ򍴳宍򍴴󡠠Ԡ宍፳򍳴ߠ堠ᮍ፳󠠠򍳶ܠ宍򍳷ܠﮍ򍳸堠ᮍ򍲸򍲹ᮍ򍳰䮍򍳱ᠠ쮍򍳲ﬠ䮿፲፲ܠ򍲴ᠲ፲፲宍፲򍱶󠠠򍱷򍱸፱ᠠ䮍򍲰ߠﮍ򍲱𦮍፱ﮍ򍱱ﮍ፱፱宠򍱴ߠ젠ﮍ򍱵客宍፠ܠᮍ፠ߠᮍ򍠶ᅪ፠宍򍠸፠ŽĮүԠΠҠӮᠠ宠堯󠠠䮩宍፺፠ݮ򍠳    ˠϮҍŠϮҍĠϮҍŠϮҍңᮍ󠠠危宠ݮ򦍠쮠쮠፠䮠߮堠䮠߮ᮠ󮠨:20 CM)"::20:19:"OR":22::10:"RUN DANCER (AUTHOR)"::VTUN DASHER"GB14:8::24)::8:" SPANISH AUTHORING DISK ":8:24)B19:6::"TYPE:";::14:" RUN DASHER ";::" (STUDENT)":18:14::12):14:20:12):C23:6::"OR:";::14:" RUN DANCER ";::" (AUTHOR)":22:14::12):14:24:12):SACK":12:9:"THE UNIVERSITY OF IOWA"A(3:7:M$" CONDUIT LANGUAGE SERIES ":M$:1:5::(M$)4):2:5:" ";:8(M$):" ":5:5:(M$)4):4:5:" ";:8(M$):" ":Ad(4);"BRUN BLITZEN"A5120,3:(4);"BLOAD SPAN.HRCG" B,(5121)0ĺ(4)"R @ DASHER STARTER(@ GERMAN DISK@ (48815)240(5122)68ė:"PLEASE INSERT A DASHER DISKETTE":"AND PRESS RETURN.":"";I$:(4)"PR#6"@34,0:35,24:33,40:32,0:::255&A7:16::8)::16:" DASHER ":16:8):11:12::"JAMES P. PU    ˠϮҍŠϮҍĠϮԍŠϮҍң9240:NNT$6:J$"":IFXLX:T$LF$(I):9200:32(IFX1):HC3:9240::CXFXN^$J11:J0:T$LF$(CX):9200:32(CXFX1):J$KI$:9220Nh$VV(VP)1:22:1:KI$" "KN$;:21:1:KS,0:I$:VV:I$KU$I$KD$I$(13)9320Nr$I$RT$J1::":PL$"+":RP$")":LP$"(":RC$(31)CJDO$(17)(13)(4):CL$DO$"CLOSE"(13):F$"CONTROL":DO$"VERIFY "F$:DO$"OPEN "F$:DO$"READ "F$:I1TN:L(I$):T$(I$,1):(I$,T$,2,P%):I$(I$,2,P%2):I1ĆLF$((I$)):COLF$(I)I$::CL$E$(7):HP36:VP37:KE$(5):KP$(16):KQ$(17)BETN10:NT90:NY90:NS97:XO127:TF255:TH1000:TM34:WR$SP$SP$:IC1C6:WR$WR$WR$::AK$"*"4CFSL$"/":SL(SL$):A$"":B$"":S$"":T$"":I80:A70:B80:P70:P80:L70:M80:E80:S80:H80:N80:Q80:O7AASU(5120):SU63900,63910,63920,63930::6146:F$"MESSAGES":I$(4):I$"VERIFY "F$:I$"OPEN "F$:I$"READ "F$:L(MM$):I$"CLOSE"0BD3:KS16368:12:(FY(MM$))2:MM$:KE$(5):CR$(13)(BL):VVC:HH0:KI$(9):KN$(14):NL$"":SP$" ":XX94:DS64:B#@ DASHER 5 SEPTEMBER 83 3@SI54915:9900R@BS$(8)BW1:6146:9020a@BW(5121)@@AS0:IL0:I80:J1$"":J$"":I$"":BS$(8):RT13:BS8:LN0:ES27:FR0:P%0:BL32:US0:C00:C11:C22:C33:C44:C55:C66:C77:C88:C99:KG7:RM39:FY40          $:(K$,SL$,C1,P%):P7P%:P7įTRANS((K$,P7),US$,F$):K$(K$,P7C1)N(K$,AK$,C1,P%):P7P%:P7āI8C1C1:K$(K$,C1,P7C1)(K$,P7C2):(K$,AK$,P7,P%):P7P%:I8P7:N6775:FOW8C0:A$SP$M$SP$:B$SP$D$SP$:P7C1:A8C1W7:P8W(A8):T$(A$,P7(F$,LT$,C1,P%):P7P%:I8P7::1700M@B$(A$,P7C1):A$(A$,P7C1):S8C1:L8M9:(B$,AK$,C1,P%):P7P%:P7S8P7C2:L8((B$,P7C1,C1))MTRANS((B$,S8,L8),US$,C$)::(T$,C$,C1,P%):I7P%::K$K$B$:(F$,LT$,C1,P%):P7P%:I8P7:CNK$K$F$:F$NL1:IP%::K$(K$,A8,I8)(J$,1,255I8):6775:cLF$K$:K$NL$:(F$,LT$,C1,P%):P7P%:P71700%MI8C1C1:K$:K$K$(F$,C1,P7C1):F$(F$,P7C1):(F$,GT$,C1,P%):P7P%:A$(F$,P7C1):F$(F$,P7C1):I7C1C1:(A$,SL$,C1,P%):P7P%:P7Ă:K$K$A$:NL$:KJ9C5:cKTRAN(D$,US$NS$,T$):EDIT(T$,RC$,NL$,T$,I%):TRIM(T$,T$):(K$,C1)SL$1520KTRAN(K$,US$,A$):J0:A72:A81:L%0:I01:(A$,SL$,A7,P%):P%I7P%A7:I$(A$,A7,I7):J$I$:PTRN(I$,T$,L%,I%,I%):L%JJL%:A8A7:I8I71LA7A7I7SL$M$(8)1135+JQX9ĺKP$M$(9):I$NL$:7JeJ9C2:PJoT$SL$M$(10)1170lJtB9ĺKP$M$(11):I$NL$:xJJ9C3:JT$SL$M$(12)1205JB9ĺKP$M$(13):I$NL$:JJ9C4:JT$SL$M$(14)ĺKP$M$(15):M$(16):I$NL$:KE9ĺKP$M$(17):I$A(S7)E7S7C1:A$(A$,S7C1)RC$(A$,E7C1):A7(A$):B$(B$,S8C1)RC$(B$,E8C1):B8(B$):M8C0:IJ9C0:50:(I$)ıI (I$,C1)SL$ıITRANS(I$,US$,T$):T$SL$M$(6)1100I$T9N9ĺKP$M$(7):I$NL$:I8H9H9T9IBJ9C1:JLT$I8C1:A(S7)C0S7S7C1:S8S8C1:I8C0KHI8I8A(S7C1):I8C0A(S7)THeHI8C0A(S7C1)I8C1HI8C1:A(E7)C0E7E7C1:E8E8C1:I8C0HI8I8A(E7C1):I8C0A(E7C1)I8THHI8C0A(E7C1)I8C2gII8C1A7E7:A(S7I8)A(E7I8)::A(S7)LSC6TFI$(I$,C1,LS)(WR$,C1,LNLSC5)(I$,LS):HH:VV:I$;:LN(I$)bG_ILLNML::BE$:G,W8C0:O7C0:2000:W7K8W8C2:G1K9ıG6M8C1C1:I8(16336):PTRN(A$,B$,L%,A%,B%):L%C2Ă:G;S7A%:E7S7L%C1:S8B%:E8S8L%C1'HW8C1:1:KF?ASSLFTC0:KP$;:2:T$M$(5)": "SL$:3000:I$SL$:ILC1::30:bFAASRTILC1:::oFFASC0ĂFPASC5FT(ASKG)C2(ASXX):J1$((43)(XX),FT,C1):J1$BS$;:KGZASFT%(AS,FT):FTC0:J$(AS):J$;:I$I$J$:LNLNC1:(HP)RMĭLSC2LNC1,9((HP)RM)):I$I$J$:J$;:LN(I$):LSLN:ILLNML::BE$:XE8ASBLLSLNC1:90E9ASBSFTC0:LNI$(I$,C1,LNC1):LNLNC1:BS$KE$;:LNĂE:ASBSĭLNāJ8LNC1C1:LSJ8:J8J8((I$,J8,C1)SP$)::LNC1LSC0E;ASBSĂF<ASESUSC0FTC0:J$(AS):J$;:I$I$J$:LNLNC1:(HP)RMĭLSC2LNLSC6TFI$(I$,C1,LS)(WR$,C1,LNLSC5)(I$,LS):HH:VV:I$;:LN(I$)D5USC0:ASC0ILLNML::BE$:D6AS(AS):ASBLFTC0:LSLNĂ@E7ASBLĺSP$;:I$I$SP$:LNLNC1:J$(" ",:LNLN(AS31)BK:I$(I$,1,LN):958:I(AS13LN21):::C2FTC0:KN$;:VV(VP)C1:HH(HP)C1:LNC0:I$NL$:LSC0::USC0:J1$SP$:ILC0C1C0:KI$J1$BS$KN$;:V1(VP):V1V1:KS,C0:J$:V1C1:J1$BS$;:(J$)ĂD4J1$SP$:AS(J$):ASTT%(AS,US):ASC):A7:23:3000:A7:10:ERC0:MBKP$:BBēC0,C4279,C4279,BBC0,BBC0,C4BIC2BXC1:C2:I:KN$LF$(NXI)KN$::QH:TM,QH:;CI$SL$:LN1:I11:J1$SP$:10:J$"?"20:J$(RC$,1,(J$)0)J$:AS(J$):BK(AS8LN1):(J$,1,AS31BK)KE$;:I$I$J$1V1:KS,C0:J$:V1C1:J1$BS$;:gA23:KP$;:24:23:KP$:J2C120:L(I$)::24:J$RC$:I$NL$:25ATM,0:BM,24:FL$LG$".INSTR"(".EE",C1,C3EE):DO$"OPEN"FL$:DO$"READ"FL$:BJ2C120:L(I$):KN$I$KN$::CL$:T$SP$M$(23):A7((41(T$))2,5@ DASHER.MAIN 5 SEPTEMBER 83 MODIFIED 12 FEB 85@@9900q@ERC0:6146:9:115,(111):116,(112):9500@ A$NL$:B$NL$:C$NL$:D$NL$:F$NL$:I$NL$:J$NL$:J1$NL$:L$NL$:M$NL$:N$NL$:S$NL$:T$NL$:U$NL$:I(I):"A KI$J1$BS$KN$;:V1(VP):V               :"A PROGRAMMING ERROR WAS DETECTED"&"IN LINE "KI$(218)(219)256KN$" OF DANCER.":"PLEASE RECORD THIS LINE NUMBER":"AND ERROR TYPE #"KI$(222)KN$;::". THANKS."&::Lĺ"FILE "KI$F$KN$" IS STILL ACTIVE.":"PLEASE CONTINUE AFTER I BACK IT UP."RITE-PROTECTED.":"BE SURE YOU ARE NOT USING A MASTER DISK."q&EC9ĺ"DELETE FILES OR CHANGE TO NEW DISKETTE."&EC9ETNĺ"USE INDEX OPTION D FOR DISK COMMANDS."&9950$&E107LDM9960:E2559980:BL$"PROGRAM ERROR.":BN$S$:E$S1$:9000:9C0E159940&C5:BL$"DISK OPERATION ERROR.":E$S1$:BN$S$::"AN ERROR OCCURED DURING DISK OPERATION:":9000:7:"ERROR NUMBER IS "(ER)".":"CHECK APPLE DOS MANUAL."&EC8ĺ"IS DRIVE DOOR CLOSED?":"IS DISKETTE INITIALIZED?"<&EC4ĺ"DISK IS WC0MOC0:%TM,C0:KP$;:BL$"BACKING UP "F$:BN$NL$:E$"NONE":9000:DO$"OPEN "BF$:DO$"UNLOCK "BF$:DO$"DELETE "BF$:DO$"OPEN "BF$:DO$"WRITE "BF$:IC1L:LF$(I)::CL$:MOC0: &SI:DO$(13)(4):TM,C0:BM,24:KP$;:BE$:DO$"CLOSE":E(ER):E8:TT%(127,C1)C81!SU63902,63912,63922,639327!(#CH(HP):CV(VP):BM,21:C1:23:KI$;:(FY((BL$,FY)))C2);(BL$,FY);FY):C1:24:(BN$,FY(E$)C8);33(E$));"EscEsc="E$KN$KF$;:CHC1:CVC12#KS,C0:C0,175272,175:%9900 %L:TT%(KK,C0)KK:TT%(KK,C1)KK:TT%(C2,C0)20:TT%(C2,C1)20:TT%(30,C0)96:TT%(30,C1)96!I6595:TT%(I,C0)IBL(EE):TT%(I,C1)I::EEāI96126:TT%(I,C0)I:TT%(I,C1)IBL:!8,13,27!IC1C3:J:TT%(J,C0)J:TT%(J,C1)J::EETT%(127,C0)C:USUSC1:_ASBS:BE$;:53DaI$I$" ":LN(I$):" ";:SdDO$"PR#0"niDO$"BLOAD CHAIN,A520"n520"DANCER.MAIN"o "TODAY'S DATE: ";:50:ASESTD$I$*Y!EE(64435)C6:TT%(95EEBL,C1):IBL64:JC0C1:TT%(I,J)I::(FF)C1FF:V;ASESĭEXC1ILC1::I$NL$:HH:VV:KF$KI$"ESCAPING"KN$;:ASES:u<EXC0:ASKKUS(US)FF:FASC0ĂPASC5FT(ASKG)C2(ASXX):J1$((43)(XX),FT,C1):J1$BS$;: ZASFT%(AS,FT):FTC0:J$(AS):J$;:I$I$J$:LNLNC1:LNĭ((I$,C1))BLLNLNC1:I$(I$,C1,LN):KN$;:VDC1I6ASBSFTC0:7AS20ĭLNĭ((I$,C1))BLLNLNC1:I$(I$,C1,LN)8AS20ĭFFVDC3VD:J$(VD$,VD,C1):I$I$J$:LNLNC1:J$;:9ASKXILC1::VV:HH:KF$;:50:ASESĭEXEXC1:US(J$)Ăx 3AS(J$):(CHC0QWASBL)97:ASTT%(AS,(US)):ASC0FTC0:J$(AS):J$;:I$I$J$:LNLNC1:USUSC1:EXC0: 4AS(AS):ASRTILC1::I$I$(VD$,C1,VDC2):KN$SP$:65ASBSĭLNĺKN$SP$BS$BS$(VD$,VD,C1)SP$BS$;:LNLNC1:I$(I$,C1,LN):-B TO TOGGLE INVERSE VIDEO":BN$"EscEsc TO MOVE"R E$"BLANK":9000:CT(1):800[ (100 2FTC0:EXC0:VDC1:KN$;:VV(VP)C1:HH(HP)C1:LNC0:I$NL$:USFF:J1$SP$:ILC0C1C0:CH(HP):(NWCHC1)LNML95:(VD$,VD,C1)J1$BS$;:KS,C0:J$:J1$SP$::9000:23:1:CC1:9999:KP$;:11111 LF$(DM):DO$(17)(13)(4):CL$(4)"CLOSE"(13):BF$"DANCER"(2)(6)"--BACKUPTEXT":115,(111):116,(112) EEBL$"KEYS: CTRL-K FOR CAPS, CTRL-B FOR B/W":BN$"EscEsc TO MOVE"0 EEBL$"KEYS: CTRL(BS):DS$SP$SP$:ML250:XX94A X(0):115,(111):116,(112) S$"SIGNAL TO GO ON.":S1$"SIGNAL":CT(I)((BM)(TM)I)C2:12:12:KN$"JAMES P. PUSACK":14:9& "THE UNIVERSITY OF IOWA":BL$"ADJUST SCREEN BRIGHTNESS AND CONTRAST":BN$S$:E$S1$C11:C22:C33:C44:C55:C66:C77:C88:C99:KG7:CN$":"q SU(5120)::6146:17:10:"DANCER":8620:SI54915 VV0:HH0:KF$(6):KI$(9):KN$(14):SP$(32):TN10:FY40:BE$(7):HP36:VP37:KE$(5):KP$(16):VD$KN$KI$:ER222:TM34:BM35:3:BS$ DANCER 5 SEPTEMBER 83*11111J$(13)(4):F$" CONTROL":J$"OPEN"F$:J$"READ"F$:L(I$):J$"CLOSE":DM((I$,2)):F$""9 (4)"MAXFILES 1":KS16368:NL$"":AS0:J$NL$:I$NL$:KK11:RT13:BS8:LN0:KX24:ES27:FF0:P%0:BL32:US0:C00:     000:CLC0:IC2L:CL(LF$(I)CN$)CLN[FQ(IC1)(LF$(I(IC2)C3)":"CLC2IC5):IIL(FQ)::FQFQ((LFQ)C2((LFQ)C2)):ANC2:FQ715NANC0:LFQ715:IFQLC1C2:I$LF$(I):AN((I$,C3,C3)". "):ANANAN((I$)(IFQC2)C2) OANANAN9900gMSI:E(ER):KP$;:E6Ģ15:KI$"FILE "F$" NOT FOUND";:BN$S1$:9000:CCC5:9999:BN$NL$:500qM9900|MX9900MYSI:(ER)C59900$NZTM,C0:KP$;:TN:"FILE "KI$F$KN$" NOW ACTIVE.":"IT HAS "L" LINES.":BN$"CHECKING FORMAT":E$"NONE":9(F$):AS65AS90ĺ"FILENAMES BEGIN WITH A LETTER. ":510ILSL530LSI:E$"NONE":9000::DO$"VERIFY "F$:600L DO$"OPEN "F$:DO$"READ "F$::BN$"FILE "F$:E$"NONE":9000:BN$NL$:LC0L IC0C1C0:L(I$):LLC1:LF$(L)I$:M519>K9000:TN:Q$;": "KE$;:FFC1:50:FFC0:KF$;:ASESıVKF$I$:(F$)C0510KI$",":(F$,I$,C1,P%):P%ĺ"COMMAS ARE NOT PERMITTED IN FILENAMES. ":510K(F$)12ĭ(F$,C2)"D."ĺBE$"LONGEST FILENAME IS 12 CHARACTERS. ":510CLAS1L:IC1TN:M$(I)NL$::M$NL$:NP$NL$:OF$NL$:OP$NL$:Q$NL$:QN$NL$:RS$NL$:UN$NL$:V$NL$:VN$NL$:XL$NL$:I(I):MOLİ9500Jx100JTM,C0:KP$;:BL$"RETRIEVING":E$"INDEX":9000:Q$"OLD FILENAME":510:ASES111JF$"MENU.AUTHOR"MAC1K.UPDATER",C1,FYMA):ImLC0CC1CC6ĺ::" "KI$"SORRY, NO FILE IS ACTIVE NOW!"KN$;:BN$S$:E$S1$:9000:CC2:9999:111InC2000,4000,6000,7000,7500,1,8500,5000IoBL$NL$:BN$NL$:E$NL$:I$NL$:J$NL$:K$NL$:L1LāILC1L1:LF$(I)NL$:JpL12:M$(C1)"YES, FILE":M$(C2)"NO, DELETE WORKING COPY":BL$"FILE "F$"?":MSC2:E$"INDEX":8000:BN$NL$:9000:M0111HkNDLL(MC1):L104:CC5IlCC0ĹTM,C0:BM,24:KP$;:12:DO$"PR#0":DO$"IN#0"::12:15:"END DANCER":216,C0:(DO$"RUN MENU("F$")"&Gg8000:CM:MC0:BL$M$(C)9GhCC6LC0500GiL1L:ND(CC2CC6)LC0:NDĺKP$;:WCĺKP$"WARNING: YOU HAVE NOT FILED THE WORKINGCOPY TO DISK!!"wHjNDĢC8:"WORKING COPY OF "KI$F$KN$:"STILL ACTIVE."::"DO YOU WANT TO FILE IT NOW?":TM,CK TEXT":M$(C3)"MODIFY ITEMS":M$(C4)"SHOW TEXT":M$(C5)"FILE TO DISK":M$(C6)"RETRIEVE FILE FROM DISK":M$(C7)"DISK COMMANDS":M$(C8)"TEXT ENTRY/APPEND" GfSI::CL$:UN0:BL$"INDEX":E$"END":BN$NL$:TM,C0:MSC8:BN$"SELECT BY LETTER":LC0BL$BL$" C0ĂIEPASC5FT(ASKG)C2(ASXX):J1$((43)(XX),FT,C1):J1$BS$;:EZASFT%(AS,FT):FTC0:J$(AS):J$;:I$I$J$:LNLNC1::USUSC1:E_ASBS:BE$;:53EaI$I$" ":LN(I$):" ";:Ed9900FeM$(C1)"AUTHOR NEW DRILL":M$(C2)"EDIT/CHEN)DD8AS20ĭFFVDC3VD:J$(VD$,VD,C1):I$I$J$:LNLNC1:J$;:iD9ASKXILC1::VV:HH:KF$;:50D:ASESĭEXEXC1:US(FF)C1FF:D;ASESĭEXC1ILC1::I$NL$:HH:VV:KF$KI$"ESCAPING"KN$;:ASES:D<EXC0:ASKKUS(US)FF:EFASS(AS):ASRTILC1::I$I$(VD$,C1,VDC2):KN$SP$:C5ASBSĭLNĺKN$SP$BS$BS$(VD$,VD,C1)SP$BS$;:LNLNC1:I$(I$,C1,LN):LNĭ((I$,C1))BLLNLNC1:I$(I$,C1,LN):KN$;:VDC1C6ASBSFTC0:D7AS20ĭLNĭ((I$,C1))BLLNLNC1:I$(I$,C1,LP)C1:HH(HP)C1:LNC0:I$NL$:USFF:J1$SP$:ILC0C1C0:CH(HP):(NWCHC1)LNML95:(VD$,VD,C1)J1$BS$;:KS,C0:J$:J1$SP$:(J$)ĂB3AS(J$):(CHC0QWASBL)97:ASTT%(AS,(US)):ASC0FTC0:J$(AS):J$;:I$I$J$:LNLNC1:USUSC1:EXC0:6C4AO YOU NEED IT?":TM,(VP):M$(C1)"YES--RECOVER IT."A%M$(C2)"NO--DELETE IT.":MSC2:BL$"RECOVER BACKUP":E$"NONE":8000:M37:TM,C0:KP$;:MC2100:F$"RECOVER":DO$"OPEN "F$:DO$"DELETE"F$:DO$"RENAME "BF$","F$:519B2FTC0:EXC0:VDC1:KN$;:VV(VzA#@ DANCER.MAIN 5 SEPTEMBER 83;@6146:BM,21:9900K@!ER,FY:35@"DO$"VERIFY "BF$:DO$"OPEN "BF$:DO$"READ "BF$:L(I$)@#99003A$SI:E(ER):DO$"CLOSE":EC6100:EFY9900:TM,C0:KP$;:2:"DANCER BACKUP FILE HAS:":6:I$KN$:10:"D                           ŽĮŠԠΠŠŠϠӍ᠍宠堯䩍讠 !!!!ӠӠΠҠǮ̎۠堉Î堉򠣠䠥􍠠堉Î堉򠉿䬠堉厠󮍍ӠӠΠҠǮ󺍍򠦠ܠݠ󩬠占̎쎠宩堠Ҡӎ󺠠纠Î򮍍庠堉؎𺠠堉Ў캠堉Ў򺠠堉؎堉    qqȱH8 qHȱh`L ` 4:5O6ȱ o. ʽ) Rqȥr ` #ARqȥr,  , 2 3 + ,``COUNqƥEFJKGDILLGDNOG `` # ||h@`Ѝz Htȱi8M G 8   `EDIT()㠠ŠʠҊİ  $ % ) * ! +  # - .  ȭ  LO& ' ! " ' # ' "  " & L ( ( + " ! L ! Ȍ!  - . , qȥru  u `TRANͨ2 3 ( m- ) * ȑL ) * . / + ȱL - + ( ܭ( Rqȥr(  ( ` U    u &) Rqȥr(ЧL C L C Z [ \ Z _ ` a a Z d e f f Z `\ \ S a X f ``TRIM ť r s { t u q >t q 5t x y  { | H){ h,z x u Ȍu L v w { u u L u R) L  * `eȱe lH?hLPTRN$)Ơ̠İԭQ R V W \ P U L S P sS g X U X Y S T h T P 8g +T Y U  C L Y  C g h  m   ) JJmi'i lL3 L L L H73h  AL { lݠH hURL gh) ȥL 0L  L ȥL  ߩ ȥ%$    Lȭ x ʽ8iiX`  :(  : ( @ !07eȱe ٭ɯ ɻ A ` , eȱe  e iL ޠLȌL ެ )    󍱴ᠨ䩠ﮠ䩠ᠠᮠ򩠍፱䩠򠠠ᠨ䩠󮠠፱䩠󠠠󮠨堠򮠨󍠸䩠򠠠宠󍠹䩠젠宠󍱰ᠨ䩠򠠠堠䮠󠠠危宠ݮ󮠨򦍠쮠쮠፠䮠߮ﮠ߮ᮠ䮠卺ᮨ򩠠䮠󮠨䮠ߠӠӠΠҠǮ堉̎۠堉Î堉򠣠䠥􍠠堉Î堉򠉿䬠堉厠󮍍ĎӠӠΠҠǮ󺍍򠦠ܠݠ󩬠占̎쎠宩Ҡӎ󺠠纠ԎÎ򮍍庠堉؎𺠠堉Ў캠堉Ў򺠠堉؎堉! ! ! ! 膢 ȱ " <67 L  8ij v vo>