' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL]浍국絍뵍䵺L 鷎귭෍ᷩ췩緈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)*++`FG``0($ p,&"_]` L/  !"#$%&'()*+,-./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#0EB 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`   vLDcpq` [` ~  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 iõ`  \ 濭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-(D 0Ϡ@跻~!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䵍䵐`"L ŵ8ŵH ~(`F d ֠z# u`z#     Ϡ Р 7"TD$;O1$"SYST.CTRL,S6,D1"5^D$;R1$"SYST.CTRL"@hNC,EMbrI1NC:LB$(I),TP(I),LL(I):n|I010L$"":A$,R(I),S(I),D(I):R(I)L$",L"(R(I))O$(I)O1$A$L$",S"(S(I))",D"(D(I))R$(I)R1$A$B$(R(I)0)W$(I)W1$A$B$(luI010:A$:A$","R(I)","S(I)","D(I):@vuD$;C1$"SYST.CTRL"Fu[READ DB-CONTROLiˆD$;O$(2)ẅD$;R$(2)ֈNX,EA,FL,PT,CN,DFI14ꈄIA(I,0),IA(I,1),IA(I,2)D$;C$(2)@READ SYSTEM CONTROLJB$(0)"":B$(1)",Ra18:"STAMPANTE (S/P)? ";A$:PT04aA$"S"PT1[a"NUMERO COLONNE? ";A$:CN((A$))fa25000q b42000wb0uWRITE SYSTEM CONTROL:uD$;O1$"SYST.CTRL,S6,D1"DuD$;W1$"SYST.CTRL"NuNC","EMXuI1NC:LB$(I)","TP(I)","LL(I):bu)1OD$;C$(5)$OFL1:DF0(.O4200038O40000F=OR(6)LR:30000LBO`aPRINTER PARAM.}a:12:"STAMPANTE TIPO:"a5:5:PTĺ"PARALLELA";:25030a"SERIALE";a20:"DA "CN" COLONNE"a15:20:"MODIFICHE? ";A$:(A$,1)"S"25100#3000fNWRITE LINK CONTROL*pND$;O$(3)8zND$;W$(3)@NNCLNI1NChNLB$(I)","TP(I)","LL(I)nN|ND$;C$(3)NINITIALIZE ENTRY FILEND$;O$(4)NI0EMND$;W$(4);IN0NND$;C$(4)ND$;O$(5)OD$;W$(5);0O";A$:D(P1)(A$)*=23:"MODIFICHE? ";A$<=A$"S"15730B=\ NCREATE NEW LINK FILE*N:9:"SLOT "S(3)" DRIVE "D(3):P13:15700:I46:S(I)S(3):D(I)D(3):/N30000:400004NNC0:NM8>NI1NMHNLB$(I)"":TP(I)0:LL(I)0RN\N60:NX :I14 :I" "LB$(IA(I,0));:15:"S"S(I6)" D"D(I6);:IA(I,2)Ė22:"NON"; :" AGGIORNATO": :12:" 1 CANCELLAZIONE" :" 2 CREAZIONE" :" 3 FINE" ::"QUALE ? ";A$:A%(A$) IX$(R):IX%(R)IX%(1):IX$(R)IX$(1):RR1I R1IX%(1)IA%:IX$(1)IA$:Q JL_ !IJ:J2J &JRIX%(I)IA%:IX$(I)IA$:520 +JRĭIX$(J)IX$(J1)JJ1 0IA$IX$(J)IX%(I)IX%(J):IX$(I)IX$(J):545 5IX%(I)IA%:IX$(I)IA$:520 :INDEX MT*********************7* A P P L E I I *R* *m* D & V PRODUCTIONS ********************** 60000HEAPSORTNX1ıL(NX2)1:RNXL1LL1:IA%IX%(L):IA$IX$(L):540( IA%IX%(R):IA$           :IA(FI,1)! vNLı:NON TROVATOT P((LN)2):A$IX$(P):FIĺR$(FI6);P:A$:D$w (KM$,LK)(A$,LK)NP1:630 (KM$,LK)(A$,LK)LP1:630 F1::TROVATO READ DB FIELDS NIX%(P):FIĺR$(FI6);P:A$:N R$(1);N:J0 READ 5"MAXFILES 6" 60000=d************************[e*** A P P L E I I ***yf** D & V PRODUCTION **g** PERSONAL DATA BASE **h************************XBINARY SEARCHbF0:L1:NNX:LK(KM$) lFINIV:LKIA(FI,1)LK                   Ϡ Рz#? ^I1NC$hI5:868:I10Ė25rI;"'CAMPO";R|10:LB$(I)""ĺLB$(I);a10:"";A$|A$""LB$(I)""63080A$""LB$(I)A$(LB$(I))9(LB$(I))1LB$(I)(LB$(I),9):63080I5:10:LB$(I)I5:20:868TP(I)1Ą22:"SICURO? ";A$)~(A$,1)"S"62560=I02:D(I)A:HSETUP[,:18:"SETUP"613:"QUANTI CAMPI? ";:NCĺNC;;" ";A$:A$""NC((A$))@NCNMNC163020J2:27:868:NCT4:11:"NOME";:21:"TIPO (A/N)";:35:"LUNGH."R1$"READ "W1$"WRITE "0C1$"CLOSE "=RS22000JRF16000P`$FIRST TIMEh.:z8I010:A$:BI010:R(I):LI010:S(I):VI010:D(I):`9:9:"DATA BASE SU DRIVE: ";A$:A(A$)jA1A262560t:I460510)I15000,20000,25000,61000460510NHRITORNO AL DATA BASEZRD$;C1$p\D$"RUN DB,S6,D1"0VARIABLE INIT:D$(4)DT$" "NNM14XTP(NM),LL(NM),LB$(NM),LD(1),ID(4,2)bFR$(95)O1$"OPEN "YIX$(EM),IX%(EM)9^:10:"RICONFIGURAZIONE SISTEMA"@h5ar" 1- CREAZIONE NUOVI INDEX"|" 2- CREAZIONE NUOVO FILE LINK"" 3- CONFIGURAZIONE STAMPANTE"" 4- RITORNO AL MENU' PRINCIPALE"15:10:"QUALE? ";A$I(A$) I1$"DELETE MST.INX"(D$"DELETE MST.FL"360090H(222)963900T륫60460bD$;O$(0)pD$;O$(1)zII1D$;R$(0);IA$D$;R$(1);IA$"216,0:60280,(222)5639006D$;C1$@60380T MAIN MENU SETUP0AdHnII1xD$;C1$:EM(RF(LL(1)5)):EMIEMI:22:"BUONO!"22:9:"NUMERO MAX DI RECORDS: "EM23:31:"";A$(A$,1)"N"İ30000:42000:60500(A$,1)"S"60290D050~40000:35000 60500.START UPC(222)563900N216,0Y62500rR(0)LL(1)6:R(1)LR}300004000042000WRITE MASTERS22:9:"QUANTI RECORDS? ";A$:A(A$)륫60360D$;O$(0)(D$;O$(1)2IR(I)0)C$(I)C1$A$5œD$;C1$"SYST.CTRL";̜XWRITE DATA BASE CONTROLfD$;O$(2)t$D$;W$(2).NX","EA","FL","PT","CN","DF8I14BIA(I,0)","IA(I,1)","IA(I,2)LVD$;C$(2)``MAIN SET-UPj62000tꥫ60:EY%(I)NXI+]EANXIEY%(I)IX%(NXI)1]7]CaDELETEZaFIĺC$(FI6):FI0baC0{aI019:EY$(I)FR$:aCA1:30000aKM$""25200aCM1:J0::15000a22:"CONFERMI? ";A$aA$"S"25040b26000 bC19İ25500:250K1:20080 $O2500:3000:20002.OC$(1):O$(1)88ONYCHECK DOUBLE KEY_YKM$RV$(1,0)}YI1NX:IX$(I)KM$23040Y:A$"S":Z22:868:"CHIAVE GIA' ESISTENTE!" Z868:"CONFERMI? ";A$Z]INIT ENTRY]I125 ]EY$(I)FR$(I,0)"":N15000 N23000>N(A$,1)"N"KK1:20210PNW$(1);EY%(K)kNI1NC(0):RV$(I,0):sND$}N3100N23:868:"ALTRI RECORD? ";A$N(A$,1)"N"20260ONXKEMİ59000:20260OK25İ2500:3000:2000:24000:K0 OK15120 t;~;15065*(> NOT FOUNDG Fı_ 3:15:"NON C' E'"q 8:22:58000y : READ SYSTEM CONTROL B$(0)"":B$(1)",R" O1$"SYST.CTRL,S6,D1" R1$"SYST.CTRL":NC(0),EM I1NC(0):LB$(I,0),TP(IV-O)NPė:L1:42300)*)DB-V-V6)NPL1E):42900:S)TLINK-V-Oo)^NPĢ5:958:L5:42300u)h)LINK-V-V)¡5:958:42900:L6:)END PAG)&NP0:L1ı)0RA20(LP25(NC(J)O%(0,J))T(J))S*:4J2ST(J)41610,4170(5);K:K:D$:K408007()(16384)155A$EC$:40800b(.R$(6);K:800:SL(J)İ42500:SE40740m(840700(`41000:43500:T(1)A$EC$Sİ42700(j42800:NP1:L1(t((HEAD(24J2ST(J)41200,41100,41200,41300,41400,41100,41200)DB-NK 'J1:R$(4);N:K:D$:KıE'SE1:R$(6);K:800:SL(J)İ42500V'SENP40700'SENP1:2ST(J)141300,41400,42300,42900:40710'R$(5);K:K:D$:(16384)155K40620''41000'43000'42000'41500:PEL40800($R$600 &'&Н(V%(0,0)V%(0,1))40500A&ڝFLT(0)1:42800:L1M&䝭T(0)ėY&NPL1&J0:43500:J1:J1NC(J)1:TT(I,J)TT(I,2):& V%(0,1)İ41500:T(J)1::43500&442800&>D$"PR#0":A$EC$SĢ23:58000&H16368,0&R'LIST LI$(NP,0):KM$""İ600:Fİ3500'%SLPG%̜KM$MA$(NP,0):600:Fİ3500U%֜ELP:NP1w%SĺD$"PR#1":PTĺCI$;CN;"N"%lPSLEL:(16384)155PEL:A$EC$:40370%v700:SL(J)İ42500:SE40370%41000%43000%42000%41500&FLİ40IL $C$(5)/$Ԕ:15:"DISCO PIENO"::58000>$DF1:2000I$216,0O$Y$@LISTn$J:9:9:M$;:A$$^A$"S"İ47000:40000$h:9:9:"STAMPA? ";:A$::$rCL40:S0:A$"S"CLCN:S1$|49800$NP1(FI0)(IA(FI,0)1)%P1:KM$MID1:SL(1)1#DFDF0:2000/#R$(5);RA:A>#R037310S#W$(5);R0:37320`#W$(4);Ng#ȑAu#ґW$(5);RA}#ܑDL#DLRA#W$(4);0#DL#5:958:RAR0#D$#R037040#"#pDISK FULL#zILIL1#O$(5)$W$(5);0:15000"FM37140#"W$(6);RA>" I1NC(1):RV$(I,1):b"D$:20:958:"E)XIT D)EL."""(RETURN PER CONTINUARE) ";:A$:"(A$"E"ı"2A$"D"FD37250"d[eMERGE DELETE INTO ENTRYfeI0CeEY$(I)IX$(P)Ă:26070eEY%(I)IX%(P)ıeN18I1eEY$(N1)EY$(N):EY%(N1)EY%(N)eeEY$(I)IX$(P):EY%(I)IX%(P)eCC1:20 *b25040pb25500#zbC$(1).bO$(1)MbFLāI46:C$(I):O$(I):`bEY$(0)"":CA0fb|c PHISICAL DELETEcCıc:10:"RECORD IN CANCELLAZIONE":cI0C1:EY$(I):c:"CONFERMI? ";A$cA$"S"ıcI0C1cNEY9MAIN MENU.9:11:"PERSONAL DATA BASE"Z93:"RECORDS PRESENTI IN ARCHIVIO ";NX9"MAX RECORD POSSIBILI ";EM96:10:"FASI DI ATTIVITA':"98:" 1- INSERIMENTO"9" 2- CANCELLAZIONE"9 " 3- RICERCA E/O MODIFICA":" 4:84˭PLFLFL 8>˭FLİ10000&8H˱98WAIT KEYBOARDS8"PREMERE RETURN ";A$Y8j8xOVERFLOW DB8:15:"NON VI E' POSTO PER ALTRI RECORD"85800088`TEST FIRST TIME8j620008tꥫ604008~1000815008216,0810500027tǺI" ";LB$(IA(I,0),0);:IA(I,2)Ė20:"NON";H7~ǖ24:"AGGIORNATO"N7ǂn7Ǣ10:"QUALE ? ";A$:A%(A$)~7ǭA%FI0:7ǭA%4IA(A%,0)0510907FIA%7ǺO$(FI6)7ǺR$(FI6);0:IV:D$7DZ7 ˲GESTIONE FLAG LINK8*˭PLFLāI46:C$(I)J)A(1L%(I,J))O%(0,J):V%(I,J)V%(0,J)>6T(J)(CLL%(0,J))R6Â:FLST(0)16 NC(2)NC(1):J0FL2:I1NC(J)1:TT(I,J)0:I,J6ñ68DzCHANGE INDEX6BǭFIĺC$(FI6)6VǗ:15:"INDICI POSSIBILI"::"0 ";LB$(1,0)6`ǁI147jǭIA(I,0)5108­MI$(I,J)""MA$(I,J)FR$SL(J)185­I%(I,J)49890u5L%(I,J)LL(I,J):L%(I,J)(LB$(I,J))L%(I,J)(LB$(I,J))5AAL%(I,J)15­V%(I,J)V%(0,J)15­O%(I,J)O%(0,J)15‚5LB$(I,J)"TOTALE":TP(I,J)2:LL(I,J)10(6L%(I,J)LL(I,J):L%(0,1NC(J),44I:11:MI$(I,J)""ĺMI$(I,J)R44I:26:MA$(I,J)FR$ĺMA$(I,J)X4л^4ڻq4hFIELD DISPLAY4rI1NC(J)4|4I:9(LB$(I,J)))LB$(I,J)444²INIT LIST VAR.4J0FL:SL(J)0:A0:V%(0,J)0:O%(0,J)04I1NC(J)%5$(I,J))4602033*3MAIN SELECT53S12A3J0FLT3S48000,45000i321:20:M$;:A$3ʷA$"S"ĴS46000,44000:470303ԷA$"N"470403޷J,S3跱3SELECT DISPLAY3:20)"SELEZIONE"317:"DA"14)"A"3490004I$&2γA$EC$MI$(I,J)"":15):46060N2سA$CR$ĺA$;:"";B$:MI$(I,J)A$B$e2쳢4I:25:" ";:A$2A$EC$MA$(I,J)FR$:868:461002A$CR$ĺA$;:"";B$:MA$(I,J)A$B$FR$2 TP(I,J)1ĭMI$(I,J)MA$(I,J)46020 3TP(I,J)2ĭ(MI$(I,J))(MAATO"%1毺:20:LB$(NM,J)5)LB$(NM,J)N111:"LISTA VERTICALE ORIZZONTALE"Y149000w1I1NC(J):I%(I,J)4509014I:13:"X";1V%(I,J)Ė23:"X";1O%(I,J)Ė34:"X";1":1,1INPUT SELECT CRITERIA1I1NC(J)2ij4I:11:AI%(I,J)0:"X";-0I%(I,J)TP(I,J)1441209023:A$\0&A$EC$V%(I,J)0:" ";:44090y00A$CR$V%(I,J)1:"X";0:34:A$0DA$EC$O%(I,J)0:" ";:441200NA$CR$O%(I,J)1:"X";0X:0b0ȯDISPLAY LIST CRITERIA1ү:18);"FORMİ42000/I1NC(J)19/V%(I,J)RV$(I,J)(TT(I,J))?/ J/42000/JāI1NC(J)1:TT(I,2)TT(I,2)TT(I,J):TT(I,J)0:/(/૲INPUT CRITERIA/꫁I1NC(J)/4I:13:A$/A$EC$I%(I,J)1:868:V%(I,J)0:O%(I,J)0:441200A$CR$CALCK.O%(0,J)A0:I1NC(J):AA(RV$(I,J))O%(I,J)::RV$(I,J)(A). V%(0,J)āI1NC(J)O%(0,J):TT(I,J)TT(I,J)(RV$(I,J))V%(I,J):..쩲LIST TOT.V%(0,J)ı.I1NC(J)1:RV$(I,J)"":V%(I,J)RV$(I,J)(T1$,L%(I,J))/:T(J)(I,J)):C(MA$(I,J)):A(MI$(I,J))A(C1E37(C))ı@-,:SE1F-6Y-̦WAIT KEYBOARD-֦A$EC$Ģ23:"ESC O RET? ";:A$::20-ভA$EC$PEL1-ꦱ-0FORM FEED-:L2Sı-DLP99āLLLP1:(10);:-LINE FEED-" ":LL1-. ,(,