A ************** * H. HUBERS * *************** INSIDE * * COMMODORE * * DOS (1984) ***************d * VALIDATE A DISKETTE - 1541 *nxCD$""F$(143),T%(143),S%(143)"VALIDATE A DISK - 1541";8"INSERT A DISKETTE"Y"PRESS RETURN OR STOP"yC$:C$(13) C$"S"170 C$"S"260"OK"15,8,1515,"IO"15,EN$,EM$,ET$,ES$ EN$"00"270""EN$", "EM$","ET$","ES$" 15 &"FETCHING DIRECTORY"; 2,8,2,"$0,S,R"S"15,EN$,EM$,ET$,ES$f, EN$"00"320o6240@ I0 253J#2,B$TI^N0h J07r#2,B$| B$""B$(0)A(B$) A127A133510 I02#2,B$I B$"" B$(0)%A(B$)< A0 J7:J:820I I025T#2,B$[Id750o#2,B$ B$""B$(0)T%(N)(B$)#2,B$& B$""B$(0)0S%(N)(B$):F$""DNULL0NI015X#2,B$b B$""B$(0)lA(B$)$v A0NULLNULL18 A127AA128N A32A95 A63^ A34A63mF$F$(A)tI NULL16J7:J:820F$(N)F$NN1 I010#2,B$I J7790 I01#2,B$ IJ  ST64820*3604 20>15,EN$,EM$,ET$,ES$>H N0880YR"NO CLOSED FILES !!"b\ 15hfppI0yz""N$("00"((N),((N))1),3) J0N1J$("00"((J1),((J1))1),3)"VALIDATING #"J$"/"N$": "F$(J)"";(CD$,I2);F$(J);" ";!NB1-TT%(J)9SS%(J)C1640]""(CD$,I2)F$(J)NBiJOB176s1520E110401170JOB1281520$E11080.1170815,"M-R"(0)(4)(2)B#15,B$LT(B$(0))V T01170 `#15,B$jS(B$(0))Wt T35 S202(T17)(T24)(T30)II2:R$"":1230c~NBNB1l980vII2R$"" E11240R$""17001250E$"ILLEGAL TRACK OR SECTOR":1250E$"00, OK,00,00"""R$;(CD$,I);F$(J)" "E$""JF$(J)""J$""R$(CD$,I1)""F$(J)" "E$""t I20JN1 D11000:D:"":I0{J  15 N11 SN:1500"SUMMARY INFORMATION (Y/N)"#Q$: Q$"Y"Q$"N"1315( Q$"N"1102SI$" /"N$" SUMMARY "<S0(FSI$"";4P I09?ZF$(S)IdSS1Wn SNI9^xIn SN1460 SN" TYPE C TO CONTINUE"C$: C$"C"1430110"TYPE (C)ONT. OR (S)TOP"C$: C$"S"C$"C"1470  C$"C"1350110' * JOB QUEUE *1TRY0S15,"M-W"(8)(0)(2)(T)(S)s15,"M-W"(1)(0)(1)(JOB)TRYTRY115,"M-R"(1)(0)"#15,E$,E$""E$(0)6E(E$)@ TRY5001620JE1271550T^ * STR$(T,S) *hT$((T),((T))1)-r T10T$"0"T$F|S$((S),((S))1)[ S10S$"0"S$a E1E12EN$((E18),2):1720EN$"02":EM$"?TIE OUT":1730EM$"READ ERROR"ET$T$ES$S$E$EN$", "EM$","ET$","ES$