Listing of file='START/1' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 255, program filename = 'START/1' 0010 REM ******* START/1 ******* RICHARD NICHOLS 12/26/75 : DIM A$(16),A$6,B$6,A1$12,B1$12,A2$(2)4,Q$2,V$3 : B$=HEX(800F83218400) : A$=HEX(000F03210400) : A2$(1)=HEX(30303030) : A2$(2)=HEX(38303030) 0020 PRINT 0030 DATA LOAD BA T(0,L)A$() 0040 IF STR(G$,1,1)=HEX(33)THEN 60 : IF STR(G$,1,1)=HEX(42)THEN 50 : STOP "SYSTEM ERROR" 0050 A$=B$ 0060 STR(A$(1),1,6)=A$ : DATA SAVE BA T$(0,L)A$() : DATA SAVE BA T$(1000,L)A$() 0070 LIMITS T"DISK MC1",A,B,C 0080 DATA LOAD BA T(A+1,L)A$() : A1$=HEX(303030413030304130303030) : B1$=HEX(383030413830304138303030) : IF STR(G$,1,1)="3"THEN 90 : A1$=B1$ 0090 ADD(STR(A1$,9,4),STR(G$,4,4)) : STR(A$(10),5,11)=A1$ : DATA SAVE BA T$(A+1,L)A$() 0100 LIMITS T"DISK MC4",A,B,C : DATA LOAD BA T(A+1,L)A$() : STR(A1$,3,2)=HEX(3046) : STR(A1$,7,2)=HEX(3231) : STR(A1$,6,1)=HEX(33) : STR(A$(9),4,12)=STR(A1$,1,12) : DATA SAVE BA T$(A+1,L)A$() 0110 DATA LOAD BA T(A+6,L)A$() : IF STR(G$,1,1)="3"THEN 120 : Q$="RF" : V$="801" : STR(A$(2),1,4)=A2$(2) : GOTO 130 0120 STR(A$(2),1,4)=A2$(1) : Q$="FR" : V$="843" 0130 DATA SAVE BA T$(A+6,L)A$() 0140 LIMITS T"EXPAN-01",A,B,C : DATA LOAD BA T(A+7,L)A$() : STR(A$(4),1,2),STR(A$(11),2,2)=Q$ : STR(A$(1),9,1)=STR(Q$,2,1) : STR(A$(2),7,1)=STR(Q$,1,1) : DATA SAVE BA T$(A+7,L)A$() : DATA LOAD BA T(A+4,L)A$() : STR(A$(12),13,3)=V$ : DATA SAVE BA T$(A+4,L)A$() 0150 IF H7$="EXPAN-02"THEN 160 : IF H7$="TAPE"THEN 170 : LOAD DC T"START"50 0160 LOAD DC T"EXPAN-02"130 0170 LOAD 30