8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL L 2000G VOLTAGE PLOTTER III PROGRAM STARTUP & INITIALIZATION] COPYRIGHT 1988v VERSION 5/22/88 VERNIER SOFTWARE 2920 S.W. 89'TH ST. PORTLAND, OR 97225 (503) 297-5317 INPUT ENTER WITH DF$,?NULL.AUTO.CAL 1'>/1!)PART.FIVEY.1!(PART.SIXy$1!*PART.SEVEN]1!STARTUP.CAL1'NULL.A.CAL1$NULL.C.CAL1$)WAVE.DATAB1![-SCREEN.NORMALE 1! - +SCREEN.GRIDV 1! . (PART.ONEg/1!(PART.TWO'21!*PART.THREE)1!)PART.FOUR1!m $FONT21!,'LP.120071!5FREQ.C00.09x1!  AIB.READ.0:1! VOLTS.0;1!&WAVE.0=1!VP.PROGRAM0' 'STARTUP#1!0'VP.LOGO1! RAM.LOADER+1!- MISC.300,k1!F /IM.HIRES.1C00.0.[1!6INPUT0? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8R AND WI%; EXIT WITH DF$ AND EX[ SB,WI%: NUMBER OF CHARACTERS TO BE ALLOWED IN INPUT EXZZ: EXIT TYPE (1 = , 2 = ) (DF$)ZZī245: NO DEFAULT STRING I1(DF$): SET UP DEFAULT STRING DBI,((DF$,I,1)) '  64448)2243060: IIE OR IIGS Q 843:(859)1Ĺ860,3: INDICATES IIGS GS(49206):GS128Ĺ49206,GS128: SET GS TO FAST, (4)"RUN STARTUP,@3000": RELOAD STARTUPQ DETERMINE AND SET MACHINE TYPE (49048)176Ĺ860,2:3040: INDICATES A 128K MACHINE (49048)128Ĺ860,1:3060: INDICATE A II PLUS 860,0:3060: NOT 128K OR IIPLUS# (64435)6( 40 COLUMNS (MOST OTHER);(4);"BLOAD VP.LOGO,A$2000"\(4);"BLOAD MISC.300,A$300"z861: RELEASE BUFFERS16384,0:103,1:104,64: MOVE BASIC START  (49048)176ĺ(4);"EXEC RAM.LOADER":: LOAD PARTS INTO /RAM IF 128K*M/PART.ONE,@2460":CHAIN PART.ONE IN / RAMZ:12:"LOADING MAIN PART OF PROGRAM..."D$"CHAIN ";PS$;"PART.ONE,@2460" FIRST RUN:49234,0: DISPLAY PAGE ONE FULL SCREEN(21);: TURN ON 40 COLUMNS(4);"PR#0": TURN ON& UNITSLP14:I1P:(AC(P))(AC(I))1780: CHECK FOR MIXED UNITSlVL$(I)VL$(P)VL$"MIXED"VU$(I)VU$(P)VU$"MIXED"I:Pl CHAIN BACK TO PART.ONEnD$"FRE": CLEAR STRINGSq41859,3-v(860)1ĺD$"CHAIN /RA32,0:( SET UP INPUTS6NA0:PL0]P14:FIND LOWEST & NUMER ACTIVE{AC(P)NANA1:PL0PLPPNA0ī1790NEMANA: MAXIMUM READINGS PER INPUTNRZZ: CLEAR DATA VL$VL$(PL):VU$VU$(PL): SET LABEL 32,10:10:CT$DT$(NA$mCL$"G"(860)3CL$"S": SET TO SOFTWARE CLOCK IF NOT A IIGSCL$"P"ĺ"PRODOS CLOCK":CN2CL$"M"ĺ"MOUNTAIN CLOCK":CN3CL$"S"ĺ"SOFTWARE CLOCK":CN1CL$"G"ĺ"APPLE IIGS CLOCK":CN4 GS/AV(1,P):AV(2,P): ACTUAL READINGSBSL(P): SLOPEbAC(P): INPUT ACTIVE FLAGiPCL$:CL: CLOCK TYPE AND SLOT #PR: PRINTER SLOTD$"CLOSE ";PS$;FI$1700: SET UP INPUT8:"CALIBRATION FILE BEING USED:":)376: RETURN PRESSED3rQ1NS:Q$L$(Q)SEQ:tQCv356Ixh READ CAL.STARTUP FILED$"OPEN ";PS$;FI$D$"READ ";PS$;FI$CT$:DT$:NAME$P14VL$(P):VU$(P): LABEL & UNITSI(1,P):I(2,P): TYPED IN READINQ27SEZZ:376: EXIT( \Q13ī3767 ^Q32ī364Z `Q8Q11SESE1:SEZZSENS bQ21Q10Q32SESE1:SENS1SE1 dYUOS:XL f(L$(OS))2ĺL$(OS)"- "S$(OS):362 hL$(OS)" - "S$(OS) j330 l ACCEPT A LETTERpQ$(13TYPE LETTER OR USE THE ARROW KEYS"I H" THEN PRESS "T JYUSEg LXL::L$(SE); N(L$(SE))2ĝ:"- ";::S$(SE);::338 P:" - ";::S$(SE);: ROSSE TQ$ VQ(Q$) XQ96QQ32:Q$(Q): LOWER CASE INPUT ZTO DF$  , MENUF .YU18YU18: UPPER LINE USED BY MENUV 0SENSSE1f 2SEZZSE1} 4NSYU19NS19YU 6Q1NS 8XL4 :QYU <(L$(Q))2ĖXL:L$(Q)"- "S$(Q):320 >XL:L$(Q)" - "S$(Q) @Q B20 D:DA$$ F" DB,(DF$): DEFAULT STRING LENGTH> RE: READ INPUTa EX(SB9): CHECK EXIT TYPE{ EX2285: IF ESCAPE (DB)ZZDF$"":285: NOTHING ENTERED DF$"": INITIALIZE ENTRY STRING I1(DB):DF$DF$((DBI)):: READ ENTRY IN SET VARIABLE DEFINITIONSFMA480: MAXIMUM READvX(MA1),Y(MA1): DIM DATA ARRAYSAC(4),N(4),TE(4),TI(4),V(4),VL$(4),VU$(4): MISC. PROBE VALUESFA(2),SV(2),LX(2),HX(2),SP(2),OS(4),PA(4): GRAPHING VALUESSS$(13),L$(13),SE(8),GS(6),PS(8),SD(2): ARRAYS USED IN MENUS/MENU DEFAULTSI(2,4),AV(2,4),SL(4): CALIBRATION VALUESMI(4),MA(4),S(4),Q(4),M(4),D(4): ARRAYS USED IN STATISTICSTX$(4): SCOPE TEXT SCREEND$(4):CA4608:MT: DEFAULT MIN & MAX INPUT VALUES]&DM0:NN86: SET DEFAULT VIU READ VALUES&238,1: START-UP FLAG (ALWAYS SET TO 1 AS IT IS NOT SUPPORTED BY VPIII)&206,CCNN: COUNT CYCLES&235,0: DELAY TIME 'SM.3: MODE C SAMPLE TIRAM/WAVE.DATA,A$2000,L768"9%D$"BLOAD WAVE.0,A$2000"a%D$"BSAVE /RAM/WAVE.0,A$2000,L1933"%6120: SKIP NEXT SECTION IF USING BOARD % -------% SET UP VIU%D$;"BLOAD FREQ.C00.0": MACHINE CODE TO READ VIU'&MN0:MT3:LOMN:HI$SR$"SCREEN.NORMAL"P$AD320: DELAY TIME FOR 1 READING /SEC MODESl$(860)1ID$"V"6059$D$"BLOAD ";SR$: LOAD SCOPE BACKGROUND$D$"BSAVE /RAM/";SR$;",A$2000,L$2000": SAVE TO /RAM$D$"BLOAD WAVE.DATA,A$2000"%D$"BSAVE /IZE BOARD=#pSE1VM10:VR20: MIN=-10, 20 VOLT RANGE l#zSE2VM5:VR10:MIN = -5, 10 VOLT RANGE#SE3VM0:VR10: MIN = 0 , 10 VOLT RANGE#DM10: DEFAULT DELAY TIME FOR MODE C$MNVM:MTVMVR:LOMN:HIMT: DEFAULT MIN & MAX VALUES REENTER8"14::"ENTER SLOT NUMBER OF A.I.B. :";O"DF$"2":WI%1:200u"EX262999: - END PROGRAM"SL(DF$)"SL1SL7ĺ::"SLOT NUMBER OUT OF RANGE":"--PLEASE ENTER AGAIN":5800 #D$;"BLOAD AIB.READ.0":6,SL:3072: INITIALS #1 & #3)"&!SE1:YU10:NS3:300M!SEZZ62999: - END PROGRAM]!bSE35800!l17:1:"THE OSCILLOSCOPE WILL NOT WORK"!v"PROPERLY IN THE 0 TO + 10 VOLT RANGE."!958:::PN$!10)"PRESS TO EXIT" "Q$:(Q$)2762999:------ :A 6:"SELECT THE VOLTAGE RANGE (AS SPECIFIED"k "BY THE DIP SWITCHES ON THE BOARD):" L$(1)"A":S$(1)"-10 TO +10 V (SWITCHES #2 & #4)" L$(2)"B":S$(2)" -5 TO +5 V (SWITCHES #1 & #4)" !L$(3)"C":S$(3)" 0 TO +10 V (SWITCHETHE INPUT DEVICE YOU ARE USING:"KL$(1)"V":S$(1)"VOLTAGE INPUT UNIT"|L$(2)"B":S$(2)"ADVANCED INTERFACING BOARD"NS2:SE1:YU11:300SEZZ62999: ESCAPE - END PROGRAMSE2ID$"B"SE1ID$"V":6070: SKIP TO VIU   --SHAPETABLE POINTERS TO $150061: SET SCALE TO 1d DETERMINE INPUT DEVICE AND INITIALIZED$"BLOAD INPUT,A$800": LOADED EARLY SO IT CAN BE USED IN INPUTSKP,0: CLEAR KEYBOARD:10)"VOLTAGE PLOTTER III""7:"SELECT E OPTIONSiPS(1)1:PS(2)0:PS(3)0:PS(4)0:PS(5)0:PS(6)0:PS(7)0:PS(8)0: PLOTTING STYLE OPTIONSRE2048: READ ENTRY ENTRY PT. SB2048CC: INPUT STATUS BUFFER DB2048512: DEFAULT BUFFER232,ZZ:233,21: SET NE LANGUAGE OPERATIONSDNU0:PW0: CONSTANTS USED IN ROUNDINGHU3600:MM60:ZZ0:TT10:HH.5:WW2:DD86400:OO1:CP1.023E6: GENERAL CONSTANTS USED TO SPEED UP OPERATION GS(1)0:GS(2)0:GS(3)0:GS(4)0:GS(5)0:GS(6)0: REAL TIME GRAPH STYL FOR OSCILLOSCOPE5TQM$(34): QUOTATION MARK}^DA$"---------------------------------------": USED TO SAVE SPACEhPN$" PRESS TO CONTINUE"rES$" PRESS TO EXIT"|CC256:XX768: CONSTANTS TO SPEED UP MACHIC VARIABLE ORIG,VERT = AUTOMATIC VARIABLE ORIG)6YY.1798631:VV3582:UU3583:CG100: COLLECT/STORE DEFAULT & M/L LOCATIONS@SR.041493775:DA4096:HA37632:LD37376:BA34304:BU8192: OSCILLOSCOPE M/L LOCATIONS JQL.1:TG1: DEFAULTSAB4611:HZ4612:VZ4613: CONSTANTS USED IN LARGE PRINTbTZ1000:LL(10): CONSTANTSKP49168:KC49152: KEYBOARD ADDRESSESN$"": FILE NAME "DTMA: DELAY TIME DEFAULT1,SD(1)2:SD(2)2: SCALING DEFAULTS(HORIZ = AUTOMATIME DEFAULT;'ET(19NNCC3(NN1))CPS: SAMPLE TIMEJ' -------P't'"LOADING THE CALIBRATION FILE"'FI$"STARTUP.CAL":1200: READ CALIBRATION FILE(ID$"V"(NA$,1)(15)6165: CTRL CHARACTER EXISTS ONLY IN ORIGINAL FILE AS SHIPPED+( FIND ACTIVE INPUT(S) FOR VIU:c( AC(1)0:I0:252,2:253,0: POKE FOR ONE READINGn( P13( 6,P:3072: SET INPUT CHANNEL( 3075:C(250)CC(251): READ COUNTS( C1AC(P)1:I1: TURN STATUS ON(P)(I)(AC(1) x ~~a?px@ `@"D~AC@a00xx@p p>@~|p`p?x@ pp@p@ 0@?xpp@@ |A@D0@saa@`xGxpp@ p@@xj*U*U*U*U*U@ p ~~~~ |a?`X@ `@L@C@a00xx`x x~x>p?p?x@ <@pp@x@? @`{<pp@@ FAxD IH  @ p !"#$%&'()*Os?~~~@00x?@\**U*U*U*U*U@     @ `@H@@C@a008p @C~C8@ `@ REMEMBER PREFIX OF PROGRAM<+`1900: CHAIN TO PART.ONE+:104,8:103,1:2048,0:216,0:D$"CLOSE":861::: RESET POINTERS, RELEASE BUFFERS, AND END$1200": LOAD LARGE PRINT ROUTINER*$D$"BLOAD FONT,A$1500": HI-RES FONT *.D$"BLOAD IM.HIRES.1C00.0": IMAGEWRITER SCREEN DUMP*8P01:49240(P2),0:P: TURN OFF ANNUNCIATORS*BD$"PREFIX"*LPF$: GET PREFIX OF DISK +VPS$PF$:AC(3))AC(1)1:AC(3)0: SET INPUT A ON IF NONE FOUND ACTIVE OR BOTH A & C FOUND ACTIVE (WHERE C WOULD HAVE TO BE JUST GENERATING NOISE))1700: RE-SET UP INPUTS) THESE FILES ARE LOADED HERE JUST TO TAKE UP A LITTLE TIME:&*D$"BLOAD LP.1200,Ap@@`?*U*U*U*U*U@ <@ `@CC@a0p0  @CC x@ `@Nr@CCCC@s90@  @<@|pp@?@@   ~ p?x@  `Gpxp|@cp  @ @Mx<<bQq Gx@ @@CCCC@a0`8   @CC x?@ `@BBw@CC@a00@ @|pp@@` @ @  @|w@ @ACC0@xx?   @CC~ 0@ `@BBCC@a0x?@ |pp@@0 `pp|?@@ @  @~@aaaxpp@~~@CC0xx?  @CCC~ 888@ `@"F@CC@a0x?X@@ pp@p@ ppp~@@@  @ 8@`wCDDaca2HH !pp@  pwp|p~@{ )D ) ) )JJJJ)  `l)` ) 8  ) 1 )Z ) )` "ȱXȱ0`I)p2h`h4 ,ȱH% `HI)ph`hh` LH-/LSi0LLS,LL0L(L_,0   )F ) 8i   )G ) L_   . 8  $ .  `    ) L`  *  . .  0 ` )A ) ) )LL  ; )> )jjj) ) )n ) )T )1 )6 )ϩυ +,i$%f$fʊ iL$pI, )LL$, ) I $0Lc,0L8LL_ ) ) 07"8 ߠȩ7ȩ7)7`2/ 6/88 4:03:13 PM8 [` `hhߚHH`LOAD PART.SEVEN SAVE /RAM/PART.SEVEN LOAD PART.TWO SAVE /RAM/PART.TWO LOAD PART.FOUR SAVE /RAM/PART.FOUR LOAD PART.ONE SAVE /RAM/PART.ONE NEW RUN STARTUP,@3000  @pqpp@@`   @ `@ p xp~p?@  @ p@ ADDrpHH @ x@@C@a08808  @C @ `@H`wA08x?@ @x`pp@@   ~ p?x@ LhLLɾ 46` ` !!""##( (!!(""(##P P!!P""P##   ɛ Lɍ Lɘ  L#ɚ   L#ɄɈ  L# L#ɟ L#  L# ) L#` L`  :` `  `68G&H,I2J8K>LDMJNPOVP\QbRhSnTtUzVWXYZ(OIIyIIIAAcdTL|AAc"A III""">@@0AAyIIOIIIOIIyIIyII L   3L轤L mmm L8N dL d` dm8 L`=fu{ #+-./0123456789ABCDEF 66666666666666666666666666666666666666666666666666666666666666666666666RI----ޛRI)757-ےIޛRI)575-ےI MIڛRIISIڛ--ޛRIJۓJ--n .-ۛ  >?wIۓ  >?wIۓ)3 -ۛ  Mے----nM1nm5NIۛIInۓJ66-ۓJM17 n ޛRIM17 >n ޛRI)3M1s-ےI-3-nۓJ)3M1s-J-3-5n ޛRI)---ۓJ--6nڛRIM13M1s-ےIM13MۓJM13M1 ےIMMےIM1s-nMڛRI)NSۓJ)3 --ےI M1??n ޛRI-3-3-ۓJ)6-ޓII-3M13--3M13-ۓJ--.3--ޛRI--.3MےI)n)-ےIM13--n ޛRI)6-ےII16s-ےIM. >-ےI)s)--ޛRI-*-ۓJ-*-ۓJM13--6ޛRI--.--ۓJ).-s-ےI-->mےI)s-s-ےI)s-ۓJJIJNڛRIIJMڛRIIےII??N??NۓJ1345--ےImwi:MےI .s-ےI 6SIڛRII6ےI6MڛRI ?--? ޛRI *-3ۓJ MڛRI--SۓJIIMIMےIMےIMےI)3 ;-ےII>6-ޛd"4ES`l9JYl~1CU *<N_q5AP`p~8SUWY[]_acegikmoqsuwy{} 6SiڛRIinJۓJi?? ?? ےI) ||III6>AAA"AAA>IIIA >AAQqAA @@@?"A@@@@ >AAA> >AQ!^ )F&III2?@@@? @   ccxaQIEC` g` , g` X`ɀ. q L"ɀ q` "ɀ LX` "ɀ Li `ɀ aɀɀ aɀ`ɀ aɀɀ aɀ`ɠ ɀ Lъ`` `ɀL FjFjFjFjJI)@@ L@ `Q  8Ji) L~ FjFjFjFjJI)@@ L QLD` ̊` ` ` i` : :`` i %J ( M󈍁 +0PUty B  x`iQiQL IQ ` Р` q) L<>?@F& & F& F& F& & & F& F& F:2 :1 :0.5 :0.25 :0.125 :0.0625 :0.03125  2dHOLDING0.5 1 2 5 10 20 50 100 200 500 1000  ׉  BLԇ `Lׇ  B L 挭 zL , z :LYp4<4`4< ` 4`4<)`LL` LL `FjFjFjFjFjF& FjF& F& F& F& L   W nsx****ii Lb4<LꎘLLȭ)LLL,0L>X`LL` N n N n m m  `      m   m  N n m  m  `x ơ i   !  XL<`L L} Lu  xL  i Ȍ Ȍ Ȍ Ȍ Ȍ Ȍ Ȍ i   X`x!ɛ I I0L X`4< ) `   m m  N n N nL0 ,0 U ʊ M La L- L X`,0,a00,0,aL9 X`O``L L" L6 i`< F ? L `x,0k,a0,0a,aCL~ ꎘL L ꎙL X`',a,a0L L L L iȥL L ) ċL ċLɛLnjɍLnjɭ Lɽ LɊ Lɻ Lɫ Lɋ LɈ hLɕ vLii  L`iʊ i`k ɛɍLߋ`hhLnj ( B`  ( B` Ȇ`m (i`  `  ` m m ri`Q`Xhhhhhh )`ʝ`ɀ aɀ        8   DFGHIJKLMNOPQRST       8`   !!!!!!!"""""""#######$$$$$$$%%%%%AC @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @((((((((((((((((((((((((((((((((PPPPPPPPPPPP159=!%)-159="&*.26:>"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048U*U+U*]*UjU*U.U*5@@          8    ~?@@ @@         8                 @@ @@ ~?    8 @@ @@@ @ @ @UWXYZ[\]^_`abcde@ @ @ @ @ @ @ @ @            8          8  @           @ @ @ @ @ @ @ @ @ @ @ @ @@@ @~?@ @ @ @ @ @ @ @ @ @ @ @ @ @ @~?@V*U:U*U+U*]*UjU*U>U*U+U*]*UjU*U.U*5@ @ @ @ @ @ @ @ @ @@@ @@@ @ @ @ @ @@@@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @@ @ @ @ @ @ @ @ @ @ @ @ @fhijklmnopqrstuvwxyz{|}~RTT):NU(NUFCTRHH)FCTRK NU$(NU):(NU$)4ĭ(NU)NUNU$NU$"."i (NU$,1)"."NU$"0"NU$ (NU$)5(NU1)NU$NU$"000":NU$(NU$,4(NU.1)(NU1)) NU$SN$NU$:NU0.01NU$SN$"0.00#":180 (NU$)7NU$SN$"#####" (NU$)841859,7:KP,0:2000= "VOLTAGE PLOTTER III (C)1988"f"VERNIER SOFTWARE--VERSION 5/25/88"dSN$" ":NUZZSN$"-":NU(NU)nNUZZ150sPWR1:NU1135}NUPWRPWRPWRTT:125140NUPWRTTPWRPWRTT:135 FCTRTZ(PW @ @ @ @ @ @ @ @ @ @ @ @@@ @@@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @@@ @@@ @ @ @ @ @āQQ(NU$)6:NU$NU$" ":# E SB,WI%:EXZZ:(DF$)ZZī245k I1(DF$):DBI,((DF$,I,1)): DB,(DF$):RE:EX(SB9):EX2285 (DB)ZZDF$"":285 DF$"":I1(DB):DF$DF$((DBI)):  ,YU18YU18 0SENSSE1 "T":S$(2)"DATA TABLE/STATISTICS":L$(3)"D":S$(3)"DELETE DATA":L$(4)"F"# S$(4)"FILE OPTIONS":L$(5)"P":S$(5)"PLOT GRAPH":L$(6)"R":S$(6)"GRAPH IN REAL TIME":L$(7)"C":S$(7)"FAST DATA COLLECTION":L$(8)"K":S$(8)"MONITOR INPUT VS. KEYBOARD":ID$"Q1NS:Q$L$(Q)SEQ(Q:1464.:60000D 2460P 60000] 41859,7L ::KP,0:D$"FRE":" VOLTAGE PLOTTER III":" VERNIER SOFTWARE":" COPYRIGHT 1988"::1300::L$(1)"M":S$(1)"MONITOR INPUT":L$(2)470Q32ī14563SE(SE)0SE(SE)1:1456ASE(SE)ZZcQ8Q11SESE1:SE0SENSQ21Q10SESE1:SENS1SE1YUOS:XL8:SE(OS)1ĺ"ON "SE(OS)0ĺ" OFF"YUOS:XL:L$(OS)" - "S$(OS):1430Q$(13)1480OPTION.";:"PRESS TO TURN THE OPTION":"ON OR OFF. PRESS WHEN ALL":"OPTIONS ARE SET AS YOU WANT THEM."YUSE:XL::L$(SE);:" - "S$(SE);::OSSE:Q$::Q(Q$):Q96QQ32:Q$(Q)Q131480Q27EX2:1480Q321VE:";::P14:AC(P)ĺ(64P);:13601F" ";<PP::RxEX0:YU18YU18i|NSYU19NS19YU~Q1NS:XL11:QYU:XL8:SE(Q)1ĺ"ON "SE(Q)0ĺ" OFF"QYU:XL:L$(Q)" - "S$(Q):Q:18::DA$:"USE THE ARROW KEYS TO MOVE TO AN O$(HO)":":HO10HO$"0"HO$FMI$(MI)":":MI10MI$"0"MI$gSC$(SC):SC10SC$"0"SC$xDY0DY$""DF$DY$HO$MI$SC$:1:PN$;:WI%1:DF$"":200:"INPUT DEVICE:";::ID$"V"ĺ"VIU";*ID$"B"ĺ"AIB";'-:29:"ACTI(DF$,8,2)(DF$,11,2):I19:II((DF$,I,1)):II48II57EX2:945I:TS((DF$,8,2))((DF$,6,2))MM((DF$,4,2))HU((DF$,3))DD!DY(TSDD):DY$(DY)"/":HO((TSDYDD)HU):MI((TSDYDDHOHU)MM):SC(TSDYDDHOHUMIMM.5):H$;:15:"A B C D":5:MU$;:P14:AC(P)816m/(5P72((VU$(P))2)):"(";VU$(P);")";0P:PO(36)0ĺ4DA$:(DF$)12Q$"000:00:00:00":DF$(Q$,12(DF$))DF$EX0:(DF$)12EX2:945GDF$(DF$,3)(DF$,5,2)((Q$,7,2))HU((Q$,4,2))DDY6TI(P)TI:TITI1:TE(P)I(1,P)SL(P)(V(P)AV(1,P))b>P:XPR$PR$" ":PR$(PR$,(39LW)):CH1(PR$):AC((PR$,CH,1)):AC35AC90AC32vAC69AC8{HZ,H:VZ,V:AB,AC:CA:HHLW:CH:> 1:ML:3072:3075:C(250)CC(251):V(P)(CET)1000J CN566,553,555,547#768,Q$:Q$(Q$,1):Q$(Q$,5)(Q$,9,9)".000":559)D$"PR#"CL:D$"IN#"CL:" ";Q$:557+D$"PR#"CL:D$"IN#"CL:Q$-D$"IN#0":D$"PR#0""/TI((Q$,6))((Q$,10,2))MMSE1:400*Q$"N"Q$"n"SEZZ:400PQ10Q11Q8Q21Q32439\SE1SEe403kID$"V"Ĺ252,2:253,0P14:AC(P)574ID$"B"534V(P)(P):V(P)V(P)DAVRVM:V(P)(V(P)1000HH)1000:Q1AD::54426,P"- "S$(OS):362( hL$(OS)" - "S$(OS)1 j330C lQ$(13)376^ rQ1NS:Q$L$(Q)SEQj tQ:356p xv : YU:1:SEZZĝ:"YES ";::"NO": SE1Ğ:"YES";::" NO" YU:4:Q$:Q(Q$):Q27SE2:442 Q13442 Q$"Y"Q$"y"- ";::S$(SE);::3383 P:" - ";::S$(SE);:^ ROSSE:Q$:Q(Q$):Q96QQ32:Q$(Q)s ZQ27SEZZ:376 \Q13ī376 ^Q32ī364 `Q8Q11SESE1:SEZZSENS bQ21Q10Q32SESE1:SENS1SE1 dYUOS:XL:(L$(OS))2ĺL$(OS)2SEZZSE1& 4NSYU19NS19YUb 6Q1NS:XL4:QYU:(L$(Q))2ĖXL:L$(Q)"- "S$(Q):320{ >XL:L$(Q)" - "S$(Q) @Q:20::DA$:" TYPE LETTER OR USE THE ARROW KEYS":" THEN PRESS " JYUSE:XL::L$(SE);:(L$(SE))2ĝ:"B"L$(9)"L":S$(9)"OSCILLOSCOPE"d L$(9(ID$"B"))"S":S$(9(ID$"B"))"STRIP CHART RECORDER":L$(10(ID$"B"))"Z":S$(10(ID$"B"))"CALIBRATION":L$(11(ID$"B"))"O":S$(11(ID$"B"))"OTHER OPTIONS":L$(12(ID$"B"))"Q":S$(12(ID$"B"))"QUIT":SEMO:YU6:NS12(ID$"B"):300:MOSE<e :SE12(ID$"B")2765 :10:"ARE YOU SURE YOU WANT TO QUIT?":YU11:SE0:400:SE162999 2490 ID$"B"SE8SESE1 SE0MO12(ID$"B"):2490  SE2800,2790,2790,2800,2790,2800,2800,2800,2800,280ETURN> TO EXIT";:WI%1:DF$"":2005(6KP,ZZ:2460-)6:"DATA TABLE/STATISTICS":::"SELECT OPTION:":L$(1)"D":S$(1)"DISPLAY DATA TABLE":L$(2)"L":S$(2)"LARGE PRINT DATA TABLE":L$(3)"P":S$(3)"PRINT DATA TABLE":L$(4)"S":S$(4)"DISPLAY STATISTICS":L0'c3KB155JNR:J:13930('h322:a'w3J;:X(1)0HU$"SEC."Ė56((X(J))):X(J);:13190{'|3NUX(J):100:5:NU$;'3P14:(AC(P))13210'3NUY(JN(P1)):100:(5P7):NU$;'3P::J'j6POĺ(12);:D$;"PR#0":23$(~6KB155ĺ:"PRESS , OR ";:'^3KB(KC):KP,ZZ:KB160KB193KB141KB155KB225KB138KB1491315":HL$"TIME":P14:AC(P)N(P)N(P1)NR:12900B%Z2N(P)N(P1)I%d2Pe%x249240,0:49242,0:2490%2:"PRINT DATA TABLE":3:"BE SURE PRINTER (SLOT #";PR;") IS READY."::1000:EX213930%2D$"PR#";PR8&2MU$"("HU$")":ML$"# "HL$::800:34,6)$1GS(49206):GS128Ĺ49206,GS128<$1::ST12920S$1NRJ1:NA212855$1JNA50Ģ12:"SAVING DATA IN MEMORY..."$1I0:PPL14:AC(P)012850$2IINR:II1NR:X(III)X(N(P1)II):Y(III)Y(N(P1)II):II$22P2%72X(0)X(1):HU$"SEC.NU$:600#L1SF12660F#`1Y(JN(POO))TE(P):X(JN(POO))TI(P)BTY#t1(5P7):NU$;t#~1P:SFTLTI(PL):JJ1#1(KC)127ĹKP,0:12720#1(ST)TIBTDT12500#135,24:24:1:"DATA COLLECTED - PRESS TO EXIT";:KP,0$1(KC)1271271DSF1:J;I"056((TI(PL)BT)):TI(PL)BT;:P14:(AC(P))ī12670g"1NUTE(P):100:ALī12600"1TE(P)LOĺ(7);:49243,ZZ:12580"149242,ZZ"$1TE(P)HIĺ(7);(7);:49241,ZZ:12600".149240,ZZ"81LP12620 #?1HZZ:V(POO)TT:LW5:PR$0:V30:PR$VU$:LW6:600I!021:1:"# (SEC.)";:P14:AC(P)12477g!0(5P7):"(";VU$(P);")";!0P:34,21:(24):10:"PRESS TO EXIT";:35,23:!0J1:KP,0:FRİ500:BTTI(PL):TLBTTD:FR0:12510!0500 "0:SFZZ:STĭ(TI(PL)TL)TGS127Ĺ49206,GS128 \0:MU$"(SEC.)":ML$"# TIME"::800:34,3:(24):11)"PRESS TO EXIT";:35,23:3:39:TI0:ST12471 0N(0)0:P14:AC(P)N(P)N(P1)NE:12470 0N(P)N(P1) 0P 0(LP)12480!0::(AC(4))VU$"MIXED"HNR(DTNA)((DTNA)(DTNA)):NRNENRNEY40DF$(NR):WI%3:200:EX2NR0:1292090II(DF$):IINRĺ::"THE MAXIMUM NUMBER OF READINGS IS: ";NR:12320;0II1ĺ::"YOU MUST STORE AT LEAST ONE ENTRY":12320>0NRII:TDDTNR Q0GS(49206)::"ARE TO BE MONITORED: ";:TSDT:950:WI%11:200:EX2ī12920}0900:TSNA1ĺ::"TIME TOO SMALL - ENTER AGAIN":12270 0EX2ĺ::"ILLEGAL TIME - ENTER AGAIN":122700DTTS. 0::"NUMBER OF READINGS TO BE STORED":"OVER THIS TIME PERIOD: ";:200:EX212920O/LO(DF$):::"HIGH LIMIT: ";:DF$(HI):200:EX212920/HI(DF$):HILOĺ::"THE HIGH IS LESS THAN THE LOW - PLEASE ENTER AGAIN.":12130/ST12369/:"MONITOR INPUT"@/::"LENGTH OF TIME OVER WHICH INPUT(S)"1)"STORE DATA IN MEMORY":L$(2)"L":S$(2)"LARGE PRINT DISPLAY":L$(3)"A":S$(3)"ALARMS":YU5:SE1:NS3:1400:EX2129200/STSE(1):LPSE(2):ALSE(3):AL12230X/:"MONITOR INPUT":::"SET LIMITS FOR ALARMS:"b/:"LOW LIMIT: ";:DF$(LO):WI%8:0,2800,2800V NR0Ģ20:7::"NO DATA TABLE IN MEMORY"::198:I11500:I:2490 SE12000,14000,16000,30000,30000,30000,30000,30000,30000,30000,30000,30000:2490{.:"MONITOR INPUT":::" SELECT:":SE(1)ST:SE(2)LP:SE(3)AL:FR1:L$(1)"S":S$($(5)"R":S$(5)"PRINT STATISTICS":L$(6)"X"r)6S$(6)"RETURN TO MAIN MENU":NS6:YU6:SE1:300:SE0SE614099)6PO0:SE3SE5PO1)7SE13030,18000,13000,15000,15000)72460I*::"DISPLAY STATISTICS":::"CALCULATING STATISTICS...":PZZ4:S(P)ZZ:Q(P)ZZ:MI(P)1E37:MA(P)1E37:P:J1NR:P14:(AC(P))15260*`;S(P)S(P)Y(JN(P1)):Q(P)Q(P)Y(JN(P1))Y(JN(P1)):Y(JN(P1))MI(P)MI(P)Y(JN(P1))*t;Y(JN(P1))MA(P)MA(P)Y(JN(P1))+;P:J:Q(NR):PPL4:M(P)S(P)NR:NR2D41859,7:KP,0:20000: "VOLTAGE PLOTTER III "c"VERNIER SOFTWARE--VERSION 5/25/88"dSN$" ":NUZZSN$"-":NU(NU)nNUZZ150sPWR1:NU1135}NUPWRPWRPWRTT:125140NUPWRTTPWRPWRTT:135 FCTRTZ(PWRT ";EC;87" ERROR ON LINE ";EL;" *"::J13000:JN7:865:EL2000ġX724607:104,8:103,1:2048,0:216,0:D$"CLOSE":861::6luCH$CH$"FOUR":3009046vuCH$CH$"SIX":30090G6uCH$CH$"FOUR"R6uD$CH$\6u24606`D$"PR#0":EL(219)CC(218):EC(222)::::"* ";:EC3ĺ"NO DEVICE CONNECTED";:600406EC69ĺ"OVERFLOW";:600406EC25560065 7"CODE $PS$"PART."f5CuSE30099,30099,30099,30030,30040,30050,30045,30035,30055,30070,30060,30080:300995NuCH$CH$"THREE":300905SuCH$CH$"SIX":300905XuCH$CH$"TWO":300905]uCH$CH$"SIX":300905buCH$CH$"FIVE":300906guCH$CH$"SEVEN":300901ĺ(7);:1813574F(KB136KB139)J1JJ1:18135O4FJNRĺ(7);:18135Y4FJJ1l4F:JNR18028v4"G249040u:"LOADING THAT PART OF THE PROGRAM...":41859,3:CH$"CHAIN ":(SE5SE11SE12SE9)(860)1CH$CH$"/RAM/PART.":300195AuCH$CH;:NUX(J):100:5:NU$;:P14:(AC(P))18100x3FNUY(N(P1)J):100:(5P7):NU$;:V(P1)10:H0:LW5:PR$NU$:6003FP3FKB(KC):KP,0:KB155KB141KB136KB138KB160KB139KB149181103FKB155KB141182104F(KB136KB139)J2490@2PF::(AC(4))VU$"MIXED"H0:V30:LW6:PR$VU$:6002]F23:"USE ARROW KEYS TO SCROLL THROUGH TABLE":24:9)"PRESS TO EXIT";:35,22:J1:21:1:"# (";HU$;")";:P14:AC(P)180252hF(5P7):"(";VU$(P);")";2iFP::34,2103lFJDII:JN(P1)1N(P):JDLN(P1)X(J)X(JDI(I1)):Y(J)Y(JDI(I1)):162901?X(J)X(JDI(I1)DI):Y(J)Y(JDI(I1)DI)1?J1?P:NRNRDI::DLDHĺ"DATA LINE #"DL" DELETED.":163501?"DATA LINES ";DL" TO ";DH;" DELETED."1?:10002?))0>?DLDHQDL:DLDH:DHQ0H?DHNRĺ:"THERE ARE ONLY ";NR;" LINES IN THE":"DATA TABLE. PLEASE SELECT AGAIN."::1000:160200R?DL1160200\?NR10ĺ:"DELETING DATA..."0f?I0:DIDHDL1:P14:(AC(P))N(P)N(P1):16300R1z?II1:N(P)N(P)DF$"":WI%9:200:EX2DF$""16360U/>:DP0:CH1(DF$):(DF$,CH,1)"-"DPCH/ ?CH:(DF$,1)"-"DLN(0)1:DH((DF$,(DF$)1)):16190/ ?DP0DL(DF$):DHDL:16200/*?DP(DF$)DL(DF$):DHNR:1619004?DL((DF$,DP)):DH((DF$,(DF$)DP.>:.>:"DELETE DATA"::"ENTER THE LINE NUMBER(S) TO BE DELETED."::"TO DELETE A SINGLE LINE OF DATA, ENTER":"ITS LINE NUMBER AND PRESS ."::"TO DELETE A RANGE OF DATA, ENTER ":"THE FIRST LINE # - LAST LINE #":"AND PRESS .":&/>(AC(P))155900-u@100:NUNUPW:NU(22(NU2)(NU4)5(NU5))PW:lD$"FRE":41859,3:(860)1ĺD$"CHAIN /RAM/PART.ONE,@2460":12:"LOADING MAIN PART OF PROGRAM...":D$"CHAIN ";PS$;"PART.ONE,@2460"80Q321470$Q32ī1456ASE(SE)0SE(SE)1:1456OSE(SE)ZZqQ8Q11SESE1:SE0SENSQ21Q10SESE1:SENS1SE1YUOS:XL8:SE(OS)1ĺ"ON "SE(OS)0ĺ" OFF"YUOS:XL:L$(OS);" - ";S$(OS):1430O MOVE TO AN OPTION.";:"PRESS TO TURN THE OPTION":"ON OR OFF. PRESS WHEN ALL":"OPTIONS ARE SET AS YOU WANT THEM."YUSE:XL::L$(SE);:" - ";S$(SE);::OSSE:Q$::Q(Q$):Q96QQ32:Q$(Q)Q131480Q27EX2:14LWO$"H"HHLW CH&G1:PN$;:WI%1:DF$"":200:]xEX0:YU18YU18t|NSYU19NS19YU~Q1NS:XL11:QYU:XL8:SE(Q)1ĺ"ON "SE(Q)0ĺ" OFF"QYU:XL:L$(Q);" - ";S$(Q):Q:18::DA$:"USE THE ARROW KEYS TTB1769XPWW,TBXPWW,TB:TBYP1ēXP,TBXP,YPWW?R(PR$)0ī732e0:O$"V"Ę48CH1(PR$):H0H0V188V188VWWVWWH275H10Q((PR$,CH,1)):Q96QQ32Q31Q96Q32Q31H,VWW:O$"V"VVB,YPXPWW,YPVB06805VP0VTVQVB:664LVTVQ(100VB)100yTB176((VTSV(2))FA(2)HH):TB6TB6XPWW,TBXPWW,TB:YPTB1ēXP,TBXP,YPWWVP0VTVQVB:674VTVQ(100VB)100 TB176((VTSV(2))FA(2)HH):TB176HQHB:642$HTHQ(100HB)100RTB((HTSV(1))FA(1)HH)HL:TBHLTBHLTB,YPWWTB,YPWW:XPTB1ēTB,YPXPWW,YPHP0HTHQHB:652HTHQ(100HB)100TB((HTSV(1))FA(1)HH)HL:TBHRTBHRTB,YPWWTB,YPWW:TBXP1ēTBR,YP:BR,176:624QnIYP176BS:BL,IBR,I:I:BL,YPBL,176:BR,YPBR,176bpPS(1)0634rP1Ĕ66XPWW,YPWW:634tP2Ĕ67XPWW,YPWW:634vP3Ĕ68XPWW,YPWW:634xP4Ĕ69XPWW,YPWWzPS(2)1680|HB0658 ~HP0HT(FS)Č198%^FS1:OS(P)1:680R_FS0:XP,YP:OS(P)1XZXP:YZYP:OS(P)0vbPS(4)ēXZ,YZXP,YP:XZXP:YZYPdPS(7)0ī624fBLXPBX:BLHLBLHLhBRXPBX:BRHRBRHRjJWW(JWW)ī622lIBLBRBS:I,YPI,176:I:BL,176BL,YP:E1: dYUOS:XL:(L$(OS))2ĺL$(OS);"- ";S$(OS):362S hL$(OS);" - ";S$(OS)\ j330n lQ$(13)376 rQ1NS:Q$L$(Q)SEQ tQ:356 x XXP((HQSV(1))FA(1)HH)HL:YP176((VQSV(2))FA(2)HH):YP6YP176XPHRWWXPHL607]YUSE:XL::L$(SE);:(L$(SE))2ĝ:"- ";::S$(SE);::338Z P:" - ";::S$(SE);: ROSSE:Q$:Q(Q$):Q96QQ32:Q$(Q) ZQ27SEZZ:376 \Q13ī376 ^Q32ī364 `Q8Q11SESE1:SEZZSENS bQ21Q10Q32SESE1:SENS1SSEZZSE1# 4NSYU19NS19YUa 6Q1NS:XL2:QYU:(L$(Q))2ĖXL:L$(Q);"- ";S$(Q):320| >XL:L$(Q);" - ";S$(Q) @Q:20::"---------------------------------------":" TYPE LETTER OR USE THE ARROW KEYS":" THEN PRESS "? JQ(NU$)6:NU$NU$" ": B SB,WI%:EXZZ:(DF$)ZZī245h I1(DF$):DBI,((DF$,I,1)): DB,(DF$):RE:EX(SB9):EX2285 (DB)ZZDF$"":285 DF$"":I1(DB):DF$DF$((DBI)):  ,YU18YU18 0SENSSE1 2: N60000x*NSS0:FR1:OL$VL$:OU$VU$:PL$HL$:PU$HU$:HL41:HR278:LW6:P14:PA(P)AC(P):P:NA2GT1:20200 zN:"GRAPHING":8:"SELECT VALUES TO GRAPH:":L$(1)"T":S$(1)"INPUT VS. TIME":L$(2)"I":S$(2)"INPUT VS. INPUT":NS2:SE1:YU10:300:SE021570"NGTSE:GT120200kN:"SELECT AXIS":SP(1)0:AX12:Q$"HORIZONTAL":AX2Q$"VERTICAL"N4(8(AX2)):1:"SELECT INPUT FOR ";Q$;" AXIS:":I0:P14:AC(P)SP(1)P20140NII1:L$(I)(64P):S$(I)"INPUT "(64P)#NP:YU6(8(VP0&L^PS(7)024180&V^::"WIDTH OF THE BARS TO BE USED ON THE GRAPH (IN PIXELS): ";:DF$(BX2):WI%3:200:EX224650&j^BX(DF$)2&t^PS(8)0TI$OL$" VS. "PL$:24188'v^::"ENTER GRAPH HEADING: "::WI%40:DF$HD$:200:EX22465"%""%^WI%13:200:EX224650V%^(DF$,1)"%"HB((DF$,(DF$)1)):HP1:24100i%^HB(DF$):HP0%$^:"VERTICAL ERROR BAR SIZE : ";:DF$(VB):VP1DF$DF$"%"%.^200:EX224650%8^(DF$,1)"%"VB((DF$,(DF$)1)):VP1:24140&B^VB(DF$):19008$]:3:::"GRAPHING OPTIONS"::PS(2)024140%]"SELECT THE SIZES OF THE ERROR BARS"::"ENTER A NUMBER FOR ABSOLUTE SIZE":"OR A NUMBER FOLLOWED BY A ";QM$;"%";QM$:"FOR RELATIVE SIZE."::"HORIZONTAL ERROR BAR SIZE: ";:DF$(HB):HP1DF$DF$29600#TP:21549f#TJ1NR:HQY(N(SP(1)1)J):VQY(N(SP(2)1)J):600:(KC)155JNR:J:21560#(TJ:PS(5)PS(6)PSP(2):29600#-TD$;"FRE":DF$"":WI%1:200#8TFR0#BTFR120200#LT29000:NAAC(1)AC(2)AC(3)AC(4):SE3SE2ė:20200$jTN THE MINIMUM":21110."RSV(AX)Q:FA(AX)QQ6"RAXM"R24000:EX221560o"SI14:OS(I)1:I:GT221532"SP14:PA(P)021530" SJN(P1)1N(P1)NR:HQX(J):VQY(J):600:(KC)155JN(P1)NR:J:P4:P:KP,0:21560#>SJ:KP,0:PS(5)PS(6)İ TO PLOT: ";:NULX(AX):100:DF$NU$:WI%8:200:EX221570!RQ(DF$)::"MAXIMUM VALUE TO PLOT: ";:NU(HX(AX)Q)NL:1600:FA(AX)NU:NU(QFA(AX)CF):100:DF$NU$:WI%8:200:EX221570"RQQ((DF$)Q)CF:QQ0ĺ:10AX:958:"THE MAXIMUM IS LESS THA01 RPGPG10:LX(AX)0SV(AX)(SV(AX)PG)PG] 0RLX(AX)0SV(AX)1(SV(AX)PG)PGPG :RNU(HX(AX)SV(AX))NL:1600:FA(AX)NU:21220 NR:YU5:958:"RANGE OF VALUES TO PLOT:":NULX(AX):100:NU$;" TO ";:NUHX(AX):100:NU$ TO CONTINUE.":O$"V":PR$OL$" ("OU$")":V92.5(PR$)LW:H0:700:PR$PL$" ("PU$")":V188:H111:O$"H":700:PR$TI$:H(HLHR)2LW.5(PR$):V2:700)^HL,6HR,6HR,176HL,176HL,6:IHLHR10:(IHL)50((VQVQ:PSPSHQVQ:J:SN2299506sXAX1SN:YAY1SN:M(PSSNXAYA)(X2SNXA2):BYAMXA:SX(((X2SNXA2)(SN1))):SY(((Y2SNYA2)(SN1))):((SN1)SXSY)0RX1:2978066tRX(PSSNXAYA)((SN1)SXSY)6TtPS(5)0298907^tY0176(BMSV(J)!5sY(J)HX(AX)HX(AX)Y(J)d5sJ:NULX(AX):100:LX(AX)(NU$):NUHX(AX):100:HX(AX)(NU$):5sSN0:X10:Y10:X20:Y20:PS0:JN(P1)1N(P):HQX(J):VQY(J):GT2HQY((JN(P1))N(SP(1)1)):VQY(J)"6sSNSN1:X1X1HQ:Y1Y1VQ:X2X2HQHQ:Y2Y2:YU8:300:(QQ)SE3SESE1l4qSE1Ĺ49232,0:49234,0:49236,0:49239,0:DF$"":WI%1:200:EX229180}4qSE4İ260004qSE5250004qSS0:SE2SS14qSE0SE6SE2SE3291904q290004r5.":DF$"":WI%1:200:EX225320-pb20:958::"NOW PRINTING GRAPH...":PT125250-b7168,PR,SZ:SE2ĺD$;"PR#";PR:(12):D$;"PR#0"-b25320 .bD$;"PR#"PRINTOUT FORMAT:":L$(1)"1":S$(1)"SMALL GRAPH - NO FORM FEED":L$(2)"2":S$(2)"LARGE GRAPH - NO FORM FEED":L$(3)"3":S$(3)"SMALL GRAPH FOLLOWED BY FORM FEED":L$(4)"4":S$(4)"LARGE GRAPH FOLLOWED BY FORM FEED":NS4:YU2:SE2:300,aSE025320-fbSZ3:I0200100:V181:NUIFA(1)SV(1):100:PR$NU$:HHLI(PR$).5LW:700:IT+J`+a:"PRINT GRAPH":::"SELECT:":L$(1)"I":S$(1)"IMAGEWRITER":L$(2)"G":S$(2)"GRAPPLER":L$(3)"P":S$(3)"PKASO/U":NS3:YU5:SE1:300:SE025320,aPTSE::"SELECT P6010:(176I)50((176I)50)ēHL,IHL10,Ib*_HL,IHL5,I:I:(KC)155ĹKP,0:EX2:24650*_49232,0:49234,0:49236,0:49239,0:O$"H":I015050:NUIFA(2)SV(2):100:PR$NU$:HHL(PR$)LW:V176I:V176V174*_HLWHLWN+_700:I:O$"H":IHL)50)ēI,176I,164J)P_I,176I,169:PS(3)1āII166010:I,II:II)d_I:SV(2)0V176SV(2)FA(2):V0V176ēHL,VHR,V:VV5:H270:O$"H":PR$"0":700)x_SV(1)0HHLSV(1)FA(1):HHLHHRēH,6H,176:V172:HH7:O$"H":PR$"0":7001*_I161)SV(2))FA(2):Y0Y0(Y0176Y00)176(Y0176):Y9176(BM(SV(1)(HRHL)FA(1))SV(2))FA(2):Y9Y9(Y9176Y90)176(Y9176):HHL:VY0:M0X9HR:X0HL:29870H8tX0H(V0V176)(V0V176)((((176V)FA(2)SV(2)B)MSV(1))FA(1)HL):HHR:VY9:X9H(V0V176)(V0V176)((((176V)FA(2)SV(2)B)MSV(1))FA(1)HL)i8tX00X0HRX90X9HR29890z8tX0,Y0X9,Y98tPS(6)0299509tNUM:100:PR$"M= "NU$" ":NUB:100:PR$PR$"B= "NU$" ":NURX:100:PR$PR$"R= "NU$:V10(P1)8(NA1):HQ$(13)14800Q1NS:Q$L$(Q)SEQ=Q:1464CrNA0:PL0:P14:AC(P)NANA1:PL0PLPP:NA0ī1790NEMANA:NRZZ:VL$VL$(PL):VU$VU$(PL):P14:I1P:(AC(P))(AC(I))1780VL$(I)VL$(P)VL$"MIXED"VU$(I)2:1480Q321470)Q32ī1456FSE(SE)0SE(SE)1:1456TSE(SE)ZZvQ8Q11SESE1:SE0SENSQ21Q10SESE1:SENS1SE1YUOS:XL8:SE(OS)1ĺ"ON "SE(OS)0ĺ" OFF"YUOS:XL:L$(OS);" - ";S$(OS):1430EYS TO MOVE TO AN OPTION.";:"PRESS TO TURN THE OPTION":"ON OR OFF. PRESS WHEN ALL":"OPTIONS ARE SET AS YOU WANT THEM."YUSE:XL::L$(SE);:" - ";S$(SE);::OSSE:Q$::Q(Q$):Q96QQ32:Q$(Q)Q131480 Q27EX FILE:"::DF$N$:WI%65:200:EX21192< N$DF$::1195F N$""L b xEX0:YU18YU18y |NSYU19NS19YU ~Q1NS:XL11:QYU:XL8:SE(Q)1ĺ"ON " SE(Q)0ĺ" OFF"QYU:XL:L$(Q);" - ";S$(Q):Q:18::DA$:"USE THE ARROW K YU:4:Q$:Q(Q$):Q27SE2:4425 Q13442R Q$"Y"Q$"y"SE1:400p Q$"N"Q$"n"SEZZ:400 Q10Q11Q8Q21Q32439 SE1SE 403  1:PN$;:WI%1:DF$"":200:) L:"CURRENT PREFIX: ";PF$::"ENTER NAME OF10Q32SESE1:SENS1SE1U dYUOS:XL:(L$(OS))2ĺL$(OS);"- ";S$(OS):362n hL$(OS);" - ";S$(OS)w j330 lQ$(13)376 rQ1NS:Q$L$(Q)SEQ tQ:356 x : YU:1:SEZZĝ:"YES ";::"NO": SE1Ğ:"YES";::" NO"' THEN PRESS "Z JYUSE:XL::L$(SE);:(L$(SE))2ĝ:"- ";::S$(SE);::338u P:" - ";::S$(SE);: ROSSE:Q$:Q(Q$):Q96QQ32:Q$(Q) ZQ27SEZZ:376 \Q13ī376 ^Q32ī364 `Q8Q11SESE1:SEZZSENS bQ21QDF$DF$((DBI)): - ,YU18YU18= 0SENSSE1M 2SEZZSE1d 4NSYU19NS19YU 6Q1NS:XL4:QYU:(L$(Q))2ĖXL:L$(Q);"- ";S$(Q):320 >XL:L$(Q);" - ";S$(Q) @Q:20::DA$:" TYPE LETTER OR USE THE ARROW KEYS":" 41859,7:KP,0:300007 "VP III - PART.THREE"a"(C) 1988 VERNIER SOFTWARE 5/25/88"SB,WI%:EXZZ:(DF$)ZZī245I1(DF$):DBI,((DF$,I,1)):DB,(DF$):RE:EX(SB9):EX2285(DB)ZZDF$"":285 DF$"":I1(DB)::J::865:EL2000ġ&:21560(HLHR)2LW((PR$)2):700%9t9`::D$"PR#0":EL(219)CC(218):EC(222)::::"* ";:EC3ĺ"NO DEVICE CONNECTED";:600409EC69ĺ"OVERFLOW";:600409EC255600659"CODE  ";EC;:" ERROR ON LINE ";EL;" *"::J13000VU$(P)VU$"MIXED" I:P&\l41859,3:(860)1ĺD$"CHAIN /RAM/PART.ONE,@2460":12:"LOADING MAIN PART OF PROGRAM...":D$"CHAIN ";PS$;"PART.ONE,@2460":0u600003u:PF$""ĺD$;"PREFIX":PF$$6u"FILE OPTIONS"::"PREFIX: ";PF$:"FILE: ";N$;:(N$)0Ğ:"NONE";:;uQQ$N$:D$;"FRE":L$(1)"C":S$(1)"CATALOG":L$(2)"A":S$(2)"SELECT DATA DRIVE":L$(3)"N":S$(3)"SET NEW PRODOS PREFIX":L$(4)"L":S$(4)"LOAD DATA FROM DISK":L$(5)"S":S$(5)"SAVE DATA ON DISK":L$(6)"I":S$(6)"SAVE (S:"DELETE FILE"::N$"":1100:N$""35055 ̈:"ARE YOU SURE YOU WANT TO DELETE THE FILE";:PF$;N$;" ?":SE0:YU5:400:SE1SE2:35055 鈫35050 ꈺD$;"DELETE ";PF$;N$::::"FILE: ";PF$;N$;" DELETED.":::1000 N$QQ$:30003 35600+!(I1)):Y(JN(I1)):JII:"9999":"9999":I411:PA(I)QQI:I1uI:QQ:N(0):Q0:I14:(PA(I))34550QQNRQ:I:I14:VL$(I):VU$(I):I:D$"CLOSE ";N$::"DATA SAVED IN A FILE NAMED: ":N$:QQ$N$:::1000N$QQ$:30003, O EXIT":WI%1:DF$"":200:EX2340303ޅ34580f腗:"SAVE SELECTED INPUTS"::1100:N$""34580~35500:EX2ī34580 :"SAVING FILE : ";N$;:34320D$;"OPEN ";N$:D$;"WRITE ";N$:HL$:HU$:VL$:VU$:I14:(PA(I))34470jJ1NR:X(JN\Q0:II0:I14:AC(I)34170NlIIII1:SE(II)PA(I)SE(II):Q1:34170[uPA(I)ZZlzI:Qī34280(:"SAVE SELECTED INPUTS":::"NO INPUTS HAVE BEEN SELECTED.":"NO DATA WILL BE SAVED.":21:7)"PRESS TO CONTINUE":10)"PRESS TD$;"CLOSE ";N$::"DATA SAVED IN A FILE NAMED: ":N$:QQ$N$:::1000YsN$QQ$:30003_Є::"SAVE SELECTED INPUTS"::I1:II14:AC(II)L$(I)(64II):S$(I)"INPUT "(64II):II1*II:II14:SE(II)1:II:YU4:NSI1:SE1:1400:EX234580"$;")";QM$:1;",";0QM$;"(";VU$;")";QM$:P14:1;",";0:"BOT":Q$"INPUT "(64P)":":1;",";0:QM$;Q$;QM$:1;",";0:QM$;" ";QM$:(AC(P))33355'JN(P1)1N(P):1;",";0:"BOT":0;",";X(J):"V":0;",";Y(J):"V":JKP:1;",";0:"EOD"GZ):I:P14:VL$(P):VU$(P):P:33370"TABLE":0;",";1:QM$;QM$:"VECTORS":0;",";2:QM$;QM$:"TUPLES":0;",";NRNA6:QM$;QM$:"DATA":0;",";0:QM$;QM$:1;",";0:"BOT":1;",";0:QM$;HL$;QM$:1;",";0:QM$;VL$;QM$:1;",";0:"BOT":1;",";0:QM$;"(";HU,4)".DIF"(N$,4)".dif"SE2?$NS2:YU4:300:SE033395b+:"SAVING FILE : ";N$;:33070.D$;"OPEN ";N$:D$;"WRITE ";N$:SE233200GHL$:HU$:VL$:VU$:J1N(4):X(J):Y(J):J:"9999":"9999":I411:AC(I)QI:I1'I:Q:I04:N(ITORY CREATED WITH THE NAME:":PF$;DF$::1000:Z}30003e耗:"SAVE A FILE"::1100:N$""ī33395}35500:EX2ī33395 :"SAVE A FILE"::"SELECT FILE TYPE:"::L$(1)"N":S$(1)"NORMAL":L$(2)"D":S$(2)"DIF (FOR TRANSFER TO APPLEWORKS)":SE1:(N$";N$:"LOADED INTO MEMORY":::1000:QQ$N$?zN$QQ$:30003}:"CREATE SUBDIRECTORY":::"CURRENT PREFIX: ";PF$:::"ENTER NAME OF SUBDIRECTORY TO CREATE:":DF$"":WI%15:200:EX2DF$""32090$}:32050/2}D$;"CREATE";PF$;DF$::"NEW SUBDIRECJ1MA1:X(J):Y(J):X(J)9999Y(J)9999JMA1>y31200yJ:Q:I04:N(I):I:NR0:Q0:I14:N(I)QAC(I)1:QN(I):31408zAC(I)0zNR0NRQzI:P14:31414zVL$(P):VU$(P):P-zQNR:1700:NRQ:D$;"CLOSE ";N$::"FILE NAMED: 7500,31000,33000,34000,35000,32000:30003Hy38000:EX2EX0:31460m)y:"LOAD DATA FILE":N$""31460hy:"LOADING FILE : ";N$;:D$;"VERIFY ";N$:D$;"OPEN ";N$:D$;"READ ";N$:HL$:HU$:VL$:VU$:HL$(HL$,5):HU$(HU$,5):VU$(VU$,5):311603yADING A NEW DATA FILE WILL ERASE THE":"DATA CURRENTLY IN MEMORY. ":21:7)"PRESS TO CONTINUE":10)"PRESS TO EXIT";:WI%1:DF$"":200:EX230003u(SE5SE6)NR0ī30290u"NO DATA IN MEMORY"::1000:30003+RvSE37000,36000,3ELECTED INPUTS)":L$(7)"D" TO CONTINUE LISTING, OR":23:"ENTER THE FILE NUMBER TO LOAD: ";)tKC,0)~II(KC):II128II15538270*KP,0:II155ĺD$;"CLOSE":EX2:30(PF$));PF$;(::"NUMBER FILENAME BLOCKS MODIFIED":DA$:21:DA$:34,4:35,20:5:NF0:D$;"OPEN ";PF$;",TDIR":D$;"READ ";PF$:I$:I$(I$:(I$,12)"BLOCKS FREE:"ī38440((I$)0ī38140((I$,18,3)"TXT"ī38140K)$NF1;:(9):DF$)4DF$"/RAM")((DF$)4(DF$,5)"/RAM/")ĺ:"THE /RAM DISK IS NOT ACCESSABLE BY THIS PROGRAM."::37510'PF$DF$:37560'D$;"PREFIX ";PF$:D$;"PREFIX":PF$::"NEW PREFIX: ";PF$::1000'30003(pDF$""::"LOAD DATA FILE";:(PF$)20ĺ40:II155Ĺ34,0:35,24:D$"CLOSE":374995&237130&P34,0:35,24:23:958::"PRESS TO EXIT";:D$;"CLOSE":DF$"":WI%1:200:34,0:35,24&{30003&|:&:"SELECT NEW PREFIX: "::D$"PREFIX":PF$:DF$PF$:WI%65:200:EX237600o'((TDIR":D$;"READ ";PF$:I$:I$\% I$:(I$,12)"BLOCKS FREE:"Ĺ35,24:22:(I$,39):37200p%(I$)0ī37130%(I$,2,16);" ";(I$,18,3);" ";(I$,26,3);" ";(I$,48,9):II1:II0%(I16(I16)I0:II(KC):II141II155I16:37160*&*KP,,(S$(SE))161):D$;"PREFIX ";PF$:D$;"PREFIX ":PF$B$30003q$:"CATALOG";:(PF$)30ĺ40(PF$));PF$;%::"FILENAME TYPE BLOCKS MODIFIED":DA$:34,4:22:DA$:"PRESS TO CONTINUE THE LISTING":35,21:5:I0:D$;"OPEN";PF$;", "(SL%)" "(DR%)" /":CHI1IWI%:S$(II)S$(II)((CH)):CH:L$(II)(64II):PF$(S$(II),16,(S$(II))161)"/"SEII#(S$(II),16,(S$(II))161)"/RAM"IIII1#IIII1#"I#NSII1:YU4:300:SE0ī369997$PF$(S$(SE),16050350001EL375603750031EL3205032000G1EL3432034280j1EL31160EL31200NR0:31460y1EL2000ġ1J13000:J:30000!41859,7:KP,0:SE1245000,40000G "VP III - PART.FOUR"q"(C) 1988 VERNIER SOFTWARE 5/25/88"dSN$" ":NUZZSN$"-":NU(NU)nNUZZ150sPWR1:NU1135}NUPWRPWRPWRTT:125140NUPWRTTPWRPWRTT:135( YUSE:XL::L$(SE);:" - ";S$(SE);::OSSE:Q$::Q(Q$):Q96QQ32:Q$(Q)_Q131480tQ27EX2:1480Q321470Q32ī1456SE(SE)0SE(SE)1:1456SE(SE)ZZQ8Q11SESE1:SE0SENSQ21Q10SESE1:SENS1:SE(Q)1ĺ"ON ",SE(Q)0ĺ" OFF"QYU:XL:L$(Q);" - ";S$(Q):Q:18::DA$:"USE THE ARROW KEYS TO MOVE TO AN OPTION.";:"PRESS TO TURN THE OPTION":"ON OR OFF. PRESS WHEN ALL":"OPTIONS ARE SET AS YOU WANT THEM."P$"G"ĺ"APPLE IIGS CLOCK":CN4.32,0::W"INPUT DEVICE:";::ID$"V"ĺ"VIU";l*ID$"B"ĺ"AIB";-:29:"ACTIVE:";::P14:AC(P)ĺ(64P);:1360F" ";PP::xEX0:YU18YU18|NSYU19NS19YU~Q1NS:XL11:QYU:XL8AC(P):P:CL$:CL:PR:D$"CLOSE ";PS$;FI$:1700:8:"CALIBRATION FILE BEING USED:"::32,10:10:CT$:DT$:NA$CL$"G"(860)3CL$"S"CL$"P"ĺ"PRODOS CLOCK":CN2CL$"M"ĺ"MOUNTAIN CLOCK":CN3CL$"S"ĺ"SOFTWARE CLOCK":CN1 CLMM((Q$,7,2))HU((Q$,4,2))DD\6TI(P)TI:TITI1:TE(P)I(1,P)SL(P)(V(P)AV(1,P))e>P:1:PN$;:WI%1:DF$"":200:qD$"OPEN ";PS$;FI$:D$"READ ";PS$;FI$:CT$:DT$:NAME$:P14:VL$(P):VU$(P):I(1,P):I(2,P):AV(1,P):AV(2,P):SL(P):6,P:3072:3075:C(250)CC(251):V(P)(CET)1000M CN566,553,555,547#768,Q$:Q$(Q$,1):Q$(Q$,5)(Q$,9,9)".000":559)D$"PR#"CL:D$"IN#"CL:" ";Q$:557+D$"PR#"CL:D$"IN#"CL:Q$-D$"IN#0":D$"PR#0"%/TI((Q$,6))((Q$,10,2))"y"SE1:400-Q$"N"Q$"n"SEZZ:400SQ10Q11Q8Q21Q32439_SE1SEh400nID$"V"Ĺ252,2:253,0P14:AC(P)574ID$"B"534V(P)(P):V(P)V(P)DAVRVM:V(P)(V(P)1000HH)1000:Q1AD::54452ĺL$(OS)"- "S$(OS):3621 hL$(OS)" - "S$(OS): j330L lQ$(13)376g rQ1NS:Q$L$(Q)SEQs tQ:356y x YU:1:SEZZĝ:"YES ";::"NO": SE1Ğ:"YES";::" NO" YU:4:Q$:Q(Q$):Q27SE2:442 Q13442Q$"Y"Q$SE))2ĝ:"- ";::S$(SE);::338> P:" - ";::S$(SE);:i ROSSE:Q$:Q(Q$):Q96QQ32:Q$(Q)~ ZQ27SEZZ:376 \Q13376 ^Q32364 `Q8Q11SESE1:SEZZSENS bQ21Q10Q32SESE1:SENS1SE1 dYUOS:XL:(L$(OS))NSSE1 2SEZZSE11 4NSYU19NS19YUm 6Q1NS:XL3:QYU:(L$(Q))2ĖXL:L$(Q)"- "S$(Q):320 >XL:L$(Q)" - "S$(Q) @Q:20::DA$:" TYPE LETTER OR USE THE ARROW KEYS":" THEN PRESS "# JYUSE:XL::L$(SE);:(L$((NU$)8āQQ(NU$)6:NU$NU$" ":. P SB,WI%:EXZZ:(DF$)ZZī245v I1(DF$):DBI,((DF$,I,1)): DB,(DF$):RE:EX(SB9):EX2285 (DB)ZZDF$"":285 DF$"":I1(DB):DF$DF$((DBI)):  ,YU18YU18 0SEFCTRTZ(PWRTT):NU(NUFCTRHH)FCTRV NU$(NU):(NU$)4ĭ(NU)NUNU$NU$"."t (NU$,1)"."NU$"0"NU$ (NU$)5(NU1)NU$NU$"000":NU$(NU$,4(NU.1)(NU1)) NU$SN$NU$:NU0.01NU$SN$"0.00#":180 (NU$)7NU$SN$"#####"( SE1+YUOS:XL8:SE(OS)1ĺ"ON "CSE(OS)0ĺ" OFF"mYUOS:XL:L$(OS);" - ";S$(OS):1430Q$(13)1480Q1NS:Q$L$(Q)SEQQ:1464EX0:GS(49206):GS127Ĺ49206,GS12822)"VOLTS":14)"A B C D"'500:P14:(AC(P))1560ENUV(P):100:4P7:NU$;`P:Q(KC):Q1281535p!Q155EX2"::KP,0:GS(49206):GS128Ĺ49206,GS128,@:"SAVE CALIBRATION FILE":SE0:::"TODAY'S DATE: "::WI%15:DF$"":200:EX21688UI))40656E$ĞVL$(I)VL$:VU$(I)VU$:AV(2,I)AV(1,I)SL(I)0:40656q$͞SL(I)(I(2,I)I(1,I))(AV(2,I)AV(1,I))$ОI:VL$VL$(PL):VU$VU$(PL):P14:I1P:(AC(P))(AC(I))40671$ٞVL$(I)VL$(P)VL$"MIXED"$ܞVU$(I)VU$(P)VU$"MIXED"Q%ߞI:P:EADINGS":"HAVE STABILIZED, PRESS .":1500:EX240689#"ENTER THE KNOWN SIGNAL VALUE IN":"UNITS OF ";VU$":";:WI%8:DF$"":200:EX2DF$""II2:II:40689#I14:(AC(I))40632#I(II,I)(DF$):AV(II,I)V(I) $I::II:I14:(AC("UNITS OF INPUT SIGNAL (5 CHARS. MAX): ":WI%5:DF$VU$(PL):200:EX240689"VU$DF$:II12:QQ$"FIRST ":II2QQ$"SECOND"@#::"CONNECT THE INPUT(S) TO THE "QQ$" KNOWN";:"SIGNAL. THE VOLTAGE READ BY THE PROGRAM":"WILL BE DISPLAYED. WHEN THESE R::34,3:::"TO CALIBRATE THE ACTIVE INPUT(S),":"YOU WILL NEED TO CONNECT EACH INPUT":"TO A KNOWN SIGNAL. ONLY ACTIVE"!V"INPUTS WILL BE RECALIBRATED."::"LABEL OF INPUT SIGNAL (10 CHARS. MAX):":WI%10:DF$VL$(PL):200:EX240689M"|VL$DF$:::LIBRATE INPUTS":::"WARNING! THIS OPTION WILL CHANGE THE":"CALIBRATION OF ALL ACTIVE INPUTS."::1300:1:21:PN$:ES$;:WI%1:DF$"":200:EX240689|!UCT$"**FILE MODIFIED**":NA$"** BUT **":DT$"** NOT SAVED **"::"CALIBRATE INPUTS":1300(AC(P))402751PNUAV(I,P):100:4P7:NU$;^SP:I::"SLOPE";:P14:(AC(P))40289}_NUSL(P):100:4P7:NU$;aP:::1000:l:"LOAD NEW CALIBRATION FILE":42000:EX2FI$""40380:1200:22::1000Н1600: 4:"CA4:AC(P)40227C "INPUT ";(64P);":";VL$(P);" (";VU$(P);")"#::1300:::32,13:23)"INPUT":"A B C D":(DA$,24):32,0:I12::"ENTERED#"I;:P14:(AC(P))40260ANUI(I,P):100:4P7:NU$;DP::"READ #"I;:P14:*NS6:YU5:300:COSE:SE0SE61900WSE40100,40200,40300,40400,40500:40000:"READ VOLTAGE":::23:PN$;:3::1500::"CURRENT CALIBRATION"::CT$;:25:"CLOCK TYPE:"CL$:NA$;:25:"CLOCK SLOT:"CL:DT$;:23:"PRINTER SLOT:"PR::P1$(1)"READ VOLTAGE":L$(2)"C":S$(2)"CHECK CURRENT CALIBRATION":L$(3)"L":S$(3)"LOAD NEW CALIBRATION FILE":L$(4)"S":S$(4)"SAVE CURRENT CALIBRATION":L$(5)"Z"KS$(5)"CALIBRATE THE ACTIVE INPUTS":L$(6)"X":S$(6)"RETURN TO MAIN MENU":SECO:SE0SE1P)VU$"MIXED"I:P _lD$"FRE":41859,3:(860)1ĺD$"CHAIN /RAM/PART.ONE,@2460":12:"LOADING MAIN PART OF PROGRAM...":D$"CHAIN "PS$"PART.ONE,@2460":@60000J41859,7::"CALIBRATION MENU":D$"FRE":::" SELECT:":L$(1)"R":SRTS?"::YU23:SE0:400:SE1FI$"STARTUP.CAL":1642=lNA0:PL0:P14:AC(P)NANA1:PL0PLPP:NA0ī1790NEMANA:NRZZ:VL$VL$(PL):VU$VU$(PL):P14:I1P:(AC(P))(AC(I))1780VL$(I)VL$(P)VL$"MIXED"VU$(I)VU$(OPEN "PS$FI$:D$"WRITE "PS$FI$:CT$:DT$:NA$:P14:VL$(P):VU$(P):I(1,P):I(2,P):AV(1,P):AV(2,P):SL(P):AC(P):P:CL$:CL:PR:D$"CLOSE ";PS$FI$:SE116887::"DO YOU WANT THIS FILE TO BE USED AS":"THE CALIBRATION FILE WHEN THE":"PROGRAM STA:"PREFIXES CANNOT BE USED IN SAVING THE":"CALIBRATION FILE - PLEASE ENTER AGAIN";:I(DF$):I:1618\I:CT$DF$:FI$CT$".CAL"::::"SAVING CALIBRATION FILE AS:":FI$:D$"FRE":1638fD$"OPEN "PS$FI$:D$"CLOSE "PS$FI$jD$"DELETE "PS$FI$:D$"JDT$DF$:::"NAME OF PERSON DOING CALIBRATION:"::WI%20:DF$"":200:EX21688aPNA$DF$R::"NAME OF CALIBRATION FILE: "::WI%9:DF$"":200:EX21688VDF$""ĺ::"INVALID FILENAME - ENTER AGAIN";:1618hXI1(DF$):(DF$,I,1)"/"ĺ:::"SAVE THIS CALIBRATION DATA ON DISK?"::SE0:YU23:400::SE0SE240689[%1600i%:KP,P:%DF$""::"LOAD CALIBRATION FILE";:(PS$)20ĺ40(PS$))PS$;6&8::"NUMBER FILENAME BLOCKS MODIFIED":DA$:21:DA$:34,4:35,20:5:NF0:D$"FRE":D$"OPEN "PS$",TDIR":D$"READ "PS$:I$:I$]&I$:(I$,12)"BLOCKS FREE:"42490p&(I$)042150&Ĥ(I$,18,3)"TXT"42150&ΤII213:(I$,II,4)".CAL"42230&⤂II:42150'NF1;:(9):(I$,2,16)" ";(I$,26,3)" "(I$,48,9):NFNF1 INPUT."::"PRESS TO EXIT":ID$"B"45463R46,SE:3072:3078:45472g4V(1)(SE):3075s4KP,0:4`D$"PR#0":::EL(219)256(218):EC(222)::::"* ";:EC3ĺ"NO DEVICE CONNECTED";:600405pEC4ĺ"DISK WRITE PROTECTED";:60040)3gII1:L$(I)(64P):S$(I)"INPUT "(64P)V3jP:YU6:NSI:SE1:300:SE045472u3pI0:P14:(AC(P))454333vII1:SEISEP:P43yP54|958:::"THE FREQUENCY OF THE TONE BEING":"PRODUCED IS PROPORTIONAL TO THE":"VOLTAGE APPLIED TO THER):WI%1:200:EX24538482(DF$)0(DF$)845377y2%::"INVALID SLOT NUMBER, PLEASE REENTER":1000:EX24538423:6:958:453142APR(DF$)2H2X:"AUDIO INPUT TEST"::::NA2SEPL:454363a"SELECT:":I0:P14:(AC(P))45418/T NUMBER":452571۰CLQ1ްCL$L$(SE):12::CL$"G"Ģ12:"THE GS CLOCK MUST BE SET TO 24 HOUR":"MODE. THIS IS SET WITHIN THE CLOCK":"OPTION ON THE CONTROL PANEL."::10001갱1:"SELECT PRINTER SLOT"24:"SLOT NUMBER OF PRINTER: ";:DF$(PE045290+0CNSE:SE4(860)345257q0ð11::"THE GS CLOCK REQUIRES AN APPLE IIGS."::1000:EX245290|0ư452030ɰSE1SE4452780̰:11:"SLOT NUMBER OF CLOCK: ";:WI%1:DF$(CL):200:EX2EX2452901հQ(DF$):Q1Q7ĺ:"INVALID SLO CLOCK":L$(3)"M":S$(3)"MOUNTAIN CLOCK":L$(4)"G":S$(4)"APPLE IIGS CLOCK":::CL$"S"ĺS$(1);:45233/CL$"P"ĺS$(2);" (SLOT #";CL;")":45233/CL$"M"ĺS$(3);" (SLOT #";CL;")":45233/S$(4); 0:" CURRENTLY IN USE":NS4:SECN:YU5:300:S OR MORE INPUT(S) MUST BE SET."::1000:45133R.ID$"V"(NA1AC(3))45196.:::"NO OTHER INPUTS CAN BE ACTIVE":"WHEN INPUT C IS ACTIVE."::1000:45133..:i/:"SELECT CLOCK":L$(1)"S":S$(1)"SOFTWARE CLOCK":L$(2)"P":S$(2)"PRODOS INPUTS"::L$(1)"A":S$(1)"INPUT A":L$(2)"B":S$(2)"INPUT B":L$(3)"C":S$(3)"INPUT C":L$(4)"D":S$(4)"INPUT D":I14:SE(I)AC(I):I:YU4:NS4(ID$"V"):SE1:1400:I14:AC(I)SE(I):I:1700-NNA0ī451860.v::"NO INPUTS HAVE BEEN SET. ":"ONESE45100,45300,45200,45400:450005,,NR045133,2:"SELECT INPUTS":::"WARNING!":::"SELECTING NEW INPUTS WILL DESTROY":"CURRENT DATA."::7)"PRESS TO CONTINUE":10)"PRESS TO EXIT";:WI%1:DF$"":200:EX245186-M:"SELECT+֯41859,7::"OTHER OPTIONS MENU":L$(1)"I":S$(1)"SELECT INPUTS":L$(2)"S":S$(2)"SELECT PRINTER SLOT":L$(3)"C":S$(3)"SELECT CLOCK":L$(4)"A":S$(4)"AUDIO INPUT TEST":L$(5)"X":S$(5)"RETURN TO MAIN MENU":NS5:YU3:SENS:300+ׯSE0SENS1900%,:D$"READ "PS$:I$:I$9*rI$:(I$,18,3)"TXT"42610_*II213:(I$,II,4)".CAL"42670n*II:42610*IQFI$(I$,2,16):D$"CLOSE":42690*II1:42610*¦I116:((FI$,I,1))32FI$(FI$,I1):I16*̦I*֦34,0:35,24:+ȯ60000SE":34,0:35,24:22:958:"TYPE THE FILE NUMBER TO LOAD: ";:WI%3:200:EX242710),Q(DF$):Q0QNFĢ22::22:958:"FILE NUMBER OUT OF BOUNDS":PN$:ES$;:DF$"":WI%1:200:EX242710)@Q0QNFĹ34,0:35,24:42000*JI1:D$"OPEN "PS$",TDIR"$DF$(II128),(23:33:DF$" ";:KC,0G(II(KC):II12842400(KP,0:(DF$)0ĭII136II255DF$(DF$,1,(DF$)1):42380(II14142470(ȥII155ĺD$"CLOSE":EX2:42710(ҥII176II18542380(ܥ42370(楺D$"CLOSE":42540V)D$"CLO:NF15(NF15)42150r'35,24:22:1:(PN$,26)" LISTING, OR":23:"ENTER THE FILE NUMBER TO LOAD: ";:KC,0'PII(KC):II128II15542320'ZKP,0:II155ĺD$"CLOSE":EX2:42710'nII141Ģ20::20:35,20:42150'xII176II18542380(DF5rEC6EC7ĺ"PATH NOT FOUND";:60040H5tEC8ĺ"I/O ERROR";:60040x5uEC16EL1638ĺ"IMPROPER FILENAME";:600405vEC9ĺ"DISK FULL";:600405wEC10ĺ"FILE LOCKED";:600405xEC17ĺ"DIRECTORY FULL";:600406yEC16ĺ"SYNTAX ERROR";:60040&6zEC19ĺ"DUPLICATE NAME";:60040O6{EC13ĺ"FILE TYPE MISMATCH";:60040n6EC69ĺ"OVERFLOW";:600406EC255600556"CODE  ";EC;6EL1638600506" IN LINE #";EL6 7:865:D$"CLOSE":EL1638ĺ::"ENTER AGAIN"::HRBRHR!jJWW(JWW)ī622dlIBLBRBS:I,YPI,176:I:BL,176BL,YP:BR,YP:BR,176:624nIYP176BS:BL,IBR,I:I:BL,YPBL,176:BR,YPBR,176pGS(1)0634rP1Ĕ66XPWW,YPWW:634tP2Ĕ67XPWW,YPWW:634 vP3Ĕ68XPWW,YP)HH)HL:YP176((VQSV(2))FA(2)HH):YP6YP176XPHRWWXPHL607]](FS)Č198s^FS1:OS(P)1:680_FS0:XP,YP:OS(P)1XZXP:YZYP:OS(P)0bGS(4)ēXZ,YZXP,YP:XZXP:YZYPdGS(5)0ī624fBLXPBX:BLHLBLHL hBRXPBX:BR0":5590)D$"PR#"CL:D$"IN#"CL:" ";Q$:557N+D$"PR#"CL:D$"IN#"CL:Q$f-D$"IN#0":D$"PR#0"/TI((Q$,6))((Q$,10,2))MM((Q$,7,2))HU((Q$,4,2))DD6TI(P)TI:TITI1:TE(P)I(1,P)SL(P)(V(P)AV(1,P))>P:LXXP((HQSV(1))FA(152,2:253,0$P14:AC(P)5746ID$"B"534V(P)(P):V(P)V(P)DAVRVM:V(P)(V(P)1000HH)1000:Q1AD::5446,P:3072:3075:C(250)CC(251):V(P)(CET)1000 CN566,553,555,547 #768,Q$:Q$(Q$,1):Q$(Q$,5)(Q$,9,9)".00YU:1:SEZZĝ:"YES ";::"NO":ASE1Ğ:"YES";::" NO"hYU:4:Q$:Q(Q$):Q27SE2:442vQ13442Q$"Y"Q$"y"SE1:400Q$"N"Q$"n"SEZZ:400Q10Q11Q8Q21Q32439SE1SE403 ID$"V"Ĺ2376 ^Q32ī3647 `Q8Q11SESE1:SEZZSENSa bQ21Q10Q32SESE1:SENS1SE1 dYUOS:XL:(L$(OS))2ĺL$(OS);"- ";S$(OS):362 hL$(OS);" - ";S$(OS) j330 lQ$(13)376 rQ1NS:Q$L$(Q)SEQ tQ:356 x :$-------------":" TYPE LETTER OR USE THE ARROW KEYS":" THEN PRESS " JYUSE:XL::L$(SE);:(L$(SE))2ĝ:"- ";::S$(SE);::338 P:" - ";::S$(SE);: ROSSE:Q$:Q(Q$):Q96QQ32:Q$(Q) ZQ27SEZZ:376 \Q13ī2851 DF$"":I1(DB):DF$DF$((DBI)):7 H ,YU18YU18X 0SENSSE1h 2SEZZSE1 4NSYU19NS19YU 6Q1NS:XL3:QYU:(L$(Q))2ĖXL:L$(Q);"- ";S$(Q):320 >XL:L$(Q);" - ";S$(Q)Y @Q:20::"--------------------------/ NU$SN$NU$:NU0.01NU$SN$"0.00#":180M (NU$)7NU$SN$"#####"v (NU$)8āQQ(NU$)6:NU$NU$" ":| SB,WI%:EXZZ:(DF$)ZZī245 I1(DF$):DBI,((DF$,I,1)): DB,(DF$):RE:EX(SB9):EX2285 (DB)ZZDF$"":135" }NUPWRPWRPWRTT:125+ 140K NUPWRTTPWRPWRTT:135v FCTRTZ(PWRTT):NU(NUFCTRHH)FCTR NU$(NU):(NU$)4ĭ(NU)NUNU$NU$"." (NU$,1)"."NU$"0"NU$ (NU$)5(NU1)NU$NU$"000":NU$(NU$,4(NU.1)(NU1))41859,7:KP,0:52000D "VOLTAGE PLOTTER III "n "PART FIVE: REAL TIME GRAPHING ""COPYRIGHT 1988 ""VERNIER SOFTWARE "("VERSION 5/25/88"dSN$" ":NUZZSN$"-":NU(NU)nNUZZ150 sPWR1:NU11000:16007EL2000ġ=7J1(EC255)3000:J:1900WW:634#xP4Ĕ69XPWW,YPWW5zGS(2)1680C|HB0658[~HP0HTHQHB:642rHTHQ(100HB)100TB((HTSV(1))FA(1)HH)HL:TBHLTBHLTB,YPWWTB,YPWW:XPTB1ēTB,YPXPWW,YPHP0HTHQHB:652HTHQ(100HB)100-TB((HTSV(1))FA(1)HH)HL:TBHRTBHR]TB,YPWWTB,YPWW:TBXP1ēTB,YPXPWW,YPkVB0680VP0VTVQVB:664VTVQ(100VB)100TB176((VTSV(2))FA(2)HH):TB6TB6XPWW,TBXPWW,TB:YPTB1ēXP,TBXP,YPWWVP0ARS TO BE USED ON THE GRAPH (IN PIXELS): ";:DF$(BX2):WI%3:200:EX255640h"BX(DF$)2"׭GS(6)0TI$OL$" VS. "HL$:55188"׺::"ENTER GRAPH HEADING:"::WI%40:DF$HD$:200:EX255640"TI$DF$:HD$DF$#ח::::"THE GRAPH IS "%"HB((DF$,(DF$)1)):HP1:55100:!2HB(DF$):HP0z!<׺:"VERTICAL ERROR BAR SIZE: ";:DF$(VB):VP1DF$DF$"%"!Fװ200:EX255640!P׭(DF$,1)"%"VB((DF$,(DF$)1)):VP1:55140!ZVB(DF$):VP0!d׭GS(5)055180X"n׺::"WIDTH OF THE B055140 ֺ"SELECT THE SIZES OF THE ERROR BARS"::"ENTER A NUMBER FOR ABSOLUTE SIZE":"OR A NUMBER FOLLOWED BY A ";QM$;"%";QM$:"FOR RELATIVE SIZE."::"HORIZONTAL ERROR BAR SIZE: ";:DF$(HB):HP1DF$DF$"%" WI%13:200:EX255640'!(׭(DF$,1):YU5:SE1:1400:EX252280oˁI16:GS(I)SE(I):I:BS2:BX5:HB0:VB10:HP0:VP1:SSİ57000:EX252280̰55000:EX252280.̰580008̰59000:SE3SE252060L̫1900 HL$"TIME":HU$"SEC."::3:::"REAL TIME GRAPHING OPTIONS"::GS(2)IME GRAPHING":::"SELECT GRAPH STYLE:":L$(1)"P":S$(1)"POINT PROTECTORS":L$(2)"E":S$(2)"ERROR BARS":L$(3)"G":S$(3)"GRID ON THE GRAPH":L$(4)"L":S$(4)"LINE CONNECTING POINTS":L$(5)"B"]S$(5)"BAR GRAPH":L$(6)"T":S$(6)"SPECIFY GRAPH TITLE":NS6BlD$"FRE":41859,3:(860)1ĺD$"CHAIN /RAM/PART.ONE,@2460":12:"LOADING MAIN PART OF PROGRAM...":D$"CHAIN ";PS$;"PART.ONE,@2460": ˥600004SS0:HL41:HR278:LW6:OL$VL$:OU$VU$\˗:I14:PA(I)AC(I)::I16:SE(I)GS(I)::"REAL TQ21Q10SESE1:SENS1SE1IYUOS:XL8:SE(OS)1ĺ"ON "aSE(OS)0ĺ" OFF"YUOS:XL:L$(OS);" - ";S$(OS):1430Q$(13)1480Q1NS:Q$L$(Q)SEQQ:1464@100:NUNUPW:NU(22(NU2)(NU4)5(NU5))PW:E SET AS YOU WANT THEM."nYUSE:XL::L$(SE);:" - ";S$(SE);::OSSE:Q$::Q(Q$):Q96QQ32:Q$(Q)}Q131480Q27EX2:1480Q321470Q32ī1456SE(SE)0SE(SE)1:1456SE(SE)ZZQ8Q11SESE1:SE0SENS$1ĺ"ON "$SE(Q)0ĺ" OFF"QYU:XL:L$(Q);" - ";S$(Q):Q:18::"---------------------------------------":"USE THE ARROW KEYS TO MOVE TO AN OPTION.";:"PRESS TO TURN THE OPTION":"ON OR OFF. PRESS WHEN ALL":"OPTIONS AR2FA(1)TS(270HL):FA(1).005.005(FA(1).005).01(FA(1).01).03(FA(1).02).05(FA(1).05).1(FA(1).1).1(FA(1).2).3(FA(1).3):FA(1)FA(1)60PWxKP,0:EX0:YU18YU18|NSYU19NS19YU ~Q1NS:XL11:QYU:XL8:SE(Q)":":HO10HO$"0"HO$>MI$(MI)":":MI10MI$"0"MI$_SC$(SC):SC10SC$"0"SC$pDY0DY$""DF$DY$HO$MI$SC$:PW0:TS172800FA(1)((TSDD(200(270HL))1)2)2200DD:1296TSMMTSTSMM:PW1TSMMTSTSMM:PW19:II((DF$,I,1)):II48II57EX2:945I:TS((DF$,8,2))((DF$,6,2))MM((DF$,4,2))HU((DF$,3))DD:TSTSBTTSTSBT:DY(TSDD):DY$(DY)"/":HO((TSDYDD)HU):MI((TSDYDDHOHU)MM):SC(TSDYDDHOHUMIMM.5):HO$(HO)Q((PR$,CH,1)):Q96QQ323Q31Q96Q32SQ31H,VWW:O$"V"VVLWfO$"H"HHLWnCHt(DF$)12Q$"000:00:00:00":DF$(Q$,12(DF$))DF$EX0:(DF$)12EX2:945-DF$(DF$,3)(DF$,5,2)(DF$,8,2)(DF$,11,2):IVTVQVB:674&VTVQ(100VB)100WTB176((VTSV(2))FA(2)HH):TB176TB176XPWW,TBXPWW,TB:TBYP1ēXP,TBXP,YPWW(PR$)0ī7320:O$"V"Ę48CH1(PR$):H0H0V188V188VWWVWWH275H10BEING SET UP...":O$"V":PR$OL$" ("OU$")":V92.5(PR$)LW:H0:700:PR$HL$" (HH:MM:SS)":V188:H93:O$"H":700:HL,6HR,6HR,176HL,176HL,6:IHLHR10:(IHL)50((IHL)50)ēI,176I,164#^ؓI,176I,169:GS(3)1āII166010:I,II:IIP$r؂I:SV(2)0V176SV(2)FA(2):V0V176ēHL,VHR,V:VV5:H270:O$"H":PR$"0":700$حSV(1)0HHLSV(1)FA(1):HHLH(HRHL)ēH,6H,176:V172:HH7:O$"H":PR$"0":700$؁I166010:(176I)50((176I)50)ēHL,IHL10,I%ؓHL,IHL5,I:I:(KC)155:GS128Ĺ49206,GS128(2ST058790?2NRI1:NA258710|2(NR440)(KC)127ĉ::12:"SAVING DATA IN MEMORY..."2I0:PPL14:AC(P)0587002IINR:II1NR:X(III)X(N(P1)II):Y(III)Y(N(P1)II):II2LP.3VHU$"SEC.":HL$"TIME":X1415856061500:SF0:((TI(PL)TL)TD)(ST)SF1O14P14:AC(P)58520^1HSF584801\Y(IN(P1))TE(P):X(IN(P1))TI(P)BT1pJIN(P1):HQTI(P):VQTE(P):6001P:SFTLTLTD:II11TIBTDT583801(7);(7);(7);2GS(49206)C)12858230#0{(KC)15558810E0KP,0:49232,0:CL$"S"İ500l0SV(1)TI:BTTI:TLBTTD:ST583500NRRP:N(0)0:P14:AC(P)N(P)N(P1)NE:583400N(P)N(P1)0P0GS(49206):GS127Ĺ49206,GS1280KP,0:I1 1 (KC)155(KC)Y:"::PA(1)ĺ"INPUT A - SQUARE"C/gPA(2)ĺ"INPUT B - TRIANGLE"b/hPA(3)ĺ"INPUT C - CIRCLE"/iPA(4)ĺ"INPUT D - DIAMOND"/l::"PRESS TO BEGIN DATA":"COLLECTION. WHEN THE GRAPH IS":"COMPLETED, PRESS TO CONTINUE."0v(K:HHL100(PR$).5LW:700:TS(200FA(1)TI):950:PR$DF$:(PR$)8PR$(PR$,8)t.:((PR$,2))0PR$(PR$,5).DV181:O$"H":HHL200(PR$).5LW:700:PR$TI$:H(HLHR)2LW.5(PR$):V2:700:49233,0::::(GS(1))58220"/e"POINT PROTECTOR KE(I)1:I:TI0:CL$"S"İ500R-BTTI:TSTI:950:PR$DF$:(PR$)8PR$(PR$,8)r-((PR$,2))0PR$(PR$,5)-V181:O$"H":HHL(PR$).5LW:700:TS(100FA(1)TI):950:PR$DF$:(PR$)8PR$(PR$,8)-((PR$,2))0PR$(PR$,5)T.O$"H":V181DTNA)((DTNA)DTNA):RPNERPNEL,DF$(RP):WI%3:200:EX257350,II(DF$):IIRPĺ::"THE MAXIMUM NUMBER OF READINGS IS: ";RP:57270,߭II1ĺ::"YOU MUST STORE AT LEAST ONE ENTRY":57270,RPII:TDDTRP,-EX0:KP,0:I14:OSWI%11:200:EX2ī57350Y+߰900:EX2ĺ::"ILLEGAL TIME - PLEASE ENTER AGAIN":57180+߭TSNA1ĺ::"TIME TOO SMALL - PLEASE ENTER AGAIN":57180+DTTS:1200:ST0ī57350',ߺ::"NUMBER OF READINGS TO BE STORED":"OVER THIS TIME PERIOD: ";:RP(L: ";:DF$(MT):WI%5:200:EX2ī57350*4MT(DF$):FA(2)(MTSV(2))170:FA(2)0ĺ::"THE MAXIMUM IS LESS THAN THE MINIMUM":57050*RNUFA(2):1600:FA(2)NU+\ߺ::"LENGTH OF TIME OVER WHICH THE INPUT(S)":"ARE TO BE MONITORED: ";:TSDT:BT0:950:ܫ59000i)ޗ:"REAL TIME SCALING"::"DO YOU WANT TO SAVE THE DATA? ":YU4:SE0:400:SE2EX2:57350s)STSE)޺::"MINIMUM ANTICIPATED INPUT LEVEL: ";:DF$(MN):WI%5:200:EX2ī57350)*SV(2)(DF$):MNSV(2):::"MAXIMUM ANTICIPATED INPUT LEVENTING GRAPH...":PT156250i(ۺD$"PR#";PR:D$"PR#0":7168,PR,SZ:SE2ĺD$;"PR#";PR:(12):D$;"PR#0"t(۫56320(ۺD$;"PR#"PR:PT2ĺ(9)"GE";:SZ3ĺ"DR"(ۭPT2ĺ:56300(ۭSZ1ĺ(9)"H"(ۭSZ3ĺ(9)"10H"(ۭSE2ĺ(12)(ۺ:D$;"PR#0" )ORM FEED":L$(4)"4":S$(4)"LARGE GRAPH FOLLOWED BY FORM FEED":NS4:YU2:SE2:300c'ۭSE056320|'~SZ3:SE1SE3SZ1'ۢ15::"BE SURE PRINTER (SLOT #";PR;") IS READY,":"THEN PRESS .":DF$"":WI%1:200:EX256320(ۢ20:958::"NOW PRIL$(2)"G":S$(2)"GRAPPLER":L$(3)"P":S$(3)"PKASO/U":NS3:YU5:SE1:300:SE056320S'PTSE::"SELECT PRINTOUT FORMAT:":L$(1)"1":S$(1)"SMALL GRAPH - NO FORM FEED":L$(2)"2":S$(2)"LARGE GRAPH - NO FORM FEED":L$(3)"3":S$(3)"SMALL GRAPH FOLLOWED BY FĹKP,0:EX2:55640%ع49232,0:49234,0:49236,0:49239,0:O$"H":I015050:NUIFA(2)SV(2):100:PR$NU$:HHL(PR$)LW:V176I:V176V174%حHLWHLW%ذ700:I%XٱV&ڗ:"PRINT GRAPH ON PRINTER":::"SELECT:"::L$(1)"I":S$(1)"IMAGEWRITER":(0)X(1):P14:AC(P)N(P)N(P1)NR:58780>3N(P)N(P1)E3PK3:m3(KC)155(KC)141ī58800{3SV(1)0:i4xD$;"FRE":KP,0:::"GRAPH FOLLOW-UP OPTIONS":::"CURRENT GRAPH:":OL$;" VS. ";HL$::" SELECT:":L$(1)"D":S$(1)"DISPLAY PREVIOUS GRAPH":L$(2)"R":S$(2)"REGRAPH - SAME SCALE":L$(3)"S":S$(3)"CHANGE SCALE AND REGRAPH":L$(4)"O"5yS$(4)"PRINT GRAPH":L$(5)"X":S$(5)"RETURN TO MAIN MENU":SE2:NS5:YU8:300:SE1Ĺ49232,0:49234,0:49236,0:49239,0:DF$"":WI%1:200:EX25918TSTSBT:DY(TSDD):DY$(DY)"/":HO((TSDYDD)HU):MI((TSDYDDHOHU)MM):SC(TSDYDDHOHUMIMM.5):HO$(HO)":":HO10HO$"0"HO$MI$(MI)":":MI10MI$"0"MI$SC$(SC):SC10SC$"0"SC$DY0DY$""DF$DY$HO$MI$S"000:00:00:00":DF$(Q$,12(DF$))DF$GEX0:(DF$)12EX2:945DF$(DF$,3)(DF$,5,2)(DF$,8,2)(DF$,11,2):I19:II((DF$,I,1)):II48II57EX2:945I:TS((DF$,8,2))((DF$,6,2))MM((DF$,4,2))HU((DF$,3))DD:TSTSBTMN)I4.0)MN:100&wIII15636=xIIII1:" ";:631Y|NU$;:IIII(NU$):I: 1:ML$;:15:"A B C D":5:MU$;:P14:AC(P)816/(5P72((VU$(P))2)):"(";VU$(P);")";0P:PO(36)0ĺ4DA$:)(DF$)12Q$0":5590 )D$"PR#"CL:D$"IN#"CL:" ";Q$:557N +D$"PR#"CL:D$"IN#"CL:Q$f -D$"IN#0":D$"PR#0" /TI((Q$,6))((Q$,10,2))MM((Q$,7,2))HU((Q$,4,2))DD 6TI(P)TI:TITI1:TE(P)I(1,P)SL(P)(V(P)AV(1,P)) >P:XII0:I04:NU((MT52,2:253,0$ P14:AC(P)5746 ID$"B"534 V(P)(P):V(P)V(P)DAVRVM:V(P)(V(P)1000HH)1000:Q1AD::544 6,P:3072:3075:C(250)CC(251):V(P)(CET)1000 CN566,553,555,547 #768,Q$:Q$(Q$,1):Q$(Q$,5)(Q$,9,9)".00YU:1:SEZZĝ:"YES ";::"NO":A SE1Ğ:"YES";::" NO"h YU:4:Q$:Q(Q$):Q27SE2:442v Q13442 Q$"Y"Q$"y"SE1:400 Q$"N"Q$"n"SEZZ:400 Q10Q11Q8Q21Q32439 SE1SE 403  ID$"V"Ĺ2SN$"#####"7 (NU$)8āQQ(NU$)6:NU$NU$" ":= ^ SB,WI%:EXZZ:(DF$)ZZ245 I1(DF$):DBI,((DF$,I,1)): DB,(DF$):RE:EX(SB9):EX2285 (DB)ZZDF$"":285 DF$"":I1(DB):DF$DF$((DBI)):  :$ WRTT:1357 FCTRTZ(PWRTT):NU(NUFCTRHH)FCTRe NU$(NU):(NU$)4ĭ(NU)NUNU$NU$"." (NU$,1)"."NU$"0"NU$ (NU$)5(NU1)NU$NU$"000":NU$(NU$,4(NU.1)(NU1)) NU$SN$NU$:NU0.01NU$SN$"0.00#":180 (NU$)7NU$ 41859,7:KP,0:SE7460000SE847000;48000U "VP III - PART.SIX""(C) 1988 VERNIER SOFTWARE 5/25/88"dSN$" ":NUZZSN$"-":NU(NU)nNUZZ150sPWR1:NU1135}NUPWRPWRPWRTT:125140 NUPWRTTPWRP ";EC;76" ERROR ON LINE ";EL;" *"::J13000:JM6:865:EL2000ġX65900005SE456000'5SS0:SE2SS1F5"SE0SE5SE2SE359190Q5,59000W565`::D$"PR#0":EL(219)CC(218):EC(222)::::"* ";:EC3ĺ"NO DEVICE CONNECTED";:600405EC69ĺ"OVERFLOW";:600405EC25560065 6"CODE C$:'1:PN$;:WI%1:DF$"":200:LTSTSBT:HO(TSHU):MI((TSHOHU)MM):SC(TSHOHUMIMM.5):HO24HOHO(HO24)24{HOZZHO$" ":1160~HO$(HO)":":HO10HO$" "HO$MIZZHOZZMI$" ":1180 MI$(MI)":":MI10MI$"0"MI$,SC$(SC):SC10SC$"0"SC$>HO$MI$SC$;:}lD$"FRE":41859,3:(860)1ĺD$"CHAIN /RAM/PART.ONE,@2460":12:"LOADING MAIN PART OF PROGRAM...":D$"CHAIN "PS$"PART.ONE,@2460":60000ID$"B"460505ij"LOADING NECESSAR47510& NUTE(P):100:5P7:NU$;6 P::47320\ GS(49206):GS128Ĺ49206,GS128 ȹ:34,0:35,24:NRJ1:NA247710 JNA50Ģ12:"SAVING DATA IN MEMORY..." I0:PPL14:AC(P)047700!"IINR:II1NR:X(III)X(N(P1)II):Y(III)0&츰500:I1100:I:KB12847490m KP,0:"ENTER ";HL$;" IN ";HU$;": ";:WI%8:DF$"":200:EX247550(36,0:958:J;:NU(DF$)OV:100:5:NU$;:PPL4:(AC(P))47470ZY(JN(P1))TE(P):X(JN(P1))(DF$)OVnP:JJ1 PPL4:AC(P):MU$"("HU$")":800:(23):" PRESS TO ENTER VALUES, ":9)"PRESS TO EXIT";:34,3:35,22:N(0)0:P14:AC(P)N(P)N(P1)NE:47290N(P)N(P1)P:GS(49206):GS127Ĺ49206,GS128θJ1:(4)ظKB(KC):KB155ĹKP,0:4755FOR THE INDEPENDENT":"VARIABLE: ";:WI%5:DF$HU$:200:EX247790HU$DF$:::"ENTER OFFSET VALUE (IF AN OFFSET":"VALUE IS ENTERED, IT WILL BE":"SUBTRACTED FROM EACH ENTRY)":WI%8:DF$(OV):200:EX247790LOV(DF$):::1000::ML$"# "HL$OWS YOU TO COLLECT INPUT ":"SIGNAL DATA (DEPENDENT VARIABLE) ":"VS. VALUES ENTERED ON THE KEYBOARD ":"(INDEPENDENT VARIABLE)."::"ENTER THE LABEL FOR THE INDEPENDENT ":"VARIABLE: ";:WI%5DF$HL$:200:EX247790DHL$DF$:::"ENTER THE UNITS ڶPP1:P4P1(䶭(AC(P))46810dJ:X(0)X(1):HU$"MSEC.":HL$"TIME":ID$"V"HU$"SEC." ID$"V"Ĺ235,0:206,CCNNKP,0:::1000:D$"BLOAD ";PS$;"LP.1200,A$1200":190060000:"MONITOR INPUT VS. KEYBOARD":::"THIS MODE ALL:C(VVJ2)(UUJ2)CC:ID$"B"V((C4096)VR)VM:46770PV(CSM)1000Y((((J1)NA)NA)N(P1))I(1,P)SL(P)(VAV(1,P)):ID$"B"X((((J1)NA)NA)N(P1))J(YYD):46800ƶX((((J1)NA)NA)N(P1))((J1)(SMDL).5SM)жNA1468304612I,P1:II1'굂P:4608:46630@3081,3(NA2):3075f&GS(49206):GS128Ĺ49206,GS1280:20:"SAVING DATA IN MEMORY...":RP((254)CC(255))2:NR(RPNA):N(0)0:P14:AC(P)N(P)N(P1)NR:46710lN(P)N(P1)>vP:PPL:J1NRNAE BAR> TO BEGIN READING":6)"PRESS WHEN FINISHED":8:" NOW READING DATA #"KB(KC):KB160KB15546470KB155EX2:4686022:38):KP,0:GS(49206):GS127Ĺ49206,GS128ID$"V"46600µ4616,NA1:I0:P14:AC(P)ĺ:"INVALID ANSWER -- ENTER AGAIN.":46320ZQNEĺ::"THE MAXIMUM IS: ";NE::46320CGQ:NRQ:RPNRNA:Q252:ID$"B"Q7[6Q,(RP2)(RP2CC)CC:Q1,((RP2)CC)::"COLLECT AND STORE DATA":4:"READY TO COLLECT DATA...":22:3)"PRESS 'VKP,0:D$"PR#";PR::"STRIP CHART RECORDER":"":TSDT:950:"RECORDING TIME: ";DF$::30:VL$;" ("VU$")":" TIME";:600(NE)-%ʼDF$(RP):WI%3:200:EX2ī49200|%޼II(DF$):ST1IIRPĺ::"THE MAXIMUM NUMBER OF READINGS IS: ";RP:48270%輭II1ĺ::"YOU MUST STORE AT LEAST ONE ENTRY":48270&RPII:TDDTRP:::"BE SURE PRINTER (SLOT #";PR;") IS READY."::::1 AGAIN":48200O$zTSNA1ĺ::"TIME TOO SMALL - PLEASE ENTER AGAIN":48200Y$DTTS$::ST1ĺ"NUMBER OF READINGS TO BE STORED":48300$"NUMBER OF READINGS TO BE PLOTTED"%"OVER THIS TIME PERIOD: ";:RP(DTNA)((DTNA)DTNA):RPNERPEX2ī49200e#*MT(DF$):SA59.0(MTMN):SA0ĺ::"THE MAXIMUM IS LESS THAN THE MINIMUM":48100#H::"LENGTH OF TIME OVER WHICH INPUT(S)":"ARE TO BE MONITORED: ";:TSDT:950:WI%11:200:EX2ī49200$f900:EX2ĺ::"ILLEGAL TIME - PLEASE ENTERNU$)6:NU$NU$" ": > SB,WI%:EXZZ:(DF$)ZZī245d I1(DF$):DBI,((DF$,I,1)): DB,(DF$):RE:EX(SB9):EX2285 (DB)ZZDF$"":285 DF$"":I1(DB):DF$DF$((DBI)):  ,YU18YU18 0SENSSE1 2SEZL$(8)"C":S$(8)"COLLISION (NORMAL)":L$(9)"I":S$(9)"COLLISION (INVERTED)":L$(10)"X":S$(10)"RETURN TO MAIN MENU":YU5:NS10:SETG:300:SE0SE10EX2:21380qRTGSE:BASE5,SE:11:958::SE3ī21190$R:"ENTER INPUT TO BE USED FOR TRIGGERING: TRIGGERING:":L$(1)"0":S$(1)"AUTOMATIC AT 0 VOLTS":L$(2)"V":S$(2)"AUTOMATIC AT ANOTHER VOLTAGE":L$(3)"A":S$(3)"ANOTHER INPUT (A-D)":L$(4)"L":S$(4)"PB0 LOW":L$(5)"H":S$(5)"PB0 HIGH":L$(6)"S" RS$(6)"":L$(7)"N":S$(7)"NO TRIGGERING":(QL):WI%8:200:EX220380vOQL(DF$):::"SPEED BEFORE THE COLLISION:";:NUQLQB:100:NU$;"M/SEC":"SPEED AFTER THE COLLISION:";:NUQLQA:100:NU$;"M/SEC"::1000O24000:EX21900O20100REX0:D$"FRE"::"OSCILLOSCOPE":::" SELECT :QQ(BASE15I)256I:I:QAQ23790.7:"AFTER: ";:NUQA:100:NU$;" SEC":O"DO YOU WANT THE SPEEDS BEFORE AND AFTER":"THE COLLISION CALCULATED?":YU9:SE0:400:SE120380`O::"ENTER LENGTH OF OBJECT BLOCKING THE GATE";:"(IN METERS): ";:DF$,VW:BASE11,SW:BASE:::IN(BASE9):VW(BASE10):SW(BASE11):GS(49206):GS128Ĺ49206,GS128vNSE820380OO"TIMES MEASURED DURING EXPERIMENT:":Q0:I02:QQ(BASE12I)256I:I:QBQ23790.7::"BEFORE: ";:NUQB:100:NU$;" SEC":Q0:I02"LOADING NECESSARY FILES...":23000:Q$PS$:(860)1Q$"/RAM/"RND$;"BLOAD ";Q$;"WAVE.0,A$8600":D$;"BLOAD ";Q$;"WAVE.DATA,A$8F00":BASE3,SL:BASE4,1(VR20):BASE9,INN21000:EX220380N22000:GS(49206):GS127Ĺ49206,GS128fNBASE10 SLOT:"(SL):TX$(3)"TRIGGERING: "TG$:TX$(4)" PRESS TO EXIT":l861:41859,3:(860)1ĺD$"CHAIN /RAM/PART.ONE,@2460":12:"LOADING MAIN PART OF PROGRAM...":D$"CHAIN ";PS$;"PART.ONE,@2460": N60000A4NINPL:: ":1529!SW$"10 ":15298SW$"20 ":1529OSW$"50 ":1529fSW$"100 ":1529}SW$"200 ":1529SW$"500 ":1529SW$"1000 ":1529]TX$(1)"VOLTS/DIV:"VW$" MSEC/DIV:"SW$:TX$(2)" INPUT:"(IN64)" ":1513%VW$"0.25 ":1513=VW$"0.125 ":1513UVW$"0.0625 ":1513mVW$"0.03125":1513SW11517,1518,1519,1520,1521,1522,1523,1524,1525,1526,1527SW$"0.5 ":1529SW$"1 ":1529SW$"2 ":1529 SW$"5 Q((PR$,CH,1)):Q96QQ326Q31Q96Q32VQ31H,VWW:O$"V"VVLWiO$"H"HHLWqCHw1:PN$;:WI%1:DF$"":200:VW11505,1506,1507,1508,1509,1510,1511VW$"2 ":1513VW$"1 ":1513 VW$"0.5442Q134421Q$"Y"Q$"y"SE1:400OQ$"N"Q$"n"SEZZ:400uQ10Q11Q8Q21Q32439SE1SE403(PR$)0ī7320:O$"V"Ę48CH1(PR$):H0H0V188V188VWWVWWH275H10"6 dYUOS:XL:(L$(OS))2ĺL$(OS);"- ";S$(OS):362O hL$(OS);" - ";S$(OS)X j330h lQ$(13)ı rQ1NS:Q$L$(Q)SEQ tQ:356 x : YU:1:SEZZĝ:"YES ";::"NO": SE1Ğ:"YES";::" NO"YU:4:Q$:Q(Q$):Q27SE2:SE:XL::L$(SE);:(L$(SE))2ĝ:"- ";::S$(SE);::338V P:" - ";::S$(SE);: ROSSE:Q$:Q(Q$):Q96QQ32:Q$(Q) ZQ27SEZZ:376 \Q13ī376 ^Q32ī364 `Q8Q11SESE1:SEZZSENS bQ21Q10Q32SESE1:SENS1SE1ZSE1 4NSYU19NS19YU] 6Q1NS:XL4:QYU:(L$(Q))2ĖXL:L$(Q);"- ";S$(Q):320x >XL:L$(Q);" - ";S$(Q) @Q:20::"---------------------------------------":" TYPE LETTER OR USE THE ARROW KEYS":" THEN PRESS "; JYU";:DF$TC$:WI%1:200:EX2ī21380@RQ(DF$)64:Q4QQ32pRQ1Q4ĺ::"ENTER AN INPUT (A-D)":21140RTC$DF$:BASE8,QRSE1CT2048:DF$"0":21280R:SE3SE2ī21300+R::"ENTER THE TRIGGER VOLTAGE":"BETWEEN ";VM;" AND ";VMVR;" :";:DF$(VL):WI%4:200:EX2ī21380} S(DF$)VM(DF$)VMVRĺ::"ENTER A LEVEL BETWEEN ";VM;" AND ";VMVR:21210SVL(DF$):CT((VLVM)VR4096) SBASE7,(CT256):BASE6,CT(CT256)2564SSE3TG$"AUTOMATIC AT "DF$" VOLTS"(RSSNULL.A 4/16/88 D. VERNIER POTENTIAL VOLTS 0 3 0 3 1 1 POTENTIAL VOLTS 0 3 0 3 1 0 POTENTIAL VOLTS 0 3 0 3 1 0 POTENTIAL VOLTS 0 3 0 3 1 0 S 4 1 NULL 4/16/88 D. VERNIER POTENTIAL VOLTS 0 3 0 3 1 1 POTENTIAL VOLTS 0 3 0 3 1 0 POTENTIAL VOLTS 0 3 0 3 1 0 POTENTIAL VOLTS 0 3 0 3 1 0 S 4 1  ";EC;;%" ERROR ON LINE ";EL;" *"::J13000:JQ%:865:EL2000ġ\%20100`:49232,0:49235,0:49236,0:49239,0:1500:21:I13:TX$(I):I:TX$(4);:5:1000::24002$`D$"PR#0":EL(219)CC(218):EC(222)::::"* ";:EC3ĺ"NO DEVICE CONNECTED";:60040$EC69ĺ"OVERFLOW";:60040$EC25560065 %"CODE :H20:V147(8I):700:I:20:"NOW PRINTING GRAPH...":PT124645i#6`7168,PR,SZ:D$;"PR#";PR:24680#E`D$;"PR#"PR:PT2ĺ(9)"GE";:SZ3ĺ"DR"#O`PT2ĺ:24680#T`SZ1ĺ(9)"H"#Y`SZ3ĺ(9)"10H"#h`SE2ĺ(12)#m`:D$;"PR#0"#r`24002_$|D BY FORM FEED":NS4:YU2:SE2:3005"_SE024690N" `SZ3:SE1SE3SZ1"`15::"BE SURE PRINTER (SLOT #";PR;") IS READY,":"THEN PRESS .":DF$"":WI%1:200:EX224690E#`20:958:"REDRAWING GRAPH...":O$"H":LW7:1500:I13:PR$TX$(I)ASO/U":NS3:YU5:SE1:300:SE024690%"_PTSE::"SELECT PRINTOUT FORMAT:":L$(1)"1":S$(1)"SMALL GRAPH - NO FORM FEED":L$(2)"2":S$(2)"LARGE GRAPH - NO FORM FEED":L$(3)"3":S$(3)"SMALL GRAPH FOLLOWED BY FORM FEED":L$(4)"4":S$(4)"LARGE GRAPH FOLLOWEJ14)):V(PL)CTDAVRVM:V(PL)I(1,PL)SL(PL)(V(PL)AV(1,PL)):TIJSDSR:X(J)TI:Y(J)V(PL)::X(0)X(1):HU$"MSEC.":HL$"TIME":FR1 ^24002(!_:"PRINT GRAPH":::"SELECT:":L$(1)"I":S$(1)"IMAGEWRITER":L$(2)"G":S$(2)"GRAPPLER":L$(3)"P":S$(3)"PK200:24175e^SD500:241752j^SD1000:24175Xo^PLIN:NR(BASE28):(NR)NR256^NRNR15:N(0)0:P14:AC(P)0:N(P)(PPL)NR:P:AC(PL)1:NA1:NEMA:J1NR:(KC)155JNR:NEMANA:NR0:J:KP,0:24310 ^CT(HA(J14)):CTCTCC:CTCT(LD(,0::20:"SAVING DATA IN MEMORY...":(BASE11)124120,24125,24130,24135,24140,24145,24150,24155,24160,24165,241708^SD1:24175=^SD1:24175B^SD2:24175G^SD5:24175L^SD10:24175Q^SD20:24175V^SD50:24175[^SD100:24175 `^SD$(2)"DISPLAY PREVIOUS IMAGE":L$(3)"R":S$(3)"RETURN TO OSCILLOSCOPE":L$(4)"O":S$(4)"PRINT GRAPH ON PRINTER":L$(5)"X"]S$(5)"RETURN TO MAIN MENU":YU7:NS5:SE1(FR4):300:SE0SE5EX2:24080]SE24100,24700,24080,24500:24002^v$^KP(4);:(860)1ĺD$"BLOAD /RAM/";SR$:22390EVD$;"BLOAD ";PS$;SR$KvWYBU,169:BU1,20:BU2,32:BU3,245:BU4,190:BU5,96:BU:]FR0{]:EX0:"OSCILLOSCOPE FOLLOW-UP OPTIONS":6:"SELECT:":L$(1)"S":S$(1)"SAVE DATA TO MEMORY":L$(2)"D":SE3TG$"INPUT "TC$", "DF$" VOLTS"@\SSE4TG$"PB0 LOW"YfSSE5TG$"PB0 HIGH"spSSE6TG$"SPACE BAR"zSSE7TG$"OFF"SSE8TG$"COLLISION (NORMAL)"SSE9TG$"COLLISION (INVERTED)"S,U::3:1500::21:I13:TX$(I)::TX$NULL.C 4/16/88 D. VERNIER POTENTIAL VOLTS 0 3 0 3 1 0 POTENTIAL VOLTS 0 3 0 3 1 0 POTENTIAL VOLTS 0 3 0 3 1 1 POTENTIAL VOLTS 0 3 0 3 1 0 S 4 1 NULL 4/16/88 D. VERNIER POTENTIAL VOLTS 0 3 0 3 1 1 POTENTIAL VOLTS 0 3 0 3 1 0 POTENTIAL VOLTS 0 3 0 3 1 0 POTENTIAL VOLTS 0 3 0 3 1 0 S 4 1