' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#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 ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`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- (       .3 1982 @跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`ELD #";::" TO CHANGE :";G$;E" ";Y$:Y(Y$):(Y$)0MOD01890\(Y$)0MOD1920w(Y)1(Y)NF11660MOD0(Y)NF1660(Y)NF1āI1NF:P$(I)""::800HT17:P$"":PY$"":HTHT1:22:868:14:"ENTER NEW DATA";G$4J2TV%(1):P$(1)P$(1)" ":JN@RD$(RD)"":K1NF:RD$(RD)RD$(RD)P$(K):KfJRXRD:150:RD$(RX)}TD$;"CLOSE ";FILE$^D1500:D:22:1:958:RD$(RD):1140h **** MODIFY/ENTER DATA **** rLC0:IN0|22:1:868:"ENTER ";::"FI$:1500D1250:DK22:1:868:11::" ERASING RECORD ";RX;" ":]RDREC1590zRX0:RECREC1:160:REC"D$;"CLOSE ";FILE$,D1500:D:22:1:958:RD$(REC):11406K2NF:P$(K)"":J1TV%(K):P$(K)P$(K)" ":J,K:P$(1)"*":DIFY ";::" E ";::" ERASE ";::"RTN";::" ABORT ";G$;" ";:Y$gY$(13)Ė1:21:958:1270xY$"M"1640Y$"E"146021:1:958:22:8:"VERIFY ERASURE (YES/NO) ";G$;:" ";Y$:Y$"YES"1530Y$"NO"Ģ21:1:958:1270G "<xY$(21)Ģ5:24::" ";:RD19ĺ" ";:RD199ĺ" "WY$(21)ĝ:" ":1210yY$(8)RDRD1:RD1RDRECY$(8)Ģ5:24::" ";:RD9ĺ" ";:RD99ĺ" "Y$(8)ĝ:" ":1210Y$"E"1280F21:1:958:22::" M ";::" MO"RECORD TO FETCH : ";G$;:" ";D$:21:958F<Y$(27)(D$)01280aFY$(27)RD$D$:1140|PY$(13)(RD$)0480ZY$(80)ĺ(4);"PR#1":(9);"80N"::1050::(4);"PR#0":1280dY$(21)RDRD1:RDRECRD1nRD1Y$"E"Ģ5:24:" :" E ";::" EDIT ";::" F ";::" FIND ";G$;" ";:Y$:Y$"F"Ģ21:2:958::"FIELD #";::" TO SEARCH: ";G$;:" ";TV$:TV(TV$):TV1TVNF1300Y$"F"Ģ(6TV):5::T$(TV):(Y$"F"Ģ20:958:2280+2Y$(27)Ģ21:1:958:22:11:%(K):K260FR01270f23:5::" ONLY ";REC;" RECORDS ARE ON FILE ":D12000:D:FR0:5:24::RD::16368,021:2::"ESC";::" FETCH ";::"<--";::" LAST ";::"-->";::" NEXT"< 23:2::" P ";::" PRINT ";:,4:t(RD$)11280'~5:1:868G37,4:36,16::"RECORD";:g(RD$)RECRD$(REC):FR1z" ";::RD$:35,24:23:958:9RD((RD$)):RD01280RXRD:RX0RX0FL0K1NF:P$(K)(RD$(RX),FL1,TV%(K)):FLFLTV(Z2ZG:60208*Z2,,ZX(Z)060208I.ZN$ZN$"."(ZG$,ZX(Z))O0IZH$(Z)(ZA$(Z),ZG)/ZD(Z):ZE(Z):ZH$(Z);`Z21ZI(Z):(ZE(Z)ZG1Z2):(95);:Z2::{ZG$"000000":ZG(ZN$)Z21ZG (ZN$,Z2,1)"."60202"ZX(Z)0ZN$(ZN$,Z2)$ZX(Z)0ī60200&ZN$ZN$(ZG$,ZX(Z)):ZN$(ZN$,Z2ZX(Z))K UP "-/6 8:" "P/@ 8:" THE TELEPHONE-RECEIVER "/J 8:" "::D15000:D/T ALPHA0:13:1:958:13:10:GB$(26):GB$/^ D$;"PR#0":D1500:D:34,0::D1500:D:1990 0h **** SORT/PRINT D$::D12500:D:1980. I. FL0:IK1I1:FLFLTV%(IK):IK:FLFL1m. NUMBER$(RD$(ALPHA),FL,TV%(I))|. D$;"PR#2". NUMBER$NUMBER$(10). 11:DIAL$;NUMBER$. D12000:D." 17:8::" " /, 8:" PLEASE PIC(13)480- 26505- --> D.C. HAYES MODEM <-- K- :10:DIAL$(17)- I112:(T$(I),5)"PHONE"(T$(I),4)"TELE"2750- I:2760- MODEM12780- 14:6::" NO PHONE NUMBERS IN RECORDS ":. 6::" OR NO MODEM CONNECTION ";G$;GFUL CORRELATION"J,P CC13CCCC12:20:3:"+ ";CC;" ADDITIONAL RECORDS",Z 24:7:"HIT ";::" F ";::" FOR ANOTHER SEARCH ";G$;,d CC1Ģ22:9:"HIT ";::" D ";::" TO DIAL NUMBER":22:14,n Z$:Z$(70)ī1990,x Z$(68)CC12720 - Z$610"+ CC11CCCC1:CK1::2610D+ Y$"F"Y$(21):RDK1:1380]+ CCCC1:CK1:ALPHAK+( 6CC:3::"RECORD ";:(10(K100)(K10)):K;::" ...... ";(RD$(K),FL,TV%(TV))+2 K+< Y$"F"Ģ(6TV):5:T$(TV):1280,F CC0Ģ13:7:"NO SUCCESS* LO1:Y$"F"LORD1:RD1RECLO14* KLORECE* Y$"F"2480W* 5:7::K;:g* DUM22530* DUM$((RD$(K),FL,TV%(TV)),(KEY$))* DUM$,KEY$* (26)02610* 2570* DUM$(RD$(K),FL,TV%(TV))* DUM$,KEY$* CK0+ (26)02ILE$::6:34,4:C)B (17(A$)2):A1$;" K ";A2$;" = ";A$:34,7:o)L 22:(21(T$(TV))2)::T$(TV)::7:1)V (KEY$,1)(42)DUM2:2410)` KEY$(KEY$,(KEY$)1):DUM1)j CC0)t TV1FL1:2440)~ FL0:JK1TV1:FLFLTV%(JK):JK:FLFL1&KEY$""1950$((KEY$,1)"*"L1( (KEY$)TV%(TV)LĢ21:16:958:18::" KEYWORD > FIELD ";G$;G$;:D11000:D:16:868:20::2280( KEY$(42)Ģ20:18:958:2280( A$KEY$($ D1100:D(. Y$"F"2390)8 :3:(21(FILE$)2)::F ";A1$;" K ";A2$J'6:A1$;" K ";A2$;:21:"CONTAINS ";A1$;" K ";A2$::'::"NOTE";::": ";A1$;" K ";A2$;" CAN BE ANY COMBINATION OF"'7:"LETTERS, NUMBERS, AND SYMBOLS.":'35,24'L0::2::"ENTER KEYWORD";::": ";G$;:" ";KEY$ (L RECORD NUMBERS WHOSE":=&(21(T$(TV))2)::T$(TV)::u&3:"FIELD 'MATCHES' YOUR KEYWORD...";A1$;" K ";A2$&:5::"KEYWORD";:24:"FIELD MATCH":&3:"-----------";:20:"-------------------"'5:"*";A1$;" K ";A2$;:21:"BEGINS WITHIELD # ";::" TO BE SEARCHED : ";G$;:" ";TV$@%H(TV$)0480b%RTV((TV$)):TV1TVNF2110%\(TV$)1TV10((TV$)1)2110%f34,0::1:10::" F I N D R U L E S ":%p%z4:"THE FIND FUNCTION WILL SEARCH FOR"&3:"AND DISPLAY AL" ";K;". ";T$(K);21);K1;". ";T$(K1):2080\$" ";K;". ";T$(K);22);K1;". ";T$(K1)f$ 2080$" ";K;". ";T$(K);21);K1;". ";T$(K1)$ :KNF$*K2(K2)Ģ(37):21:958$416368,0.%>21:10:170::17:868:2:"ENTER ";::" FM1#RX0:(8)1İ1900#D$;"CLOSE ";FILE$?#REC0710p#34,0::3:(21(FILE$)2)::FILE$:34,4:#::" THE FOLLOWING FIELDS ARE AVAILABLE ":9:"FOR THE FIND FUNCTION :":#T$(NF1)H$H$H$B$#K1NF2#K92070.$K9ĺ "NNB2860"X1660,"bLC0Y$""1930^"l22:1:958:9::"SAVING MODIFIED RECORD":v"vRXRD:150:RD$(RX)"D$;"CLOSE ";FILE$"1:20:958:5:17::"RECORD"::1270" **** FIND/DIAL DATA **** #A1$(91):A2$(93):Y$"NF":MODE(13)(PY$)2P$(Y)"":1830F!P$(13)P$(Y)(PY$,(PY$)1):1830X!HTHT1:1740!&(P$(Y))TV%(Y)āJ1TV%(Y)(P$(Y)):P$(Y)P$(Y)" ":J:1850!0(P$(Y))TV%(Y)1850!:260:RD$(RX)"":K1NF:RD$(RX)RD$(RX)P$(K):K:LC1!DMOD11020 (6Y):(HT)::P$:P$(8)(36)15Ĺ36,15:1720O P$(8)(PY$)11730~ P$(8)HTHT1:PY$(PY$,(PY$)1):1740 (PY$)TV%(Y)P$(13)ĺG$;:1740 P$(44)P$(46) P$::PY$PY$P$ IN1PY$(13)RECREC1:480!PY$3750&?dY$(13)LABEL0:RXXR:29904?n14:3920s?xVP$"P"Ė(INDENT):(XXLINESLC)60ĺ(12):XX6:(INDENT)?FL0:K1NF:P$(K)(RD$(RX),FL1,TV%(K)):FLFLTV%(K):?VP$"P"Ė(INDENT)?K1LINES?L(P$(TW%(K))):L2L1:4040@JND OF FILE "::D11000:DE>(VP$"P"ĺD$;"PR#1":(12):D$;"PR#0"U>235,24::9i><:::16368,0>F5:"PRESS ";::"RETURN";::" TO RE-FORMAT COPY":>P7:"PRESS ";::" C ";::" FOR ANOTHER COPY ";G$;:Y$:?ZY$(67)ė:LABEL1:RXXR:K11REC:RXSO%(K1):3960'=35,24:y=23::"PADDLE #1";::" CONTROLS SCROLL/PRINT SPEED !":35,21:6:D1750:D=VP$"P"ĺ(4);"PR#1":(9);"80N":;=Y1$"Y"3790= RXRX1:RX1RX1=RXREC3960>(4);"PR#0"::255:15::" ELABEL03780y<:9:"HOW MANY ";::"CARRIAGE RETURNS";::" FROM END OF"::11:"ONE ";B1$;" TO NEXT ? ";G$;:" ";CR<15:13::"V";::"IEW OR ";::"P";::"RINT ? ";G$;:VP$:VP$"V"VP$"P"3760<VP$:D1500:D:XX6<3810<=REC:LLJM:SS$SRT$(J):SSO%(J)P;j20:19::" ";:(19(J100)(J10)):J:;tS1(SRT$(LL)SS$)SRT$(LLM)SRT$(LL):SO%(LLM)SO%(LL):LLLLM:LL03700;~SRT$(LLM)SS$:SO%(LLM)S:J:3670; * SHELL SORT LIST DONE * ;D11000:D <&: 12:958:17:14:"S O R T I N G";: 7:16::SS$;:H:K1RECU:SO%(K)Kj:SF1FL1:3630:$FL0:I1SF1:FLFLTV%(I):I:FLFL1:.SRT$(K)(RD$(K),FL,TV%(SF)):8K:BM1:LM3M1:MREC3660:VM(M1)3:M13720 ;`JM135,24:K9 10:(13(T$(SF))2):"*** ";::"SORT ON ";T$(SF);::" ***"9 :::"ASCENDING";::" OR ";::"DESCENDING";::" SORT (A/D) : ";G$;:S$:S$;:S1(S$"A")9 S$"A"S$"D"Ģ((37)1):35409 SS$"ASCENDING":S$"D"SS$"DESCENDING"LLOWING LINES ARE AVAILABLE FOR":8 "THE SORT FIELD :":8 K1NF2:(4(K9)):K;". ";T$(K);22(K8));K1;". ";T$(K1):K:NF2(NF2)Ģ(37):21:958:8 :"SORT ON WHICH FIELD (BY NUMBER): ";G$;:" ";SF$:SF(SF$):SF1SFNF34809 34,0:LOOK LIKE THIS :":7f 6:"------------------------------"`7p K1LINES:T$(TW%(K));TX$(K);:K7z 22:14:"CORRECT (Y/N) ";G$;:Y$:Y$"N"30107 Y$"Y"34507 :12:8:"WANT SORTED ";B1$;" (Y/N) ? ";G$;:Y1$:Y1$:Y1$"Y"3740 8 ::"THE FO TX$(LX)TX$(LX)" "T1$" "C6 ZZ$T$(TW%(LX))T1$T$(TW%(LX1))b6* ZZ(ZZ$)2:ZZ(40ZZ)21s64 23:1:9586> ZZ::T$(TW%(LX));::" ";::TX$(LX);::" ";::T$(TW%(LX1)):6H D1500:D6R 32607\ 34,4:35,23:::6:"THE ";B1$;" WILL X1LXLINES1Ğ:14:"INVALID";::G$;G$:D1500:D:21:1:3260T5 LCLC1:3250j5 21:27:LX1;":"5 21:32:"ENTER ";::" ? ";G$;:21::39::TX$(LX)""5 T1$:T1$(13)TX$(LX)(13):34205 T1$" "33505 TX$(LX)TX$(LX)T1$:33606MORE LINES (Y/N) ";G$;:Y$:Y$"N"342094 Y$"Y"3210U4 K1NF:TX$(K)(13):K_4 32604 21:16:958:16:"TO FIELD # ":23:10:170:33004 1:21:958::"JOIN";::" FIELD #";G$;:" ";LX$:(LX$)034204 21:16:958:LX(LX$)B5 LT OF :":7:"----------------------------"[3X K1LINES:(14(K9)):K;". ";T$(TW%(K)):K3b 34,20:22:10:"IS THIS CORRECT (Y/N) ";G$;:Y$:Y$"N"Ĺ34,4:30103l Y$(21)Y$(32)4803v Y$"Y"31703 LC0'4 21:868:22:6:"MERGE TWO OR ";::" LINE ";L;G$;::" : ";TV$72 L1(TV$)0480J2 (TV$)03150g2& TV$(21)TV$(32)48020 TV$"@"LNF1:TVNF:I1NF:TW%(I)I::31502: TV((TV$)):TV1TVNF30802D TW%(L)TV:3060*3N :LINESL1::8:"YOUR ";B1$;" WILL CONSISOLLOWING FIELDS ARE AVAILABLE ":12:"FOR THE ";B1$;":":G1 K1NF21 " ";4(K9));K;". ";T$(K);22((K1)9));K1;". ";T$(K1)1 :KNF1 K2(K2)Ģ(37):21:9581 LL11 LNF3150!2 21:10:170::17:868:"ENTER FIELD # FOR ATA **** 0r LABEL0,0| RX0:(8)1İ190C0 D$;"CLOSE ";FILE$R0 REC0710o0 USER SETS TOP OF FORM 0 B1$"LABEL":INDENT250 34,0::3:(21(FILE$)2)::FILE$:34,4:0 T$(NF1)H$H$H$B$:K1NF:TX$(K)(13):K91 :L0::" THE F)):J:WS1(SRT$(LL)SS$)SRT$(LLM)SRT$(LL):SO%(LLM)SO%(LL):LLLLM:LL01530SRT$(LLM)SS$:SO%(LLM)S:J:1500 **** SHELL SORT LIST DONE **** D11000:D"LABEL016106,:9:"HOW MANY ";::"CARRIAGE RETURNS";::" FR SO%(K)K!SF1FL1:1460LFL0:I1SF1:FLFLTV%(I):I:FLFL1mSRT$(K)(RD$(K),FL,TV%(SF))tK|M1M3M1:MREC1490M(M1)3:M11550JM1REC:LLJM:SS$SRT$(J):SSO%(J)20:19::" ";:(19(J100)(J10::" ***"kZ:::"ASCENDING";::" OR ";::"DESCENDING";::" SORT (A/D) : ";G$;:S$:S$;:S1(S$"A")dS$"A"S$"D"Ģ((37)1):1370nSS$"ASCENDING":S$"D"SS$"DESCENDING"x12:958:17:14:STING"7:16::SS$;:K1REC("THE SORT FIELD :":a2K1NF2:(4(K9)):K;". ";T$(K);22(K8));K1;". ";T$(K1):K:<:"SORT ON WHICH FIELD (BY NUMBER): ";G$;:" ";SF$:SF(SF$):SF1SFNF1310F34,0:35,24: P10:(13(T$(SF))2):"*** ";::"SORT ON ";T$(SF);------------------------------"EK1LINES:T$(TW%(K));TX$(K);:Kw22:14:"CORRECT (Y/N) ";G$;:Y$:Y$"N"840 Y$"Y"1280:12:8:"WANT SORTED ";B1$;" (Y/N) ? ";G$;:Y1$:Y1$"Y"1570::"THE FOLLOWING LINES ARE AVAILABLE FOR"ZZ$T$(TW%(LX))T1$T$(TW%(LX1))CZZ(ZZ$)2:ZZ(40ZZ)21T23:1:958ZZ::T$(TW%(LX));::" ";::TX$(LX);:" ";::T$(TW%(LX1)):D1500:D108034,4:35,23:::6:"THE ";B1$;" WILL LOOK LIKE THIS :"6:"";::G$;G$:D1500:D:21:1:10806VLCLC1:1070L`21:27:LX1;":"j21:32:"ENTER ";::" ? ";G$;:21:39::TX$(LX)""tT1$:T1$(13)TX$(LX)(13):1250~T1$" "1170TX$(LX)TX$(LX)T1$:1180TX$(LX)TX$(LX)" "T1$" "$ Hf480-Hk **** MERGE/SORT FILES **** KHpD$;"RUN MERGE FILES ARC"QHzrH~ **** ERROR ROUTINE **** ~H::10HER(222):NO(218)(219)256H"ERROR ";::" ";ER;" ";::" IN LINE ";::" ";NO;" ";::H20: E ";FILE$",R0"GREC'G D$;"CLOSE"8G*D11000:DAG4480G>18:9:"'HOUSECLEANING' - STANDBY ";G$:F(0):D1500:D:18:1:868:12:"FREE MEMORY = ";FGHNP04530GR22:13:"HIT ";::"RTN";::" FOR MENU ";G$;:A$H\A$(13)4690TED"F4670PF14:11:"HIT ";::"RTN";::" TO SAVE FILES ";G$;:A$:" "dFA$(13)4530FD$;"OPEN ";FILE$",L";RLFD$;"DELETE ";FILE$FD$;"OPEN ";FILE$",L";RLFR1RECFD$;"WRITE ";FILE$",R";RFRD$(R)FG D$;"WRIT1500:DECC0E&K1RECCE0(RD$(K),1)"*"CCCC1:C%(CC)KJE:KXEDL14440bENNPCCqEXCC04500}EbK1CCElRD$(C%(K))RD$(REC)EvRECREC1EKELL1:4380E:10:14:"PURGE COMPLETED"F12:13::NP;::" RECORDS DELE" TO PURGE FILES"HD23:13:"HIT ";::"RTN";::" FOR MENU ";G$;:A$YDA$"P"4320kDA$(13)480uD4280DD1100:DD12:1:868DD1517:(D):1:868:DD16:11:"** ";::"PURGING FILES";::" **"D21:1:958ED1" ";B2$;" ";B1$;"G";B2$;" ";B1$;"H";B2$;" ";B1$;"I";B2$C:3:B1$;"A";B2$;" ";B1$;"B";B2$;" ";B1$;"I";B2$;" ";B1$;"D";B2$;" ";B1$;"E";B2$;" ";B1$;"H";B2$;" ";B1$;"G";B2$C:3:"--- --- --- --- --- --- --- --- ---"D21:10:"HIT ";::" P ";::E AND THE REMAINING RECORDS"GBr"WILL BE REPACKED. FOR EXAMPLE :"::sB|4:"1 2 3 4 5 6 7 8 9"B3:"--- --- --- --- --- --- --- --- ---"7C:3:B1$;"A";B2$;" ";B1$;"B";B2$;" ";B1$;" ";B2$;" ";B1$;"D";B2$;" ";B1$;"E";B2$;" ";B1$;*** PURGE/PACK DATA **** 2A"B1$(91):B2$(93)HA,RX0:(8)1İ190_A6D$;"CLOSE ";FILE$nA@REC0710AJ34,0::2:(21(FILE$)2)::FILE$:34,4:ATNP0:L1A^5:1::"ALL";::" ERASED/BLANK RECORDS WILL BE PURGED":Bh"FROM YOUR FIL1L1'@(P$(TW%(K)),L,1)" "40403@LL1:y@(P$(TW%(K)),L);TX$(K);:TX$(K)(13)XXXX1:VP$"P"Ė(INDENT)@(1):K@CR14100,4090@D1CR::XXXX1:D@4100@:XXXX1@Y1$"Y"3850@K1:D$;"PR#0":3870A *NG SPACE BAR" IN$' IN$(27)ı; IN$(32)5005E 5090U PFLNAME$IN$` Z10000f v n CREATE pPM$(1)MN$(10):800 z:8 "TO CREATE A NEW FILE, SPECIFY A ":"FILE NAME THAT DOES NOT ALREADY EXIST."!IN$:IN$(IN$,20)":"MEMORY. PLEASE TYPE FILE NAME DESIRED."BIN$:IN$(IN$,20)RI2CLGT1hIN$CTL$(I)5200oI OTHERWISE FILE DOESN'T EXIST::198::"FILE DOES NOT EXIST": :"RETURN TO MENU WITH ESC--OR--SELECT":"ANOTHER FILE NAME USIRINTER OFF \:DN18*fJ2FLGT12HpFILE$(J);21);FILE$(J1)_MOD(J2)04770hIN$yIN$(27)ıIN$(32)47704760J SELECT PM$(1)MN$(10):800+8:"'SELECT' LOADS AN EXISTING FILE INTOTED---ESC FOR MENU."R800&XIN$7ZIN$(27)ıA\4440GbX LISTONE l PRINTER ON ~J2FLGT14FILE$(J);:36,20:FILE$(J1);:36,40:FILE$(J2);:36,60:FILE$(J3) X(16384):16368,0:X27ıJ  Z P0:D$;"PR#1"rFLNAME$;":":)|4600AP$"OFF":D$;"PR#0"G\. PRINTER OFF b0:PM$(1)"ESC FOR MENU --- SPACE BAR TO SCROLL":800D4700NJFLGT1PM$(1)"END OF LISTING---ESC FOR MENU."PJFLGT1PM$(1)"LISTING TERMINA/N)?"IN$ IN$"Y"42002IN$"N"4400<4020d5:198::"NO FILES IN MEMORY."::"PLACE A FILE IN MEMORY USING THE ":"MENU OPTIONS 'A' AND 'D'."D13000:D:f PRINTER ON hPM$(1)"ESC TO EXIT TO MENU":P$"ON":80)ıo IN$(32)3437p Ieu 198:198:198:PM$(1)"END OF ALL FILES >>> ESC FOR MENU":800nz IN$| IN$(27)ı~ 3450 LIST FILE IN MEMORY PM$(1)MN$(10)::800:FLNAME$"NONE"403010:"DO YOU WANT PRINTER TURNED ON (YTER OFF H R I2CLGT1WW FLNAME$CTL$(I):PM$(1)"NOW LOADING.:"FLNAME$:800b\ 10000a PM$(1)"ESC FOR MENU +++ SPACE BAR TO CONTINUE.":800f :4700k 198:PM$(1)"END OF CURR FILE:ESC OR NXT FILE(SP-BAR)":800m IN$n IN$(27MENU" D$;"PR#1":P$"ON"L CTR);CTL$(0):CTR4);CLGT;" FILES":::\ I2CLGT1 FLNAME$CTL$(I):D$;"PR#0":10000 800:D$;"PR#1"::FLNAME$;":": 4600:X273270 :PM$(0);PM$(0): I D$;"PR#0":P$"OFF": F PRINR MENU":800 IN$& IN$(27)ı0 2490B LIST ALL \ :PM$(1)MN$(10):800g 11500 ::"DO YOU WANT PRINTER ON?(Y/N)" IN$ IN$"Y"3200 IN$"N"3400 3030~ PRINTER ON  PM$(1)"PRESS 'ESC' TO RETURN TO :#12:8M#"ERROR ";::" ";ER;" ";::" IN LINE ";::" ";LI;" ";:U#22[# D;TX$(K);:TX$(K)(13)XXXX1:VP$"P"Ė(INDENT)>"X(1):KS"bCR1:1930,1920l"lD1CR::XXXX1:Dv"v1930":XXXX1"Y1$"Y"1680"K1:D$;"PR#0":1700":" **** ERROR ROUTINE **** "ER(222):LI(218)(219)256#NT):(XXLINESLC)60ĺ(12):XX6:(INDENT)h!FL0:K1NF:P$(K)(RD$(RX),FL1,TV%(K)):FLFLTV%(K):!VP$"P"Ė(INDENT)!K1LINES!&L(P$(TW%(K))):L2L1:1870!0J1L1!:(P$(TW%(K)),L,1)" "1870!DLL1:1"N(P$(TW%(K)),L)35,24::9 :::16368,04 5:"PRESS ";:] "RETURN";::" TO RE-FORMAT COPY": 7:"PRESS ";::" C ";::" FOR ANOTHER COPY ";G$;:Y$: Y$"C"ė:LABEL1:RXXR:1580 Y$(13)LABEL0:RXXR:800 14:1750+!VP$"P"Ė(INDE" CONTROLS SCROLL/PRINT SPEED !":35,21:6:D1750:D[|VP$"P"ĺD$;"PR#1":(9);"80N";mY1$"Y"1620RXRX1:RX1RX1RXREC1790D$;"PR#0"::255:15::" END OF FILE "::D11000:DVP$"P"ĺD$;"PR#1":(12):D$;"PR#0" OM END OF"::11:"ONE ";B1$;" TO NEXT ? ";G$;:" ";CR615:13::"V";::"IEW OR ";::"P";::"RINT ? ";G$;:VP$:VP$"V"VP$"P"1590@VP$:D1500:D:XX6J1640T^K11REC:RXSO%(K1):1790h35,24:6r23::"PADDLE #1";::ILE$(J)DLE$(I)9230+0$FILE$(J)"":924020$J90$IS0R$ MOVE INTO MERGE$ [0T$J0k0^$I2FLGT10h$FILE$(I)""93300m$JJ1:MERGE$(J)FILE$(I)0r$I0$ MOVE BACK INTO FILE$0$FLGTJ0$I2FLGT1:FILE$(I)MERGE$(I1):I1$FILE$(1)DLGT0;/#PM$(1)"ENTER ITEM -- OR CTL/E TO EXECUTE.":800R/#IN$:IN$(IN$,20)s/#(IN$,1)(5)(DLGT0)9200/#(IN$)09120/#DLGTDLGT1:DLE$(DLGT)IN$:9120/# MATCH & NUL /# ASSUMES NO DUPL IN FILE$/#I1DLGT:J2FLGT10#F"9480 .-#PM$(1)MN$(10):800:.2#"CURRENT MENU MODE DELETES ITEMS":"FROM THE FILE CURRENTLY IN MEMORY, ":FLNAME$;". DO YOU WANT TO":"CONTINUE (C) OR RETURN TO MENU (M)?".<#IN$.>#IN$"C"9100.@#IN$"M"ı.B#9020.# ITEM INPUT /#:DATING FILE TO DISC.":198:800*-"95007-$"IN$"":-`":5:198::"NO FILES IN MEMORY.":::"RETURNING TO MENU...SELECT MENU OPTIONS":"'A' AND 'D'."-j"D13000:D:-""# ITEMS ENTERED SO FAR = ";ALGT:8120-&# DELETE .(#FLNAME$"NONEJ:8650,!JALGT8510H,!YI:IYFLGT1:MERGE$(K)FILE$(I):KK1:q,! NOW TRANSFERT MERGE$ INTO FILE$ ,!FLGTFLGTALGTD,!I2FLGT1:FILE$(I)MERGE$(I1):I,! UPDATE FILE$ TO DISC ,!FILE$(1)(FLGT) -"PM$(1)"MERGE DONE. NOW UPD$(J)8550%+C!FILE$(I)ADD$(J)8505A+E!ADD$(J)ADD$(J1)8505d+H!MERGE$(K)FILE$(I):KK1:II1n+R!8600+f!ADD$(J)ADD$(J1)8505+p!MERGE$(K)ADD$(J):KK1:JJ1+! CK IF DONE +!IFLGT18620,!XJ:JXALGT:MERGE$(K)ADD$(J):KK1:800*l MN78500'*v FILE$(0)FLNAME$7* I1:J0:D0G* II1:JJ1X* JALGT8380m* FILE$(I)ADD$(J)* FILE$(I)ADD$(J1)8330* JJ1:DD1:8330* FLGTALGTD:8700*2! MERGE *4!I2:J0:K1*7!D1*9!JJ1:DD1 +>!FILE$(I)AD AND MERGING.":198:800)) I1ALGT1E) MIN$ADD$(I):MLOCI:S0U) JI1ALGTm)! ADD$(J)MIN$8230)# MIN$ADD$(J):MLOCJ:S1)& J)+ S08250)0 ADD$(MLOC)ADD$(I):ADD$(I)MIN$): I*D PM$(1)"SORT DONE. NOW MERGING WITH FILE.":198:40(ALGT0:H(PM$(1)"ENTER ITEM--'#' 4 #ADDED-CTL/E TO EXEC":800_(IN$:IN$(IN$,20)((IN$,1)(5)(ALGT0)8200(IN$"#"ī8900((IN$)08120(ALGTALGT1:ADD$(ALGT)IN$(8120( SELECTION SORT ) PM$(1)" NOW SORTINGPM$(1)MN$(10):800:ADD$(1)""8'EFLNAME$"NONE"8800A'J:5'T"CURRENT MODE ADDS TO OR CREATES ":"A FILE CALLED, ";FLNAME$;"."'^"DO YOU WANT TO CONTINUE (C), OR ":"TO RETURN TO THE MENU (M)?"'hIN$'jIN$"C"8100'lIN$"M"ı(n80ILE NAME DOES NOT EXIST."::7520R&V::198::"FILE NAME ALREADY ASSIGNED.":z&`"RETURN TO MENU WITH 'ESC' --OR--"&e"CHOOSE AN EXISTING FILE NAME,":"USING THE SPACE BAR."&jIN$&lIN$(27)ı&nIN$(32)7000&p7530&> ADD '@PDATE FILE (% READ AOLD/SAVE AS NEW@%FLNAME$OLD$:10000c%FLNAME$NW$:FILE$(0)NW$:9500z%$D$;"DELETE ";OLD$%.:::"RENAME FUNCTION NOW COMPLETE.":"NOW RETURNING TO THE MENU.":%8D11500:D:%K RENAME ERR !&L::198::"F NAME:"$IN$:NW$(IN$,20)/$ CK NEW$ T$J2CLGT1:NW$CTL$(J)7510:Ji$ RENAME BODY $ PM$(1)"NOW RENAMING FILE.":800$*JICLGT:CTL$(J)CTL$(J1):J$4CLGTCLGT1:FLNAME$NW$:12000$ UPDATE CATALOG $10500 % UBAR" #IN$#IN$(27)ı2#IN$(32)6010<#6420S#V RENAME A FILE k#XPM$(1)MN$(10):800#b:8:"TYPE IN FILE TO BE RENAMED:"#lIN$:OLD$(IN$,20)#u CK OLD$ #vI2CLGT1:OLD$CTL$(I)7100:I#7500$:"TYPE IN NEW000"10500,":198:10:"NEW FILE ";K":FLNAME$;::" CREATED."^"D13000:D:z" CREATE ERR-ROUTINE "::198::"FILE NAME ALREADY ASSIGNED":# :"RETURN TO MENU WITH 'ESC' -- OR --"::"CHOOSE ANOTHER FILE NAME USING SPACE-!(IN$)060109!I2CLGT1:IN$CTRL$(I)6400:I\!FLNAME$IN$:FLGT0:FILE$(2)""f!8000w!IN$""6200!FLNAME$FILE$(0):FLGT(FILE$(1)):!812000!PM$(1)" NOW UPDATING CATALOG":800!CTL$(1)(CLGT):CK$(1)CTL$(1)"11I12P! zP(1,I,1),P(1,I,2)* 5001 II P(1,1,1),P(1,1,2)X PR02300e I12Po II1 A(I1)PPI:SA(A):CA(A) J1PR P(1,I1,1),P(1,I1,2)CXJSA,CYJCA 500 J I   ART FORM 20 ! L,I,1)CXR((I1)PPI)8P(1,I,2)CYR((I1)PPI)BII1c P(1,I,1)CXPR((I1)PPI)P(1,I,2)CYPR((I1)PPI) 500*I4950> GRAPH ROUTINE HI12PRCX,CYP(1,I,1),P(1,I,2)\IfP(1,1,1),P(1,1,2) p,1),P(1,J,2)v500:I,RR(SPIP)3=NN1:N0ıMNN261720W1810r ART FORMS 28 & 16 PR1:1990PR1:DE1200:500:P((1)124):PRPR((1).45.25)R90:PRRPRA0:SA0:CA0:J0I12PP(1CX:P(1,1,2)CYIR#I2(P21)&A(I1)AN:PXR(A):P(1,I,1)CXPX:P(1,K,1)CXPX:P(1,I,2)CYIR(A):P(1,K,2)P(1,I,2):KK10500:I:R130İ950D GRAPH ROUTINE NJ1:P(1,J,1),P(1,J,2)XI1PbJJS:JPJJP lP(1,J(1)9110):PR((1)5110):1740,R130GPR100S(P2):1770VA1PR100S(((A(AA1))1.5708)PPI.5)I1:J1II1:JJS:JPJJPIPJ1P150PP1:1750500:IP1780AN2PIP:IRCYCXR:KP:P(1,1,1)1YY10:1620$^Y0YY10:1630.hX,YTr6,((XY)2):7,((1)41):768]|500fI: ART FORM 17,6,26 P((1)9110):PR((1)5110):N((1)43):1730P((1)12130):PR100:N1:1730N((1)52):R130"P(DE1300:500:DE6X((1)180):Y((1)192)E2740:950\ GRAPH ROUTINE eX,YrI1300L((1)RMRP)"IX0:IY0:((1).5)0IXL:1590,IYL6XXIX:YYIY@X279XX10:1600JX0XX10:1610TY19I:n ART FORM 12 +xP((1)256)@DE1200:500:lIX130P:IY90P:X140:Y95:PX130:PY0u950 GRAPH ROUTINE GC2I1P1X,YPYXPX,YX,YPYXPX,YX,YPY:500PXPXIX:PYPYIY:I: ART FORM 24 NN29C((1)1120)-2DE1200:500:DEr<AN2PIP:I1P:P(1,I,1)RP(ANI):P(1,I,2)RP(ANI):500:I{F950P GRAPH ROUTINE ZI1C:PYCYRP(I2PIC):PXCXRP(I2PIC):PX,PYRPdA1P:PXP(1,A,1),PYP(1,A,2):A:500:181250&JP21:K1P:1260:K:JJ((1)P1):K1P:1260:K:zP(I,J,1),P(I,J,2)P(I,K,1),P(I,K,2):500: ART FORMS 22,5,11 P((1)85):CP:1330 P((1)93):C((1)2130):1330P33NN11C((1)85)(GT1: MLNAME$CTL$(2)1207005.I1:CTL$(CLGT2)(255):5.II1g5.FLNAME$CTL$(I)FLNAME$CTL$(I1)12050r5/120205/JCLGT2I21:CTL$(J)CTL$(J1):J5/CTL$(I1)FLNAME$:CLGTCLGT1:6&/ICLGT231:CTL$(I)CTL$(I1):I:CTL$(2)FLNAME$:CLGTCLWRITE CHECK 94*D$;"OPEN CHECK,L20":D$;"DELETE CHECK"4+D$;"OPEN CHECK,L20":D$;"WRITE CHECK":CK$(0):CK$(1):D$;"CLOSE"4 +4, TITLE 4,"CATALOG NAME---";::CTL$(0)::"NMBR OF FILES--";::CLGT:4,4. SEARCH/INSERT CAT 5.FFLGT1:FILE$(K):K)3<'CC1:C201005083='X(0):C0J3B'D$;"CLOSE":]3) WRITE CAT 3)D$;"OPEN ";CTL$(0);",L20":D$;"DELETE ";CTL$(0)3)D$;"OPEN ";CTL$(0);",L20":D$;"WRITE ";CTL$(0)3)I0CLGT1:CTL$(I):I3")D$;"CLOSE"3,) 4* ";FLNAME$;",L20":D$;"WRITE ";FLNAME$B2&%I0FLGT1:FILE$(I):IR20%D$;"CLOSE"X2:%m2' READ A FILE 2'D$;"OPEN ";FLNAME$;",L20"2'D$;"READ ";FLNAME$2$'FILE$(0):FILE$(1)2.'FLGT(FILE$(1))23'KFLGT2FLGT4:FILE$(K)" ":K38'K2(FLGT)I1$198:PM$(1)"DELETION(S) COMPLETED.NOW UPDATING DISC.":800U1$9500:1%:"NO FILES EXIST IN MEMORY. SELECT A FILE FROM MENU 1ST...":D13000:D:1% WRITE A FILE 1%D$;"OPEN ";FLNAME$;",L20":D$;"DELETE ";FLNAME$%2!%D$;"OPEN ),P(1,1,2)0I1:L1:J1'0K1P1C0IIL:IN1L1:II2X0JJS:JPJJPp0P(I,J,1),P(I,J,2)y05000I142500L1:K00 ART FORM 15 0N10HO(1).5.50HI(1)(1HO)HO0RO(1)PI19:RIRO 1P(/HI(1)HO1HO2/(1).50RO0:RI0:4140F/RO(1)PI318e/N2RI0:(1).50RIROv/"N3RIRO2/,P((1)1812)/6S(P((1).5.25))/@C((1)21)/J4670/T4770/^4880/h950/r GRAPH ROUTINE 0|P(1,1,1APH ROUTINE .nI1NS..xINSNN324040;.CX,CYRL.AN0:RRRPRW.J1P~.ANANIA:CXRR(AN),CYRR(AN).ANANIA:CXR(AN),CYR(AN).500:J.RRIR.I.. ART FORM 8 .N((1)22).HO(1).8.2-C200#-NS(((1)C84)2)2>-P(((1)112)2)21P-PR(1).6.2Z-3890k- C(1)2040~-NS((1)33)-P((1)55)-(PR1-2RRM:IAPIP-<NS1IR0:3920-FIRCR(NS1)100-PDE1200:500:DE-Z950 .d GR(NA2)20ILRILR:LRLR2ILR:ISRISR:SRSR2ISRl,tLRRMILR4ILRILR:LRLRILR:ISRISR:SRSRISRu,~500|,J,I,, ART FORMS 32,21,7 ,(1).50C(1)4130:3780,C100,NS((1)C84),P((1)115):3830A++NN9NN27NN19ISRISR2:ILRILR2F+$LRRM(RSSL):SRRMRSZ+.ANI2PINSDI+8NN9NN27NN19ANANPIDINS+BJ0NA+LCA(AN):SA(AN)+VCXSRSA,CYSRCACXLRSA,CYLRCA+`ANANIA:LRLRILR:SRSRISR5,jLRRMILR4NA* EL(1)SL.5$* NR(1)31209* NA((1)3140)J* NS(500NA)i* (NRNS(NRNS)).13500* DE1200:500:DE:950* GRAPH ROUTINE * DI((1).5)* IA2PINRNADI* I0NS1*ISRRM(1ELRS)NA+ILRRM(1RSSL)N NROVNA(((NAOV)OV1)NS)()> 3540M)H RS(1).5:SL(1).36.04:ELSL`)R NS((1)65))\ NR(1ELRS)(NS(SL4RM)))f NA(NR((1)41100)))p 3540)z (1).50RS0:3470) RS(1).2.1) SL(1).04.06* (1).50ELSL:3500( 788,237( 789,96( 6( ART FORMS 20-22 U( RS0:EL1:SL(1).5:3350( SL(1).4.4:ELSL:RS(1)(.8SL):3350( SL(1):EL(1):RS(1SL)(1).8:(ELSL).33340( NS((1)85)( OV((1)21)(* NA(((1)41120)NS))4ULTIPLE TONES ' 768,160'' 769,14'& 770,162?'0 771,0L': 772,138X'D 773,24e'N 774,233p'X 775,1}'b 776,208'l 777,252'v 778,141' 779,48' 780,192' 781,232' 782,224' 784,208' 785,242' 786,136' 787,208 1)IX(R):P(1,I,2)IY(R):3& 783,((R)90A)n& C((R)8):C:(CS7(C7C3))(CS4(C0C4))3030& X(R)IX:Y(R)IY& I1N:X,YP(1,I,1),P(1,I,2):768:& 500& 2990' LAZER SOUND ROUTINE, POKE 783 FOR TONE, POKE 769 FOR M8%, 780,246%6 781,166&%@ 782,62%J 783,76=%T 784,0H%^ 785,3T%h 786,96Z%r o%| ART FORM 19 % DE1300:500:DE:950% GRAPH ROUTINE % IX279:IY191:A100:R1:J1% 3090% N5020(1)% JJ1:J6ı& I1N:P(1,I,):7,(I):768$ 500!$ 2660'$ l$ 'BOOP' SOUND ROUTINE, POKE 6 & 7 TO VARY PITCH AND DURATION y$ 768,173$ 769,48$ 770,192$ 771,136$ 772,208$ 773,4$ 774,198$ 775,7$ 776,240$ 777,8$ 778,202%" 779,200 # M1L$# P(I,M,1)XRMLCA<# P(I,M,2)YRMLSAC# MI# ^# ART FORM 13 u#( DE1300:500:DE#2 2740#< 950#F GRAPH ROUTINE #P Y191(1):X0#Z X,Y#d I(1)41:XXI:X2792720#n Y191(X)#x X,Y$ 6,(Y,M,2):M"~ 500:NG" M1L:P(3,M,1),P(3,M,2)P(1,M,1),P(1,M,2):MM" e" POINT LOCATION " X20(N)239:Y20(N)151" A(N)2PI:CA(A):SA(A)" R(N)90" IXXRCA" IYYRSA" 500# IX0IX279IY0IY191RR1:250((1)64)! C((1)115))!$ N(1)7!. I1:2460`!8 J1L:K12:P(3,J,K)P(1,J,K):K,J|!B DE1300:500:DE:950!L GRAPH ROUTINE !V N2C!` J1L:K12:P(2,J,K)P(3,J,K):K,J!j I3:2460"t M1L:P(2,M,1),P(2,M,2)P(3,M,1),P(3 ENTER NEW SCORES."8 "PRESS TO VIEW OLD SCORES."R "PRESS TO QUIT."Z A$j A$"E"300{ A$"V"3000 A$"S"5000 A$"Q"ė: 100  , ============= INPUT ROUTINE ============= @ ==== i34,0" j. nD$(4)D xD$;"NOMON I,C,O"L :g 17::"SCOREKEEPER": :13)"BY HHH ENTERPRISES" ::::18:"MENU": "PRESS TO START NEW SCORECARD AND" 11)"ERASE OLD ONE." "PRESS TO  ********************* * * * SCOREKEEPER * * * * NIBBLE V3/N6/P95 * * * *********************  d ==== MENU     YP(0,J,1)SAP(0,J,2)CAZ<CXXP(1,J,1)CAP(1,J,2)SA,CYYP(1,J,1)SAP(1,J,2)CAc<500j<Jp< LND PLOT ROUTINE P;CXXP(1,0,1)CAP(1,0,2)SA,CYYP(1,0,1)SAP(1,0,2)CA;CXXP(0,0,1)CAP(0,0,2)SA,CYYP(0,0,1)SAP(0,0,2)CA;J1M;CXXP(1,J,1)CAP(1,J,2)SA,CYYP(1,J,1)SAP(1,J,2)CA<CXXP(0,J,1)CAP(0,J,2)SA,CYI :"950!:, GRAPH ROUTINE .:6I0N1L:@CA(2IAN):SA(2IAN)X:JX0:Y0b:T5550i:^Iv:hI0N1:rCA(2IANANPI):SA(2IANANPI):|XRM(2IANAN):YRM(2IANAN):5550:I:; LINE ROTATE, TRANSLATE AIIX)9J1M10:9P(2,J,1)P(2,J1,1)M29999:5330m9M2(P(2,J,2)P(2,J1,2))(P(2,J,1)P(2,J1,1))9X(P(2,J1,2)P(2,J1,1)M2B1)(M1M2)9XP(2,J1,1)XP(2,J,1)53809P(1,I,1)X9P(1,I,2)M1XB1953909J9500:TE BASIC CURVE ,8FCA(ANPI):SA(ANPI):8PI0M10X8ZXP(2,I,1)CAP(2,I,2)SAy8dYP(2,I,1)SAP(2,I,2)CARM8nP(2,I,1)X:P(2,I,2)Y8x5008I8 CALCULATE END POINTS 8P(1,0,1)0:P(1,0,2)RM8I1M9B1IIY:M1(RRB1)(0:P(0,I,2)IIY:IC7P(2,0,1)0:P(2,0,2)0:P(2,1,1)0:P(2,1,2)IYQ7I2M10a7B1(I1)IYm7B2IIY7M1(RRB1)((I1)IX)7 M2(RRB2)(IIX)7P(2,I,1)(B2B1)(M1M2)7P(2,I,2)P(2,I,1)M1B17(50072I8< ROTATE AND TRANSLAA:P(L,I,K)YHISA:6jP(M,I,J)IYRICA:P(M,I,K)P(L,I,K)H6t500:I:]6~ ART FORM 1 o6N((1)43){6ANPIN6R((1).2.3)RM:RR1006M((1)30N10)6IYRM6IX(RRR)(AN)M6 DEFINE BASIC CURVE 7I0M:P(0,I,1)K2:YCY+5$C2IX130:IYCY:J2:K1:YCXD5.HIHIIX:RIHI(RI)y58N1PX(1)PX6PX6:IXIYPX:IYIYPX:L3:M45BN2IXIY:L2:M45LN3PX((1).8.4)PX:IXIYPX:IYIYPX:L2:M35VI1P:ANIIA:SA(AN):CA(AN)6`P(L,I,J)IXRIC):IX5RO:IYIYRO&4LN1:IA2PIPK4I1P:ANIIA:SA(AN):CA(AN)r4P(1,I,J)IXROCA:P(1,I,K)YHOSA4P(L,I,J)IYROCA:P(L,I,K)P(1,I,K)45004I44 DEFINE INSIDE HOOP(S) 4PXIYIX:IA2PIP5C1IX90:IYCX:J1:ATION OCCURS 3>I1:J1$3HII113RK12NF3\JJS:JPJJPM3fKf3pIPJ1PP1:4670o3z500}3IP468033 DEFINE OUTSIDE HOOPS 3C1IX90:IY274:J1:K2:YCY3C2IX130:IY186:J2:K1:YCX4HOHOIX:ROHO(RO(2,J,2)2JJS1:JP1JJP172P(1,J,1),P(1,J,2)>2KS2J1:((1)25)j2P(3,1,1),P(3,1,2)w2K1P12JJS:JPJJP2P(4,J,1),P(4,J,2)2 JJS:JPJJP2P(3,J,1),P(3,J,2)2 K2*34 INSURE THAT NO LINE DUPLIC(1)1813)%1S(P((1).25.25))71&C((1)21)A104670K1:4770Y1DP1P:S1Se1NPP125v1XS(S1P1P)1b46701l48801v9501 GRAPH ROUTINE 1J11P(1,1,1),P(1,1,2)1K1P111JJS1:JP1JJP12P(2,J,1),P栌嶠РΠɠӠҠϠҠ𠔠ӐàԂŠ栃֠ԒҢȠȠàȠƠȠ蠠ƠĠ𠰷۠ࠩࠏ堠 m `")8  Ln C  X i`nw0LW 0LW `i, G. . ܦ`ɠ    ` ɰɺ)`8` H H .  . hm hm  . m L#GH Ƞ͠͠ӠӠſ X L( g      @,0    L   L    L   L  LL  L   ORE#"D$;"WRITE SCORE#"#0:D$;"CLOSE SCORE#"d"NOW PRESS TO ENTER NEW SCORES."m210p ======= DISPLAY =======z23:"HIT ANY KEY TO CONTINUE."ANY$VB23:958 DPZ ========== INITIALIZE ==========sD$;"OPEN SCORECARD"D$;"DELETE SCORECARD"D$;"OPEN SCORECARD"D$;"CLOSE SCORECARD"D$;"OPEN SCORE#"D$;"DELETE SCORE#"D$;"OPEN SC SORT ENTRIES ============EP1I1RQP1IhA$(P)A$(Q)4060ZA$A$(P):ZB$B$(P):ZC$C$(P):ZD$D$(P)A$(P)A$(Q):B$(P)B$(Q):C$(P)C$(Q):D$(P)D$(Q)A$(Q)ZA$:B$(Q)ZB$:C$(Q)ZC$:D$(Q)ZD$Q$;"CLOSE SCORECARD"!P I13160+S 40004X X%0?] J1II^ 34,5Ub X%X%1eg X%9İ6000l A$(J);:16:B$(J);:26:C$(J);:33:D$(J)v X%9X%1 J :"THAT'S ALL. HIT ANY KEY FOR MENU.": ANY$ 1008 ============"CLOSE SCORE#"+ A$(I),B$(I),C$(I),D$(I)3 :X 16:"SCORECARD"::17)"BY TDH" ::4::"GAME";:16:"SCORE";:26:"INT";:35:"DATE":: D$;"OPEN SCORECARD" D$;"READ SCORECARD"& J1I0 A$(J),B$(J),C$(J),D$(J)D JN DD$;"WRITE SCORECARD" X1I* &A$(X)5 0B$(X)@ :C$(X)K DD$(X)R NXl XD$;"CLOSE SCORECARD"w b:100 =========== VIEW SCORES =========== D$;"OPEN SCORE#" D$;"READ SCORE#" I D$; WRITE ROUTINE =============B II1X D$;"OPEN SCORE#"n D$;"READ SCORE#"| S:S1SI D$;"CLOSE SCORE#" D$;"OPEN SCORE#" D$;"WRITE SCORE#" S1 D$;"CLOSE SCORE#" D$;"APPEND SCORECARD" A$(20),B$(20),C$(20),D$(20)# JI0^ T"TYPE 'STORE' FOR 'GAME' TO STORE SCORES"::II1::w ^"GAME : ";A$(I) hA$(I)"STORE"ī420 r"SCORE : ";B$(I) |"INITIALS : ";C$(I) "DATE : ";D$(I)  3408  =============89 o L< ɐɌɒɔɗ!`gYLVvYLVYLVYLVY `ųԠΠԠ̭ o89L9 15:19:"";MD$(MC)0 AD1ıU: :" IS THIS CORRECT ?";YN$:(YN$,1)"N"ė:3090D :" ANOTHER ?";:"";YN$:(YN$,1)"Y"MCMC1::3090N (4);"OPEN "TI$(CZ1):(4);"WRITE "TI$(CZ1):I1MC:ME$(I):MD$(I)::(4)"CLOSE"TX (4);"OPEN TITLE70  MC1 CZ03090w I1CZ:TI$(CZ1)TI$(I)ė:12:A$"THAT TITLE ALREADY EXISTS.":11000:I13000::3020}  :5:2:"ENTER MESSAGE :":::I1224:(95);:::7:1:8000:ME$(MC)ST$ 15:" DATE (MM/DD/YY) :";:I18:(95);:::ME$(MC):MD$(MC):(4)"CLOSE"L>:" ANOTHER ";:YN$:(YN$,1)"N"AD0:^H:3090:2090 ADD NEW FILE ------------  15000  3:" FILE NAME :";:I110:(95);:::3:13:"";TI$(CZ1):(TI$(CZ1))10ė:3030 TI$(CZ1)""31;"WRITE";A$:33,30:0,32765:D$;"CLOSE";A$:: D$(4):"TEXTFILE NAME: ";A$:D$;"OPEN";A$:D$;"WRITE";A$:33,30:0,63998:D$;"CLOSE";A$:: I";A$:33,30:63999:D$;"CLOSE";A$:5 D$;"LOCK";A$ D$(4):A$"CAPTURE.I":D$;"OPEN";A$:D$;"WRITE";A$:33,30:32766,32767:D$;"CLOSE";A$: (D$;"LOCK";A$:  ===================== A$(20):D$"":"TEXTFILE NAME: ";A$:D$;"OPEN";A$. D$ **********************; * MAKE CAPTURE *X * BY CHARLES BOODY *u * COPYRIGHT (C) 1982 * * BY MICRO-SPARC.INC * * LINCOLN, MA. 01773 * **********************# D$(4):A$"CAPTURE.A":D$;"OPEN";A$:D$;"WRITE   ";:L0:P24605MN24621MN4:P,(CK$(L))64:LL1:L04:DT$DT$CM$(L):L:L24679MN24752MN:L,((DT$,L(24678MN),1))128:L24679MN24752MN:(L)188ĹL,172(L)170ĹL,186:34,0:"DONE!":(769)25Č768: "RESERVED KEY."(7)::70. :L4LL1:70k ::L04:"#"L1" COMMAND -> "CM$(L)" KEY -> "CK$(L): :"IS THIS CORRECT (Y/N) ? "; 756:IT(16384):IT89IT78160 (IT):IT78Ĭ MN0:(769)25MN23808515::"WORKING...A(CM$(L))14:CM$(L)CM$(L)" ":p d"#"L1" CONTROL KEY ";:CK$(L):CK$(L)""ĺ:"CUT THAT OUT."(7)::100 n(CK$(L))1ĺ:"ONE LETTER ONLY."(7)::100 xIT(CK$(L)):IT65IT90IT66IT67IT77IT88IT85IT72IT71IT74IT83IT68ĺ:, TYPE THEM SHIFTED. EXAMPLE: , = < AND : = *":s <8:"TYPE ANY KEY TO BEGIN.":16384,128:16368,0:34,6:: F"#"L1" CONTROL COMMAND ";:CM$(L):CM$(L)""ĺ:"I'M STILL WAITING."(7)::70 P(CM$(L))14ĺ:"COMMAND TOO LONG."(7)::70# ZE COMPUTER WILL TYPE OUT THE COMMAND ASSIGNED TO IT.": ("REMEMBER THAT NO MATTER WHEN YOU TYPE A CONTROLLER COMMAND THE COMPUTER WILL ACTAS IF YOU HAD TYPED THE COMMAND YOURSELFSTARTING AT THE BEGINNING OF A LINE."2 2:"TO ENTER A COMMA OR A COLON ::12:(769)25ĺ"YOU MUST FIRST LOAD":"THE CONTROLLER AND":"THEN RE-RUN THIS PROGRAM.": ::"THIS PROGRAM IS DESIGNED TO ASSIST YOU IN ALTERING YOUR COMPUTER'S 'CTRL' KEYS SO THAT ANY TIME YOU TYPE ONE OF FIVE"8 "KEYS OF YOUR CHOICE, TH *********************9 * *U * CONTROLLER *q * AND * * CONTROLLER EDITOR * * * * NIBBLE VOL3 / N06 * * * *********************a  P(I,K,2)P(I,J,2):KK1:500:J(j950?t GRAPH ROUTINE P~NN311180qJ1P1:KJ1P:1260:K,JwJ1:NN18J((1)P1)K1P:1260:K:NN25ıNN4NN181230J2:K3P:1260:KJP:K1P:1260:K:NN((1)5120):11002.P(((1)2120)2)2:1100F8P((1)6120)mB DEFINE POINTS AROUND A CIRCLE LI1:AN2PIPVP(1,1,1)CX:P(1,1,2)CYRM:KP`J2(P21):PXRM((J1)AN):P(I,J,1)CXPX:P(I,K,1)CXPX:P(I,J,2)CYRM((J1)AN):0:DE1100:500:DET CHOOSE SCREEN COLOR - WHITE ON BLACK OR BLACK ON WHITE o(1).50Đ:7:CS4:7::CX,CY:62454:4:CS7: ART FORMS 31,25,10,4,18 DE1200:500:DE:P((1)1110):1100P((1)2190):1100$PӄC8X(0):X:" ";:X:C$C1$:850.890[NN(C$):NN1NFNNĖIX:" ";:IX:830mFS1NNNN1:10:14:"I'M THINKING"670 ART FORM NUMBERING SUBROUTINE FL1ī9801010::10:13:"ART FORM # ";NN6245 YOU HAVE TYPED IN YOUR ENTRY...";04IX(0)1T>A$:C(A$):C49C57ĖIX:830sHC1$A$:C$A$:A$;:X(0)1RA$:C(A$):C13ī920\C8X(0):X:" ";:X:830fC48C57ĖX:850pC$C1$A$:A$;:X(0)1zA$:C(A$):C13ī920%60,3320670LNN91060,1300,1400,2600,3330,4320,1980,1690,1080,3340U670NN192320,3800,1280,3340,1500,1050,1710,3330,1970,1300670 NN293400,1040,3760,3450670  ART FORM NUMBER INPUT "*:" PRESS WHENCT THE ART FORM (1 TO ";NF;") THAT YOUWANT TO START THE SEQUENCE FORM.":800h ART FORM SELECTION wFR1ī710FS1NNNN1:NNNF1NN1FS1NN((1)NF1)(NN101)720,740,760,780NN4990,3320,2950,1070,1290,1700,3850,400AA3ī640:AA4ī6105DAA5FL(FL1):UNAA6Č54915:FS0:FR0:670_X::jb54915slFS0vFR1:::10:" SELECT THE ART FORM (1 TO ";NF;") THAT YOUWANT TO RUN CONTINUOUSLY.":80054915FR0LFS1:::10:" SELE0:FS0:FR0:P0CS0:CG0+PK163845NF33FC$"":C1$""_GB(1800),P(4,150,2)e~ PROGRAM CONTROL (PK)128ıA$:A(A$)AA1AA2AA3AA4AA5AA6AA7ıAA1Č54915:FS0:FR0:100&AA2ľA$:,0,0,0,0,0M hTA,DI,NS,NA,NR,OV,SL,EL,RS,ILR,ISR,LR,SR,RR,HO,HI,RO,RI,P1,S1 r 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 |M1,M2,B1,B2  0,0,0,0 PI3.141592654:CX140:CY95:RM90:RP45 A173:A272:A383:A482:A578:A632:A727FL16368,01 :20:"YOUR COMMAND? ";:A$:A(A$)E AA1AA2ī100Y "AA5FL1:670b ,520k 6100 @ CONSTANTS AND DIMENSIONS J TA,C,CA,SA,DE,I,J,K,L,M,N,NN,IR,PY,PX,PR,R,S,X,Y,IX,IY,AN,IA ^ 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 FORMS"7 :" R - 'RUN' ONE ART FORM CONTINUOUSLY"` 8:"UNTIL THE SPACE BAR IS PRESSED" :" N - START OR STOP 'NUMBERING'" 8:"THE ART FORMS" :" SPC CONTINUE RANDOM DISPLAYS" :" ESC ESCAPE THIS PROGRAM" 62450 ART FORMS. TO"< "CONTROL IT, USE THE FOLLOWING SINGLE"a "KEY INSTRUCTIONS AT ANY TIME:" :" I - DISPLAY THESE 'INSTRUCTIONS" :" H - 'HOLD' THIS PICTURE UNTIL " 8:"IS PRESSED AGAIN" :" S - 'SEQUENTIALLY' RUN ALL ART9:"COPYRIGHT (C) 1982"::: <9:"BY MICRO-SPARC INC"C P320p Z23:6:"PRESS SPACE BAR TO CONTINUE..."~ \16368,0 ^A(1):(16384)128ī94 d INSTRUCTIONS n:: x" THIS PROGRAM RANDOMLY DISPLAYS A" "VARIETY OF GRAPHIC r4 ***********************= * *[ * APPLE ART GALLERY *y * * * NIBBLE VOL3 / N6 * * * ***********************(:::7:9:"APPLE ART GALLERY":: 2                            ^ PRINTER OFF H` PM$(1)"ESC FOR MENU---SPACE BAR TO SCROLL":800Tj :DN18ft I2CLGT12~ CTL$(I);21);CTL$(I1) MOD(I2)02470 IN$ IN$(27)ı IN$(32)2470 2460 I  PM$(1)"END OF LISTING---USE ESC FONU.":P$"ON":800 D$;"PR#1"V"CATALOG NAME---";CK$(0):"NMBR OF FILES--";CLGT`::rI2CLGT14CTL$(I);:36,20:CTL$(I1);:36,40:CTL$(I2);:36,60:CTL$(I3)X(16384):16368,0:X272290ID$;"PR#0":P$"OFF":FLNAME$b11000l10500'v150= LIST CATALOG W:PM$(1)MN$(10):800b11500::"DO YOU WANT THE PRINTER ON? (Y/N)"IN$IN$"Y"2200IN$"N"24002040 PRINTER ON PM$(1)"PRESS 'ESC' TO EXIT TO ME"FIRST, SELECT A CATALOG NAME."H&IN$:CK$(0)(IN$,20):CTL$(0)CK$(0)w0:"NOW, SELECT A NAME FOR YOUR 1ST FILE.":IN$:FLNAME$(IN$,20)D8100NPM$(1)"1ST FILE ENTERED. NOW UPDTAING CATALOG.":800XCLGT1:CK$(1)"1":CTL$(1)"1":CTL$(2)ATALOG NAME:":IN$:CTL$(0)(IN$,20)*E5J10500NrD$;"DELETE ";CK$(0)a|CK$(0)CTL$(0)l11000r FIRST ENTRY PM$(1)MN$(0):PM$(2)"FIRST ENTRY":FLNAME$"NONE":FLGT0:P$"OFF":800:10:"NO CATALOG OR FILES EXIST."DxPM$(1)"RENAME QUERY":MN10:FLNAME$"NONE":FLGT0:P$"OFF":800R8:1150015:"DO YOU WANT TO CHANGE THE NAME OF":"THIS CATALOG ? (O/N)"IN$IN$"Y"1600IN$"N"14801440> RENAME CAT $@::"TYPE IN NEW CAD CHECK #D$;"OPEN CHECK,L20"8D$;"READ CHECK"KCK$(0),CK$(1)]D$;"CLOSE":s READ CATALOG CLGT(CK$(1))D$;"OPEN ";CK$(0);" ,L20"D$;"READ ";CK$(0)I0CLGT1:CTL$(I):ID$;"CLOSE":v RENAME QUERY 2J)(8962J1)256:PT$(J)PH$(J)PM$(J):K1(PT$(J)):(BASLHK1),((PT$(J),K,1))128:K,JmR19:1: MAIN ERR ROUTINE D$;"CLOSE"X(218)(219)256:Y(222)X1020Y51800"ERR CODE=";Y;"----LN#=";X250  RE %898,80:899,6:900,208:901,6H902,80:903,7:904,208:905,7} THESE ARE LO/HI BYTE BASE ADRS. OF LINES 21-24 PROMPT  PM$(2)MN$(MN):PM$(3)":"FLNAME$"/"(FLGT):PM$(4)P$*J14:(20J):1:868:J`4J14:BASLH(896 "C PH$(0)"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"Q PH$(1)""l PH$(2)"MENU MODE...:" PH$(3)"FILE IN MEM." PH$(4)"PRINTER.....:" 35,19:20:PH$(0) POKE TABLE OF SCREEN BASE ADDRESSES OF PROMPT WINDOW INTO MEMORYCT AN EXISTING FILE "? XMN$(5)"E-CREATE A NEW FILE "h bMN$(6)"F-RENAME AN EXISTING FILE " lMN$(7)"G-ADD ITEMS TO FILE IN MEM " vMN$(8)"H-DELETE ITEMS FROM F.I.M. " MN$(9)"I-QUIT " MN$(10)" 900% MN$(15),CTL$(30),FILE$(200)I ADD$(100),DLE$(20),MERGE$(200)r &MN$(0)"INITIAL SET-UP OF 1ST FILE " 0MN$(1)"A-LIST CATALOG OF FILES " :MN$(2)"B-LIST CONTENTS / ALL FILES" DMN$(3)"C-LIST CONTENTS:FILE IN MEM" NMN$(4)"D-SELE0 MN(IN$)64F MN2000,3000,4000,5000,6000,7000,8000,9000,250O 150^ 35,24::s END OF MAIN FLNAME$NW$:9500:800  INITIALIZE D$(13)(4) C0 :D$;"NOMON C,I,O" MOD(X)((XDN(XDN))DN.05) ":MN10:FLNAME$"NONE":FLGT0:P$"OFF"/ n5009 x1000C 1200M 1400[ MENU h :11500 ICLGT2CLGT4:CTL$(I)" ":I 4:I19:MN$(I):I PM$(1)"***PLEASE SELECT FROM MENU***":MN10:800 IN$ (IN$"A")(IN$"Z")21. ***********************= * *[ * SHOPPING LIST 1.0 *y * * * NIBBLE VOL3 / N06 * * * ***********************PZ MAIN & dPM$(1)"INITIALIZING               "N"1250Y$"Y"10307K1NF:TX$(K)(13):KA$1080y.21:16:958:16:"TO FIELD # ":23:10:130:112081:21:958::"JOIN";::" FIELD #";G$;:" ";LX$:(LX$)01250B21:16:958:LX(LX$)$LLX1LXLINES1Ğ:14:"INVALID------------">K1LINES:(14(K9)):K;". ";T$(TW%(K)):K34,20:22:10:"IS THIS CORRECT (Y/N) ";G$;:Y$:Y$"N"Ĺ34,4:840Y$(21)Y$(32)470Y$"Y"990LC0 21:868:22:6:"MERGE TWO OR MORE LINES (Y/N) ";G$;:Y$:Y$ : ";TV$L1(TV$)02500(TV$)0970MTV$(21)TV$(32)250TV$"@"LNF1:TVNF:I1NF:TW%(I)I::970TV((TV$)):TV1TVNF900TW%(L)TV:880 :LINESL1::8:"YOUR ";B1$;" WILL CONSIST OF :":7:"----------------FOLLOWING FIELDS ARE AVAILABLE ":6:"FOR THE MERGED FILES ";B1$;": ":URK1NF2\" ";4(K9));K;". ";T$(K);22((K1)9));K1;". ";T$(K1)fKpLL1zLNF97021:10:130::17:868:"ENTER FIELD # FOR ";::"LINE ";L;G$;::"RT1 23:12:"HIT ";::"RTN";::" FOR MENU"KB1$"LABEL":INDENT25X ::RX0*34,0:3:868:D1500:D:3:15::"MERGE FILES":34,4:43::F1$;:(40(F2$)):F2$:>T$(NF1)H$H$H$B$:K1NF:TX$(K)(13):KGH:L0::" THE ;"OPEN ";F2$)D$;"READ ";F2$",R0":R29D$;"CLOSE"`RD$(R1R2),SRT$(R1R2),SO%(R1R2)FILE$F1$:200:RX0:IJ0:150:RTRECD$;"CLOSE"FILE$F2$:RX0:IJREC:150:RTRTRECD$;"CLOSE" **** SORT/PRINT **** LABEL0:RECBC$bD$;"READ ";F2$BC$,lN2:R2:X2<vD$;"CLOSE"N1N2R1R2ė:11:5::"ERROR";::" - FILES ARE INCOMPATIBLE ";G$;G$:8:"HIT ANY KEY TO CONTINUE ";:A$:"":250D$;"OPEN ";F1$D$;"READ ";F1$",R0":R1D$;"CLOSE" D$MERGE :";G$;:" ";F1$:'D1250:D^7::"2-ND";::" FILE TO MERGE :";G$;:" ";F2$:{F1$F2$Ģ((37)1):530&23:14::"S T A N D B Y":0D$;"OPEN ";F1$BC$:D$;"READ ";F1$BC$DN1:R1:X1ND$;"CLOSE"XD$;"OPEN ";F2$(34,0::5:15::" N O T I C E ":10:(21(FILE$)2):FILE$:12:8:"HAS ONLY BEEN INITIALIZED"::9:"AND CONTAINS NO RECORDS";G$:22:"--":D12500:DD$;"CLOSE":34,0:D$;"CATALOG":"ENTER ";::"1-ST";::" FILE TO # OF FIELDS AND ALSO"@ 4:"THE SAME OVERALL RECORD LENGTH."v 20:10:"HIT ";::" C ";::" FOR CATALOG ";G$ :11:"OR ";::"RTN";::" FOR EXIT "; 16368,0 Y$:"":Y$(13)Y$"C"400 Y$(13)ĺD$;"RUN A.R.C.""":490 TO SORT"6 J3:"& PRINT DATA FROM THE NEWLY MERGED"a T4:"FILE. NOTE THAT THIS MERGED FILE" ^3:"IS NOT RESIDENT WITHIN THE SYSTEM." h5:"ALSO NOTE THAT ONLY COMPATIBLE" r5:"FILES CAN BE MERGED: THEY ";::"MUST": |3:"HAVE THE SAMEV%(K):K D$;"CLOSE":2 **** MENU **** F V17:B$" "w BC$(2):G$(7):H$(8):V1$(91):V2$(93) "::180 ,AA$" M E R G E F I L E S ":140: 65:3:"THIS SUBROUTINE WILL MERGE TWO (2)" @4:"FILES AND ALLOW THE USER$;"CLOSE":460O R1REC:D$;"READ ";FILE$",R";R:RD$(IJR):R:D$;"CLOSE": 15:2:K136:"*";:K::1:2:K136:"*";:K: K214:"*";:38:"*":K: D$;"OPEN ";FILE$BC$ D$;"READ ";FILE$BC$ NF:RL:NR K1NF:T$(K):TnT$(13),TV%(32),P$(12),TX$(24),TW%(24)N x768,6:769,1:255:::FIN0:250 5:" PRESS ";::"RETURN";::" TO QUIT ";:35,22: 3:(20(AA$)2)::AA$::34,4: D$;"OPEN ";FILE$",L";RL D$;"READ ";FILE$",R";RX:REC:REC0ĺD] *******************5 * *O * MERGE FILES ARC *i( * *2 * NIBBLE VOL3/N6 *< * *F *******************K2000P(4);"NOMON C,I,O"Z(4);"MAXFILES 1"dD$(4)(          C." * **** ERROR ROUTINE **** MER(222):LI(218)(219)256\::12:8"ERROR ";::" ";ER;" ";::" IN LINE ";::" ";LI;" ";:22: ED1500:D$*D$;"OPEN ";FILE$BC$?4D$;"WRITE ";FILE$BC$i>N:RL:NR:K1N:T$(T(K)):TV(K):KHD$;"CLOSE ";FILE$BC$RD$;"LOCK ";FILE$BC$\D$;"OPEN ";FILE$",L";RLfD$;"WRITE ";FILE$",R0"p0zD$;"CLOSE"D$;"RUN A.R.(RL29))NR125NR125S21:6:"FILE CAPACITY => ";::NR;::" RECORDS"23:14:868:"CORRECT (Y/N) ";G$;:Y$:Y$"N"540Y$"Y"75034,0::D1500:D:11 6::"INITIALIZING FILE ON DISKETTE"::17:"STAND-BY"  ----------"K1Nx(5(K9)):K;:9::" ";:9:T$(T(K));::(28(TV(K)10)):" ";TV(K):RLRLTV(K):K27:"------":(29(RL99)(RL10))::RL;::9:"RECORD LENGTH =>";RLRL1 CALC NUMBER OF RECORDS NR(612000K1(TV$)0Ĺ34,0::DI1:X$"EXIT":130bTV(K)1TV(K)20TV(K)(TV(K))Ė29:4K::" INVALID ":D11000:D:4K:29:868:KK1::1lKvD1500:D34,4:RL0:5:"# FIELD NAME FIELD LENGTH" 5:"- ---------- --R LENGTH VALUES FOR EACH FIELD:":3:" ===================================":34,402:22:V1$;" ";::"NOTE";::" ";V2$;" MAXIMUM FIELD LENGTH = 20":K1ND4K:"FIELD #";K;".......";::16:T$(T(K));G$;::31:" ";TV$NTV(K)(TV$)(XN2%N21K1N2%_:4:K;". ";T$(T(K));:(24((KN2%)9)):KN2%;". ";T$(T(KN2%)):K(N2)N2Ģ((37)):23:" "22:868:14:"CORRECT (Y/N) ";G$;:Y$:Y$"N"X$"EXIT"::DI1:130Y$"Y"520Q34,0::3:" ENTE OR LESS)"::D11500:D:20:29:868:1:400M(Z$)0T$(T)" "T(N)T:(8T(T9)(T8)(T8)):(623(T8)):" ";: 10 SPACES(623(T8))::T$(T)::C(T)1:29035,23::NN1(N2)N2N2%N2 (N2)N2ĝ:D11000:D:12:868:19:23:868:310=T11T0440T10TV1Ğ:"ENTER NAME FOR THIS FIELD:";G$:4:"(10 LETTERS OR LESS)"::20:27:" ";Z$:T$(T)Z$(Z$)10Ģ20:28:958:29::" INVALID ";G$;G$:/(Z$)10Ģ21:4:"(10 LETTERS"RETURN";::" TO ";X$;:35,22M @19:(21(N9)):"=> ";T$:N1(T$)0460o JN1(T$)0ĺD$;"RUN A.R.C."} TX$"QUIT" ^((T$,1))48((T$,1))58300 h(T$)2300 rT(T$):T1TV300+|C(T)1Ģ21:12::"ALREADY SPECIFIED";G$;G$;:24(K1)):KV2". ";T$(KV2):K:, N0 "NN1:N12Ģ20:1:958:23:10::" L I M I T = 1 2 ";::D12000:D:460 ,18:958:"ENTER IN THE NUMBER REPRESENTING YOUR CHOICE FOR ";::"FIELD #";N;G$::16368,0 623:11:"PRESS ";::90( ::(21(FILE$)2):FILE$:::K 14:" INITIALIZER ":::34,4x :" YOU WILL BE ENTERING DATA IN AN" " ORDERED FORMAT CONSISTING OF FIELDS." "SELECT A ";::"MAXIMUM OF 12 FIELDS";::" :":$ K1V2:2:K;". ";T$(K);:(DI1220J 6:11::"INITIALIZE NEW FILE"::11:"-------------------"X 16368,0i D11000:D 13:5:"NAME OF FILE";G$;:": ";FILE$ (FILE$)0190 ((FILE$,1))65Ģ19:12:"ILLEGAL FILE NAME";G$;G$;:D11500:D:13:19:958:116) n255:::X$"EXIT"C xG$(7):BC$(2):V1$(91):V2$(93)m I016:C(I)0::V16:K1V:T$(K): FULL NAME,LAST NAME,FIRST NAME,INITIAL,ADDRESS,CITY,STATE,ZIPCODE,PHONE #,COMMENT,OPTION 1,OPTION 2,OPTION 3,OPTION 4,OPTION 5,OPTION 6  ******************3 * *L * INITIALIZE ARC *e( * *~2 * NIBBLE VOL3/N6 *< * *F ******************K1000PD$(4)ZD$;"NOMON C,I,O" dT$(16),TV(16),T(16),TW(16),C(     z# ŭĮԠ Ӡɠ РԠ ŠŠϭҠϠϭҠ ˠР"ԠҠҮϠ   7 Э̭ԠԠЭ̭ԠϠЭ̭Ԡ àŠҠ ƠϠƠ  ԠҩǠϠԠҩǠ ŠӠԠ" ŠӠ ŠŠ ٠ˠԲ  ˠҠ ͠Ϡ ͠ àϠ àԠ ҠŠ ҠȠ ҠԠ Ҡ Ҡ  ӠРؠӠРخà ĠϠ Ġ    6 !ҮîB"ȠàŠàŠӠàǠԠ0 Ԡ٠6 ԠŠҠҠԠŠҠҠԠΠǠҠԠҠ ˠ     .3 1982    5 ϠӠɭӠҠӠŠҠϠŠҠԠԠD$;"READ TFILE-";NM$CL$%D$6PG$(I1);CL$HNL0NLNL1PI1YITBr&I0II1:SP$:5500NL0PT$"C"340:NL0ĺI$;"40N":D$;"PR#0":"PLACE NEW PAGE IN PRINTER":"PRESS 'RETURN' WHEN READY";A$:290DD$;"CLOSE"NISP$:I2" rD$;"READ TFILE-";NM$: |CL$: CURRENT LINER PG$(I1)PG$(I1)CL$e ILLMG(CL$) I0II1:PG$(I1)PG$(I1)SP$:410 NLNL1:NL0I1PLTB I1 ITB I0II1:SP$:450 I1TB1PLTB CL$"":NL0510$(PL) "D$;"PR#1": ,I$;"K": TURN OFF AUTO LINE FEEDX 6U$;CI$: SELECT 16.7 CPIy @I$;PW;"N": SET MAX COLUMNS JU$;LF$: MAKE UP FOR THE FIRST LINE FEED TI1PL:PG$(I)SP$CR$:I ^I1TB1PLTB:PG$(I1)"" hI21MG:PG$(I1)PG$(I1)NS L,C,RE MG0ĺ"CAN'T FIT "2LL" CHARS ON A "PW" CHAR PAGE":210j "MARGINS WILL BE ";MG;" CHARS." "ENTER MAX PAGE LENGTH (LINES) : ";PL "TOP/BOTTOM MARGINS (LINES) : ";TB "C)ONTINUOUS OR S)INGLE SHEET PAPER: ";PT$ PG"ENTER NAME OF FILE TO PRINT":"";NM$5 140:210O D$;"OPEN TFILE-";NM$i D$;"READ TFILE-";NM$ NL: NUMBER OF SAVED LINES LL: LINE LENGTH TV: TAB VALUE D$ "PAGE WIDTH (CHARS): ";PW MG((PW(LL2))3): MARGIԠӠӍҮî ` ` ``` ` `j&f&j&f&j&f&j&E) ` `8 ` ` `jfjfjfjf&j&f&j&f&j&f&E) ` `8 `(L``*&*&*&&*&&*&)? fje`0` ` `` ` `K " ";::: * ***** **** **** ***** *****"Q 12:4:"VOLUME N0 3";:26:"ANNEE - 1982"i X(49152):X1287x 49168,0: (4);"CATALOG" :I140:" ";:::"ATTENTION: LA FACE 2 DE CETTE DISKETTE NE COMPORTE PAS DE DOS."::1:I140: *** *"R ::18:"* ***":17:"* * *":17:"* * **":17:"* * *":18:"* *"" ::3:"* * ***** **** **** * *****":3:"** * * * * * * * *":3:"* * * * **** **** * ***":3:"* ** * * * * * * *":3:"* ::I140:" ";:LI121:1:" ";:40:" ";::I140:" ";:: 3:6:"*** * * *** ** *** *** ***":6:" * * * * * * * * *":6:" * *** ** ** ** *** *":6:" * * * * * * * * *":6:" * * * *** ** ***   #@ INPUT ROUTINE ------------- 4JST$"":662JTJ512736:X(J)Z^X1418060ohST$ST$(X128)r:(ST$)224ĺ:(7)"TOO LONG!":J13000::::3070|ST$""ġ::3070(# READ MESSAGES ------------- 2#MC1<#(4)"OPZ1I10Ė21(37)22ĺI". "TI$(I):6070;6090AOA$:A$:hJI:ICZ1:JI6150o2}IJCZ116:(37)22ĺI". "TI$(I):61406150:16:A$:A$:16:A$:A$BI:ICZ1:BI6140:6030X::1):f (4)"DELETE TITLES":(4)"OPEN TITLES":(4)"WRITE TITLES":I1CZ1:TI$(I)::(4)"CLOSE"{(4)"DELETE "A$:" FILE DELETED, DO ANOTHER ?";:"";YN$:(YN$,1)"Y"5000(p VIEW NAMES ---------- z15000B1:IBC MATCH THAT NAME."::" TRY AGAIN ?";:"";YN$:(YN$,1)"Y"5000F:" ENTER 'DEL' TO DELETE FILE."::10:YN$:YN$"DEL"ı:12:5::"FILE BEING DELETED.":ICZ1I1ĺ(4)"DELETE TITLES":(4)"DELETE "A$:J1CZ1:TI$(J)TI$(JA$ME$(I)&IMC4180(04110H DELETE FILE ----------- :12:" ENTER FILE TO BE DELETED :"::10:I110:(95);:::14:10:"";A$A$""ı(A$)10501015000I1CZ1:A$TI$(I)5090@:12:" UNABLE TOE :":15:J1224:(95);::15:8000C(ST$)1A$ME$(I):4320YME$(I)ST$:A$ST$c411017:958:" ENTER 'DEL' TO CONFIRM :";:"";YN$:YN$"DEL"4110IMCMCMC1:4200J1MC1ME$(J)ME$(J1):MD$(J)MD$(J1):MCMC1MC1:ME$(I):MD$(I)::(4)"CLOSE"e15:958:" CHANGE ANOTHER";:YN$:(YN$,1)"Y"ė:CH0:4000k15:958:" DATE (MM/DD/YY) :";:J18:(95);::15:19:"";MD$(I)(MD$(I))8Ģ7:958:4260A$ME$(I):4110%13:958:" MESSAG(M)ESSAGE (P)URGE":" (N)EXT":(37)2:10:YN$:YN$F"YN$"N"4180O,CH1a6YN$"D"4260s@YN$"P"4330JYN$"M"4290TMC14210^IMC14210hrA$FI$:CH04240|(4)"DELETE "A$:(4)"OPEN "A$:(4)"WRITE "A$#I1A$!I1CZ1:A$TI$(I)4090{::12:" THAT FILE DOES NOT EXIST."::" TRY AGAIN ";:YN$:(YN$,1)"Y"FL1:40009000I1MC1:A$ME$(I):3:" ITEM #";I::LM2:RM32:10000::" DATE :"MD$(I)417:" CHANGE :":" (D)ATE S":(4);"POSITION TITLES,R"CZ1:(4);"WRITE TITLES":TI$(CZ1):"***":(4)"CLOSE"Zb ~ CHANGE A FILE ------------- :12:" FILE NAME :";:I110:(95);:::12:13:"";A$:A$""ı(A$)104010FL1FL0:406015000FI$24576: CALL THE MACHINE LANGUAGE PROGRAM AT $6000f U(27)(64): RESET PRINTER TO DEFAULT SETTINGSr ZI$;"O" _D$;"PR#0" `D0" `78:"TAB (1-15) = ? (DEFAULT=8-CENTERED)";A$O -A$""TB(A$):TB1TB1540a 227,NI:23,HRp 7D$;"PR#1"~ <I$;"80N" A(27)(61);: CLEAR MOST SIG BIT F(27)(68)(TB)(0);: SET TAB K(27)(65)(7);: SET 7/72 INCH LINE SPACING2 P HIRES DUMP 2X.BASIC/D$(4):I$(9)MD$;"BLOAD HIRES DUMP 2X"|:12:"TURN ON MX-80 AND PRESS RETURN";A$:12:HR32:"HIRES PAGE 1 OR 2? ";A$:A$"2"HR64#:12:NI255:"NORMAL(N) OR INVERSE(I)? ";A$:A$"I"NI0+ (:12:TB   2. ADD TO A FILE ","3. ADD A NEW FILE ","4. CHANGE A FILE ","5. DELETE A FILE ","6. VIEW NAME-FILE ","7. EXIT PROGRAM " : READ TITLES FILE ---------------- :CZ1 :(4)"OPEN TITLES":(4)"READ TITLES"!:TI$(CZ):J):(A$)(A1$)A$(A$,(A$)J):100904`'10110Aj'LM:A1$Xt'(A$)RMLM10020d~'LM:A$j'y'J(A$)ı'(A$,J1,1)" "A1$(A$,J):A$(A$,(A$)J):LM:A1$;::10100'*((32)(A$))2)A$: . "1. LOAD & DISPLAY FILE","RMLM11L.'C$(A$,J,1):C$" "C$"."C$","C$"!"C$"?"C$"-"10050Z8':JRMLMB'C$" "A1$(A$,J1):A$(A$,(A$)J):10090L'C$"!"C$","C$"."C$"?"C$"-"JRMLMİ10130:A1$(A$,J):A$(A$,(A$)J1):LM:A1$:10100)V'A1$(A$,EN "A$:(4)"READ "A$ F#ST$""*P#662LZ#I512736:X(I):X1419090_d#X141XX128pn#ST$ST$(X)vx##ME$(MC)ST$:MD$(MC):MCMC1#9030#(4)"CLOSE"#' PRINT FORMATTER --------------- '(A$)RMLMĺA$: $'JLL RIGHTS RESERVED" ( :E " LOADING AMP-L-SOFT"a AD(X)(X)256(X1)~ (4);"BLOAD AMP-L-SOFT" AD(AD(999)79) " AMP-L-SOFT-INSTALLED" :   ************************? * BOOTER OF AMP-L-SOFT *^ ************************fP:Z" *** AMP-L-SOFT ***"d" BY PAUL IRWIN"n:" COPYRIGHT (C) 1982"x" BY MICRO-SPARC.INC"" LINCOLN, MA. 01773" " A:"MERCI.":I12000:I:::: 8:C$;:19:C$;:30:C$@ CKEYPAD ";::"ON";:::"---------"t :"COMPOSEZ AUTANT DE CHIFFRES QUE VOUS LE DESIREZ, POUR TERMINER <9999>":} 768 NBNB1 " TEST ";NB;" -> ";:NB$ NB$"9999"ī300 :243 ,789 6::"KEYPAD ";::"OFF";:::"----------"19:" 8/8 ";:30:" 9/9 ":400:) 400\ 8:" U/4 ";:19:" I/5 ";:30:" O/6 ":400:e 400 8:" J/1 ";:19:" K/2 ";:30:" L/3 ":400: 400:8:" M/0 ";:19:" /. ":400 :23:1:16384,128:16368,0:34,2:# "B =("-------- SUPER NUMERIC KEYPAD ----------"C<oF"KEYPAD ";::"ON";::" = CALL 768"P"KEYPAD ";::"OFF";::" = CALL 789"Z:"NOUVEAU CLAVIER:"d"----------------":xC$" "400 8:" 7/7 ";:  ET3 22:COL127Ą"NEW CHOICE (0...127)? ";A:50V "NEW CHOICE (128 TO 255)? ";A^ 50 20 PJ13* Z40J,20I40J20,20I3 dJ,I> n228,AJ xI120U J13t 40J20,20I40J40,20I} J,I ENTER NUMBER BETWEEN 0 AND 127 TO ACCOMPLY GREEN OR BLUE SQUARES AND A NUMBER BETWEEN 128 AND 255 TO USE WITH ORANGE OR VIOL` **********************; * PSEUDO COLORS *X * BY BOB SMYTHE *u * COPYRIGHT (C) 1982 * * BY MICRO-SPARC INC * * LINCOLN, MA. 01773 * **********************COL170(A154:2<228,COL FI1  (4)"CLOSE":ER1:150609"2}ER5EL9040EL9100ĺ:9110O"<}ER22EL10000Ħe"F}ER255ĩ255:130k"P}"Z}ER9ĺ"DISK FULL!":"d}ER10ĺ"FILE IS LOCKED!":"n}ER8ĺ"DISK I/O ERROR!":"x}ER4ĺ"REMOVE WRITE PROTECT TAB!": ITI$(CZ)"***"15050&!:CZCZ1:150307!:(4)"CLOSE"=!:a!} ERROR ROUTINE ------------- ! }ER(222):EL(218)(219)256!}768!}ER5EL15030A3ĺ:(4)"CLOSE"::12:A$"NO TITLES IN FILE.":11000:I14000:::"(}ER5EL15030ĺ:'F;:36,10:R$(F);:36,20:T%(F):F4:10000O:12:"END OF DEMO":'::"PRESS ANY KEY TO CONTINUE =>";:A$:: PCTRL-S TO PAUSE/RESUME ";XX$WF1N:R$(F),T%(F):F::"PRESS RETURN FOR SORT ";XX$i"SORT BEGUN"{A(R$,T%,1,N)"SORT ENDED""PRESS RETURN TO LIST SORTED DATA":"PRESS CTRL-S TO PAUSE/RESUME ";XX$:5:F1NR$(F)R$(F1)Ğ"ENTER THE # OF STRINGS TO SORT ";N9rR$(N1),T%(N1)]|B$"ABCDEFGHIJKLMNOPQRSTUVWXYZ"::5::"BUILDING STRINGS ":F1N:G15R$(F)R$(F)(B$,((1)24)1,1)T%(F)FG,F:5:"PRESS RETURN TO LIST RAW DATA":"PRESS DEMO":$,"ENTER NUMBER 1-255 ";NJ6:"THE HEX EQUIVALENT IS:":"$";a@C(N,0,0,64986,C%)J10000::5:::"NUMBER OF SPACES DEMO":T:"ENTER NUMBER OF SPACES (0-230) ";SP%Y(219);^C(0,SP%,0,63818,C%)_(221)$h10000::5:A$(1)$ DEMO SUBSTRING SEARCH *X10000::5::"SUBSTRING SEARCH DEMO ":}"ENTER SUBSTRING TO SEARCH ";A$P%1B$A$(1)B(B$,A$,P%)"THE SUBSTRING '";A$;"' BEGINS IN LOC ";P%10000::5:::"HEX CONVERSION P DEMO TONE .Z:5::"TONE DEMO ":[d"ENTER PITCH AND DURATION OF TONE ";P,DgnN(P,D)mx DEMO FREE FORMAT INPUT 10000::5::"DATA INPUT DEMO"::"ENTER A STRING WITH ANY CHARACTERS":I(IN$)A$(1)IN$cUV 89LQ89LQ 4CS4` :4L Ϸ 1:800+ K$((16384)128):16368,0:7 ZZZZ1F *ZZ7ZZ1L 4f I768778:J:I,J:Ix 232,0:233,3~   1,0,4,0,36,214,111,41,159,54,0 (K$"J")(K$"U")(K$"N")X YY(K$"M")(K$"N")(K$",")(K$"I")(K$"U")(K$"O")x XX(X1X)ZZ:YY(Y1Y)ZZ X0X0 X279X279 Y0Y0 Y159Y159 1X1,Y1 1X,Y X1X:Y1Y 100 ((16384)128)""ZZHAUT ET A DROITE":"N EN BAS ET A GAUCHE":"< EN BAS ET A DROITE"p 23:" POUR CONTINUER ";R$v |  900 0:1:3 Z1:800 X1100:Y1100:XX1:YY1:1X1,Y1 d(16384)127İ700 xXX(K$"L")(K$"O")(K$",")ɥY:"PROGRAMME DE DEMONTRATION PERMET LE":"CONTROLE DE DEPLACEMENT DE FORMES EN HR"I :"LES COMMANDES SONT LES SUIVANTES:":"K STOP":"I EN HAUT":"M EN BAS":"J A GAUCHE":"L A DROITE":"U EN HAUT ET A GAUCHE":"O EN    lmmL, **uu u u u u`bnbnbpdpȱbnbndpdpȱbnbn`tntnvpvpȱtntnvpvpȱtntn`Ѡ蠠ĠӠҠϠҠҷŲ٠ӐԂ bnn ȱb~nȱbn~р bn btt ȱb~tȱbt~ tb   l8lmmL, l8lmmL, rirsisL,  `l8lmmL,  l8 `` ` a f gM `8fag/ l8fmg p li`mia p ``悥a悥f悥g悥l悥m`ƂmƂlƂgƂfƂaƂ```eflaegmfmfl` W l W `iraisflgm` W r W l W rlsmq <@p q q L٪ 掦 控 L٭0Χ L Lٷ ,բ ȥȥ L i i i i g R ޥP Q g R ޥP Q > T I `?` `?ި r H H H g RPQhhh  ߠ(LJ`8*<<`*%<<` ߠo ȱ<ȱ=<mo >=i? ߠp ȱ@ȱA>8p >?? ߠq q q e<<e==<= PGQPgƖ8PgPQhQghe Ӣi G Gg G Gy Gg^h_8^eP^ȱ^ eQ^^_ BC M? , Ll8ePeQ`L`{ } ޭ{8 GEHF L |  dBHPX]cjpv|ĠˠŠΠàĠΠˠŠŠŠ `` `  ȱ ' ! Ђ ɠ L L5ɺɺ`  L5Ġč ܅ȥ ̙܅ș܅L샩܅ș܅L #  Μ  4ʘm ީ L5 转 莎 L;  M H hJЌ$Lo  , , m 转 詄  ! ܅  L܅ɬʎL ɬ܅89st ` Ɇ` hj L+  oʎ0LoLʽ LɃLɱ4ɳ08鰍hLɰɸ8鰍jL Lɠ󮋆ɠɰLoɺLo8鰙ሌ   OUTINE" K3 P"RESET ==> ANNULE LA ROUTINE"S Z22::"CHARGEMENT ROUTINE"p d(4);"BRUN PAGE LISTER" n22:19:" TERMINE" s x A$"***************"9B$"* *"?f(A$:B$:"* PAGE LISTER *":B$:A$l2<:"PERMET DE LISTER UN PROGRAMME ECRAN":"PAR ECRAN.">::A:"CHARGEZ UN PROGRAMME APPLESOFT PUIS" F:"CALL 768 ==> BRANCHE LA R FL0:2050150004I1CZ1:A$TI$(I)2080 ::12:" THAT FILE DOES NOT EXIST."::" TRY AGAIN ";:YN$:(YN$,1)"Y"FL1:2000 AD1::3090*:" IS THIS CORRECT ";:YN$:(YN$,1)"N"20804(4);"APPEND "A$:(4)"WRITE "A$:00(232)3Ĺ232,12:12204(232)12Ĺ232,3:JI13000:rI2121:I:1:868:J1100::|1100 ADD TO FILE ----------- :12:" FILE NAME :";:I110:(95);:::12:13:"";A$:A$""ı(A$)102000 FL140: V232,3' `I1MC1:A$ME$(I)k j:23:" ITEM # "I;:16:"DATE :";:MD$(I)""ĺ" ";:1160 t(MD$(I))8MD$(I)" "MD$(I):1140 ~31(MD$(I)):MD$(I);  LM2:RM32 J08:(232)J:1:868:L1100:::(232)1001050 15000. I1CZ1:A$TI$(I)1080 $::12:" THAT FILE DOES NOT EXIST."::" TRY AGAIN ";:YN$:(YN$,1)"Y"FL1:1010 . 89000 B35,21 L:22::"++++++++++++++++++++++++++++++++";:23:" ";:1T ONE OF THE ABOVE:";:A$:A$:A$"1"A$"7"ė:200e A(A$):A1000,2000,3000,4000,5000,6000,7000t :::110  DISPLAY FILE ------------ :12:" FILE NAME :";:I110:(95);:::12:13:"";A$:A$""ı (A$)101000 FL1FL0::I840:I:"+";:. I223:I:40:"+";:I 24:I839:I:"+";:V 2039,43x :32,7:33,32:34,1:35,23: 4:A$"<
>":11000:22:A$"(C) 1982 BY MICRO-SPARC,INC.":11000:5 :I17:A$(I)::A$A$(I):11000:3 :" SELEC770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96P n32000p xTI$(100),ME$(100),MD$(100) :::"+++++++":I122:"+ +"::"+++++++";:1 8:2:"+++++":10:3:"EMC":12:3:"BY:":14:2:"R.GUY":16:2:"++++++" 1 **********************; * ELECTONIC MESSAGE *X * CENTER *u * BY RUDY A.GUY *( * COPYRIGHT (C) 1982 *2 * BY MICRO-SPARC.INC *< * LINCOLN, MA. 01773 *F **********************D d768,104:769,168:    **********/ I09:I;::I;::I;::" ";:AENDANT:":U "65000 FOR I = 1 TO 9:GOSUB 65100:NEXT I":"65100 PRINT I : RETURN": "EST INCORRECT CAR IL A ETE REFERENCE UNE LIGNE SUPERIEURE A 63999" :: :"VOIR LA LIGNE 65535 ........" ********** * BIGNUM * X 0::"SUITE 'RETURN'";:A$:" n x"IL EST POSSIBLE D'INSERER DES COMMANDES":"MAIS ATTENTION, IL NE DOIT PAS ETRE FAIT";:"REFERENCE A UNE LIGNE SUPERIEURE A 63999" "EXEMPLE:": "65000 FOR I = 1 TO 9:PRINT I:NEXT I": "EST CORRECT, CEP1 -:"******":"BIGNUM":"******":G:"MODE D'EMPLOI:":_(" 1. BRUN BIGNUM"e-s2" 2. &"<" LE CARACTERE ']' DEVIENT ':'"AF" 3. ENTRER UNE LIGNE DE PROGRAMME"P" DE 64000 A 65535"Z10000, d24:1    % 76LH%hL,, XhL0 "1440),X,Y)1D1G(Z)5:ZZ1H6X,Y)1D1G(Z)7:ZZ1f@X,Y)0D1G(Z)1:ZZ1JX,Y)0D1G(Z)3:ZZ1T1430^G(Z)10h POKE SHAPE rASD(SC)|TAZ0"POKING SHAPE DEFINITION"ZZ1G(Z)12:YY1:DD:ZZ1:1490ND1XL1X,Y)0G(Z)2:YY1:DD:ZZ1:1490D1XL1X,Y)1G(Z)6:YY1:DD:ZZ1:14901580YK1630F0BLJB,Y)1F1BF0G(Z)2:YY1:ZZ1:1490F0YK163,I1)1Z1F&PZ0II1:13409Z CODE SHAPE OdZ1:D1:XL:YI1jn"CODING PLOT VECTORS"xXX1:SXX:SYY:X,Y)01400BXX:BYY1440XXDD1XJ1X,Y)1G(Z)6:YY1:DD:ZZ1:1490D1XJ1X,Y)0G(Z) 33,40:("LOCATING SHAPE EDGES"CD139:L1,D)1Z1I^Z0LL1:1220kJ39:Z0D139:J1,D)1Z1Z0JJ1:1260 Z0:K39D139:D,K1)1Z1(Z0KK1:13002Z0:I0 <D139:DY8A$"I"Y1YYY1:1130=BA$"M"Y38YYY1:1130ZLA$"J"X1XXX1:1130xVA$"K"X38XXX1:1130`1020jCZXX,YY)t15:XX,YY:ZC:X,Y:XXX:YYY~ZCCZ:"X=";X;" Y=";Y1020 BOX IN SHAPE L0:Z0A$)A1A1A38A383A,BC:::730L FREE CURSOR MODE ZX20:Y20pZCX,Y):15:X,Y{33,40:"X=";X;" Y=";YA$A$"Q"ĠZC:X,Y:2330A$"P"ZC1:1020A$"E"ZC0:1020$A$"?"3040.XXX:YY"F"980A$"P"2330) A$"E"2370:A$"Q"1190K A$"?"2980Y*"TO ";B$j4B$"?"2980y>B$""810HB(B$)RB38B38\B1B1f"AT ";C$pC$"?"2980zC$""870C(C$)C38C38C1C1A(?";:(34);:"OK";:(34);:":NORMAL"C <:"REPONSE":"-------": F"10";::"97";::":";::"BA";::(34);:"HELLO";:(34);:";:";::"9E";::":";::"BA";::(34);:"OK";:(34);:":";::"9D00";: P:::"FAITES UN ESSAI:":::  (4);"BRUN SEEBUF"8:"SEEBUF - DEMO":g::"1) CHARGER SEEBUF PAR 'BRUN SEEBUF'"("2) FAIRE & (RETURN)":"3) LE CURSEUR DEVIENT ':'":"4) COMPOSER UN EXEMPLE DE LA SORTE:"% 2:":10 HOME:?";:(34);"HELLO";:(34);:";:INVERSE:`L`  .ՆF 6v YLئij E ٱȑ { RLgL RUN DDT, PUIS POUR SUPPRIMER LE DOS, FAITES '/D'":: <"POUR INITIALISER UN DISQUE AVEC UN FICHIER BINAIRE, FAITES :":"- POKE 40514,52":"OU A L'AIDE D'UN UTILITAIRE COMME DISK ZAP, MODIFIEZ:":"- TRACK $0, SECTEUR $D, BYTE $42 DE $6 EN $34" h:"-----------------------"::"D";::"ISKETTE ";::"D";::"ATA ";::"T";::"RANSFERT":"D";::"ELETE ";::"D";::"OS ";::"T";::"RACKS"(:"-----------------------":7 2::"CHARGE LE PROGRAMME PAR LA COMMANDE B  50pTM12200Ez:"USE THIS SHAPE AS A BASE FOR ANOTHER ";:A$dA$"Y"SCSNSCSC1:450w NEXT SHAPE SC TABLE DATA :" SHAPE TABLE DATA"::"SHAPE TABLE STARTS AT ";SS:"AND ENDS AT ";SD(SC)$:SC140,406 A$:16298,0:16300,0:16301,0GSD(SC1)A1[ TM0Ġ1:BX,BYa*4"DRAW THIS SHAPE AGAIN (Y/N) ";:A$:A$""2090>A$"Y"1850HR"EDIT THIS SHAPE (Y/N) ";:A$:A$""2130\A$"Y"TM12620fA$"Y"4A$"W"1880'l POKE THE DIRECTORY :vSS,SN:SS1,0EXSS1QI1SC`BSD(I)SSvXX1:TA(B256)X,BTA256XX1:X,TAI EDIT THE SHAPE A$"W"Ē3A$"G"Ē1A$"O"Ē5A$"P"Ē2A$"B"Ē6"PRESS RETURN TO PLOT SHAPE ";A$40 DRAW SHAPE ::_D"SCALE = ";G$:G(G$):G11860~NG:"ROT = ";G$:G(G$):GX:"G)REEN P)URPLE O)RANGE B)LUE W)HITE"::"ENTER FIRST LETTER OF COLOR ";:A$:A$ bA$"G"A$"P"A$"O"A$"B"01790KG(Z):ZZ1)G(Z)101780>KKG(Z)8:ZZ1PG(Z)101780uG(Z)4G(Z)0KKG(Z)64:ZZ1ZZ1A,K:AA1:1690A,K:AA1A,0(7)15:SX,SY:"THIS DEFINITION STARTS ON THE WHITE DOT."!&24:L`  .ՆF $ Xvij FPQ $ YՄ0  @  $0 $LLlL$,1))31ĺA$;:8682 AC8QM1LC$(LC$,QM1)D AC13ĺ:QL2J &P 0V :(AC31AC65)AC90ĺA$;:UC0. AC27UC1Q UCAC64AC91ACAC32:A$;s UCAC64AC91Ğ:A$;::UC0 AC27AC13AC8A$(AC):LC$LC$A$ QM(LC$) AC8QM1ĭ(LC$)31ĺA$;:868 AC8QM1LC$"" AC8QM1ĭ((LC I;") "; 400$ IN$(I)LC$* C PRINT THE MATRIXK 14l 9:"HERE IS WHAT YOU KEYED"w I15 I;") "; "768,IN$(I): , 623:"THAT'S ALL!"; @:  LC INPUT LC$"":UC0 QL120 A$:AC(A$)  U34,2$ Z(4);"BLOAD LC OUTPUT"F d5:10:"ASCII CHARACTER SET"M n7i xI0127:LC$LC$(I):v 768,LC$ I14000: 1:5:958 :"NOW YOU MAY TRY THE INPUT ROUTINE" "ESC KEY SIGNALS CAPITAL LETTERS" IN$(5) I15X *******************5 * *O * LOWER CASE DEMO *i * * * NIBBLE VOL3/N06 * * * *******************<:F8::"UPPER CASE - LOWER CASE":P13:"DEMONSTRATION"     ȱ          <ȑD    ́  LŠӠٯΩԠŠΠŠӠ٠٠Ů8U ԧi&BiC8逍ww mȱmܩ<=ԅ>? ,Li`/D:L` L  H h :$ : h  N$(14):CO$(15):CP$(16):CS$(19):CT$(20)\BCV$(22):CW$(23):CY$(25):CZ$(26)LP1$CO$CA$:P2$CO$CB$:PT$CO$CT$:PN$CO$CP$~dY(4)+D$;"BLOAD BYTE-CHANGED.SET,A";CSICH(CS256):CLCSCH256kADRS7,CL:ADRS8,CH:ADRS3qw"ERROR IN RLOAD OR RBOOT"216,008CA$(1):CB$(2):CC$(3):CD$(4):CE$(5):CF$(6):CI$(9):CK$(11):CL$(12):C9BB19>BB1BB1-H(AA):(BB):SHIP$3R>z1010::12:10:"SHIP SHOOT BY ROB SMYTHE":14:15:"PLEASE WAIT....":ADRS0(4);"BLOAD RBOOT":520ADRS(0),"HRCG"216,0ADRS0ADRSADRS65536CSADRS768:CSD$ION"::"NUMBER OF HITS..."HITS( 740h CA$0PN$CP$:10:"OUT OF ENERGY"::"NUMBER OF HITS..."HITS 20:"PLAY AGAIN (Y/N)? ";CE$;:A$:A$ A$"N"Ā 180 X((1)31):Y((1)31):AAAAX:AA35AA35 *AA1AA14BBBBY:BB1PB(PB255221) ( 0(BU)128ı/ :5J D10,190140,95269,190X NJ110:v X0:10,190140,95269,190 bAMMOAMMO1:2:37:AMMO;" " lAMMO0680 vAA18AA20BB10BB11ı HITHIT1:G$;: CA$0PN$CP$:10:"OUT OF AMMUNIT' J(KB)128ĺPN$CA$0CP$:16368,0:8 rPA(AA)390N |AAAA12(PAAA)] PBBB410s BBBB12(PBBB) BB19BB19 AA35AA35 (AA):(BB):SHIP$ 560 800 LEVEL2İ800 280 PA(0):PB(1):PA(PA255381):? ";:A$:A$7 LEVEL(A$):LEVEL1LEVEL2ĺG$;:180e 16368,0:AA20:BB10:ENERGY%100:AMMO10q PT$CP${ CA$1 2:2:"ENERGY: " 2:31:"AMMO: "AMMO 510 "ENERGY%ENERGY%1:2:10 ,10:ENERGY%" " 6ENERGY%0730 @560;"BLOAD WORLD MAP.PIC,A$4000"6 F768,1:769,2:770,3G P(16);(11)W Z:16302,0e dKB16384q nG$(7) xBU16286 1080 SHIP$CB$" "CC$" :^; "CC$" (%) "CC$" =!- "CC$" "CD$ CP$:10:"LEVEL OF DIFFICULTY (1 OR 2)  **********************; * SHIP SHOOT *X * BY ROB SMYTHE *u * COPYRIGHT (C) 1982 * * BY MICRO-SPARC INC * * LINCOLN, MA. 01773 * **********************((768)(769)(770)802890 <D$S $Lԅ 9ȱȱ  @A[)? a{) ` NT D$;"(34)"BLOAD THE SUPER WRITER"(34):"120 CALL 37632,"(34)"ESSAI"(34):"130 END"dRMET: 1) DE VERIFIER LES TEXTES COMPOSES 2) DE FAIRE DES SORTIES DE TEXTES DE DEMONSTRATIONS, COMMENTAIRES ETC..." 2:"PROCEDURE DE CHARGEMENT D'UN FICHIER 'APPLE WRITER' NOMME 'TEXT.ESSAI':"X <:"100 D$=CHR$(4)":"110 PRIZ  :M"----------------":"THE SUPER WRITER":"----------------":::"CE PROGRAMME PERMET D'EFFECTUER UNE LECTURE DE VOS FICHIERS CREES A PARTIR DU LOGICIEL 'APPLE WRITER', ET DE LES AFFICHER A L'ECRAN." (:"CETTE ROUTINE VOUS PE  B38B38bB1B1*l"ON ";:"";C$;vC$"?"2980JC$""620VC(C$)eC38C38rC1C1~A(A$)A1A1A38A38A,BC:::480 VLIN MODE "VLIN FROM ";A$A$""730A$"H"ė:480A$ :33)"PLOT":33,30*  HLIN MODE F :"HLIN FROM ";:"";A$U A$""480h A$"V"ė:730x A$"F"980 A$"P"2330 A$"E"2370 A$"Q"1190 &A$"?"2980 0"TO ";:"";B$ :B$""560 DB$"?"2980 NB(B$) XTION ^232,SS(SS256)2561 h233,(SS256)G rG(1445),SD(SN2)[ |SD(1)SS2SN2h :34,20  LOOP FOR # OF SHAPES SC1SN QQ(0) ::34,20: :"SHAPE #";SC:"T)URTLE OR L)INE MODE (T/L)";:A$:A$"T"2620 1:F0";:A$ A$""200! A(A$)2 A1A32008 ` A3ĺ(4);"RUN SHAPE INSTRUCTIONS"n A22430  GATHER DATA "17:"HOW MANY SHAPES IN THIS TABLE ";SN$ ,SN$""290 6SN(SN$) @SN0290 JSS10300 T POKE SHAPE LOCA203 A$"(C) 1982 BY MICRO-SPARC, INC.":11:2420> 34,13K MENU 15:1:"WOULD YOU LIKE TO"::" 1. BUILD A SHAPE TABLE":" 2. CALCULATE POKE VALUES":" 3. INSTRUCTIONS & DEMO" "TYPE THE NUMBER (1-3) OF YOUR CHOICE ->**********"* dI212:I:"*";40);"*":1 nIa x"****************************************" :A$" ":3:2420:5:2420 4::A$" THE SHAPE ":2420: 7:A$"APPLE II SHAPE TABLE UTILITY":2420 9:A$"BY: BILL FORTENBERRY":24 **********************; * THE SHAPE *X * BILL FORTENBERRY *u( * COPYRIGHT (C) 1982 *2 * BY MICRO-SPARC INC *< * LINCOLN, MA. 01773 *F **********************P24576 Z::"******************************  ĺA$;:868! xAC8QM1LC$""K AC8QM1ĭ((LC$,1))31ĺA$;:868j AC8QM1LC$(LC$,QM1)| AC13ĺ:QL2 ON EXIT LC$ IS UPPER/LOWER CASE STRING NPUT LC$"":UC0" QL1203 (A$:AC(A$)V 2(AC31AC65)AC90ĺA$;:UC0f <AC27UC1 FUCAC64AC91ACAC32:A$; PUCAC64AC91Ğ:A$;::UC0 ZAC27AC13AC8A$(AC):LC$LC$A$ dQM(LC$) nAC8QM1ĭ(LC$)31 ***********************= * LOWER CASE IN/OUTPUT*[ * BY BEN E. COLLEY *y * COPYRIGHT (C) 1982 * * BY MICRO-SPARC INC. * * LINCOLN, MA. 01773 * * ALL RIGHTS RESERVED * *********************** LC I  uȥuȌp`' ` `νԠŠ̽ԠŠéԍĠԮ q'q qqȌr rq( 锭q %L [ ,, q+puupLmɛ :L]"# `" [ Xɍ Lɍ %"`e`pM@ ީ" ޠ"i rrspq# [ %" [ X %" X q 锱ɍ ȱ q0'q LU 锭q  锠ɍ-`0)   $,2))ZS0ZS12ı6ZP1:ZR$"INVALID DATE":X ZS((ZN$,2)):ZS0ZS31ıv ZP1:ZR$"INVALID DATE":ZS((ZN$,2)):ZS0ZS99ıZP1:ZR$"INVALID DATE":Z1125:ZQ$(Z1)"":Z1:ZL$"":ZN$"":ZU0:ZG(ZA$(Z))10MERIC":'ZM(ZL$):ZM65ZM90ıBZP1:ZR$"NON-ALPHA":aZM(ZL$):ZM32ZM90ı|ZP1:ZR$"NON-CHAR.":ZM(ZL$)Z260162,60164,60162,60170,60162,6017423:15::ZR$:Z311000:Z3::23:868:ZS((ZNZL$"":ZN$"":ZU1:ZV(ZW$(Z1)):ZZ1:60180:60046<Z1r23:868:"INVALID OPTION":Z311000:Z3:60124x23:868:10:"INVALID SCREEN NUMBER":Z311000:Z3::ZP1:ZM(ZL$):ZM4760144ZM45ZM57ıZP1:ZR$"NON-NU60068Z2:'ZK$(Z)"N"İ60188?ZQ$(Z1)ZN$:Z1Z11JZN$""[ZU1ī60124bZhZU0:23:868:"OPT: FLD CHG#, R)ENTER, OR E)XIT ?";ZT$:ZT$"E"ıZT$"R"İ60178::60002Z11TPZC:ZF$(Z1)"D"ZT$ZW$(Z1)601324 600681ZP0:ZK$(Z)"N"ZK$(Z)"D"İ60140HZK$(Z)"A"İ60146_ZK$(Z)"C"İ60150qZP0İ60160ZP060068ZN$ZN$ZL$:ZK$(Z)"D"İ60154ZP0ī6011060160:ZO(ZN$):Z22ZN$""Z22ZN$(ZN$,ZO2)Z2Z21:Z2ZG):ZL$:ZL$;=ZM(ZL$):ZJ(Z)1ZM32Z21Z1Z11]ZJ(Z)1ZM32Z21ī60120xZM27İ60178::60002ZK$(Z)"D"Z21ZM13ī60112ZM860090Z21ī60068Z2Z21:ZO(ZN$)Z21ZN$""Z21ZN$(ZN$,ZO1)Z Z11Z1ZC'ZU160060=ZF$(Z)"H"60120XZV(ZW$(Z))Z1Z11qZV(ZW$(Z))60120ZU1ZV(ZW$(Z))60120ZF$(Z)"H"60120ZU1ZV(ZW$(Z))ZQ$(Z1)""Z21ZI(Z)ZG(ZA$(Z))10ZD(Z):(ZE(Z)1ZG(ZA$(Z))5'xZH$(Z)(ZA$(Z),ZG)EzZE(Z)0ZE(Z)(40ZG)2_|ZD(Z):ZE(Z):ZH$(Z)j~60044ZI(Z)((ZA$(Z),6,2))ZJ(Z)((ZA$(Z),8,1))ZK$(Z)(ZA$(Z),9,1)ZX(Z)((ZA$(Z),10,1))ZW$(Z)(ZA$(Z),11,2)60180`::Z2125:ZQ$(Z2)"":Z2:ZP0.bZA$(1)OdZA$(1)"END-OF-DATA"ī60138kf(ZA$(1),9)ZB$60002hZC((ZA$(1),2))jZ1ZClZA$(Z)nZD(Z)((ZA$(Z),2,2))pZE(Z)((ZA$(Z),4,2))rZF$(Z)(ZA$(Z),1)tZF$(Z)"D"60032v112N007-SS # ") N "D2105062D008-DOB "B X "D1728011A009-SEX"[ b "D1928011A010-M/S"o l "SCREEN#1004" v "H1000DECIMAL TEST SCREEN"  "D1510062N201-NUMERIC"  "D1710082N402-N 4 D "  "D1910082N003-N O D "  "END-OF-DATA""DDYY)"  "SCREEN#0112"7  "H0200TEST SCREEN # 1"V  "H0400PERSONNAL PROFILE"p  "D0705251C001-NAME"  "D0805252C002-ADD1"  "D0905252C003-ADD2" & "D1005252C004-ADD3" 0 "D1105052N005-ZIP " : "D1705081N006-PHONE" D "D1905T2$(K) TT3$(K) ^T4$(K)* hT5$(K)6 rT6$(K)B |T7$(K)N T8$(K)Z T9$(K)f TA$(K)m Ks   "SCREEN#0304"  "H1000TEST SCREEN # THREE"  "D1310042N201-NUMERIC"  "D1510042A002-ALPHA "  "D1710062D003-DATE (MM T4$(IX)ZQ$(4)& T5$(IX)ZQ$(5)9 T6$(IX)ZQ$(6)L T7$(IX)ZQ$(7)_ T8$(IX)ZQ$(8)r T9$(IX)ZQ$(9) TA$(IX)ZQ$(10) :23:"NEXT SCREEN NUMBER OR F)INISHED? ";X$ X$"F"ī310 "IXIX1 ,140 6:K1IX @T1$(K) J_ nZA$(25),ZD(25),ZI(25),ZJ(25),ZK$(25),ZE(25),ZH$(25),ZL$(25),ZF$(25),ZQ$(25),ZW$(25),ZX(25)h xIX1 :23:"NEXT SCREEN # ( 01, 02, 03 ETC.)";X$ ZB$"SCREEN#"X$ 60000 ZP1130 T1$(IX)ZQ$(1) T2$(IX)ZQ$(2) T3$(IX)ZQ$(3)Q*********************** * SCREEN BUILDING DEMO* * BY E.STEPHEN FREEMAN* * * * NIBBLE VOL3/N05 * ***********************dT1$(25),T2$(25),T3$(25),T4$(25),T5$(25),T6$(25),T7$(25),T8$(25),T9$(25),TA$(25)     YS MOVE THE CURSOR":"P-> TURN PLOTTING ON":"E-> TURN PLOTTING OFF":"PRESS RETURN";A$:%: "THE ESC KEY WILL ALLOW YOU TO 'BACK UP'":"AND ERASE ERRORS":"PRESS RETURN";A$:%D "Q-> QUIT DRAWING AND CODE THE SHAPE":"PRESS RETURN";A$::2730o"PRESS RETURN";A$$ w$ "P & E ONLY EFFECT THE POINT THE CURSOR":"IS RESTING ON, NO OTHERS!":"PRESS RETURN";A$:$ "Q-> RETURNS YOU TO THE HLIN MODE WITH":" PLOT ON":"PRESS RETURN";A$:$ 1000$& TURTLE MODE HELP [%0 :"I,J,K,M KET ON (DRAW LINES)":"E-> TURNS PLOT OFF (ERASE LINES)":"PRESS RETURN";A$:# "Q-> QUIT DRAWING AND CODE THE SHAPE":"PRESS RETURN";A$::2330# FREE CUR HELP # $ "I,J,K,M KEYS MOVE THE CURSOR":"P-> PLOT A POINT":"E-> ERASE A POINT":" LINE MODE HELP "" 33,40:" "V-> DRAW VERTICAL LINES":"H-> DRAW HORIZONTAL LINES":"F-> ENTER FREE CURSOR MODE":"PRESS RETURN";A$:" "DRAW LINES BY GIVING THE ENDPOINTS AND":"LEVEL TO DRAW ON":"PRESS RETURN";A$:L# "P-> TURNS PLOY !, 27302!6 CZX,Y):ZC:XX,YY:15:X,Y:ZCCZU!@ P1G(Z1)G(Z1)4:1:XX,YY_!J 2730n!T Z0ZZ1}!^ Z02730!h G(Z)12940,2950,2960,2970,2940,2950,2960,2970!r 15:X,Y:0:XX,YY:2730!| YY1:! XX1:! YY1:! XX1:0G(Z)3:ZZ1:F0:XX1:2870L A$"K"X39G(Z)1:ZZ1:F0:XX1:2870 A$"I"Y0(F0P1)G(Z)0:F1:ZZ1:YY1:2870 A$"?"3110  A$"E"P0:2730  A$"P"P1:2730  A$"Q"G(Z)10:ZC:X,Y:1650!" A$(27)2900: ESC KEY0YY1!x A$"M"Y39YY18 A$"K"X39XX1N A$"J"X0XX1X 2650l P1:ZC0:34,20 XXX:YYY::"X=";X;" Y=";Y P1Ğ:"PLOT ON"::2760 "PLOT OFF" A$ A$"M"Y39G(Z)2:ZZ1:F0:YY1:2870 A$"J"X1))48 Y116Y1Y17) YYY116I/( 52 I< TURTLE MODE F :34,20::"MOVE DOT TO START & PRESS 'P'":34,21P Z1:X20:YX:XXY:YYY:TM1Z 0:XX,YY:15:X,Y:XXX:YYY::"X=";X;" Y=";Y:A$d A$"P"SXX:SYY:2720 n A$"I"(Y256)256:Z(Y256)a :"USE THESE POKES IN YOUR PROGRAM BEFORE YOU DRAW YOUR FIRST SHAPE" :"POKE 232,";X:"POKE 233,";Z  23:1:"PRESS RETURN";:A$:90 HEX CONVERTER  Y0:Z0 I(X$)101 ZZ1 Y1((X$,Z,33,40: L 33)"ERASE":33,30'V 02` :480Ej CENTER SUB [t 21(A$)2:A$:n~ POKE CALCS  19:"START HEX NUMBERS WITH A '$'" 17:"WHERE WILL YOU PUT THE TABLE ";X$ Y(X$) (X$,1)"$"X$(X$,(X$)1):2540 XY:"TABLE LENGTH IS ";SD(SC)SS1; SHAPE LOCATION c:"SAVE SHAPE WITH THIS COMMAND -"i"BSAVE ";::"FILE NAME";::",A";SS;",L";SD(SC)SS1  PLOT & ERASE SUBS  33,40::$ 33)"PLOT":33,30. 18 :480B  `L41 _Hm1n1hɍL0 >">>""">>> >""">>">><>""> >>""""  IIII>"""">""">>"">>""> >">> >><$$$$<"""AIII"""""> >>>67 L6 J ?Ɍɍ LΑN8       ͓  ?` `8Р"BRUN LISTER.O"8 6,:(18);(9);"I";:D$;"PR#0":1,5 1:S(4);"OPEN LISTER":(4);"WRITE LISTER":33,33:1,5:"RUN":(4);"CLOSE":::"INPUT FILE - 32 CHAR MAX, 1 CHAR MIN ";A$:A(A$):A32A11D$(13)(4):930,A1:I0A1:931I,((A$,AI,1)):D$;"PR#1":(15);(9);"127N" D$;E PHRASE (CTRL-J) 2EME PHRASE"6LA TOUCHE <- A TOUT MOMENT":? 2"INCREMENT INITIALISE A DIX"E 7j <"INCREMENT A 5 PAR POKE 842,5" F"INCREMENT A 20 PAR POKE 842,20" K P"POSSIBILITE D'UTILISER CTRL-J (POUR EVITER DES HTAB, VTAB & PRINT" U90:' Z"EXEMPLE: 1ER) ********************7 * AUTO-NUMBER DEMO *R ********************o(4);"BRUN AUTO-NUMBER"u :"AUTO-NUMBER":::"BRUN AUTO-NUMBER"#("CTRL-Q (ON/OFF)" -"PRECISEZ LE 1ER NUMERO DE LIGNE (MODI- FIABLE PAR 1E101E11 (I)'20,12'$ ID :"END OF DEMONSTRATION":o :"PRESS ANY KEY TO CONTINUE":C$::  I720 (1234.56)'I,2'- I:1000I ,:"COLUMNS OF NUMBERS"a 1I50050070.0625 6(I)'10,4';" ";(II)'10,2' @I:1000 :"LARGE VALUES": I1E101E121E11 (I)'20,2' I:1000 :"SMALL VALUES": I1E12WIN":5:"COPYRIGHT (C) 1982":5:"BY MICRO-SPARC INC"\ k20:5::"LOADING ROUTINE"::19{ n(4);"BRUN PRINT USR)ING" s1000 "VARIOUS NUMBER OF DECIMALS": I010 (1234.567891234)'20,I' I:1000 :"VARIOUS FIELD WIDTHS":q **********************; * *X * PRINT USR)ING DEMO *u * * * NIBBLE VOL3/N06 * * * **********************6 i:10:5:"PRINT USRING DEMO":5:"BY JOHN BALD    I `ayLqHɵrims`aiȱȄ詷 ,詷 `iHhLꢩLҦL LH6>7?8t9u:6C87H>6?7t8u9h` # LLpPi Qi $$$bD(Ƒ(`HpDh # H,0 ,0 :hɑ I6Ɋ  :L ɍI pD`L Ӯ   ʽ8     𴩭 ʽ ) `$U .t s L 8sstt i/ i ` + 8'- g 抍  L犍 ' ޭ 8 ` 8    9  #  + U # + 9 륡     ʊ   E ) IJAN*1900Y: END YEAR3/12: END PERIOD=DEC?4N112R9A(I)0ĺTL(N)l>A(I)0ĺBAL(A(I),N)sCNzHIMD$;"CLOSE ";F1$R:"DATA FILE ";F1$;" SAVED"W"HIT RETURN TO CONTINUE";X$\::10500: RETURN TO MAIN MENU(A(16ROUTINE D$;"WRITE ;F1$8 AC: OUTPUT # OF SERIESY I1AC: OUTPUT EACH SERIESw A(I)0ĺ"MONTHLY TOTALS" A(I)0ĺ(N$(A(I)),(N$(A(I)))4) 12: # OF DATA POINTS 12: PERIODICITY 1900Y: START YEAR%1: START PERIOD= lAC2ĺ12! qI12:N1127 vN:A(I)0ĺTL(N)Q {A(I)0ĺBAL(A(I),N)X N_ It D$;"CLOSE ";F1$ :"DATA FILE ";F1$;" SAVED" "HIT RETURN TO CONTINUE";X$ ::10500: RETURN TO MAIN MENU D$;"OPEN ";F1$: VISIPLOT DUMP 0 FF12(AC1AC16)4420) II1ACT N"ACCOUNT #";A(I):A(I)0A(I)244430[ PI S4200:S10: GET DATA FROM TRAC FILES X868::"INPUT FILE NAME TO STORE DATA:";F1$ ZF124600 ]D$;"OPEN ";F1$ bD$;"WRITE ";F1$ g12:AC1ĺ0ɍ ԲΠύč<$<?!###?!##??!#?!!###????!9##?!!?!### 001! ##??IIIKKK')))++3?!!!##??!!??!!)+/?!!?##??00?? !!!###?!!##"AAIIKK! !!!!!? ?? @< <6c66$""""">> >c"c  . 8 LLL80> @ ? ??|||x `@@~B@x  4,221,96,0 I4,221,96,0 H,16,16,10,0,0O  0,7,16,2,16,16,16,16,16,2,0,0,0,0,0,2,0,12,8,3,3,11,0,16,16  16,169,15,32,100,248,162,0,160,2,140,213,64,189,216,64,201,16,240,20,10,141,212,64,172  213,64,32,0,248,238,212,64,173,212,64,201,32,144,243,238,213,64,232,224,35,14,37a  144,216,32,251,64,169,20,133,37,32,34,252,32,66,252,169,2,133,36,169,176,32,237,253,169  19,133,36,169,196,32,237,253,32,142,253,169,0,133,8,133,9,162,34,189,216,64,24,101,8  133,8,165,9,105,0,133,9,202,16,239,96,32,37,16,35,16,16,16,160,140,214,64,76,18,64,173,80,192,173,86,192,173,83,192,32,54,248,169,2,141  213,64,169,0,141,212,64,169,2,32,100,248,173,212,64,172,213,64,32,0,248,24,173,212,64  105,1,141,212,64,201,32,144,234,169,0,141,212,64,24,173,213,64,105,1,141,213,64,201162,8,160,0,140,214,64,140,215,64,177,6,10,176,3,238,214  64,202,208,247,162,8,200,177,6,10,176,3,238,214,64,202,208,247,174,215,64,173,214,64,157  216,64,238,215,64,173,215,64,201,35,240,23,24,165,6,105,4,133,6,165,7,105,0,133,7J  162,8,160,( P10:7:"ATTENDEZ QUELQUES INSTANTS"D Z(4);"VERIFY DISK MAP"a dI0299:A:16384I,A:l n16384 xA(9)256(8) :7:"SECTEURS LIBRES";::" = ";560A:7:"SECTEURS OCCUPES = ";A 20:A$ :8  169,243,133,6,169,179,133,7,   ************************? * << DISK MAPPER >> *^ * BY JAMES O. CHURCH *} * COPYRIGHT (C) 1982 * * BY MICRO-SPARC INC * * LINCOLN, MA. 01773 * * ALL RIGHTS RESERVED * ************************F       PHRASES SUPPRIMEES, MODIFIEES, 4 2" AJOUTEES." CONTRAIRE 'EXEC CAPTURE.I' (INTEGER)." ("3) FAITES 'RUN 63999' (32766 INTEGER) 4) PUIS RENOUVELLEZ CES OPERATIONS POUR LE NOUVEAU PROGRAMME 5) ET ENFIN 'RUN COMPARE PROGRAMS' QUI EDITERA SUR IMPRIMANTE LES 6K ::"----------------":"COMPARE PROGRAMS":"----------------":::z"PROCEDURE POUR COMPARER 2 PROGRAMMES:":/ "1) CHARGER L'ANCIEN PROGRAMME 2) S'IL S'AGIT D'UN PROGRAMME APPLESOFT FAITES 'EXEC CAPTURE.A', ET DANS LE CAS MOD1:1640* **** PRINT **** 6K1NF>$SPZ.T$(K);:(SP14):P$(K)e8K::B **** REVIEW/EDIT DATA **** LMOD0:RX0:(8)1İ190VD$;"CLOSE ";FILE$`REC0710jRD$"1":34,0::3:(21(FILE$)2)::FILE$:34"::RXRECKRD$(RX)"":KK1NF:RD$(RX)RD$(RX)P$(KK):KK:150:RD$(RX)YRX0:150bRECrD$;"CLOSE"I1NF:P$(I)"":RECREC1:790D$;"CLOSE"RECREC1:4801:260(7NF):(1(NF10)):NF1;". ";::"A-B-O-R-T":4BN1:260:I1NF:P$(I)"":,>IN1NF:HBN0:YINDR1720]\IN1PY$(13)1000rf23:1:958:INp22:958:22:14:"CORRECT (Y/N) ";G$;:Y$:Y$;z21:958Y$"N"1020Y$"Y"880 22:1:958:13::" FILING RECORD RECNR1ė:12:5:NR;" RECORDS MAXIMUM FOR THIS FILE";G$;G$:22:10:"HIT ANY KEY FOR MENU ";:A$:RECREC1:480 34,4::(13(REC10)):"RECORD # ";V1$;" ";::REC;::" ";V2$:34,6:MOD0*24:9:"PRESS ";::"RETURN";::" NOW TO QUIT";:8:1TA **** RX0:(8)1İ1906D$;"CLOSE ";FILE$RECREC1:RECNRė:12:"THIS FILE ALREADY CONTAINS ";NR;"RECORDS";G$;G$:14:9:"PLEASE OPEN A NEW FILE ":D12500:DRECNRRECREC1:480 34,0::3:(21(FILE$)2)::FILE$;:rY720,740,1100,1950,2930,4130,472034,0::12:3:"THIS FILE HAS ONLY BEEN INITIALIZED"::9:"AND CONTAINS NO RECORDS";G$:22:"--":D12000:D:480 **** INITIALISATION DE FICHIERS **** D$;"RUN INITIALIZE ARC"  **** ENTER FILE DAl(8)0Y1Y7Y$(27)600:v(8)0Y1Y7660nY$(27)Ĺ8,1:21:5:"FETCH FILE ":110w6002Y2:9:Y;V2$;" ";::M$(Y):(8)1Y1Y7āD1300:D:360D1500:DNBY **** AIGUILLAGE **** "2K2):8:V1$;K;V2$;" ";M$(K):KCD21:5::FILE$;::16368,0iN(8)600:21:5:" TO LOAD"X21:23:"CHOICE : ";G$;V1$;" ";V2$;H$;H$;::Y$:Y$:Y(Y$)]Y8ĉ:D011:12D:1:868:12D:1:868:Q1100:Q:D:bY1Y7660!91):V2$(93)340F2:6::"T H E A.R.C. S Y S T E M"::\K1V1:M$(K):K& INITIALIZE NEW FILE,ENTER FILE DATA,REVIEW/EDIT DATA,FIND/DIAL DATA0 SORT/PRINT DATA,PURGE/PACK DATA,MERGE/SORT FILES5 END OF A.R.C.":K1V1:():TV%(K):K' D$;"CLOSE ";FILE$BC$Q RD$(NR),SRT$(NR),SO%(NR),C%((NR4))W t D$;"OPEN ";FILE$",L";RL D$;"READ ";FILE$",R0"  34,0:35,24:  **** MENU **** V18:B$" " BC$(2):D$(4):G$(7):H$(8):V1$(";:38:"*":K:k h:3:D$;"CATALOG"::16368,0::"ENTER FILE NAME";G$;::": ";FILE$:(FILE$)0ī480 r:12:(13(FILE$)2):" LOADING ";::FILE$;::" FILES" |D$;"OPEN ";FILE$BC$ D$;"READ ";FILE$BC$ NF:RL:NR K1NF:T$(K7:D1NF, (1(D10)):D;". ";T$(D);" ";\ 16::" ";::" ";:l "D:868:7x ,BN1ı 6D1NF @(1(D10)):D;". ";T$(D);" ";:16::P$(D): JD: T23:K138:"*";:K::1:K138:"*";:K: ^K122:"*::" TO QUIT ";:35,22:? 3:(20(AA$)2)::AA$::H 8,2e D$;"OPEN ";FILE$",L";RL D$;"READ ";FILE$",R";RX:REC:REC0240 RECNRY2Ĺ8,0:FILE$"":240 R1REC:D$;"READ ";FILE$",R";R:RD$(R):R 7:958:  n(4);"MAXFILES 1":D$(4)3 sD$;"NOMON C,I,O"P x1013,76:1014,2:1015,3{ T$(13),TV%(12),P$(12),TX$(12),TW%(12) 255:SX6:DX1:FIN0:SP25:490 D$;"OPEN ";FILE$",L";RL D$;"WRITE ";FILE$",R";RX: 5:" PRESS ";::"RETURN";@ *********************9 * *U * THE A.R.C. SYSTEM *q( * *2 * NIBBLE VOL3 / N06 *< * *F *********************K5000P(4);"BLOAD SEARCH ARC"Z8,0d:!! ! ! ! ! !!!!!!!!!                    E":1080:0 == PRINTER ON AND OFF6$:G.D$;"PR#1":X8D$;"PR#0":ATING EXEC FILE1 == AND STATEMENT IS DELETEDQ == STORE STATEMENT NUMBERW:dCK%0ı~D$;"WRITE";C$:(J$)D$;"READ";C$:: == END OF BOTH FILES REACHED== SO PROGRAM ENDS::"END OF COMPARAISONS":D$;"CLOS'(OS$)NSĺ"DELETED:":J$OS$:380R "DELETED:":240:J$OS$:380:950:800X*:w4 == IF CREATING EXEC FILE> == STORE CHANGED OR ADDEDH == LINE.R:\CK%0ıfD$;"WRITE";C$:J$pzD$;"READ";C$:: == IF CRE10:860:500:0 == WHEN A FILE IS EMPTYM == DETERMINE WHICH ANDl == ALL IN REMAINING FILE == ARE EITHER ADDED OR == DELETED.:X(218)(219)256:216,0:1020X310790 "ADDED:":310:J$NS$:380:860:780E WAS DELETED.X == PRINT FACT AND GET NEXT4b:tl(OS$)(NS$)ĺ"DELETED ":5);:J$OS$:380:240:950:500zv: == IF NONE OF ABOVE THEN == NEW LINE IS ADDED. == PRINT FACT AND GET NEXT.: "ADDED ":5);:J$NS$:380:3 == IF STATEMENT #S SAME BUTE == CONTENTS NOT PRINT "CHANGED"e == AND GET NEXT STATEMENTk&:0(OS$)(NS$)OS$NS$ĺ"CHANGED ":5);:J$OS$:380:"TO:":5);:J$NS$:380:860:450::D == IF OLD LINE# < NEW THEN N == OLD LIN12);(J$,IO,LL):II(J$)390$ * :E  == MAIN PROGRAM LOOPK :k D$;"OPEN";O$:D$;"OPEN";N$y 240:310 :  == IF STATEMENT # SAME AND  == CONTENTS SAME IGNORE : OS(OS$):NS(NS$):(OS$)(NS$)OS$NS$450 :: :+  == GETS A STATEMENT FROM THE? " == "NEW" FILEE ,:^ 6NS$"":D$;"READ";N$ @A$:A$(13)(NS$)0ĭ(NS$)255NS$NS$A$:320 J: T: ^ == PRINTS A STATEMENT h == IN LL LONG LINES r: |II0 IOII1:IIIILL:EXEC FILE: ";C$:D$;"OPEN";C$:D$;"DELETE";C$:D$;"OPEN";C$R 1070: PRINTER ON\ 760e 440k : == GETS A STATEMENT FROM THE == "OLD" FILE : OS$"":D$;"READ ";O$ A$:A$(13)(OS$)0ĭ(OS$)255OS$OS$A$:250 NGE FILE( == IF ONE IS TO BE CREATEDz D$(4):"OLD PROGRAM TEXT FILE NAME: ";O$:"NEW PROGRAM TEXT FILE NAME: ";N$ 12:"MAKE AN EXECUTE FILE OF THE CHANGES? (1=YES, 0=NO)--PRESS RETURN ";CK%:CK%0CK%1ĺ(7);:150; CK%1Ą"NAME THE TED ON A SINGLE LINE IS;  == SET BY LL IN THE STATEMENTK ( == BELOW._ 2D$;"MAXFILES4"i <LL50t F::5z P: Z == ENTER THE NAMES FILES TO BE d== COMPARED--MUST BE TEXT FILES n== CREATED BY EXEC OF CAPTURE x== GIVE NAME OF CHAZ  **********************; * APPLESOFT COMPARE *X * BY CHARLES BOODY *u * COPYRIGHT (C) 1982 * * BY MICRO-SPARC.INC * * LINCOLN, MA. 01773 * ********************** == LENGTH OF PROGRAM LINE TO BE  == PRIN" " " " """"""""q ߅ȱHȱh ߅ ȱHȱ h8`"