image of READY prompt

Wang2200.org

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