TD v06i 6/BASIC Utilities Library Disk 2for HP200 seriesB9836 vUNSECURE P  UNSECURE2 P5 MSUS PJ GRFS Y# GRFS |' GRFS P1        REVID CONFIG PS SYSTEM Pd HELP Pz LISTER PP XREF PE HEADING P SECURE P!    %82905DUMP P0 FILE_STAT PF$ HPIB_STAT Pj9 RS232_STATP< GPIO_STAT P/ REVID T P  MEM_PEAK P      ?[=]   $H (@сղH$ 2END OF CONFIG PROGRAM.H$׳ѲH & 0H:1.HD(@H E H NtH6X2ERROR: 2 CONFIG PROGRAM  H*8A&b1= Look in BOOT ROMH*V Hard BASICH,  `A  BASIC 2.0? ($80000)H,t Soft BASICH  `Aĸ됳H H A&b H AH,* Display whether hard/soft BAS (@, 2 I CONFIGURATION SUBPROGRAM@ ,<@ F@ P@6 Z+**r*@ 6dѲ@ n@x~~|| ~ " A D} @PH( DETERMINE SCREEN WIDTHH ( 2* ղ*H қ ӲH ܽH  ӵ2*ղH2K,/,K H@2* ղ CONFIGURATION ղ*H @ H: 2* ղPR ABORTED.H6b׳HlH vH .-PHz""  .D A D" A*D0<JPTZICH,4H > H H 2HARDH R$H \ 2SOFTH fHL p2 8X,K,K,X,K,K2*** 2 SERIES 200 2 BASIC 2.0 ***H2Lz ! Not in correct version of BASIC.H2 ׳HH ղH  A6!A($ A2* 6  < h BMJMRNZ .b`j@ p0Ć|X0P<ĆL@ 0Ć@ 0pĆ0d@ D+@ OGRAM ղ*H:2K,/,K H" ӵ2*ղH ,#H 6 ӲH @ ѲH JXH T!P?$H< ^2.This CONFIG program does not work in BASIC 1.0H< h2CONFIG ABORTED.H r׳H|H .ht|~fagBasicr Type NuestdromsSystemSysbaseRomlocsWConfigBasic2Type Numstdroms NumstoptromsStartHdrType$ Standard_roms RomtabsizeOpt_flgROffsetRomhdrRev_infoDumpoptxH,  SCAN OPTION ROMS/BINARIES TABLEH., !( SIZE OF ROM LOCATIONS TABLEH .H ʛH< ԛ2 9X,K,2/2 *** OPTION ROMS AND BINARIES ***H <޶H* 趎 FOR EACH ENTRY STARTING WITH 4H(* (SKIP JELLO)10 !SERIES 200 BASIC UTILITIES LIBRARY,20 !Disc 2 -- 09800-1030530 !9/23/82 REV A/40 !Copywright Hewlett-Packard Company, 1982 XREF PE HEADING P SECURE P! Wd Inthpib_badLink$Ecopy$StaConfigConfigBasic2W InterfaceCard Inthpib_badLink$Copy$Stars$FNSpa$FNPage$FNRpt$SystemBasic: Which_basic Check_stat Done_check Typing_aid Interface More_info FinishIdl(@͐H2 $! If error, then must be BASIC 2.0H2 ! "(@рղH "ѲH: ‘2,DO YOU WANT MORE INFO ABOUT INTERFACE CARDS?H:̅YESHֆNOHEXIT 䳎HH! H!!!H4Av됶 ROM_LOCATIONS TABLE ($FFFFF98A)H 4H6 ƶ+*******GET ADDRESS OF START OF SYSTEM******H86Л211X,K,/2*** SYSTEM CONFIGURATION ***R@nn@ x! x! x! Config @6 +**12-14-81 ** *@$6 REVISED: 9/23/82@ $@  eMore @4) Subprogram to print system configuration@44( including ROM header and interface card@44( information. (For Series 200 BASIC 2.0)H4! H% H@@- [=[[00@80(oelocsSysrevPartrefRomnum Standard_romsStartRomlocsSysrevPartrevRomnumS_indexP_indexR_indexRomhdr Get_sysrev# Get_partrevROffset Max_sysrevTHF6BK,3D,KBROM REVISION IN ROM ȟB IS INCORRECT.HF @H JH TnH^ZHJhʛB 14X,K,K,KB*** ALL ROMS REV !A" ***H JrH |H ׳ K,3D,K,K kDISTINGUISHES NON-SCRATCHABLE/H0 SCRATCHABLEH@ H H !!H(!$ OFFSET FOR NAME LENGTHH&(!& OFFSET FOR ROM NAMEH &жH ڶ ROM NAMEHBH"A&b\0 Ć)* 0 scId Colob_outputEcard$Msg Interface InterfaceCard Inthpib_badIscId Color_outputCard$Msg$InternalH No_inthpibAIIDX No_dmaG No_graphicsBNo_b, GRAPHICS AND Q)H$( ARE THERE OPTION ROMS?H$ H&   GET ADDRESS OF ROM HEADERH& 쐳H $A&bH .zP@萳H  8P@A&b萳H B H$ Lx NON-NIL POINTaIRom_flgJImage1Image2SuSlPuPlH(%))H0(춎% CHECK SYSREV AND PARTREV IN EACH ROMH 0H H  H CHECK FIRST ROMH  H ( H 2 H <~H F K,3D,K,  FROM BYTES 12 AND 13 OF ROMHDRH,A&b ! H!?H1!@퐳HA&b ! H!?H1!@퐳H萳H 萳H 萳H ,  H" A&bH4H@ BGanglia Shared Resource Mgmt. Rev AH@B#,31AH  H *A&bH$4A. $F0FF=>NSBH"$ >BNon-scratchable BINH"HT  BINARYH RVERH$ VA&b!H `p PSEUDO ROM?H jPH8tB* NAME TYPEH8 ~H  H ղH HHH&22X,KNoneH&ıH ζ쐳H P A&bH Z 8 P@萳H  d P@A&b萳H n H x H H H H 泎H ǀǵ!޳H  ǐH H ȹHҴHDܛ   FROM BYTES 14 AND 15 OF ROMHDRH,A&b !H&H0H:A&b !HDHNH X萳H bH lHv F\L  4BScratchable BINH\Hf.p ** @z r ( + L !A( A2&D*. <  B0H0ZH@2f ^  D !"$",4<DxL@ T0Ć`@ l0Ćxph`XPHB 13X,K,K,KB*** SYSTEM REVISION !A" ***H DH H nH \H  H ȁȵ!HL"BK,3D,K,KBROM REVISION IN ROM ȟB IS ȵ!@HL , ZT  D D$,.g @ @ <DumpoptHdrptrName$FlagLenoffNameoffN Interface :H( DUMP OPT ROM/BIN HEADER INFOH0($ FLAG R@ DT0`ln0Ćp@ r0Ćtv@ x0Ć@ 0Ć@ 0Ć@ 0Ć@ 0Ć@ 0Ć@ 0 BĆ@ "0 Ć@  [=[[OCror:@  @  @  %@   #  % F@8 &B/,8X,KBNo interface cards in system.@8 0 ȳ@H :B4X,19A,15A,12AB Select CodeB Card NameBCard ID@H D! @  SRM@" * DATA COMM@" 4@( >!&" COLOR OUTPUT @.( HB UNKNOWN& NAME NOT IN TABLE@ . R@  \4 f &**0@ p*zt@@@!@0B! Remedy error and press CONTINUE.&0 Search for internal cards@ &@< ޛB 4/, 9X,K,/B*** PERMANENT SELECT CODES ***<  @ @  @8  1 1 1 z @. BPOWERFAIL OPTION:BPresent@ .   1\@2 BPOWERFAIL OPTION:B Not Present@ 2  RESET ERROR 135@  @  Ƚ$@  ґBError:@  ܽ@  湳@      Nǀ @  Xǐ@  b&ղ@& lB4X,6D,10X,19A,4D@& v@  @  |@8 B/,10X,KB1 interface card in system.@ 8  TOTAL_CARDS>1@<  B /,8X,2D,KB interface car  +!A(D A2 "M&..484<C BD.HGL96\0fnb IscIdMore InterfaceCard Inthpib_badA$FNPage$HpibIscIdRs232Gpi@ A<>190: 9/9/82@$8 BHP-IB:BPresent@ $   $ 1d@( .BHP-IB:B Not Present@ ( 8@  B"RESET ERROR 135@  L@  V$@  `BError:@  j@  t ~  9X,21A,11A@  (  Search for external cards.@ ( @6  "B 3/,13X,K,/B*** INTERFACE CARDS ***@ 6 ,@  6! h@  @ǀ@  J J@ T !@( ^!   LOOP SEL. CDS.@<( h zds in system.@< @  '.!@ P@hB ^0)* D Ndookup$IscIdPers Card$Mobe@ 0 FNLookup$IscIdPers-oBcdDisc_interfaceDatacommEndingHpib@ z= @ @@ Ӳ@$ чՁյINTERNALղ@$ !@  ǐ@$ յEXTERNALղ@$ , ղu@ @" BDMA:BPresent@ "   1N@& BDMA:B Not Present@ &  RESET ERROR 135@  ĸ@  ν$@  ؑBError:@  @  칳  @  REA #2&Color output card uses 2 select codes.@< r@" |!# USE BITS 0-4@" ! @  @  萳@  #  !1 @  %RESET ERROR 135@  #@  ̸ ڳ@  ֽ$@  BEr  Card$More@  HPIB@  4 RS232@  R GPIO@ p BCD@$ DISC INTERFACE@$ !@ @ Ե _@ D ղ@ \ ղ@ t ղ@ ! ղ@ 䳎  4  &**N@&`F`&T . External Total_cards Error_routine#Next_iscOut FNLookup$Ending@& Search for I/O cards, DMA,@2&& internal graphics and battery back up@2 cards.@% @!!!/D ID REG.@  @&  B GRAPHICS:BPresent@ &   (1Z@* 2B GRAPHICS:B Not Present@ * <"RESET ERROR 135@  F@  P$@  ZBError:@  d@  n x @  [=[[!!!!! !@&$B2/,K,K,/B HP-IB:@&. ղ@8@"B BSYSTEM CONTROLLER:@"L@ VBYes@`@ jBNo@t@"~ BACTIVE CONTROLLER:@"l\ $ 4 D D! JF&@ 40Ć8@ <0Ć@@ D0ĆHLN0XdBa1I1IRs232IscIdStat Parity_typeType$ Std_p B@b0l"**ʳ(@v @Pz  ! 96 D 11  D&,l6JFDR@ X0 NĆ\ BAsync@   @ *"$ Pers=2 (DL)@ 4BDL@  >@ H@RT@  \Ǥ@ f6@ p@ z!@  Ǥ@ v@!@B BAUD RATE:@ BYes@@ BNo@@$ ! Use low 5 bits@"$ěBPRIMARY ADDRESS: @""׶' Not active@ "؛ BDEVICES ACTIVE:@ ?%@ )@ @ &NArintoutI1I2I3I Stop_bits Parity_typeDatacomm@!!@"D@",B2/,K,/BRS-232:@"6ղ@@@JB BAUD RATE:@T@^  @ `0 bĆd@ h0 vĆl@ p0@Ćv@ |0hĆ@ 0Ć@ 0Ć@ 0Ć@ 0Ćt Blk_size Not_supDatacommIscIdAlpha$BaudPersStatBlkR@@" BExternal Clocking@"@ ʛǤ@Թ@@ !"@(  BBITS PER CHARACTER:褳@( !#@4  B STOP BITS:(?褳@4 !$@   D lD(l.6JF<@ J0ĆN@ R0ĆV@ Z0Ć^@ b0Ćn@ z0@Ć@ 0Ć0@ Kdevice_fl@  @ 쐳@ !T@ ( @ 2?%@  <) F?%@  P@ Z@ dB#,K@  n@ x@@ B#,K,KB,@ YBPARITY:@hn@ r BDisabled@|@  BEnabled@ 萳@  γ@   Ǥ@  @* B22A,KB PARITY TYPE: Ǥ@*¹@>@  @  y_size Not_supported Std_printoutNodeI1I2I3AsyncDlIBothAlphaRead M_handshakeGpioG@!E@!%@!!!!wagStatDHpibIscIdA$AddressA Device_flagStatDevicePrim Std_printoutI2I3I1 No_devices Next_deviceTimeout2 Done_pollingRs232@z@ @" ߵ! SPOLL DISABLE"&@׳BNone@   24A,K   #,24A  K@2  %**&*@f@L, ! BIT(Stat,2)=1@ |@ (?@ @  @ @@&&BNUMBER OF STOP BITS:@&0׳(: odd,even,always 1,always 0(D 24A,KN  #,24AX  K *@@&2/,K,/SRM:@,& 2/,K,/ DATA COMM:@, ղ@B׳@@  @   B NODE ADDRESS: @ ׳@@B PERSONALITY:@ @ [=[[y vel is same as select code @B @ @ ೎@.@`  J  JF D  l$@ (0Ć,@ 00Ć4u`portedIndErrErr@ :kr n0M D 0 UB0FNSpa$XIR$@ !@ ʽA@ B@ @ ! @ Գ@  @ @@ $@ . B PARITY TYPE:Ǥ@ 8% Pers=2 (DL)@ B!@& L B GID ADDRESS:!@@& V!@& ` B DID ADDRESS:!@@&j@t!@ ~@ @*  BMO**x@$@v@$n C D JFGpioIscId Std_printoutBcd4@ B2/,K,/BGPIO:@ ղ@~@  @ ׳"  PRINT INV OR NON-INV@" 8@ › B non-inverted@̸X@ ֛ Binverted@๳@ @ * **4@@,tx| I Std_printoutIscId Not_supportedIntErrI1 @ !@ ƿ,@н @ڛB SELECT CODE:@BCARD ID:@@!@DEM HANDSHAKE TYPE:Ǥ@*!@$BNONACTIVITY TIMEOUT:@$B minutes@@ҳ@  ν$@@ ؛B/,KB(**SWITCH R ON SELECT CODE SWITCH CLUSTER@6@ ⛵BKB SHOULD BE SET TO OFF P4  '***@@ vj|b D. D  DJF @ .Ć2@ 6Ć:>@ B0ĆL O t G D 4!A(& A2,D0:JFHVDisc_interfaceIscIdDum InterfaceCardInt Interrupt Not_supported Std_printoutI@ 萳@" BINTERRUPT LEVEL:@"׳   24A,K *1d@@4B1Interface not supported in this version of BASIC.@ @>@ H@ R$@> \BError:B! Remedy error and press CONTINUE.@ *OSITION.**@6칳@׳*   READ DATA INTO ALPHA$ ARRAY@*  6@  Ǥ@ @  (( 2 0,50,75,110,134.5,150,200( < 0,=0: F, 300,600,1200,1800,2400,3600,4800,9600,19200tV_cupportedLctd_printoetI2Ir I3I3BcdIscIdStat Not_supported Std_printoutI2I3BitInvertedDisc_interface S@ܼ!!@曵B2/,K,/BBCD:@ղ@׳ % @!!!@*&B2/,K,/BDISC INTERFACE:@*0 ղ@:׳@D@N萳@X !t@ b ǀb@ l @ vZ@BB1WARNING: Interrupt le>f@ p@ z @ @Pnn0M@'FORMAT:@'FORMAT:@'FORMAT:@'FORMAT:FNPage$ R@" ٵ#,K1!K@" B @ @P U.: P none,odd,even,always 0,always 1>.Z0 Hardware handshake off,Full duplex,Half duplex@$>d : Hardware handshake on,0$ n  24A,K x #,24A  K@4  &**@@BFORMAT:@&@ " BStandard@,F@ 6 BOptional@@@JBDATA:@T @ ^ @ hBSIGN #1:@r @ | @ BSIGN #2:@  [=[[ML:@ V @ `@  j@ t~ 6vDRn6 P<0Ć   \*0ing_ Typing_aid Typing_aidToggleString1$String2$PtemAlphaGraphicsBin HighlightsDrivesMsus$Im1Im Bin_presentI@4 ( System subprogram and Driver. 9/23/82@4ղ@ٵ#,KK@.("Alpha:" chara :OWN@  J@ T@^ @"h @!"None" r   25A,K | 25A,K,K@ X @ | ~ X 0  ( 2 lH v 2 INTERNAL HPIBH  A&bQ?" $3FFEH  H:, REV 1.0 OF BOOT ROM, DRIVES VALUE NOT VALIDH:H<A&b1(!# $FFFFFED8 ! # OF DISC DRIVESH<1zH  H Ƹ@8, SUBPROGRAM TO SET UP THE OUTPUT TO KEYBOARD@88, TO TURN OFF TYPING AIDS IN BASIC 2.1 DURING@8 PROGRAM EXECUTION@ @P@P@& 1!P1!X@&& 1!X1!C@& cters wide@.21P@.< " Graphics:"400 x 300 pixels@.F@.P " Graphics:"512 x 390 pixels@.Z@dس@4n 2Screen Highlights:2 Not present@4x@0 2Screen Highlig 50'6>FL DT\@ @&System AlphaGraphicsBif HighligSystemAlphaGraphicsBin HighlightsDrivesMsus$SysflagHlightsHpibBoot_idFNMsus$BinariesH  萳H ڹH乳H ӲH ղHH  HPnl 0 D X0 *6DJRX`FNMsu @. ΂ٵ#,K# SCRATCH KEY@. ظ*@, ٵ#,K#LOAD KEY@, 칳@ @  SUB TYPING_AIDP/ hts:2Present@0@( 2Internal disc drives:@( 2Msus:@  @ 2Binaries Present:@  @ ǁ @  @  @ @* !"BASIC Exte @ @> 3 Returns system configuration information. 9/27/82HD>9 Use SYSFLAG & NDRIVES to determine machine configurationH"DA&b1.! $FFFED2H"". ALPHA RESOLUTIONH"H !Ps$ Msi_address Device_type Unit_code Select_code Prim_addressUnit$Select$Prim$Device$Msi$H !!!!!H*Q0됶 $FFFFCF76H4A&bH>A&bHHA&bHRA&bH \H fPP@ DvNnD0N D 00FNRpt$A$NIR$u@ !@* $̀  ERROR: NEG REPEAT@* . A@ 8 @ BB@ {@~lj|t j~ X0(0d@ T0TX:@ >0@XB\FTRl`haGraphicsBin HighlightsFdrivesMses$Im1ISysnsions 2.0@* L@0 !"Shared Resource Management@0 @, !"Color Video Interface@, "̳@ ,!"Phyrec@ 6@ @!"UNKN HฎH !2HH&2 GRAPHICS RESOLUTIONH&쳎H 1HH &1H0H$:2 SCREEN HIGHLIGHTSH*$D11hH * NH XzH  bH  [=[[k aT@ . , $ , F X  X R & @ ,0,X4< XB0J R XXfj@ p0 X|0I 2*Remedy error condition and press CONTINUE.H 8H6 ȶ***DETERMINE WHICH BASIC***H6Ҽ  Hܼ ! !H Q@H  H*  A&b1= Look in BOOT ROMH* H 2HARDH( ܎ĵBUNKNOWNH&( 1 H&  B: H xH DH  B: B,H ظpH$  B: B,B,H$ 칳H H   H  H6 hA>׶# Must be BASIC 1.0H,, SCAN OPTION ROMS/BINARIES TABLEH., !( SIZE OF ROM LOCATIONS TABLEH . HF Ҷ; FOR EACH ENTRY STARTING WITH 4; SKIP JELLO, GRAPHICS AND QHF ³H  쐳H A&b d " Z 0@ 0 ؋XBasic1WStars$String$Type$ Othererror$;HeadingStartInitlocRomsizeType NumstdoptromsHdrBin$< Check_fileFinishFNSpa$FNPage$FNRpt$ErrSecureZ`A HARD BASIC 1.0?H&( "  ꐶ JELLO "BELOW" SYSBASEH& , A&b H 6 AH"@@ SOFT BASIC 1.0?H" J2SOFTH T`A 됳H0 ^  ꐶ- GRAPHICS,JELLO "BELOW" SYSBASEH0 h A&b H p1䳎H z2HH  H  "0HH "H TH  2INTERNALH ʻH  2HP9895H ޻H  2HP822 ! X  X0$(20: X@0JR^`iesBinSycbaseStardRomlocsC`drRomhdr Rev_infBinariesBinSysbaseStart H @P@萳H  P@A&b 萳H$  NON-NIL POINTERH$ A&b!H " PSEUDO ROM?H ,  ʳH 6H @ǁH JH Tǁ R @6  **11-05-81**1*@ 6@ @ (@& 2 ; HELP PROGRAM@ &<@ F@ P@6 Z**!*@66d+ Program to tell use~90XH 泎H  BHP9885H 0H.  BHP913X ONE VOLUME - 5 MBYTESH. |H0 $ BHP913XB ONE VOLUME - 10 MBYTESH0 .!H 8 BCS80H FRomlocsHdrRomhdrRev_infoType Free_slotOffset RomtabsizeIRHH(! ! ! !H42Av됶 ROM_LOCATIONS TABLE ($FFFFF98A)H4< H  F ǀH P  eH ^!DH hǁH r!nH |ǁH H  ǁH  萳H H H H´ H̱(  r whether the operating@.6n" system is BASIC 1.0 or BASIC 2.0@6.x* Program then loads correct PHYREC binary.@$6 (PHYREC1 for BASIC 1.0,@$$ PHYREC2 for BASIC 2.0)H$!!H @P@P@@*H H8SB!H( L BHP98255 FUTURE - EPROMH( V!:H* ` BHP98259 FUTURE - BUBBLESH* j1lH t BREMOTEH ~H  BUNKNOWNH  H(  BUNKNOWNH6Z+*******GET ADDRESS OF START OF SYSTEM******H*6dA&b1= Look in BOOT ROMH*nⶎ Hard BASICH, x`A  BASIC 2.0? ($80000)H, Soft BASICH `Aĸ됳HHA&bH, [=[[7*H r A8H|H8-**DISPLAY WHICH BASIC**H8泎H:2 /,K,K,K,/2 SERIES 200 2 BASIC 1.0H:2PHYREC1H>H:2 /,K,K,K,/2 SERIES 200 2 BASIC 2.0-H  H H H !8 H$ 2 is not on this disc.H$ ж ERROR 80H4 *2Disc containing 2 not in drive.H44H >$H H!H RH \H" f!ӵ" յ!2ղwg`H LBH V:H ` H jH  tH ~P  .mNu np!|"nl-ih$nhpr=Afnfn6=@ nh0.H"np00H//)N np!_0.R@h x"np#hNx npHh Nr npJ l;|.mNu+|JVg/-V mRNB-+o N,_+_B-.mNuN^NuNVZ-xJd-nd^ mb hjf\AhoH:2PHYREC2H̹H H" 2PAUSE1!XH8"2 LOAD BIN !"!"1!XH(82 RUN Finish1!XH(ٵ#,K $H8 2)CORRECT PHYREC LOADED. PROGRAM FINISHED.H"p2 H zH H PP*HPnn0 Z@ ܼ !@ ܼ !@ ܼ !@ ܼ !FNPage$ :H" ٵ#,K1!KH" 2 H  C|H#|B|I/./(/(J׮g/-׮ mתN8VJg n^/(NfNt-nZ n^"nZ#h >|H#|:|G/./(/(J׶g/-׶ mײN-nZ nZJ(Hc/(>HxJ׎gH 8( &Prints heading for programH((0 DETERMINE SCREEN WIDTHH (:2*ղ*H DӲHXӵ2*ղHb2K,/,KH6l2*ղHELPղ*H 6vH: UHP r n0 " X 0 MA&b 0FNSpa$XIR$oH ʼ!H ԽAH 2H H ! H ԳH   sPk3'NVN^ _ NNV0. S@@0{N$@P?<ND?<Np xfY/<Nn-_!J nLHA.+HBNN^NuNVN^NuNPNp xfY/<N-_!` nLHA.+HBNHJ@&~P %t%N [=[[  FB@@"dA!E!G!F!L!M!S!@n`!]!C!@*x  " !START PRINTING"," "@.* " "  % Device selector","701"@$.  " Paging","YES"@*$  " Perforation","YES"@,* " Lines per S@2N@ @ @ !Q@$2@&%2N@0&!P@ :'@ D@ N! @ XǣǤ@b ڳ@ l@ v@-,@(@2@ =9>H $0 0%N0 !B^  A_0V_J B 0H4C B~@0r_J|_VtE rdpjn&n:ft A(1j0|0 FNUpc$BasicEnding Enter_filesString1$ InitializeFiles$ File_counter Set_file_ctr Filename$Ff_space Check_filesNumfiles Retry_checkSkip_itDirValidDumFtypeFNPage$Sector0DstartCheck_next_fileDlengHeadingErr_file page","63"@(,  " Spacing","SINGLE"@.( # " %Omit page numbers","NO"@.. " "  % First page number","1"@,.ȼ " "Print range","1,ALL"@$,Ҽ  " Trailer"," "@&$ܼ  " Edit text" HӲ;@ :됳@ $@@ ƛ!")Insert disc containing files to be listed@@Б2Press CONTINUE@ ڽ@ HӲ@ @ 2CATALOG OF DISC@  6@<2@B 22Enter na . fhf0B^0,28^ELAEP @ XF00G"[F@ \F8@ ^F@@ _FrB2@<R@ bFZ@"c`@ dd >@File Discfile$FNLif_filename$String2$BasicTyp_aid Check_typeNo_file TypeAddress FNTrim$Search#, FOR BASIC 2.0 ,"NO"@"&  " Width","80"@," " "No. of listings","1"@ ,  " EXIT"," "@   "->"@4( Remove typing aids until end of program@4D(@͐@" Q@J,D(@ r! )" lme of file or press CONTINUE with no entry<"@B< :7@ < >@ *::萳@ 4:9<@ >:. <@H:1o2@0 R2!Maximum number of files specified@ 0 \$@ f@p:1oH6z +tl%0,! .0"0dB A. A6NP0Z0 `0gJf B"R0>n$x0~06VT B,p0"v0#B000&0 0j@ r@ gv@ h|@ iabrowSelcgdeDevicListerMenu$Arrow$IChange Move_arrowSelcodeDevice WhichlineXYPage$PagePerfLinesperPerf$OmitFirstRangeSelEditWidthStrtOk Wait_loopValue$ 07/29/82@>,2 CHANGES TO REV A TO WORK PROPERLY ON PURGED FILES@ >(@& 23! ) ( I   ! @2&< 3&!' : - @@@@@$2F3$@B%@9Do@$P5=@P@@P@"ZD 2D  Test statement to check for basic@J)6) 2.1 or 2.0@ @ @ JD(@ VѲ@ r@ |?Բ@ # 8@ @ @ -@ 2Y@2Y@)!F@ I@ ()Iꐳ@ 2 K!$ B6 B@ A0" A$0#0: A0&60$ BJ: BT D AJ AP AZ AhrD| A0F0T ER$JTrailerStNumlist Print_menuSpace ListfilesExitSpacing$Omit_page_num$ Firstpage Print_begin Print_endTrailer$Edit$WidthNumlists LinesperpageMaxlinesPositionPrinter$Range$KHpibHpibCommapos Check_selcode  [=[[ >8 < `C@  9<@ (HӲ@ 2O:@  !"File 9ǟ" is of improper file type@8 !@  0 @ :D@@D@ N@ X b@l퐳@v @B#,KB @@   萳@  ! @8@   ꐳ@  0 !@ƹ@Л @ڛ r device selector@ . $@  Ă#@   @ BYֳ@ BN@ ǵNO @ @ BY@ ǵYES@ @  (  2 @ <BNb@ FBY@ Pǵ `@  ,@B  B2Enter beginning and end of list separated by comma/"@ B &*@  0*2/ղBALL @ :* @  D1@ N1/B, @ X1 "@  b@ l!Q@ v P@ //, @ !Q@ >@(?#@"2One moment please...@"1%J@Jͻ@ LJǐ@ LLLP@萳@LJǵP@L萳@ MJǐ@ MMMP@萳@MJǵP@M萳@ Jͤ@  Q> 2(Enter new name or press CONTINUE to omit<"@8 < C@  9<@ HӲ@ O:@ țO. O9@ ҴOƳ@ ܹ@ C BK@r@ Rͤ@   N B#,K@  @ @*   #@ *   @ HӲ@ *"Ѳ@ 42@>HӲ@(H!!"END OF PROGRAM@ (R \ @f+B@ p*@ YES@ Z@ dBN@ nǵNO @ x@    @  ,@B  BNumber of lines per page? (Max=)IB , Min=35)@ B (@  (!#()I@@  ,@ Ȅ(@ Ҹ@. ܑB In !)R@:,B@ <2@  C@ $E됳@ .G됳@ 8궎#WRONG TYPE OR PROTECTED@ 8 T @ ^Y@ h@<rBERROR:B Correct situation and CONTINUE.@ <|@ B  @  z,@ HӲ@.!"Printer device selector@,.B(Current value is ǵ)@ ,+"@ +  @ *+ @ *.@ +@ -@ 0 . @+@+ꐳ@  valid number of lines per page@ . $@ (@#@ @ , @     @ "BS@ ,BD@ 6ǵDOUBLE@ @4@ JBS@ TǵSINGLE@ ^@  h  r @ TUSRղ@ T<@GSRȐ@GY@ Ĺ@ δSH@ شO$Z@ E³@  C@4 !"File 9ǟ" does not exist@84  2(Enter new name or press CONTINUE to omit<"@ HӲ@@! @ ǣ!Ǥ@´z@  @  @  @꛵B#,K@?+@SELECT@  Q @&1t  -  0@ !@ $-@  .,@ 8@ B@ L!Ⳏ@  V,@ `@  j,@ t@ ~@ @ @ ,& @ HӲ@. BInvalid printe   |BN@ BY@ ǵYES@ @ BN@ ǵNO @ @    @: ֽ B)Enter starting page number (Default is 1)@ : @  @    @ /B  [=[[  0 j0 @ 30 |@ ;=bZR@ &0P4JB@ >L0ZV@ @`0l?(xB0@@ Eifesperpage Ff_spac Listfiles ! @@@@@$2@B@Do@$Dcd@!!@! ! @B_@! ! @BY@  @ 渎@  @ @BY0 ater than first page specified@> *(@#@ 4@ >ǵ@ Hǁ@ RLjǿ ,@ \Ljǵ, !@ f@ p@ z," @  $@    @> B-Enter trailer (approximately half "<7BProgram terminated@ " F  Restore typing aids@> PD(@%΂ٵ#,K#=LOAD KEY@@ >Z@ d  4BpPP2B@nz) SelcodeDeviceMaxlines LinesperpageFf_space Firstpage Print_begin Print_endWidthNumlists File_counterHpibPage$Perf$Spacing$Omit_page_num$Trailer$Edit$Files$Buffer$ Margintop Marginbottom Formfeed$ Underline$Cr_cr$PagingPerfe @  @ B@  "@ ,@6BSp@  @@ J@  T@ ^@hBN@  r@ |³@  @ @BN@  @ @  @ ¹@  @  page width)$"@ > $@    @ %BN"̳@ %BY@ ފǵ"YES@ 踎"@ %BN@ ǵ"NO @@   @ $,@2 . B Enter desired printed page width&@ +F T& HF &6 A A A A<& A4 A> AaH A T A^ Ad An A| B" B, B6 B@ BJ BT !B^ ! #7dDblspace PgnumbersStrip LinesofarRe_inputFNUpc$FNPage$File/ Next_fileListingI Currentpage @FromfileEof4 First_pageEof Reset_counter Linecount Fill_buffer Dump_bufferFNRpt$FNLin$Pri V Q h@ 2@H ꛁ!"2Specifying a beginning and/or ending page does not@,H Bwork with PAGING set to 'NO'.,!@,  BSet PAGING to 'YES'? (Y/N)@(, "ղBY"ղBN !@( " 28&&1#Ƴ@  B,@2 LB$Invalid printed page width specified@ 2 V$@ `(@#@j@t,#@~! &@   @ ,@2  B Enter number of listings desired'@2'$ 5Ƞװ ל"׈$׀xph`"X(029<@ D:NPV@ &\0 fHp@x8zzr@ -0 0 : RntingLineout Exclam_pos Check_length Shortened Checkfull/ Page_setupFNSpa$ Width_leftRe_enter_trailA@ x@& !      @2&D KBN N@  &@ 0 Q@ : `@  D@ N@X@b @ lA'@  v @ @  @  @ @ ꐳ@  @ 퐳@  @ й@ @ ǵ@ ǁ@ ljǿ ,@  ljǵ, ALL@  Ƹ!@ 1/B, @ 1 ,@ ,!賎@ /1@ !/1@ !!@  $@ ,@> B0Last page must gre w@  ,@2 đB$Invalid number of listings specified@ 2 ν$@ ص(@#@⹳@,$@! '@    # @4BN@( BRestart program? (Y/N)4@((24ղBY%@8@2HӲ  [=[[  "4@ +۞1Ǥ@  2 /@  $,@ .1 f4@  8+0@ B( `L'@V% 6@`׶ End of listingsj.@t @ ~B#,K6 ղ@ 7Ӂղ@@* b@  @ )@  A@ ̹@ 1@  ?@ ~A@  A@8@ R@ &B#,K7ղ@4 0B#,KB * ղ-*-@4 : 8@ b@  @ ʽ A@  @  *@8 az ! @8 ೎@  @  @Pnn0:T#! T#! Yin$XIEol$R$@ !@  ! @ ! @ @ ( A@ 2B@ <2@  F@ P@  Z@ d @nP r * <@  8@  N@  8@ Ĺ@ΛB#,K7ղ@  @  4@1 1!c@, 11ꐳ@ 91@  :@ :9ǵB! @ (@ 2: 99:@ <@ DC * ꐳ@ N C XD@ b$@ l2@&v!"TRAILER too long@ &BRe-enter TRAILER"@  CD@ @2@@2@@ ƹ@ ЛBC Y T#! T#! FNPage$ ̳@ ٵ#,KK@ $B@ . @8P@  H  0;   @ 0@ 040 h[n0?(  0 GBDAT0FNSpa$XIR$@ x!@ A@ B@ @ ! @ Գ@  @  @|P  @2 䛁!"Adjust paper to top of form@2 BPress CONTINUE@  @ $Ӳ@  @@ Ƴ@ *2@4 ܳ@ >2@H@RB#,KB&l1L@(\B#,K" To clea nF:&<@ P9NJ ><@ Z99ǁ:d<@  n=@ x?@ 9ǿ b@ 8泎@ ) Գ@BA,#9)@ )@  @ @   萳@ ?@ 8@ 8 w ղ@ ڸJ@  䛥@ @ @ ~@  p@ @(  B#,K6 ղ7ӂղ@ ( *@ 4@>@ H @ R**萳@ \** @  f8@ p@  z8@ @( HG$@$ !d0FNRpt$A$NIOkErrorR$@ B!@ L@ V @  `퐳 j@  t @ ~$@$ BNEGATIVE REPEAT FACTOR@ $   r buffer@(f% @ p%ǿ L'@ z( @ )!c @ )ǵB@ ) v@  *@ +1%ǽ-2@  ,@ .@ + /0@  1됳 2@  11萳@ 1!c @   萳@ ?@ @  =@ 99 @ "γ@ ,8t9Ǥ@  6 萳@ @?@ JƳ@ T8@  ^ 萳@ h?@ r@ |@ =<@9 Ƴ@,8F@ ) 4 <8,1?@A .D<E alidComflagDumFtypeDstartDlengNumfilesBasicBasicTyp_aidHeadingInitializationWidthFirst Formfeed$FNPage$Set_up_printerPrinter$PrinterBusHpibPositionWidthHpibSet_up_printer Set_file_ctr Set_file_ctrFile_ctr Enter_files Fil pl| l0@<  0@ 06@ @ @_`!!s@ ZFNTrim$X$IJFE@Ҽ!!@  萳@ B@ @  HeadingWStars$FNSpa$FNPage$FNRpt$@ !@ @P@( DETERMINE SCREEN WIDTH@ (2*ղ*@ Ӳ@&ӵ2*ղ@02K,/,K@<:B #@ 䱶 SUB TYP_AIDPPr DFPGVH\fJhKlLpMvN|PQRSTVWXYZ \]^ FB (@ 萳ꐳ@B ^@"@, @6P@ B 0A "  F Ndif_filenaee$IDirBa$File$ ,*ղ LIST FILESղ*@ <D@: N2*ղPROGRAMղ*@:X2K,/,K@bӵ2*ղ@lPvRPj R E0 Dh@#4 #(xb#4xQV]`"(0 < H L QV`hQpv -_`bcde$f.8hDiLjTk\ljxnopqrtuvwx Ab@ *0FNLif_filename$IDirA$File$J@ @@@ @  J!@ TR@ ^R@ h泎@ rٵR#,WȤ@ | ȳ@ @ eP B  B@ E(idTyp_aidBctString!$String"$Basic@ 'Typ_aidTyp_aidStString1$String2$U@ @8 , SUBPROGRAM TO SET UP THE OUTPUT TO KEYBOARD@88, TO zQV]` !"$%& '*(06*F+T z{|}~ ".4file_$ Ma`_str_len eax_arr_l Program_xrefB$ BFileLine$Date$File_$ Max_str_len Max_arr_lenStString1$String2$Fword$Sword$Head$In$V R@@@@ @  @ ̴F@  @  @FT<DD < C@" @" ?(:&;.FfNSpa$@ TURN OFF TYPING AIDS IN BASIC 2.1 DURING@8 PROGRAM EXECUTION@ @ @P@P@ @& 1!P1!X@&&1!X1!C@.&тٵ#,K# SCRATCH KEY@ .ڶ  [=[[LastNextlineBeginBeginErrorFNRpt$AssignPosLoop1Temp1Temp2Temp3FNMinCommentCommentLoop1FNTrim$Matparm LinenumberCpos FNNext_term$ Try_label_def Try_insig Try_insig StorefirstTry_subTry_comTry_com Diff_environ Diff_environFNFIC 2.1 or 2.0@ T @ (@sa@ ҵ2TYP_AID @  Ѳ@ %@ 繳@ 2HEADING @  Բ@ %@ # @  "@ , @ 62@ @2@ J!P@  T@ ^!  X !P@  Ӳ@B  21No. of columns to print per line? (Multiple of 5)@B *쐳@ 4!(1umns+@  >$@. H2Invalid printer width specified@ . R#@ \' f+@  p,됳 z-@  Bnumbers of the segment.@@&  B)Enter line numbers, separated by a comma.64ǣ65Ǥ@<@ 6Ente:@ Λ Ӳ@   񷳎teDate ?" >@,te@ ǿ te@AindTry_varTry_varFNMaxOutputTry_callTry_callLoop_if Try_label Try_labelAdd Loop_term Loop_termNot_thenNot_thenLoop_ifVariableVariable No_arr_fun No_arr_funTemp$FNSpa$, FOR BASIC 2.[@  h$@D r!".Insert disc containing files to be cross ref'd@D |2Press CONTINUE@  @  Ӳ@   !@ "2@  #@ $@ %@ &@D  Ӳ!"(Printer device selec .2@B 22Enter name of file or press CONTINUE with no entry."@B . ,me o0@ . 2@  ,,萳@ ,.@ ,1o2@0 ʑ2!Maximum number of files specified@ 0 Խ$@ ޹@ ,1oximu-@  C@ D1ǽ-2@    (E@ 2%#$2@ <%##2@ F##@  P@ ZǤ@ d6AX2@ n6ǁ됳@ x6됳@ BMAIN@ B E,z.,@ D G0 OR > 08/10/82@8,- Will work on minimum configuration only@,8( if PHYREC is not appended.@,,2! 09836-10005 CHANGE TO REV A@*,< SAME AS 09826-10005 REV D@4* F @!4%X @@Do tor (Default is 701)@ D ""@ " 񷁵!'@  &" @ &򷐳(@  #"@ %@ &##!"'@ 0 Ӳ@. :2Invalid printer device selector@ . D$@ N#@ X! b @ l1vali 2@ ,%4,$5@ 6,%4,@  64ǀ@ 65ǵQ@ $6Q@ .7BY@L 8 Ӳ!"0Cross reference all of every file entered? (Y/N)@8L BB (Default is !""Y!"")@ H@  C@  D۞@ IE,@( I !/I !:sepaK@( ҴI !/@  ܽ @ L K@ L񷳎!I@ 񷳎!N@  C@ I4 H@  " @ ,@ 6ename$EndingEndingXref_allXref_all Enter_files FirstlineLastlineIR$FNUpc$DateDateNext_1Next_1FNLin$ Begin_xref Next_file Next_fileAssign Improper_file Improper_file@File1 Printer_isDoneDoneNextlineKOutOutMax_kLast!@4 P  @ Z @P @P@  d @@@@@ n!!!!!!!@ x2@2 (@͐save typing aids until end@2 @T (@sa! -- Test statement to check for BAS@  v @ (@@ @   (@  %@ #"@ $"#ꐳ@* ##!$$! sel'@* Л Ӳ@. ڑ2Invalid printer device selector@ . $@ #@ ! '@  8 L 7@ V87ղBY is :@ `6,BY@ j Ӳ@ t6ǿ Y<@  ~!"File: 6Ǥ@@ =Ӂղ+Designate segment of file you wish to cross@<@ B-reference by entering the first and last line@&<  [=[[# `@$0 dwSӵB* ղ adWղ$ y@ cbղ@  ղdt@  H  G@ "dp ղ@ ,dqյBLղ@2 6 Bdqѵ GLOBAL NAMESյGղ@2 @=Ӄղ@ J2@ TB@, ^=@@\@*  @  @A@P  BAABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz_$0123456789.P  @ EFGH@  &萳@ 0  EFGH @  :@ DEFGH NXXU!" U@$ UXU萳@  V ]@ WUB@ _ղ@ B UH@  @ `@ a @  bB @  cbղ d@ *b:df@ 4 B:@ GOSUB.USING.THEN.B. B. Edo@< BUSINGB.US@ b!"B.USdy@ ι@ cbղ@ BTHENB.d{@  THENH@  @ b THENdt {@$ B 0123456789 THENdy@($  uӁղFile ǟ finished.@ , h  r@@  |D0@ 2@ 2@B B#,K=Ӆղdӵ! ղ"Cross Reference CompleteB 0@R (@ղٵ#,K# LOAD KEY TRestore ty@  X萳@ b  EF@ l@ v @ @RJQ QV]`"& . : ^Q @C@NA!8!:!>!P1!! !N)@ N T @ ^$@ h@: rBFile ǵB is undefined, is of improper@$: |Btype, or is protected@ $ R@ @   @ >dg aյBLղ@ H cbղRf@$ \ B BREM UH@*$ f BDATA BIMAGEndH*ph@& z BSUB BDEFdj@& cbղ@  b(񎷵B(@ B= Bdl@sAZdydy@ ( (dwB:aյBLՁղ@ 2 BUSINGBdo@ <cbղ@ F ղd{@  PH  Zo@( d A Zdydy@( n Ad~@: xB.SUM.ROW.COL.DOT.DET.B. B. pe aid@R ‘BEND OF PROGRAM@ ̽ @  ֶ@ @ QV]`"& . : F P $@ !"Error @8 B)Remedy error condition and press CONTINUE@ 8 R@ ̽@" ֛!Sӵ" յ!2ղ@" SӵB յ!2ղ@ 깳@ RB@@  A N@  C@ I5 WdmյBղ@ WL@ dgaյBLղ@  cbղ@  do l@ dp ղ@"  BSUBBS @" dqյBLղ@ dgaյBGղ@  @  cbղ@  do  $j S Ed@ : `@ dy  @( A ZBd~@*( FN FNENDd~dy* ~@" b(` (@ " `@ W FN@0 dSSӵBGղSӵBLղWղ  ZdjrfLine$D$ File_$ eax_str_l FNNext_term$PosB$ BNLine$D$File_$ Max_str_len Max_arr_lenInrange$ Beginchar BegincharTempEndcharEndchar@* @= ղG@  &  0Q@  :@ D@ NU XV@ bWU! @ lXU!" @ vWWTu;lIW萳@ XXTu;lIX萳@ YZWXղ@ YTu;lI[@ YWTu]@$ XUl@ . BCOMGղds@  8@ B cbղ@  Ldo  Vt `s@ j BCALLGղdv@ t BS cbղ@  ~b(񎷲 (@ dw aյBGՁղ@ cbղ@  do  v@< B.GOTO. [=[[kF JPV\bnzdype$B$ BNLine$D$Fileg$ Max_sFNFindC$Type$B$ BNLine$D$File_$ Max_str_len Max_arr_lenPosCommaSortSortEmpty Find_emv StorefirstC$ LinenumberType$B$ BNLine$D$File_$ Max_str_len Max_arr_lenFoundFNFindPosFNNum@* R@= @ @ \@* \ @ f ղ@ p ղ@  z@  萳@ ǁ@  @ @   ղ$@  .@ 8ղ@ B @L rn ^  ^  ^  FNNumM$ cma Next_name Next_name Next_printNot_doneNot_doneCurrentFNNumOut_posLoopLoop Done_with_one Done_with_onePrintPrintTemp Next_print@* @= @ @ \@*  @  @@( Ӂղ11pty Find_emptyTemp$FNRpt$FNChr$FNMax@* @= @@ \@*  @ B,B. @ B  @    @  , 萳@$   . @*$  @ >tn^QV $Q&(V*]`04 < HTZbhn  ^@ V 1 @ ` @j@ rn@ǡǡǡFNChr$M 4@ t11@ ~ @ )Ӂղ@ (  @ , 萳@* , . ղ*@ E@ Ӄղ@ ׳ @ E@  . @ (ղ,  . 󎷳 @ * 됳  @  萳@ ǁ,@  ǀ@ ӵBG ղ@4  ղղ,. @4 *  ղ@  4 @ > @ H` r|ueberType$FirstB$  BNLAddC$ LinenumberType$FirstB$ BNLine$D$File_$ Max_str_len Max_arr_lenFoundFNFindBeginFNNumEndSame_rowSame_rowEmpty Find_ ` #QQ "V$]`*. 6 B NT\blva@  2. @ <@ FB#,20A @ P!@2 ZB* B. * @2 dB#,5X,AB*@  n萳 x@ #,5X@ ǁ5X@ 5X@ B$x Q"&Q(*V,]`26 > J V\dh" StorefirctC$ Lifenumberdype$B$ BNLinempty Find_emptyFNMaxFNChr$@*  @= @ @ \@*   @ ղ@ ղ@ ղ@ 萳@ @  됳  @   Nb$BNLife$D$Fide_$ MaxOutputHead$Type$Width B$BNLine$D$File_$ Max_str_len Max_arr_lenName$FNLin$Com#,/,20X@ !@ B#,6DǤ@  萳@ ǁ됳@  萳@ 6D@  @ ǐ@ ǁ됳@   @  "@ ,@ 6 @@@@ H [=[[Z 6A7A8A9Minг@  @ Կ @  󷎷 @   @  󷎷 @   @  󷎷 @   @  󷎷 @ $  @ . 󷎷 @ 8 t@ FB @ P 萳 Zꐳ@ d @ n@ x  r@  @ t @   @   @   @   @ *$@nn:fv@ fv@ fv@ fv@ FNPage$ n@ ٵ#,KK@ B@  @&@ rn0B FNMaxA0A1A2A3A4A5A6A7A8A9Max@  @  @  򷎷 @    @  򷎷 @    @ * 򷎷 @ 4  @ > 򷎷  [  @ B 󷎷 @ L  @ V 󷎷 @ `  @ j 󷎷 @ t @ ~ 󷎷 @   @  @L@ <rLn0@nn08! 8! 8! 8! 8! @ZDb , +7  gidth B0FNSpa$XIR$@ 0!@ :A@ DB@ NA@ X! @ b @  l@ v @D@ 4rDn[ @ H  @ R 򷎷 @ \  @ f 򷎷 @ p  @ z 򷎷 @   @  򷎷 @  @  򷎷 @   @  @ @(V   0FNLin$XIEol$R$@ !@ 񷤳 ! @ ! @  @ ν A@ B@ A@  @ A@  @   @0"ctars$FNcpa$FNPage$FNRpt$  )HeadingWStars$FNSpa$FNPage$FNRpt$ {@ !@ @P@*" DETERMINE SCREEN WIDTH@ *,B*ղ*@ 6Ӳ@@  0Q $@$ J!@j0FNRpt$A$NIOkOkErrorErrorR$1@ J!@ T @ ^ @ K *#FNUpc$A$IR$@ !@  @  A@  @  A@8 azOR ! @8 ƴa@  @ kPzQ V]`?" &* . f @$   FNMinA0A1A2A3A4A5A @ l|   @ &!!@  (FNTrim$X$IJFFEE@ !!@  ( 2萳@ < !B h퐳 r@  | @ $@$ BNEGATIVE REPEAT FACTOR@ $  @  @  A@ B@ A@  @ എ@  @  @+@ڽ  @@(VPzQ V]`?" &* . 6#$5X,AB!*@  f萳 [=[[@F X>0T^f2tz X0@ 0XȀ@ 0XichlineSecure Endlane_ptr NSH " H , H6H4@2K,X2 SECURE LINE 2TO LINEH4JHTA"됳H^ղHh!ղ萳Hr!ղ萳H|! ղ萳HQHA&b n 0  X X0FNPointXPtrHiLowHH A&bH*A&bH4P@萳H>P@萳H HH RH\ ibVvH `!ղ萳H jH  t萳H ~HH H O :ӵB*ղ@JBK,/,K@XTB*!ղ"CROSS REFERENCE MAP GENERATOR!ղ"*@ X^@: hB*ղPROGRAMղ*@:rBK,/,K@|ӵB*ղ@ /ecure Startline FinishlineSecure Endline_ptr Nextsub_ptrHeader Userprog_ptrLine_ptrRomsize NumstdoptromsStartInitloc FirstlineLastlineLinenumTypeHdr@ Check_basicBasic1FNPointIDoneToggle FNFind_nextJH |H H ղH ղH H QnH A&bH JH ղH ղH <H \H  H H &賎H0 :rn   Xof code byof code byToggleLine_ptrLhdrH fH pA&bHzHA&bHHZ < 0 V@x]Bnxnq /29/81q /29/81q /29/81q /29/81Secure @6 +** *03-30-82 ** @(6  CHANGE TO REV A@ ( 賎@2d& Subprogram to secure lines of code by@62n+ placing an asterisk after each line number@26x& secured. (For SERIES 200 BASIC 2.0)H2H    H !!!!!H  H :ղHDHNl X%H Y$H b2SECURE COMPLETEDHl׳$vMake sure in BASIC 2.0H$ Q@H  H A&b1=HĶ Hard BASICH(  `A See if BASI  X D @ X @0*6 XDL Tne_ptr Nextcub_ptr Ne`tline_pt FNFind_nextLine_ptrSecure Endline_ptr Nextsub_ptr Nextline_ptrSub_ptrLengthFNPoint H|@ (@( 2 4SECURE SUBPROGRAM@ (<@ F@6 P+**~*@ZP@zHzPrH  X 08 @ X& @02H H!P?$H@ț21This SECURE subprogram does not work in BASIC 1.0H@ґ2SECURE ABORTED.H׳H湳HH  H QH.2K,X2SECURE ENTIRE PROGRAMH. C 1.0H&(  ꐶ  JELLOW "below" SYSBASEH& Soft BASICH  `A 됳H2  ꐶ. GRAPHICS, JELLO "below" SYSBASEH2ڹHA&b HA>H H H   rHH !H ,H H  H ޸H  H !ղ萳H ! ղH H  H H  $萳H .H 8HBH LA&bH  [=[[H  p xfY/<Nn-_!J nLHA.+HBNN^NuNVN^NuNPNp xfY/<N-_!` nLHA.+HBN@J &b1.Hn HxH1A 9836HH1! ) (' allocate array to hold graphics memoryHH1H4!"*b512G* graphics escape codeH4 9826 OR 9816H1AH\  ' ' GdumpScreen Row_groupOs$ pANHH OO /aAfb: 8f^/8/Hz!Hz+O6,KSCk $x/"QAN! ._KBgNQL>Nu.mNu np!|"nl-ih$nhpr=Afnfn6=@ nh0.H"np00H//)N np!_0.R@h x"np#hNx npHh Nr npJ l;|.mNu+|JVg/-V mRNB-+o N,_+_B-.mNuN^NuNVZ-xJd-nd^ mb hjf\Ah`{ @ 4@ E@ E@ @ F$@ " x$(C*Y"¼NuKNu1X,_!._08gdj|mx.x`N|nx`:Ap&C8$P ʳg"68LDHgHD8JCkՒ`Ӓ`Nu//NO xJ/g|C|H#|B|I/./(/(J׮g/-׮ mתN8VJg n^/(NfNt-nZ n^"nZ#h >|H#|:|G/./(/(J׶g/-׶ mײN-nZ nZJ(Hc/(>HxJ׎g [=[[` n0.H2.HҁҀ=p0.H.V tЂ=@0.H.V tЂ=@0.H.V tЂ=@0.H.V tЂ=@0.H.V tЂ=@0.H.V tЂ=@0.H.V tЂ=@0.H.V tЂ=@#8@|lrP|0 Q$*08 : BH N TZ`hp U Variables:@0P$ I - index for FOR/NEXT loops@,0Z! File$ - contains name of file@6,d+ @File - I/O path name to file specified@46n) Type$ - type of file, either ASCII or@4x BDAT@6+ Type ement to check for basic 2.1 or 2.0@ TP @ Q(@@PѲ@ W@ ^ Print title@h Ӳ@*rٵ#,KK" CLEAR SCREEN@ *|@  ղ@ Ճղ@ 2STATUS@  ղ@ Ձ0.H.V tЂ=@0.H.V tЂ=@0.H.V tЂ=@0.H.V tЂ=@0.H.V tЂ=@0.H.V tЂ=@0.H.V tЂ=@0.H.V tЂ=@0.R@h n0. n0.nx~ !"#%&'()+ 0 - status of variable 3; indicates@46( (whether file is ASCII (3) or@$4 BDAT (2) type@2$' Status - results of STATUS statement@ 2@ @ Labels:@0Ҷ% Input - Beginning of inpu.@ 2OF@  ղ@ Ձղ@ 2 DATA FILES@  ղ@ Ճղ@ ղ@ @> 20Install the media with your file and press CONT.@ >@ ٵ#,KK@&2Catalog of drJ/gr4/ *o T"h/8/Hz2!NPKX,_!C(o 8/NP(_NK,_!C(o 8?8NPB`"_ _B/ (x0,IS@kN2|8|f<"H$xrf&SA VfP2|8fQ ,и/@NuPQNuY//a+_ _XN _ Ѐ` _ RR@ n0.T@ n0.V@ n0.X@ n0.Z@ n0.\@ n0.^@ n0.P@ np n np n np n np n np n npn npnn0.R@hnpnY,- .*y`_aidWFFile$Type$StString1$String2$BasicBasicTyp_aidWFNWidthStarLineWord$TitleInputEndingEndingAssignErrorError@FileStatusInputTypeKey_menuVar0Var0Var1Var1Var2Var2Var3Var3 kt section@20ܶ' Key_menu- Where the keys are turned on@,2涎 Idle - Loops to keep keys on@4,) Var0-8 - Routines to handle status var-@44( P iables 0 thru 8, respectively@64* Error - Routine to handle common er"_$m"+JNNV n=h n=h n=P n0^@=@pnf -n`-n=|p=nİnn=@BnBnBnBnBnBnBnBnBnBnBnBnBnBnBnBn0.=n°nn*=@0.no Bn`Hpnf" n0.22.HҁҀ=pUqf n0` n0N^ _NNu VB<$- GRAPHICS DUMP ABORTED.@:@ @&8  YVar4Var4Var5Var5Var6Var6Var7Var7Var8Var8IdleIdleKey_menuAssign@ @$  FILE_STAT@ $(@8 2,**@ 8<@ F rors@$6" Ending - End of program@ $,@ 6@ @@2@@ J@2 K& Save typing aids until end of program@2L& S@P@P@M(@͐@N @TO(@@P! (- test stat [=[[~ #.@@:B1---@ @@ ¶ ( @@*BStatus register 7 contains@ *ꛥ@& BThis is the EOF record.@@&B1--N@ p(@z!P @ @ @ $@@ B2Media changed or not in drive--Fix and press CONT.@ @@ @ 2@!>dia @ ½$@ Û@ ě@< śB-This is a protected file. Youisc:@ 0@ :@ D@: N2, **To exit press CONTINUE with no entry**@ :X b@ l2@,v2Input the name of your file."@,2t th@   @" CHECK FOR ERRORS=1IT@  ' @ (@@)@ *@ + . @8@*BBStatus register 0 contains@ *L@. VBThis variable indicates that @.`Bis a data file.@@jB1--&rds in the file.@@@@B1---@ @@  " @@*BStatus register 4 contains@ *ț@ BASCIIegis@" ܛBBytes per record=256@" ---@ @@  * @&@*0BStatus register 8 contains@ *:@6 DB'This is the byte within the EOF record.@@6NB1---@ @X@ b@"1-2@  @ @ ƶ@ @*CHECK FOR WRONG FILE ID@ * $@ @ @4 2#is a device not a file. Try again!@ 4  @ @  @" *ASSIGN FILE TYPE@(---@ @t@ ~  @*BStatus register 1 contains@ *@B B2This variable indicates that your file is of type @@BB1---@  "`湳@BBDATper @0 B"This is the defined record length.@0@@B1--p-@ @@ " ,$ @6@*@BStatus register 5 contains@ *J@* T ^@ l@ v@   @ !5----@  @ @ $@6 B'ERROR: Improper file name. Try again!@ 6 @ и'@ ڿ!8ROR:@  䛥@ @ $@8 BERROR: B is "4@ >2ASCII@H2@ R@ \2BDAT@ f@p@ z@ ٵ#,KK@22#Which variable do you want to test?@20@1@@@ Ķ  @@*⛵BStatus register 2 contains@ *웥@< B.This is the device selector number of the mass@&<Bstorage unit specifier.@@& B1-- O0BThis is the current record.@@*^B1---@ @h@ r |& @@*BStatus register 6 contains@ *@: B+This is the current byte within the recordan undefined file name.@ 8  B Try again!@ @  @ *!: @ 4@ >@ H$@> RB/ERROR: Improper file type. Must be either an @6>\B( ASCII or BDAT file. Try again!@ 6f2@3 @ʄ4"@ԅ5$@ކ6&@6@ 7(@ 8*@@EXIT ++@ $ % @&---@ @@  ( @2@*  0(@ypinٵ#,K#LOAD KEY@> 8BEND OF PROGRAM.@  B L vnQ 'RESTARTrSSy@ ( @ 2 ꐳ@ < @  Fꐳ@ Pꐳ@  Z@ d@  n @ xB*@ *@ B @  @  @  @ B @  @ ]KDK# SCRATCH KEY@ . @   SUB TYP_AID^  tndingIdle1Idle1 Draw_chart Find_registerStatusErrorErrorBase2 Assign_regOutput Draw_chartStatus1Input @8,** 7-29-82  **%*@ 8@ (@& 2  HPIB_STatarStarWI@ V @ `END OF@ jB*@ t*@  ~@ @  @ @ t :Q Gv țB*@ ұ@  ܶ @ 涎 @8  -****End Of Subprograms To Draw Title Page****@ nn@######FNWidthWidth@  8\@  z .Q"*QBLV: V Z Q\ ^bQlv~i&AT@ &<@ F@8 P,**@ 8Z@6 d+ PROG TO SHOW STATUS BITS OF HPIB INTERFACE@ 6n@ x@  Variables:@0% Isc - integer, contains BASIC@.0# ae LineLifeWNIb4 @ @ *LineLineWNIJ@ @ *@ ěB*@ @ ؛B @ ⴎ @ 웵B*@ *@ @  @ J@  @   "rP.n]QTypTyp_aidTyp_aidStString1$String2$)@  ,@8  6, SUBPROGRAM TO S h !#$ %& 'Q&,)2*>+F  Tinternal select code.@4.) I - index, specifies individual@"4 Jregister.@6"+ Status - Status bit returned by STATUS@$6 :statement.@4$ȶ) Binary$ - array containing the b must enter the@.<ƛB protect code with the file name.@ .@ ȸ @ ʽ$@ ԛ@ ޛ@@ 蛵BEncountered error #B. Program aborting...@@鹳@@ @ @ @   $ @  .>  \@ $F\ gQ *,d$ Last_half First_hadf9TitleTitleWWord$ Last_half First_halfIJ ET UP THE OUTPUT TO KEYBOARD@88 @, TO TURN OFF TYPING AIDS IN BASIC 2.1 DURING@8 J PROGRAM EXECUTION@  T@  ^@P@P@  h@&  r1!P1!X@&& |1!X1!C@.& }ٵ#, :,R-ZIscIscRegisterBinaryBinary$OutputRegister_title$Status Title_hi$ Title_lo$RegIXStString1$String2$Card_idBasicBasicTyp_aidWFNWidthStarLineWord$TitleInputInternalInternalExternalExternalEndingE [=[[l EXT@$EXIT   .!!@ 8@ B L#loop@ V@< `B.Which status register would you like to check?@4<j$Ѳ%**call find_register** !FIND I@ 4t@ ~Exit???@ jL ǵ0 0 0 0 0 R HS INT R @8@ ǵ( ENB@ 8 *Ѳ@ ҹ@ 񷳎(@> B0Reg #3 **CONTROLLER STATUS AND ADDRESS** @> ǵ@ ǵ@@  &- routine to draw chart of@*8 Pstatus bits.@8*, Idle1,2,3,4&5 - routines to hold softkey@,8! #menu on screen.@8,, Error ' - routine to handle errors@88, caf@,  ! @  @P@P@  !@ @2 ƶ& Save typing aids until end of program@ 2ж@ (@͐@ @T(@ng a! (- Test statement to check for basic 2.1 or 2.0@ T W!c??? @  % '@   FIND STATUS@  @ @D ( ղ2******CALL Base2****** !CHANGE STATUS TO BIN@ Dζ( )ASSIGN REGISTER TITLE NAMES@( ASSI@< B.Reg #O Fǵ0 SC AC 0 (PRI. ADD. OF THIS INTERFACE) @@@ ǵ0 (MSB)<--@->(LSB) @ @ *Ѳ@ "@, 񷳎0@@ 6B1Reg #4  **INTERRUPT STATUS** '@@@ @ǵ0 AC PPOLL TA LA inary@44Ҷ) \equivalent of the status #.@64ܶ+ Register_title$ - character string con-@46涎( Ztaining the register name.@44) Title_hi$ - a two row character array@24' containing the t$used by an interface not@&8 present.@2&¶' Input f - beginning of input.@ 2̶@ ֶ@ ඎ@ 궎 Subprograms:@4( Base2 # - routine to convert a@,4! ba @ (@ng aѲ@ *@ 4Print title page@>ٵ#,KK@HӲ@ R@ \ղ@fՃղ@p2STATUS@zղ@Ձղ@2OF@ղ@Ձղ D **CARD ID** @< ǵ@ ǵ@  ǵ@ ǵ@ (ղ Use masked id@  (*Ѳ@ 2@< 񷳎@@ FB1Reg #1 **INTERRUPT AND DMA STATUS** @@ Pǵ@ Zǵop row of@(2 Nthe bit labels.@4() Title_lo$ - a two row character array@64* (containing the bottom row of@(6" Lthe bit labels.@ (,@ 6@ @Labels:@4J) Intetse 10 integer@2,' Xinto a binary number.@82, Find_register - (saved as Find_reg) sets@68* $I to the proper register@66&+ #value by interpreting the@,60   [@2HP-IB INTERFACE@ղ@Ճղ@ղ@ Զ 22@ 趎@ @> B0ARE YOU CHECKING THE EXTERNAL OR INTERNAL HP-IB?@ > DETERMINE PROPER ISC@ INT@ QR@@ dǵ0 IE IR (INT. LEVEL) 0 0 DMA DMA @@@ nǵ0 {3,4,5,6} D C1E C0E @ @ x*Ѳ@ @ 񷳎0@6 B'Reg #2 **BUSY BIT** %@6 ǵ@ ǵ@@!,rnal - routine to set isc to@,4T! Ninternal HP-IB.@4,^) External - routine to set isc to@,4h! $external HP-IB.@6,r+ Ending 6- routine to end program.@86|, Draw_chart $softkey input.@4,:) Output "- formats the output of@,4D! the bit charts.@ ,N@ X@ b@ l@ v@ ! @ @@, @2D2D2 ! [=[[s EOI SPAS R/L T/L @@@ Jǵ0 CHG RECD RECD RECD CHG CHG @@@ Tǵ0 TR HS UUC SEC CLEAR UAC SRQ IFC @@@ ^ǵ0RECD ERROR COMMD RECD RECD RECD @ @ h*Ѳ@ r@| 񷳎0~ **DATA LINES** @@< :ǵ/ ATN DAV NDAC* NRFD* EOI SRQ** IFC REN @@@ Dǵ/ TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE@@@ Nǵ0 DIO8 DIO7 DIO6 DIO5 DIO4 DIO3 DIO2 DIO1 @@@ Xǵ0 (1=DATA^,@   @ !@: 'READ ID REGISTER TO INSURE THIS IS HPIB@: ٵ#,KK@  $@. BThis is not an HP-IB interface.@ . $@ .@  8#@  B@  L@  V@  ` 2 r Register! Registe Find_registerRegIX Register0 Register0 Register1 Register1 Register2 Register2 Register3 Register3 Register4 Register4 Register5 Register5 Register6 Register6 Register7 Register7EndingEndingIdleIdle @@ B1Reg #5 **INTERRUPT MASK** o @@@ ǵ0 AC PPOLL TA LA EOI SPAS R/L T/L @@@ ǵ0 CHG RECD RECD RECD MCHG CHG @@@ ǵ0 TR HS UUC SEC CLEAR UAC SRQ IFC N LINE TRUE; 0=DATA LINE FALSE) @ @ b*Ѳ@: lB,* Only if addressed to TALK, else not valid.@:: vB,**Only if Active Controller, else not valid.@:@ #@ @ @ @ @  11 T j'2@  t @  ~ٵ#,KK@ 1K@  $@6 B'The requested interface is not present.@ 6 @  '@@ BEncountered error #B. Program aborting...@@ Ĺ@  ζ@  ض 2  @  2@  <! @  F@  P@  Z0@ d1@ n2 @ x3 @ 4 @ 5@ 6@ 7v@@@ ǵ0RECD ERROR COMMD RECD RECD RECD @ @ *Ѳ@ ¹@ 񷳎0@@ B1Reg #6 **INTERFACE STATUS** R @@@ ǵ0 REM LLO ATN LPAS TPAS LADS TADS * @"@ ǵ  Tl@ INTERNAL HP-IB@ @ !@  @ #@    @1@   @ *@@4@ >@ H@ R@ \ 1f1@ p@ z됳@@  B ] 2@ 춎Restore typing aids@> (@pingٵ#,K#LOAD KEY@> X@XQ?ə$@ BEND OF PROGRAM.@  @  @ ( R^ ^@ EXIT  @  @  ȶ 2 2@  @  @  ׳@  @   2 2@  @  "@  ,׳@  6@  @ 2 J 2@  T@  ^@  h׳@  r@  |True @@" ǵ/ SC AC 0 (PRIMARY ADDRES OF INTERFACE)@@@ ǵ/ (MSB)<--->(LSB)@ @ *Ѳ@@ B2* Least-significant bit of last address recognized@@@& 2* @< 0B.Reg #7  .Enter the interface select code of your HP-IB.@@Ente @*!e !CHECK FOR ERROR@* ٵ#,KK@  $@> B/Improper select code--must be between 8 and 31.@ > @ ʸ/@ Խ ' Q *4> H R\ f pzsderRegI` Register Registe 2 2@  @  @  ׳@  @   2 2@  @  !@ ׳@  궎@   2 2@  @  !@ ׳@  &@  0 2 :2@  D@  N!@ X׳ [=[[ V 8 @ >  @8  ! 14 PRINT OUT 1ST ROW OF BIN #@8   @ ȴ  @ қB @  ܶ    #,2X,7(A,3X)6X@   @  @  @ @ @ "@ ,Ǥ@ 6Ǥ@> bD*@ N@  X @ b l\@ $F\ gQ *,d$ Last_half First_hadf'TitleTitleWWord$ Last_haDse10 number@ , 4@"  > New variable list:@4" H( ,I - index on "Binary", indicates@24 R& &which bit of base2 number.@22 \& *Decimal - base10 integer to be@*2 f converted to base2.@ *OutputRegister_title$ Title_hi$ Title_lo$StatusRegIXLine$FormatFormat@ V@ `@< j1 Subprogram to output chart showing status bits.@ <t@ ~@ @ @ @ @@, 5 @B0 7 6 5 4 3 2 1 0 @ >J @ T 7 @ ^  @h  @rB @ | @ @   vnlf First_halfIJ ֳ@ v @  ꐳ@  @ ꐳ@ ꐳ@ @ @   @ ƛB*@ *@ڛB @ 䴎 @ @   p@  z@ @  @  @ @@  @  @  !@  ʼ@  Զ@"  ޶SPECIAL CONSIDERATIONS:@6" 趎* 1) Binary(1) will contain the least@06 $significant bit and Binaz@2D2D2!@, ! @ Ķ@ ζ@ ؼ @2@ ⶎ@R  B1--V-Cinitialize line@ R@ PRINT STATUS CHART@  @   62Q east@06rSStarStarWI@  @  @ B*@ ´*@  ̛@ ֱ@  ඎ @ 궎 @ t @B @   @ B*@  @  * @ 4 @8 >-****End Of Subprograms To Draw Title Page****@Hnn: 11 10 11 10 11 10FNWidth~@  b@  l 2 v2@  @  @  ׳@  @   2 2@ !c@ ׳@  ж@  ڱ@  䶎@  @  @  @ , $D, ry (16) will@20 'contain the most significant bit. These@22'correspond to the 0th and 15th bits re-@2 spectively.@ @, $!tivelyCALCULATE EACH BIT@, .@8@B@LINT ST@  @ ( INT @ 2@ < @ F@ P @ Z@ d@* n PRINT TOP ROW ONLY IF NEEDED@ *x@ ǵT TO@  Ǥ@ Ǥ@> B0 15 14 13 12 11 10 9  <Q e LineLifeWNIb4 @  @ *LineLineWNIJ~@  @ *@ B*@ @&B @ 0 @ :B*@ d  decimalBifaryBinaby$I Remaander . Base2DecimalBinaryBinary$I Remainder 6@  @   Parameters are:@, *! Decimal-The balp Q0:VDL P QR T ZbifaryBinaby$Output Registergtitle$ Tidle_hi$ TOutputBinaryBinary$ [=[[;@!"!<!"'Q"*QBLV: V Z Q\ ^bQlv|z RS-232 INTERFACE@ <n@ x@  Variables:@0% Isc - integer, contains BASIC@.0# Tinternal select code.@4.) I - index, specifies individual@"4 register.@6"+  6 Idle1&2 - routine to hold softkey@,6h! #menu on screen.@8,r, Error ' - routine to handle errors@88|, &caused by an interface not@&8 present.@2&' Inpue typing aids until end of program@4(@͐@ @T(@ping! (- Test statement to check for basic 2.1 or 2.0@ T @ (@pingѲ@ ƶ@ ж Print title@Ӳ@ٵ#,dWidthX@ R@  \@ fprP.n]QTypTyp_aidTyp_aidStString1$String2$@  "#$% & IscIscRegisterBinaryBinary$OutputRegiste4 Status - Status bit returned by STATUS@$6 Jstatement.@4$ȶ) Binary$ - array containing the binary@44Ҷ) \equivalent of the status #.@64ܶ+ Register_title$ - character string con-@46涎(  Ht f - beginning of input.@ 2@ @ @  Subprograms:@4¶( Base2 # - program to convert a@64̶* $positive base 10 integer@26ֶ' into a binary number.@82ඎaz@8 , SUBPROGRAM TO SET UP THE OUTPUT TO KEYBOARD@88, TO TURN OFF TYPING AIDS IN BASIC 2.1 DURING@8 PROGRAM EXECUTION@ @ @P@P@ @& 1!P1!X@&&1!Pr_title$Status Title_hi$ Title_lo$RegIXStString1$String2$BasicBasicTyp_aidWFNWidthStarLineWord$TitleInputEndingEndingInputErrorErrorCard_id Draw_chart Find_registerStatBase2OutputJ Draw_chart  p^ taining the register name.@44) Title_hi$ - a two row character array@24' $containing the top row of@(2 Nthe bit labels.@4() Title_lo$ - a two row character array@64* contai Y:, Find_register - (saved as Find_reg) sets@68궎* $I to the proper register@66+ #value by interpreting the@,6 % softkey input.@4,) Output - formats the output of@,48ohX1!C@.&˂ٵ#,K# SCRATCH KEY@ .Զ@ ޱ SUB TYP_AIDL  @6+** * 7-29-82  **$*@ 6@ (@$ 2 . RS232_STAT@ $<@ F@6 P+**8*@ 6Z@< d1 PROGRAM TO SHOW STATUS BITS OF "ning the bottom row of@(6" Bthe bit labels.@ (,@ 6Labels:@6@+ Ending \- routine to end program.@86J, Draw_chart - routine to draw chart of@*8T status bits.@6*^+! the bit charts.@ ,@ &@ 0@ :@ D@ N! @ X@@, b@2D2D2 !@, l ! @ v @P@P@ @4 ( Remov [=[[1--@> @B0Reg #4 **CHARACTER CONTROL** q @> Jǵ@ Tǵ@@ ^ǵ/ R R STK EVEN PARITY STOP |CHARACTER|@@@ hǵ0 B (parity type) ENBLD BITS | LENGTH | @ @ r$Ѳ@ |@8  UVer will clear DATA READY BIT)@ B b$Ѳ@ l@v 񷳎1@< B.Reg #7  **OPTIONAL CIRCUITS** p@< ǵ@ ǵ@@ ǵ0 0 0 0 0 OPT OPT OPT OPT @@@ ǵ/ 됳@ @ @@  2.Enter the internal select code of your RS-232.@@A'r th@.!th ERROR CHECK@ .$@ @ ʛ@> ԛ2/Inproper select code--must be between 8 and 31.@ ><ǵ@ Fǵ@@ Pǵ0 INTS INTS (INT. LEVEL) 0 0 0 0 @@@ Zǵ0 ENBL REQ {3,4,5,6} 8@ @ d$Ѳ@ n@x 񷳎0@: B,Reg #2 **BUSY BIT** @:  @B)**parity type** # **charater length**@$8 B #@8$ B* 0 0 --- odd # 0 0---5 bits/char@88 B* 0 1 --- even # 0 1---6 bits/char@88 B* 1 0 --- par.bit=1 # 1 0---7 bits/char @v DR3 DR4 REC2 REC3@ @ $Ѳ@ @ 񷳎/@> B0Reg #8 **INTERRUPT ENABLE MASK** @@> ڀǵ0 0 0 0 0 MSC RLS THRE RBF @@ ǵ@ ǵ@ ǵ@  $Ѳ@@ 蹳@ @ @  @ @  @ $@ . !@8@ Bٵ#,KK@  L$@2 VB$This is not a 98626A interface card.@ 2 `@ j@ t@ ~@ hǵ@ ǵ@@ ǵ0 0 0 0 0 0 HS IN INT R @:@ ǵ) zPROG ENBLD@ : $Ѳ@ @ 񷳎)@ % ) @  ܛ@ 洎%)@: B+Reg #3  l@88 B* 1 1 --- par.bit=0 # 1 1---8 bits/char@ 8 ›@ ̹@ * @< B-Reg #5  **MODEM CONTROL** n @< ǵ@ ǵ@B ǵ1 0 0 0 LOOP DRS SRTS RTS DTR @(B C(  @ 񷳎@8  B*Reg #9 h**INTERRUPT CAUSE** @@8 *ǵ0 0 0 0 0 0 INTERRUPT ID UART @B@ 4ǵ1 :REQUEST@B >ǵ@ Hǵ@  R$Ѳ@ eٵ#,KK loop@ @< B.Which status register would you like to check?@&<!Ѳ**call find_register**@& !c**ca@  @$" save stat for baud rate@($# ղ******CALL Base2**** **BAUD RATE** @@: B1--^-@ @ @: B The Baud Rate is"Bbits per second.@ : @@ "B1---@@,@6  4ǵ > BACK@ ( $Ѳ@ @& 񷳎@: 0B+Reg #6 **DATA IN** @: :ǵ@ Dǵ@@ Nǵ0 DI7 DI6 DI5 DI4 DI3 DI2 DI1 DI0 @B@ Xǵ1(Reading this registU|\@ f@ pB**interrupt IDs**@ z@6 B(High Prior. 1 1 . . Receiver Line Status@66 B( *1 0 . . Receiver Buffer Full@@6 B1 B0 1 . . Trans. Holding Register Empty@6@ B'Low Prior. 0 KK@ @ ղ@Ճղ@ 2STATUS@ղ@ Ձղ@*2OF@4ղ@>Ձղ@H2RS-232 INTERFACE@Rղ@\Ճղ@fղ@ p zA'&**@( @< B-Reg #O **CARD ID** @< ǵ@ ǵ@ ǵ JMPR@  ǵINSTLD@  $Ѳ@ @( 񷳎@< 2B-Reg #1 **INTERRUPT STATUS**  @<  [=[[ L@  V@  `@  j  tٵ#,KK@  ~ @  1K@  $@6 B'The requested interface is not present.@ 6 @  '@  $@@ ěBEncountered error #B. Program abortinuE Find_registerRegIXLowmenuLowmenuHighmenuHighmenuEndingEndingIdleIdle Register0 Register0 Register1 Register1 Register2 Register2 Register3 Register3 Register4 Register4 Register5 Register5 Register6 Register6 Register7 Register7 Regis 5@   2 2@  @  @  ׳@  ֶ@  ඎ 2 2@  @  @  ׳@  @   2 &2@  0@  :@  D׳@  N@  X 2 b2@  l@  v!@ m2 Base2DecimalBinaryBinary$I Remainder 6@ @  Parameters are:@,Ķ! RDecimal-The base10 number@ ,ζ@" ض New variable list:@4"ⶎ( I - index on "Binary", indicg...@@ ι@  @  ⶎ  @ 1coun@  @ @@ @  @  ( 2 22@  < Restore typing aids@>  F(@typiٵ#,K#LOAD KEY@> PBEND OFQter8 Register8 Register9 Register9 Register10 Register10 Register11 Register11@  @  @  ! @  @  0 to 5@ 6 to 11@ EXIT ׳@  @   2 2@  @  @  ׳@  ƶ@  ж 2 2@  @  @  ׳@  @   2 2@  @  *@  4׳@  >@  H 2 R2@  \@  fates@24춎& &which bit of base2 number.@22& *Decimal - base10 integer to be@*2 converted to base2.@ * @ @ @ (@ 2@ <@@ F@ P@ Z;G0 . . Modem Status Change@6@ 'Lo@< B-REG #10 **UART STATUS** @@< ʀǵ0 0 TRSE THRE BR FE PE OE RBF @B@ ԁǵ1(BITS 4-1 ARE CLEARED WHEN THIS REGISTER IS READ)@ B $Ѳ@> PROGRAM.@  Z@  d@  n@ x ,L $t ,)Q&0: B JP V `j   @  Ҷ4  & Set up menu for registers 0 through 5@ 4 憽@   0 @  1@  2@  3@  4@ " 5@  , @  p׳@  z@   2 2@  @  @  ׳@  @   2 2@  @  @  ׳@  @   2!2@ @ @ $׳@ .@ 8 2B#2@L! 蹳@ ! (BIT@, BReg #11 **MODEM STATUS**@@, ǵ0 CD RI DSR CTS CCD CRIF CDSR CCTS @B@ ǵ1(BITS 3-0 ARE CLEARED EACH TIME REGISTER IS READ)@ B $Ѳ@  $@  .@  8 @  B@ t~  !*"6BsderRegI`LowmenudowmenuHighmenuHighmen  @  64  @' Set up menu for registers 6 through 11@ 4 J@  T 6@ ^ 7@ h 8@ r 9@ | 10!@  11#@  @   N @ V@ `׳@ j@ t 2~ 2@!c@׳@@, $D,   decimalBifaryBinaby$I Remaander  [=[[6 ꐳ@ 8@ B@  L @ VB*@ `*@jB @ t @ ~@  @B @  @ B*@ @   @ Ķ @8 ζ-****End Of Subprograms T.@PDP'Q"*QBLV: V Z Q\ ^bQlv|,!@ d@ n@" xSPECIAL CONSIDERATIONS:@6"* 1) Binary(1) will contain the least@06$significant bit and Binary (16) will@20'contain the most significant bit. These@22'correspond to the 0th and 15th%B |  !@ @  @2@ @R  B1---Cinitialize line@ R@ PRINT STATUS CHART@ ¶@ ̛ @ ֛@  @ 궎@ @*  n R*@  \@ f@  p @ z @ t RQ e LineLifeWNIb0 @  @ *LineLineWN &o Draw Title Page****@nn@T ROW OF BT ROW OF BT ROW OF BFNWidthWidth^@ ⁉@  @ rP.n bits re-@2 spectively.@ @, !tivelyCALCULATE EACH BIT@, @Ҵ@ܱ@lp> Q0PRINT TOP ROW ONLY IF NEEDED@ *@ ǵT TO@  Ǥ@ &Ǥ@> 0B0 15 14 13 12 11 10 9 8 @ > : @8 D ! 14 PRINT OUT 1ST ROW OF BIN #@8 N  @ X  @ b IJ೎@  @ *@ B*@ @B @  @ ʛB*@ Դ*@ ޱ@  趎 @  \@ $F\   )_QTypTyp_aidTyp_aidStString1$String2$y@  @8 , SUBPROGRAM TO SET UP THE OUTPUT TO KEYBOARD@88, TO TURN OFF TYPING AIDS IN BASIC 2.1 DUK:VDL P QR T ZbifaryBinaby$Output Registergtitle$ Tidle_hi$ TOutputBinaryBinary$OutputRegister_title$ Title_hi$ Title_lo$StatusRegIXLine$FormatFormat@ @ +B @  l  v  #,2X,7(A,3X)6X@   @  @  @ @ @ @ Ǥ@ ƛǤ@> ЛB0 7 6 5 4 3 2 1 0 @ >ڛ @  7 @   @ E]Q *,d$ Last_half First_hadf9TitleTitleWWord$ Last_half First_halfIJ J@  @  ꐳ@  @ $ꐳ@ .pRING@8( PROGRAM EXECUTION@ 2@ <@P@P@ F@& P1!P1!X@&&Z1!X1!C@.&dٵ#,K# SCRATCH KEY@ .n@ x SUB TYP_AID  @< 1 Subprogram to output chart showing status bits.@ <@ @ "@ ,@ 6@ @@@,J@2D2D2!@,T ! @ ^@ h  ! @  r@El  @B @  @ @   * vnJQ cgntain thrSStarStarWI4@ 4 @ > @ HB*@ [=[[r_title$Status Title_hi$ Title_lo$RegIXStString1$String2$BasicBasicTyp_aidWFNWidthStarLineWord$TitleInputEndingEndingInputErrorErrorCard_id Draw_chart Find_registerBase2Output Draw_chart@4(** 7-29-82v($ - a two row character array@24' $containing the top row of@(2 Nthe bit labels.@4() Title_lo$ - a two row character array@64* (containing the bottom row of@(6" the bi 궎* $I to the proper register@66+ #value by interpreting the@,6 % softkey input.@4,) Output "- formats the output of@,4! the bit charts.@ , Enter the internal select code for your GPIO.@>A'r th@.!th ERROR CHECK@.ނٵ#,KK@ $@> B/Improper select code--must be between 8 and 31.@ >@ @ @  ; **%*@ 4@ (@$ 2 . GPIO_STAT@ $<@ F@4 P(**f@ 4Z@4 d(PROGRAM TO SHOW STATUS OF GPIO INTERFACE@ 4n@ x@  Vaղ@HՁղ@R2OF@\ղ@fՁղ@p2GPIO INTERFACE@zղ@Ճղ@ղ@  A'됳@ @ @>  2- [=[[$ ; @>5@HEXIT  R@ \@ f 2p2@ z@ @ ׳@ @  22@ @ @ ׳@ Զ@ ޶ 2 2@ @  F@ P@  Z@  d@  n@@, x@2D2D2!@,  ! @  @   ! @  @   !@  @   @2@  ȶ@R  B1 --+@< B.Reg #4  **READY BIT** p@< ǵ@ ǵ@@ ǵ0 0 0 0 0 0 0 0 1=READY@@@ "ǵ/ ( 0=BUSY@@,@6 /@> @fl#LOAD KEY@>BEND OF PROGRAM.@ @ @ ƶ@""hQ *4> H @  ׳@  @   2 $ 2@  .@  8!@ B׳@  L@  V 2 ` 2@  j@  t@  ~׳@  @   2 2@  @  @  ׳@  Ķ@  ζ 2 2@ ---Cinitialize line@ R ܶ@  涎PRINT STATUS CHART@  @  @  @   @  @  "@*  , PRINT TOP ROW ONLY IF NEEDED@ * 6@  @ǵT TO@  JǤ@ Tǵ@  ǵ@@ @> (B0Reg #1 **INTERRUPT AND DMA STATUS** @> 2ǵ@ <ǵ@@ Fǵ0 INT INT (INT. LEVEL) DMA DMA DMA DMA @@@ Pǵ/ENBLD REQSD {3,4,5,6} BURST WORD  B0Reg #5 **PERIPHERAL STATUS** s @> Jǵ@ Tǵ@B ^ǵ1 0 0 0 0 PSTS EIR STI1 STI0 @>B hǵ. @ TRUE LOW LOW LOW@>r@&|#Ѳ******CALL Output* R\ f pzr Register Register! Registe Find_registerRegIX Register0 Register0 Register1 Register1 Register2 Register2 Register3 Register3 Register4 Register4 Registe ?@!c@ ׳@ @  @  @ lp Q0:VDL P QR T ZbifaryBJ8CH1EN CH0EN@@Z@d /@: nB,Reg #2 **BUSY BIT** q @: xǵ@ ǵ@@ ǵ0 0 0 0 0 0 HS IN INTS R @<@ ǵ, PROGR ENBLD @<*****@ &@  @ @ @ @   @̿1****@  ֽ @ @@깳@ @ @ @ @  &ٵ#,KK@ 0 @ :1K @'r5 Register5EndingEndingIdleIdle@ ڶ@ 䶎@ ! @ @ @  0@1@ 2 @*3 @44 inaby$Output Registergtitle$ Tidle_hi$ TOutputBinaryBinary$OutputRegister_title$ Title_hi$ Title_lo$StatusRegIXLine$FormatFormat@  @  (@<  21 Subprogram to output chart showing status bits.@ < <@ M&@ ,@: B,Reg #3 **DATA IN** @@: ǵ0 DI15 DI14 DI13 DI12 DI11 DI10 DI9 DI8 @@ ȁǵ@@ Ҁǵ0 DI7 DI6 DI5 DI4 DI3 DI2 DI1 DI0 @@ ܁ǵ@湳@ @6 DB'The requested interface is not present.@ 6 N$@ X@ b'@@ lBEncountered error #B. Program aborting...@@v@  22@  Restore typing aids@> (@ypinٵ#,K [=[[ M 9@> ^B0 15 14 13 12 11 10 9 8 @ > h @8 r ! 14 PRINT OUT 1ST ROW OF BIN #@8 |  @  @ B @     #,2X,7(A,3X)6X@  @ @ › @  X@ 䛵B @  @ B*@ *@ @   @ *\@ $F\ Q *,d$ Last_half Fir I Remaander . Base2DecimalBinaryBinary$I Remainder 6@ 8@ B Parameters are:@,L! RDecimal-The base10 number@ ,V@" ` New variable list:@4"j( I - in 5QTypTyp_aidTyp_aidStString1$String2$@ x@8 , SUBPROGRAM TO SET UP THE OUTPUT TO KEYBOARD@88, TO TURN OFF TYPING AIDS IN BASIC 2.1 DURING@8 PROGRAM EXECUTION@    ̹@  ֶ@  ඎ@  ꛀǤ@  Ǥ@>  B0 7 6 5 4 3 2 1 0 @ >  @   7 @   @ &  @ 0B @  : @  D@  N X  st_hadf9TitleTitleWWord$ Last_half First_halfIJ @ 4 @ > ꐳ@ H @  Rꐳ@ \ꐳ@  f@ p@  z @ B*@ *@ B &dex on "Binary", indicates@24t& &which bit of base2 number.@22~& *Decimal - base10 integer to be@*2 jconverted to base2.@ *@ @ @ @ @ ļ@@ ζ vʶ@ @P@P@ @& 1!P1!X@&&1!X1!C@.&ɂٵ#,K# SCRATCH KEY@ .Ҷ@ ܱ SUB TYP_AID JvnJQ & 2prSStarStarWI@ b @ l @ vB*@ *@  @ @  @ @  @  @  @  @ B @ ʴ @ ԛB*@ ޱ@  趎 @ @8  -****End Of Subprograms To Draw Title Page****@nn @ ض@ !@ @ @" SPECIAL CONSIDERATIONS:@6" * 1) Binary(1) will contain the least@06$significant bit and Binary (16) will@20'contain the most significant bit. These@22('correspo )10 !SERIES 200 BASIC UTILITIES LIBRARY20 !Disc 2 -- 09800-1030530 !9/23/82 REV A.40 !Copyright Hewlett-Packard Company, 1982 REVID   tt RQ e LineLifeWNIb4 @ @ *LineLineWNIJH@ @ *@ ЛB*@  %< $@  $@  $@ FNWidthWidthX@ @  @ $@., $D, T  decimalBifaryBinaby$ _nd to the 0th and 15th bits re-@22 spectively.@ <@, F!tivelyCALCULATE EACH BIT@, P@Z@dnrP.n Cp xfY/<Nn-_!J nLHA.+HBNN^NuNVN^NuNPNp xfY/<N-_!` nLHA.+HBN@$!-HB.cB.bJ.bf@/-/Hz+O n^0S@@2{Nf-nZ"nZ#h >|H#|B|I/./(/(J׮g/-׮ mתN8VJg n^/(NfNt-nZ n^"nZ#h >|H#|:|G/./(/(J׶g/-׶ mײN-nZ nZJ(Hc/(>HxJ׎g!%HF"  nHP!  HZ"#,K,5AHdDHn.H xP(< ! .mNu np!|"nl-ih$nhpr=Afnfn6=@ nh0.H"np00H//)N np!_0.R@h x"np#hNx npHh Nr npJ l;|.mNu+|JVg/-V mRNB-+o N,_+_B-.mNuN^NuNVZ-xJd-nd^ mb hjf\Ah!ĩV B @ F @ F  @" B _ Bb$Secure @" @$ )@ ("SecureH  H ) !sPk3'NVN^ _ NNV0. S@@0{N$@P?<ND?<Np xfY/<Nn-_!J nLHA.+HBNN^NuNVN^NuNPN|H#|B|I/./(/(J׮g/-׮ mתN8VJg n^/(NfNt-nZ n^"nZ#h >|H#|:|G/./(/(J׶g/-׶ mײN-nZ nZJ(Hc/(>HxJ׎g!NNV/. /.NN^ _PNNV-xJ-n n!mֈC!IC+IֈN^NuNVp xnNN^NuNV-n-n n-PR N^ _XNNVf/-/Hz6+OJ-g;|6.mNu|Ax+Hb mb1|j-xJt-ntpUN np0-xl"nl)rg;|!NfJ׎g/-׎ m׊N|b+o N.,_+_0-HH@rP@V.cg.mNu|c`N ndJg/( hNN^NuNVp xn>p xfY/<N-_!` nLHA.+HBN@JPX! [=[["_".mNu np!|"nl-ih$nhpr=Afnfn6=@ nh0.H"np00H//)N np!_0.R@h x"np#hNx npHh Nr npJ l;|.mNu+|JVg/-V mRNB-+o N,_+_B-.mNuN^NuNVZ-xJd-nd^ mb hjf\Ah"Gnq /29/81q /29/81q /29/81q /29/81Secure H  ԲH H2J@zBzJr@  X 08 @ X& @02F X>" @!P?$@@21This SECURE subprogram does not work in BASIC 1.0@@2SECURE ABORTED.@׳@@@  @ Q@.ܛ2K,X2SECURE ENTIRE PROGRAM@.渎@  @"BELLOW "below" SYSBASE@&  Soft BASIC@  `A 됳@2  ꐶ. GRAPHICS, JELLO "below" SYSBASE@2@A&b @A6@ к@ ڱ@  rn 0"C|H#|B|I/./(/(J׮g/-׮ mתN8VJg n^/(NfNt-nZ n^"nZ#h >|H#|:|G/./(/(J׶g/-׶ mײN-nZ nZJ(Hc/(>HxJ׎g"0T^f2tz X0 0XȀ@ X  ichlineSecure Endlane_ptr NSecure Startline"   @@42K,X2 SECURE LINE 2TO LINE@4@"A"됳@,ղ@6!ղ萳@@!ղ萳@J! ղ萳@TQ@^A&b@h "sPk3'NVN^ _ NNV0. S@@0{N$@P?<ND?<Np xfY/<Nn-_!J nLHA.+HBNN^NuNVN^NuNPNp xfY/<N-_!` nLHA.+HBN z@n" H2<& Subprogram to secure lines of code byH62F+ placing an asterisk after each line numberH26P& secured. (For SERIES 200 BASIC 2.0)@2Z@d    @n !!!!!@ x@ "q@@l & @ 0$@ :2SECURE COMPLETED@D׳$NMake sure in BASIC 2.0@$X Q@@ b @ lA&b1=@v Hard BASIC@(  `A See if BASIC 1.0@&(  ꐶ  J" [=[[##.mNu np!|"nl-ih$nhpr=Afnfn6=@ nh0.H"np00H//)N np!_0.R@h x"np#hNx npHh Nr npJ l;|.mNu+|JVg/-V mRNB-+o N,_+_B-.mNuN^NuNVZ-xJd-nd^ mb hjf\Ah# `V &B @ F @ F @" @" @ 0 e @" @$ )@ ( Unsecure?@   RE-STORE "UNSECURE"@J@z#3n  Xof code byof code byToggleLine_ptrLhdr@ >@ HA&bHR@\A&b@f@pZ < 0 X D#C|H#|B|I/./(/(J׮g/-׮ mתN8VJg n^/(NfNt-nZ n^"nZ#h >|H#|:|G/./(/(J׶g/-׶ mײN-nZ nZJ(Hc/(>HxJ׎g# BzJrB`  8 @ X& @02F X>0T^f2tz X0 0 0X zȀ#x @ X @0*6 XDLTne_ptr Nextcub_ptr Ne`tline_pt FNFind_nextLine_ptrSecure Endline_ptr Nextsub_ptr Nextline_ptrSub_ptrLengthFNPoint @z@#sPk3'NVN^ _ NNV0. S@@0{N$@P?<ND?<Np xfY/<Nn-_!J nLHA.+HBNN^NuNVN^NuNPNp xfY/<N-_!` nLHA.+HBN@F#PHdrUnsecure Check_basicBasic1FNPointIDoneToggle FNFind_nextJ@2& Subprogram to secure lines of code by@62+ placing an asterisk after each line number@26& secured. (For SERIES#M X X0FNPointXPtrHiLow@@A&b@A&b@ P@萳@P@萳@  @ *@4 r#SL!ղ萳@ B@  L萳@ V@`@ j@ tZ # [=[[$i$%ղ萳@!ղ萳@! ղ萳@Q@A&b@ |@ @ ղ@ ղ@ @ Qn@ A&b@ J@ ղ@ $P@萳@fP@萳@ p@ z@ rn  Xof code byof code byToggleLine_ptrLhdr@ @ A&b@@/$ C|H#|B|I/./(/(J׮g/-׮ mתN8VJg n^/(NfNt-nZ n^"nZ#h >|H#|:|G/./(/(J׶g/-׶ mײN-nZ nZJ(Hc/(>HxJ׎g$ղ@ <@ &\@  0@ :@ D賎@N@ Xղ@b@ll v @ $@ 2SECURE COMPLETED@׳$Make sure in BASIC 2.0@$ Q@@  $<< BIGGY@@A&b@@Z < 0 b X D @ X @0*6 XDL zTne_ptr Nextcub_ptr Ne`tline_pt F$ sPk3'NVN^ _ NNV0. S@@0{N$@P?<ND?<Np xfY/<Nn-_!J nLHA.+HBNN^NuNVN^NuNPN@HA&b@RA&b@\$ !ղ萳@ $! ղ@ .@  8@ B@  L萳@ V@ `@j@ tA&b@ ~v@ !ղ萳@ @  萳@ @@ @ Ľ $ .mNu np!|"nl-ih$nhpr=Afnfn6=@ nh0.H"np00H//)N np!_0.R@h x"np#hNx npHh Nr npJ l;|.mNu+|JVg/-V mRNB-+o N,_+_B-.mNuN^NuNVZ-xJd-nd^ mb hjf\Ah$ [=[[%% NNV/. /.NN^ _PNNV-xJ-n n!mֈC!IC+IֈN^NuNVp xnNN^NuNV-n-n n-PR N^ _XNNVf/-/Hz6+OJ-g;|6.mNu|Ax+Hb mb1|j-xJt-ntpUN np0-xl"nl)rg;|%NfJ׎g/-׎ m׊N|b+o N.,_+_0-HH@rP@V.cg.mNu|c`N ndJg/( hNN^NuNVp xn>p xfY/<N-_!` nLHA.+HBN@ | x@ %bNfJ׎g/-׎ m׊N|b+o N.,_+_0-HH@rP@V.cg.mNu|c`N ndJg/( hNN^NuNVp xn>p xfY/<N-_!` nLHA.+HBN@"%;@B<!!!!!@FQ0됶 $FFFFCF76@PA&b@ZA&b@dA&b@nA&b@ x@ @ 1&@ 2@T@  @ L"0@@%t@  B: B,@ @$  B: B,B,@$ @ @   @ &A % .mNu np!|"nl-ih$nhpr=Afnfn6=@ nh0.H"np00H//)N np!_0.R@h x"np#hNx npHh Nr npJ l;|.mNu+|JVg/-V mRNB-+o N,_+_B-.mNuN^NuNVZ-xJd-nd^ mb hjf\Ah%g"@ @ @ @"@ @ P "@ (@ .@ 6@ TP FP N@ '>@" \@"f@ (QpP 'v@ '|@  E`urgeUnpubgeRenam% d@ һހ@ 2INTERNAL@ ބƳ@ 2HP9895@ ޅ@  2HP8290X@ ކ(@  BHP9885@ "އr@. , BHP913X% C|H#|B|I/./(/(J׮g/-׮ mתN8VJg n^/(NfNt-nZ n^"nZ#h >|H#|:|G/./(/(J׶g/-׶ mײN-nZ nZJ(Hc/(>HxJ׎g%?Unsecure@  RE-STORE "MSUS"@((@nl 0YY% ONE VOLUME - 5 MBYTES@. 6ވ@0 @ BHP913XB ONE VOLUME - 10 MBYTES@0 J޵!@ T BCS80@ ^޵!4@( h BHP98255 FUTURE - EPROM@( r޵!|@* | % sPk3'NVN^ _ NNV0. S@@0{N$@P?<ND?<Np xfY/<Nn-_!J nLHA.+HBNN^NuNVN^NuNPN!ȵ"MSH@?!ȵ"BRG@@!ȵ"PLN@A!ȵ"BRG@B!ȵ"CHS@C!ȵ"BRG@D!&(@ @ @   @ ?333333@ (@@  Ȥ@  Ȥ@ 8@-萳@ Ҵ@  萳@ 8@(萳@س@  @ 2D .ѵ1ղ& (' allocate array to hold graphics memory@H 1@4 !"*b512G* graphics escape code@4 긎 9826 OR 9816@ 1A@ 1,!) @ 1,@4 !"*b400G* graphics escape code@& [=[['' ^ FNFind_nextLine_ptrSecure Endline_ptr Nextsub_ptr Nextline_ptrSub_ptrLengthFNPoint|@ z@ @  !@ ,@ @  @ @  @ 'NNV/. /.NN^ _PNNV-xJ-n n!mֈC!IC+IֈN^NuNVp xnNN^NuNV-n-n n-PR N^ _XNNVf/-/Hz6+OJ-g;|6.mNu|Ax+Hb mb1|j-xJt-ntpUN np0-xl"nl)rg;|'V=nİnn=@BnBnBnBnBnBnBnBnBnBnBnBnBnBnBnBn0.=n°nn*=@0.no Bn`Hpnf" n0.22.HҁҀ=p` n0.H2.HҁҀ=p0.H.V tЂ=@0.H.V tЂ=@0.H'@ @&@  rn 0^ X X0FNPointXPtrHiLow@@ @ A&b@ A&b@  ' c!ղ萳@ ! ղ@ @ @ @ 萳@ @ @ @ $A&b@ .v@ 8!ղ萳@ B@  L萳@ V@ `@  j@ t@'.mNu np!|"nl-ih$nhpr=Afnfn6=@ nh0.H"np00H//)N np!_0.R@h x"np#hNx npHh Nr npJ l;|.mNu+|JVg/-V mRNB-+o N,_+_B-.mNuN^NuNVZ-xJd-nd^ mb hjf\Ah' pANHH OO /aAfb: 8f^/8/Hz!Hz+O6,KSCk $x/"QAN! ._KBgNQL>Nu"`r$< 1.8jD:ftAa`~K(x l4A2k( A>" x$(C*Y"'.V tЂ=@0.H.V tЂ=@0.H.V tЂ=@0.H.V tЂ=@0.H.V tЂ=@0.H.V tЂ=@0.H.V tЂ=@0.H.V tЂ=@0.H.V tЂ=@0.H.';P@萳@ P@萳@   @ *@4 rn r Xof code byof code byToggleLine_ptrLhdr@ >@ HA&b@@ R' C|H#|B|I/./(/(J׮g/-׮ mתN8VJg n^/(NfNt-nZ n^"nZ#h >|H#|:|G/./(/(J׶g/-׶ mײN-nZ nZJ(Hc/(>HxJ׎g(1ln@ȵ@ȵ@<@ȵJUC@ȵMLK@ȵHOT@ȵCHC@ȵHOT@ȵCDR@ ȵTEA@!ȵCOF@"ȵLRG@#ȵ(zȵ"CHL@E!ȵ"DOG@F! ȵ"HOT@G! ȵ"DOG@H!!ȵ"BBQ@I!!ȵ"BEF@J!"ȵ"GRL@K!"ȵ"CHS@L!#ȵ"LRG@M!#ȵ"FRY@N!$ȵ"SML@( 2bFp xfY/<Nn-_!J nLHA.+HBNN^NuNVN^NuNPNp xfY/<N-_!` nLHA.+HBN@<|@(w/!ȵ"WIN@0!ȵ"LRG@1!ȵ"BER@2!ȵ"SML@3!ȵ"BER@4!ȵ" + @5!ȵ"XTR@6!ȵ"STF@7!ȵ"SPD@8!ȵ"CHL@9!ȵ"BR( P@[!1ȵ"CHL@\!2ȵ"STU@]!@ȵ"YGT@^!Aȵ"FRT@ `"@ a@ bH@\` @ c@ d@ e@ lղ@ @ @  @ 2D2ѵ1() (' allocate array to hold graphics memory@H 1@4 !"*b512G* graphics escape code@4 긎 9826 OR 9816@ 1A@ 1,!) @ 1,@4 !"*b400G* graphics escape cod( ZE@ F @ E@ E@ F " `bE-STORE bgRFS"@ I Graphics_dumpI$S$Four E@  RE-STORE "GRFS"@  @ Hl@(DG@:!ȵ"BRN@;!ȵ"BRG@!ȵ"MSH@?!ȵ"BRG@@!ȵ"PLN@A!ȵ"BRG@B!ȵ"CHS@C!ȵ"BRG@D!( ղ@ @ ٵ2#,5A2EDIT@ "@ ,@ 6@ @l@J , Nu"`r$< 1.8jD:ftAa`~K(x l4A2k( A>" x$(C*Y)#H.V tЂ=@0.H.V tЂ=@0.H.V tЂ=@0.H.V tЂ=@0.H.V tЂ=@0.H.V tЂ=@0.H.V tЂ=@0.H.V tЂ=@0.H.V tЂ=@0.H) V  P@萳@ P@萳@   @ *@4 rn v Xof code byof code byToggleLine_ptrLhdr@ >@ HA&b@@ R)@ v@~L H@L , :   "@ 3s@ac@ D@ TwoYXIJCS$)@!c@ @ )"¼NuKNu1X,_!._08gdj|mx.x`N|nx`nAp&C8$P ʳg"68LDHgHD8JCkՒ`Ӓ`Nu//NO xJ/g|rJ/gr4/ *o T"h/8/Hz2!NPKX,_!C(o 8/NP(_NK,_)*.V tЂ=@0.H.V tЂ=@0.H.V tЂ=@0.H.V tЂ=@0.H.V tЂ=@0.R@h n0. n0.R@ n0.T@ n0.V@ n0.X@ n0.Z@ n0.\@ n) /<< BIGGY@@ \A&b@f@p < 0| X D @ X @0*6 XDLbTne_ptr Nextcub_ptr Ne`tline_) ,@ !@ @ ! 8@+ @  @ 萳@ (@ @ @   @ ?333333@ (@@  Ȥ@  Ȥ@ 8@-fffffg萳@ )X1,(" output row of graphics characters@: b27A,400A@ l@ v27A,512A@ @ B@8 !"&l6D( set line spacing to 6 lpi@8 ׳0" error encountered in "printer is")!C(o 8?8NPB`"_ _B/ (x0,IS@kN2|8|f<"H$xrf&SA VfP2|8fQ ,и/@NuPQNuY//a+_ _XN _ Ѐ` _ R"_$m"+JNNV n=h n=h n=P n0^@=@pnf -n`-n=|)0.^@ n0.P@ np n np n np n np n np n npn npnn0.R@hnpnf n0` n0N^ _NNu>VB<$- GRAPHICS DUMP ABORTED.@:) vbpt FNFind_nextLine_ptrSecure Endline_ptr Nextsub_ptr Nextline_ptrSub_ptrLengthFNPointx@ z@ @  !@ ,@ @  @ @  @ )U@ 0 $@: 2,BAD PRINTER ADDRESS - GRAPHICS DUMP ABORTED.@:Ʊ@ жl@ڧ`pd ' ' GdumpScreen Row_groupOs$)p=nİnn=@BnBnBnBnBnBnBnBnBnBnBnBnBnBnBnBn0.=n°nn*=@0.no Bn`Hpnf" n0.22.HҁҀ=p` n0.H2.HҁҀ=p0.H.V tЂ=@0.H.V tЂ=@0.) [=[[**C|H#|B|I/./(/(J׮g/-׮ mתN8VJg n^/(NfNt-nZ n^"nZ#h >|H#|:|G/./(/(J׶g/-׶ mײN-nZ nZJ(Hc/(>HxJ׎g* 1ln@ 2ȵ@ <ȵ@F<@PȵJUC@ZȵMLK@dȵHOT@nȵCHC@xȵHOT@ȵCDR@ȵTEA@ȵCOF@ȵLRG@ȵ*!ȵ"CHL@!ȵ"DOG@! ȵ"HOT@! ȵ"DOG@!!ȵ"BBQ@&!!ȵ"BEF@0!"ȵ"GRL@:!"ȵ"CHS@D!#ȵ"LRG@N!#ȵ"FRY@X!$ȵ"SML@*@  萳@ 8@(萳@@@ @ @ H:B :   " Ab@ @D!c@"*sPk3'NVN^ _ NNV0. S@@0{N$@P?<ND?<Np xfY/<Nn-_!J nLHA.+HBNN^NuNVN^NuNPNp xfY/<N-_!` nLHA.+HBN*$@0<@ * 7"!ȵ"WIN@,!ȵ"LRG@6!ȵ"BER@@!ȵ"SML@J!ȵ"BER@T!ȵ" + @^!ȵ"XTR@h!ȵ"STF@r!ȵ"SPD@|!ȵ"CHL@!ȵ"BR*(@@  Ȥ@  Ȥ@ 8@-fffffg萳@ ,@  萳@ 8@(萳@@! ) (' allocate array to hold graphics memory@H 1@4 !"*b512G*.mNu np!|"nl-ih$nhpr=Afnfn6=@ nh0.H"np00H//)N np!_0.R@h x"np#hNx npHh Nr npJ l;|.mNu+|JVg/-V mRNB-+o N,_+_B-.mNuN^NuNVZ-xJd-nd^ mb hjf\Ah*  E0' &@ @ E@ F "@ `bE-STORE bgRFS"@ I Graphics_dumpI$S$Three D@  RE-STORE "GRFS"@  @ Hl@(*G@!ȵ"BRN@!ȵ"BRG@!ȵ"ONI@!ȵ"BRG@!ȵ"MSH@‚!ȵ"BRG@́!ȵ"PLN@ւ!ȵ"BRG@!ȵ"CHS@ꂵ!ȵ"BRG@!* [=[[++@ , 0ȵ"VEG@4!>+uSID@~!]ȵ"MEA@!^ȵ"HOT@!^ȵ"CKS@!_ȵ"OML@!`ȵ"FRN@!`ȵ"TST@!aȵ" 3 @Ă!aȵ"EGG@΁!bȵ" 2 @؂!bȵ"EGG@⁵+ Ee_selector Row_groupProd_numOs$Graphic_escape$SysflagBadprint*ScreenGdump Graphics_resMaxrow q@D8 (FILE "82905DUMP") Dumps Graphics to HP82905B printer@ D  @ !!!@ "@+ )7A,512A@ 0@ :B@8 D!"&l6D( set line spacing to 6 lpi@8 N׳0X" error encountered in "printer is"@ 0 b$@: l2,BAD PRINTER ADDRESS - GRAPHICS DUMP ABORTED.@:v@ l+ȵ"SAN@>!?ȵ"TUN@H!?ȵ"SLD@R!@ȵ"YGT@\!Aȵ"FRT@f!Dȵ"JRK@p!Dȵ"E@z!Eȵ"CHP@!Fȵ"CIG@!Gȵ"GUM@!Hȵ"CND@+!cȵ" 1 @삵!cȵ"EGG@ȵ2MFN@1eȵ2BRK@ 1eȵ2SAN@1fȵ2SID@1fȵ2EGG@(1gȵ2ENG@21gȵ2MFN@<1hȵ2EMP@F1hȵ2BRK@ + *@ ,@ 6 @ @2@  J @ T A&b1.@ ^ @ h&@ r1A 9836@H |1! ) (' allocate array to hold graphics memory@H 1@4 !"*b512G* graphics es+@`pd 0' ' GdumpScreen Row_groupOs$ RpANHH OO /aAfb: 8f^/8/Hz!Hz+O6,K+!Hȵ"BAR@!Oȵ"CHP@!Oȵ"SAC@!Pȵ"PRZ@ʁ!Qȵ"POP@Ԃ!Qȵ"CRN@ށ!Sȵ"PIE@聵!Tȵ"CKY@!Uȵ"BRN@!Uȵ"E@!Vȵ"BRD+P"@ Z@ dH@\` @ n@ x@ @ ղ@ @ @  @ 2D ѵ1ղ@ @ ٵ2#,5A2EDIT@ ҽ@ ܶ@ 涎@ l+ cape code@4  9826 OR 9816@ 1A@ 1,!) @ 1,@4 !"*b400G* graphics escape code@4 ̹@&  ͻ  store graphics memory@4& !"&l9D  set spacing to 8 dots@H4 +SCk $x/"QA͐N! ._KBgNQL>Nu"`r$< 1.8jD:ftAa`~K(x l4A2k( A>" x$(C*Y"¼NuKNu1X,_!._08gdj|mx.x`N|nx`Ap&C8$P ʳ+b!$ȵ"FRY@l!,ȵ"PZA@v!,ȵ"WHL@!-ȵ"PZA@!-ȵ"SLC@!.ȵ"SUP@!.ȵ"SLD@!/ȵ"BWL@!/ȵ"SUP@!0ȵ"CUP@Ƃ!0ȵ"SU+A@!Wȵ"CRS@!Xȵ"DNT@$!Yȵ"DAN@.!Yȵ"ISH@8!Zȵ"CIN@B!Zȵ"ROL@L![ȵ"SID@V![ȵ"TST@`!\ȵ"SID@j!\ȵ"SPD@t!]ȵ"+ [=[[,!,=@0.no Bn`Hpnf" n0.22.HҁҀ=p` n0.H2.HҁҀ=p0.H.V tЂ=@0.H.V tЂ=@0.H.V tЂ=@0.H.V tЂ=@0.H.V tЂ=@0.H.V t, 0 X X0FNPointXPtrHiLow@ @ A&b@ A&b@ P@萳@ P@萳@  @ ڽ@ , @ ʸ@ A&b@ v@ !ղ萳@ @  萳@ @ @  @  $@  .@  8@ BL H@L ,  ,D!@ n@ x! 8@+ @  @ 萳@ (@ @ @   @ ?333333@ (@@ Ȼ Ȥ@ һ Ȥ@ 8@-fffffg萳@ 洎,@  ,^Ђ=@0.H.V tЂ=@0.H.V tЂ=@0.H.V tЂ=@0.H.V tЂ=@0.H.V tЂ=@0.H.V tЂ=@0.H.V tЂ=@0.H.V tЂ=@0.H.V tЂ=@,Nrn  Xof code byof code byToggleLine_ptrLhdr@ @ A&b@@ /<<8 BIGGY@@  A&b@@  , (  "@ 3s@ac@ D@ TwoYXIJCS$@ L!c@  V@ `,@ j!@ t@ ~! 8@+ @  @ 萳@ (@ ,k@ 8@(萳@ @ @ ^ HV>^ V@ @  %` "H!c@ ֱOneS$YXCIJ,Dg"68LDHgHD8JCkՒ`Ӓ`Nu//NO xJ/g|rJ/gr4/ *o T"h/8/Hz2!NPKX,_!C(o 8/NP(_NK,_!C(o 8?8NPB`"_ _B/ (x0,IS@kN2|8|f<"H$xrf&SA VfP2|8fQ,10.H.V tЂ=@0.R@h n0. n0.R@ n0.T@ n0.V@ n0.X@ n0.Z@ n0.\@ n0.^@ n0.P@ np n np n np n np n np n,:< 0 X D @ X @0*6 XDLTne_ptr Nextcub_ptr Ne`tline_pt FNFind_nextLine_ptrSecure Endline_ptr Nextsub_ptr Nextline_ptrSub_ptrLengthFNPoint, ?@ @   @ ?333333@ (@@ λ Ȥ@ ػ Ȥ@ 8@-fffffg萳@ 촎@  萳@ 8@(萳@ @ @  @  (@ 2B, ,и/@NuPQNuY//a+_ _XN _ Ѐ` _ R"_$m"+JNNV n=h n=h n=P n0^@=@pnf -n`-n=|p=nİnn=@BnBnBnBnBnBnBnBnBnBnBnBnBnBnBnBn0.=n°nn*, npn npnn0.R@hnpnf n0` n0N^ _NNuԀVB<$- GRAPHICS DUMP ABORTED.@:@ I@&@  rn, ೎@ *@ 4@  >!@ H,@ R@  \@ f@  p@ z!ղ萳@ ! ղ@ @ @ @ 萳@ @ , t H:B : #  " Ab6@ @D!c@"FourS$YXIJCD@ <!c@  F@ P!6@ Z:@ d, [=[[-- - -  -P@  Ȥ@  Ȥ@ 8@-fffffg萳@ ̴H@  萳@ 8@(萳@ 괎$@ @  H^Bf T@ "@ - -  -  -AE ' H!c@" S$YXCIJThree@ !c@  @ !;@ &T@ 0!@ : @ D! 8@+ @ - -  - - N@ X萳@ b(@ @ l@  v @ ?333333@ (@@  Ȥ@  Ȥ@ 8@-fffffg萳@ P@  萳@ 8@(萳@ д,@ ڱ - - [=[[-  - -Ⳏ@ "!c@  ,@ 6@ @V@ J!@ T"@ ^! 8@+ @  h@ r萳@ |(@ @ @   @ ?333333@ (@.3. . . .  . [=[[. . .  .  . . .  . . . .  . // / / /  / / /  /  / / / [=[[/  / / / /  / 0J0 0 0 0  0 0 0  0  0 0 0  0 0 0 0  0 0 [=[[11 1 1 1  1 1 1 [=[[1  1  1 1 1  1 1 1 1  1 2X2 2 2 2  2 2 2  2  2 2 2  2 2 [=[[2 2 2  2 33 3 3 [=[[3 3  3 3 3  3  3 3 3  3 3 3 3  3 4n4 4 4 4  4 4 4  4  4 [=[[4 4 4  4 4 4 4  4 55 5 5 5  5 5 5  5  5 5 5  5 5 5 5 [=[[5  5 6|6 6 6 6  6 [=[[6 6 6  6  6 6 6  6 6 6 6  6 77 7 7 7  7 7 7  7  7 7 7 [=[[7  7 7 7 7  7 88 8 8 8  8 8 8  8  8 8 8  8 8 8 8  8 8 [=[[99 9 9 9  9 9 9 [=[[9  9  9 9 9  9 9 9 9  9 :: : : :  : : :  :  : : :  : : [=[[: : :  : ;; ; ; [=[[; ;  ; ; ;  ;  ; ; ;  ; ; ; ;  ; <&< < < <  < < <  <  < [=[[< < <  < < < <  < == = = =  = = =  =  = = =  = = = = [=[[=  = >4> > > >  > [=[[> > >  >  > > >  > > > >  > ?? ? ? ?  ? ? ?  ?  ? ? ? [=[[?  ? ? ? ?  ? @q@ @ @ @  @ @ @  @  @ @ @  @ @ @ @  @ @ [=[[AA A A A  A A A [=[[A  A  A A A  A A A A  A BcBBBB BBB B BBB BB [=[[BBB BCCCC [=[[CC CCC C CCC CCCC CDUDDDD DDD D D [=[[DDD DDDD DEEEEE EEE E EEE EEEE [=[[E EE> System 1 Date 06/13/83 Operator t.h Disc type DUPLICATEaFF