***** SETUP *****$ %:A HEX$"0123456789ABCDEF"M I05] TYP$(I)g I$ (14)" % "  ILE INKS ISPLAY - 1541/71 "& " "'( " NSERT ISKETTE IN RIVE "U) " & ELECT ". " ВRINTER OR ӒCREEN "/ " "8 PR$B PR$"P"PR$"S" 1080L DV3V PR$"P"DV4(i " Uj " 1. IRECTORY k " 2. IRECTORY /EL ILES l " 3. ILE INKS n " 4. IRECTORY /CTIVE ILE INKS o " 5. IRECTORY /EL ILE INKS 6p " cq " r " ELECT PTION: s " t " u CK$- ~ CK$"1"CK$"2"CK$"3"CK$"4"CK$"5" 1141E  20)""CK$""  CK$"3"" FILENAME:";:F1$:(F1$,1)"*"F1$(F1$,((F1$)1))  CK$"3"33)"OK!"  CK$"3"33)"OK!"  ***** CHECK DISK HEALTH *****  15,8,15 ! 15,"I0"#! 15,EN,EM$,ET,ES4! EN0 1260=! 15I! 2670k! ***** OPEN DIRECTORY *****v! 4,DV! 2,8,2,"#"! 3,8,3,"$0,P,R"!  #3,BYT$! I3143! #3,BYT$!( I!2 ***** READ DISK NAME *****"< I144161"F 2210+"P NAME$NAME$(BYT)5"Z IL"d NAME$(NAME$,16)l"n ***** READ DISK ID *****|"x I162163" 2210" ID$ID$(BYT)" I" I164255" #3,BYT$" I# ***** DISK NAME HEADER DISPLAY *****# 42# 4," DISK NAME:"NAME$"- DISK ID:"ID$:# 4l# 4," FILE NAME BLKS TYP LOAD TR-SE"t# 4# ***** READ FILE TYPE *****# #3,BYT$# TYP(BYT$(0))# TYP$TYP$(7TYP)$" ***** READ FILE START TRACK & SECTOR *****$, #3,BYT$$$6 T(BYT$(0))G$@ T$("0"((T),((T))1),2)U$J #3,BYT$i$T S(BYT$(0))$^ S$("0"((S),((S))1),2)$h ***** READ FILE LOAD ADDRESS *****$r LD$""%| (7TYP)0(7TYP)2 1800: *** FOR DEL & PRG FILES ONLY **% 15,"U1";2;0;T;S/% 15,"B-P";2;2=% #2,BYT$S% BYT(BYT$(0))d% H(BYT16)t% LBYT16H% LD$(HEX$,H1,1)(HEX$,L1,1)% #2,BYT$% BYT(BYT$(0))% H(BYT16)% LBYT16H& LD$(HEX$,H1,1)(HEX$,L1,1)LD$)& ***** READ FILE NAME *****7& FILE$""@& N0M& I116[&& 2210s&0 BYT$(0)NN1&: FILE$FILE$(BYT)&D I&N CK$"4"CK$"5"F1$FILE$&X N16 2160: *** FILE NAME NOT FOUND ***&b I19'l #3,BYT$ 'v I7' ***** READ # OF BLKS IN FILE *****E' #3,BYT$Y' B(BYT$(0))g' #3,BYT$' BB256(BYT$(0))' BLK$(" "((B),((B))1),3)' ***** CHECK FOR END OF DIR OR FOUND DESIRED FILE *****' ST64EO1( CK$"3"F1$(FILE$,(F1$)) 2060B( CK$"3"CK$"4"CK$"5"FF1Z( LD$""LD$" NA "( ***** FILE PARAMETER PRINTOUT *****( ((7TYP)0)(CK$"1"CK$"4")2060( CK$"4"CK$"5"4," ======================================"%) 4," "FILE$" "BLK$" "TYP$" "LD$" "T$"-"S$0)  FF1T) F8(F8)#3,BYT$:#3,BYT$})  ***** PAUSE CONTROL FOR DIR *****)* C$)4 C$"" 2130)> C$)H C$"" 2110)R EO1 2160)W (CK$"4"(7TYP0))2150)\ FF1FF0: 2290*f 1540.*p ***** CHECK FILE NOT FOUND *****h*z N16CK$"3"" FILE NOT FOUND!": 2610* (CK$"1"CK$"2")((CK$"4"CK$"5")N16) 2610* 2290* ***** GET BYTE ****** #3,BYT$* BYT$""BYT$(0)* BYT(BYT$)+ BYT127BYTBYT1283+ BYT32BYT95BYT63G+ BYT34BYT63N+ z+ ***** TRACE FILE LINKS ROUTINE *****+ 4+ 4," FILE LINKS"+ 4+ 4," START TR/SE* ";T$;"-";S$;+ LN3,$ ***** READ CURRENT TR/SE *****,. 5,8,5,"#"!,8 LNLN17,B 15,"U1";5;8;T;SJ,L 15,"B-P";5;0l,V ***** GET NEXT TR/SE *****x,` #5,T$,j T(T$(0)),t #5,S$,~ S(S$(0)), 5:: CLOSE15, ***** CONDITION TR/SE FOR PRINTOUT *****- LN64:LN1$- T$("0"((T),((T))1),2)G- S$("0"((S),((S))1),2)p- ***** CHECK FOR END OF FILE *****- T$"00" 2580- 4," ";T$;"-";S$;- ***** PAUSE CONTROL FOR FILE LINKS ****- C$- C$"" 2570- C$. C$"" 2550 . 2350$. 4," *END TR/SE"H. (CK$"4"CK$"5")EO1 1540h.( ***** PREPARE EXIT *****.2 " RESS TO E-RUN".< "  TO EIT ".F C$.P C$"R"C$"X" 2630.Z 2740 /d ***** DISK FAULT EXIT *****/n 6/x "DISK FAULT "EN","EM$","ET","ESf/ "CORRECT FAULT THEN PRESS R TO CONTINUE"o/ C$/ C$"R" 2700/ " "/ ***** EXIT *****/ 3/ 2/ 15/ 4/ C$"X"/ 0 ***** FILE TYPES *****50 DEL,SEQ,PRG,USR,REL,*?*