' +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- ( eB Ϡ@跻~!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`ٍ֬ؠ占ҩ٠ӠՠàҠ򠠠ŠЍàҫŠЍӠì宍ҩ٠GAIN1) PA%(0,1)016GAIN: CHANNEL 0N Z8,1:36864: RUN TSTART PROGRAMj dB%(0,0)SLOT:B%(1,0)M nB%(0,1)116GAIN: CHANNEL 1 x8,2:36864 A%(1,1),B%(1,1): PRINT RESULTS OF BOTH ARRAYS ON SCREEN 40O THIS IS A SAMPLE PROGRAM WHICH USES GETAI13.TSTART AT HEX ADDRESS 9000Z 36864(4);"BLOAD GETAI13.TSTART,A$9000"A%(1,1),B%(1,1): DIMENSION TWO ARRAYS(M1: NUMBER OF SAMPLES PER ARRAY2SLOT5<A%(0,0)SLOT:A%(1,0)M F  40L   368644(4);"BLOAD GETAI13.TSTART,A$9000"IA%(1,1),B%(1,1)Q(M1\2SLOT5x<A%(0,0)SLOT:A%(1,0)MFGAIN1PA%(0,1)016GAINZ8,1:36864dB%(0,0)SLOT:B%(1,0)MnB%(0,1)116GAINx8,2:36864 A%(1,1),B%(1,1) kl$ȱ ȱee "eHȱehn`m``) ȱȱ<ee =0)ȱ,H<) =h< HhȽ)Ƚми`0 ȱȱ  kl$ȱ ȱee "eHȱehn`m``) ȱȱ<ee =0)ȱ H<) =h<HhȽ)Ƚми` )ױ  kl$ȱ ȱee "eHȱehn`m``) ȱȱ<ee =0)ȱ H<) =h<HhȽ)Ƚми`  $%L&M$%& 7#  kl$ȱ ȱee "eHȱehn`m``) ȱȱ<ee =0)ȱ,H<) =h< HhȽ)Ƚми` )˥))  kl$ȱ ȱee "eHȱehn`m``) ȱȱee 0)ȱ H) h HhȽ)Ƚми`宍ҩ٠ ȠҠ ٍ֫ؠ堨ؠ箽ĠƠҩ٠Ѡ٠󡬠Ġ堠Ѡ٠Рՠà٠ŠЍ٠ՠǨҩٍɠӠǠ宍٠堨ҩٍРՠҠ РȠ忠ҫٍҩٍҍȍРՠÍàҍҍàҫҫٍ̠ӧ占«٠ҩٍĠ䍠̠󠱶̠̠̠؍֠󮍠«٠ҩٍѠàӠ箍ҍРōàӍōˠՠĠ占 占ð«ˠٱٍ٠ٍÍҩ٠àҍٍҩٍàҫҫҍҫРūٍàҍŠٍٍٍٍҩ٠ؠٍٍٍ؍ŠÍàҍҠàҫҫÍà獻àź䡩ōǠɱՠ٠占Ҡ٫ҫ٠ҩٍ̠ٱٍҩٍ̠䮍嬠堨젍䮠ɱ堼宩堨ɱ᭍젣堪򍻠󍻠嬠嬠󍻨󮠨젣󠫠堨ɱ堨堍򠍻󠠠̠ՠ㮠 ՠƹ占Рﬠ፻ɱð٠ՠ ŠՠĠҠՠҠՠȠՠĠ䠠٠ՠŠԠάìǬӬ֍̠ɱϠԠ٧㮍Ԡ͠ɱɱϠԠٍŠӍР֠     )@`l$ȱ ȱee "eHȱehn`m``) ȱȱee 07ȱ ؐ H) ) h HhȽ)ȽЮЪ`)H h`` ) )kl$ȱ ȱee "eHȱehn`m``) ȱȱee 07ȱ ؐ H) ) h HhȽ)ȽЮЪ`)H h`` ) ) @ L@ HhL@@LJ@@ L@L@@@z#?????    ɱҠ ɱԠɱԠɱ͠ԮԠŠ͠ ԭӠԱӠɠϠ ǠԠŠ ɱ٠ ɱٱϠԠԭԭԱ ɱԭӠA$"I"ĺ:"RUN INT-13-2.BAS"? A$"G"ĺ:"RUN GETAI DEMO"[ A$"S"ĺ:"RUN GAUGE"c 10E"q 10{ 10A". HIGH SPEED WAVEFORM DISPLAY"O F:". INTERRUPT DRIVEN WAVEFORM DISPLAY"x P:". GETAI13 - A HANDY SUBROUTINE" Z: d"ENTER THE FIRST LETTER OF YOUR CHOICE:" nA$ xA$"C"ĺ:"RUN INT-13-1.BAS" A$"H"ĺ:"RUN PLT13-1.BAS" d  :21:9:"INTERACTIVE STRUCTURES INC."S4::14:"*** AI13 ***":(7:"DEMONSTRATION DISKETTE - JANUARY 1, 1981"-" COPY, LIST, AND USE CONTENTS AS NEEDED"/:". SIMPLE BASIC PROGRAM"2:". CHART RECORDER DISPLAY"! <:  '' a(ΠɬϬ)M6a()Q'> >@ @`Ʌi`8`xm=?>@ 者>@ 者@`ɅɃi`ɇ8` x-RXx`xHH&*&*&*Fe8ʆ <= <= W  ʽ<= W<=L`ʝ<= W,0hhE@i`8`=?>@ Ԁ>@ Ԁ@`ɅɃi`ɇ8`> >@ @`Ʌ kl$ȱ ȱee "eHȱehn`m``) ȱȱ<ee =0)ȱ H<) =h< HhȽ)Ƚми`0,9510,95 }267,95279,959 I1ST:YYS:6,Y10,YM 267,Y271,Y:Iv AI13: START SAMPLING AND SCROLLING RETURN HERE AFTER KEY PRESSED 16368,0::16301,0:51"";A$::60LO" 9CH(CH$)6 :"GAIN (0-7): ";GA$:GA(GA$)V <SET UP CHANNEL/GAIN NUMBERf FCGGA16CH P6,CG: INT-13-1 PARAMETER U AXIS PLOT Z:3:10,010,1906,190 _267,0267,190271,190 dY190 nGA4S38:ST5:130 xS19:ST10: % INT-13-1 DRIVER ROUTINEC LO-SPEED SCREEN SCROLL^ (INTERRUPT DRIVEN)d}16384: HIRES 1 TOP36864:AI1336864: $9000(D$"": CONTROL D2D$"BLOAD INT-13-1"324 7"CHANNEL (0-15): ";CH$:CH$""ĺ"RUNHEL  HERE AFTER KEY PRESSED5 16368,0::16301,0:51F  AXIS SETUP] 10,010,1906,190g Y190 GA4S38:ST5:1040 S19:ST10:0,9510,95 I1ST:YYS:6,Y10,Y:I :O" 9CH(CH$)5 :"GAIN (0-7): ";GA$:GA(GA$)W < SET UP CHANNEL/GAIN NUMBER FCGGA16CH: SETUP CHANNEL/GAIN SETTING P6,CG: INT-13-2 PARAMETER U AXIS PLOT Z:3:1000::1000 AI13: START SAMPLING AND SCROLLING RETURN % INT-13-2 DRIVER ROUTINEB 256 POINT SCREEN PLOT] (INTERRUPT DRIVEN)c|24576: HIRES 2 TOP32768:AI1332768: $8000(D$"": CONTROL D2D$"BLOAD INT-13-2"324 7"CHANNEL (0-15): ";CH$:CH$""ĺ"RUNHELL  E AFTER KEY PRESSED1 16368,0::16301,0:51B  AXIS SETUPY 10,010,1906,190c Y190} GA4S38:ST5:1040 S19:ST10:0,9510,95 I1ST:YYS:6,Y10,Y:I A 9CH(CH$)3 :"GAIN (0-7): ";GA$:GA(GA$)T < SET UP CHANNEL/GAIN NUMBER FCGGA16CH: SETUP CHANNEL/GAIN SETTING P6,CG: PLT13-1 PARAMETER U AXIS PLOT Z:3:1000::1000 AI13: START SAMPLING AND SCROLLING RETURN HER $ PLT13-1 DRIVER ROUTINEA 256 POINT SCREEN PLOT\ (SKIP LOOP DRIVEN)b{24576: HIRES 2 TOP32768:AI1332768: $8000(D$"": CONTROL D2D$"BLOAD PLT13-1"324 7"CHANNEL (0-15): ";CH$:CH$""ĺ"RUNHELLO"  ,0:5000$4100Q:". CREATE,":". RUN,":". STORE, OR":". LOAD":200 ME":8,1:38144)hJ1(A%(1,0))NG%A%(0,J)16:C%A%(0,J)(G%16)g0J2:1:C%;:5:G%;V((A%(1,J)S(G%)O(G%))100000)10010:V" ";18:"----------";:18A%(1,J)410:"+";30:N$(J)(16384)127Ĺ16368I)","N$(I): "CLOSE"$ 50008 "FILENAME ";F$G "OPEN"F$V "READ"F$q A%(0,0),A%(1,0),N$(0) I1(A%(1,0)):A%(0,I),A%(1,I),N$(I): "CLOSE" 5000  RUN A%(1,0)05000 "CH. GN. MILLIVOLTS NA5":" 3 = 0 TO .1V 7 = -.1 TO + .1"R :"ENTER THE GAIN SETTING: ";GAIN| II1:A%(0,I)CHAN16GAIN:A%(1,0)I x"NAME OF THIS INPUT? ";N$(I) 1100 "FILENAME ";F$ "OPEN"F$ "WRITE"F$ I0(A%(1,0)):A%(0,I)","A%(1,(A$)13ĺ:"RUNHELLO"! 210? I0:A%(0,0)5:A%(1,0)0:h L"CHANNEL? (0-15 OR RETURN) ";CHAN$ NCHAN(CHAN$):CHAN$""5000* :" 0 = 0 TO 5V 4 = -5 TO +5V":" 1 = 0 TO 1V 5 = -1 TO +1V":" 2 = 0 TO .5V 6 = -.5 TO +.AM YOU CAN"E :". CREATE,":". RUN,":". STORE, OR":". LOAD"j :"A LIST OF UP TO 20 READINGS" "BLOAD GETAI13,A$9500" :"ENTER YOUR CHOICE: (C,R,S,L) " A$ A$"C"1000 A$"R"4000 A$"S"2000 A$"L"3000 UTINE"3 n"WHICH MAKES A SERIES OF AI13 READINGS"R x"EACH TIME IT IS CALLED."} :"THE LIST OF READINGS IS PUT IN A " "BASIC ARRAY, GETAI13 IS CALLED," "AND THE RESULTS ARE RETURNED IN THE" "SAME ARRAY." :"WITH THIS DEMO PROGRS  38144A%(1,20)(A%(1,0)0S(7):S(0)54096:S(1)S(0)5:S(2)S(0)10:S(3)S(0)50:I47:S(I)S(I4)S(I4):O(7):O(4)5:O(5)1:O(6).5:O(7).1(:10:"GETAI13 DEMONSTRATION": d"GETAI13 IS AN ASSEMBLY LANGUAGE RO     ԍύY1158)158(Y1158)  "1 IC1804095: SCALE TO 180 DEGREES K R133:700:GET X & Y^ 140,158X1,Y1 0:140,158XO,YO:3:XOX1:YOY1 140,158X1,Y1 (16384)127Ĺ16368,0:50 60 X1140(R((IPI)180)):Y1158(R.9((IPI)180)):Y1Y1(0.0 100.0":6 -34,21H 2MAKE READINGR 3:22 7"CHANNEL (0-15): ";CH$:CH$""ĺ"RUNHELLO" 9CHAN(CH$) :"GAIN (0-7): ";GA$:GAIN(GA$) <AI13,CHAN16GAIN:C(AI131)256(AI13) 23:C1004095" ' ::PI3.1415926:XO140:YO158:3DAI1316256516:SLOT 5VPLOT A GAUGE5,158:R135:I0909:700:X1,Y1::0,159279,159275,158:R135:I180909:700:X1,Y1:#I018018:R135:700:X1,Y1:R139:700:X1,Y1:+ (23:"   kl$ȱ ȱee "eHȱehn`m``) ȱȱ<ee =0)ȱ H<) =h<HhȽ)Ƚми`  $%L&M$%& 7# kl$ȱ ȱee "eHȱehn`m``) ȱȱ<ee =0)ȱ,H<) =h< HhȽ)Ƚми`0 ȱȱ  kl$ȱ ȱee "eHȱehn`m``) ȱȱ<ee =0)ȱ H<) =h<HhȽ)Ƚми` )ױ!! kl$ȱ ȱee "eHȱehn`m``) ȱȱ<ee =0)ȱ,H<) =h< HhȽ)Ƚми` )˥))""