Listing of file='START' on disk='vmedia/701-2046C.wvd.zip'
# Sector 408, program filename = 'START'
0010 REM . START, 00-00 (6/28/75), 12002
0100 COM N5$(9)8,P8,P9,O0,O1,O2,O3,O4,O5,O8,D9$(32)8,E9$(7)2
: DIM N1$(8)8,N2$(8),N3$(8),N4$(8),L$(8)2,L(8),L1(8)
: DIM L2(8),D$(16),N9$(8),L4$(8)2,L1$(8)2,L2$(8)2
0130 DIM Q6$64,W$(3)8,Q4(3),Q5(3),Q1$8,W1$1,L9$(8),Z$64
: SELECT PRINT 005
: DIM N6$(8)8
: INIT(20)N6$()
: N6$(1)="M/MD010A"
: N6$(3)="M/TD010A"
: N6$(6)="M/DD010A"
: N6$(7)="M/HD010A"
: N6$(4)="M/VD010A"
: INIT(20)N5$()
0230 E9$(1)="OK"
: MAT COPY E9$()TO E9$()<3,10>
: N1$(5)="WDMD010A"
: N1$(1)="WM0D010A"
: N1$(2)="WCPD010A"
: N1$(6)="WDKD010A"
: N1$(3)="PTRD010A"
: N1$(4)="PRVD010A"
: N1$(7)="PHAL010A"
0315 N1$(8)="COPY010A"
: N2$(5)="DISK-INSTR."
: N2$(1)="MEMORY"
: N2$(2)="CPU"
: N2$(6)="DISKS"
: N2$(3)="PRINTER"
: N2$(4)="PLATTER VERIFY"
: N2$(7)="PERIPHERALS"
: N2$(8)="COPY/VERIFY"
0390 N5$(9)="M/END"
: INIT(20)D9$()
: D9$(1)=HEX(0030303030303030)
: GOSUB 2060
: GOSUB '248(4,0,0)
: PRINT "--------------------------------------"
: GOSUB '248(6,6,0)
: PRINT "1. 310 4. B10"
0470 PRINT TAB(6);"2. 320 5. B20"
: PRINT TAB(6);"3. 350 6. 360"
0490 GOSUB '245("ENTER THE NO. TO CHOOSE THE PROGRAM DISK ADDRESS",1,0)
: IF Q9>0THEN 530
0510 GOSUB 9480
: GOTO 490
0530 IF Q9>6THEN 510
: O0=Q9
: CONVERT O0TO STR(D9$(32),1,1),(#)
: ON Q9GOTO 580,600,620,640,660,680
: GOTO 510
0580 SELECT #6310
: GOTO 690
0600 SELECT #6320
: GOTO 690
0620 SELECT #6350
: GOTO 690
0640 SELECT #6B10
: GOTO 690
0660 SELECT #6B20
: GOTO 690
0680 SELECT #6360
0690 GOSUB '248(1,0,9)
: O8=1
0710 GOSUB '243("DO YOU DESIRE A HARD COPY (Y OR N)",1)
: IF Q6$="N"THEN 840
: IF Q6$="Y"THEN 760
: GOSUB 9480
: GOTO 710
0760 O8=2
0770 GOSUB '245("ENTER 1 FOR 2201 PRINTER, 0 FOR OTHERS",1,0)
: IF Q9=0THEN 840
: IF Q9=1THEN 820
: GOSUB 9480
: GOTO 770
0820 O8=3
: GOSUB 2060
0840 GOSUB '248(1,0,4)
: PRINT " SEARCH THE INDEX PROGRAMS"
: FOR I=1TO 8
: L(I)=9
: NEXT I
: A,N,E=0
: INIT(20)N3$()
0900 DATA LOAD BA T#6,(A,A)D$()
: FOR I=1TO 16
: IF A+I=2THEN 1050
: IF STR(D$(I),1,1)=HEX(00)THEN 1040
: IF STR(D$(I),1,1)<>HEX(10)THEN 1050
: INIT(FF)L$()
: MAT SEARCHN1$(),=STR(D$(I),9,8)TO L$()STEP 8
: IF L$(2)<>HEX(0000)THEN 1050
: N=N+1
: L2=VAL(STR(L$(1),2,1))
1000 L2=INT((L2-1)/8)+1
: L(N)=L2
: N3$(N)=N2$(L2)
: GOTO 1050
1040 I=16
1050 NEXT I
: IF A>=23THEN 1080
: IF E<>1THEN 900
1080 IF N>0THEN 1120
: GOSUB '248(1,0,1)
: PRINT " NO PROGRAM ON THE DISK"
: STOP
1120 MAT CONVERT L()TO L9$()
: MAT SORTL9$()TO L2$(),L1$()
: FOR I=1TO N
: L2=VAL(STR(L1$(I),1,1))
: L2(I)=L2
: NEXT I
: MAT COPY N3$()TO N9$()
: GOSUB '33("2200 HARDWARE DIAGNOSTIC MENU",3,N)
: N1=0
: INIT(" ")N4$()
: FOR I=1TO 8
: L1(I)=9
: NEXT I
1250 GOSUB '245("ENTER THE PROGRAM # TO CHOOSE THE DIAGNOSTIC ( 0 TO STOP )
",2,0)
: IF Q9=0THEN 1470
: IF Q9>NTHEN 1290
: IF Q9>=1THEN 1310
1290 GOSUB 9480
: GOTO 1250
1310 IF N1=0THEN 1390
: E=0
: FOR I=1TO N1
: IF Q9<>L1(I)THEN 1370
: E=1
: I=N1
1370 NEXT I
: IF E=1THEN 1290
1390 N1=N1+1
: L1(N1)=Q9
: N4$(N1)=N3$(L2(Q9))
: N9=INT((Q9-1)/V4)
: N8=Q9-N9*V4
: GOSUB '248(4+N8,N9*20+3,0)
: PRINT "*"
: GOTO 1250
1470 MAT CONVERT L1()TO L9$()
: MAT SORTL9$()TO L2$(),L1$()
: FOR I=1TO N1
: L2=VAL(STR(L1$(I),1,1))
: L2(I)=L2
: NEXT I
: D9$(N1+2)="MSGD010A"
: INIT(" ")N9$()
: MAT COPY N4$()TO N9$()
: IF N1>0THEN 1600
: GOSUB 2060
1580 PRINT " NO PROGRAMS ASSIGNED, RUN DISTURBED"
: STOP
1600 GOSUB '33("2200 HARDWARE DIAGNOSTIC MENU",2,N1)
1610 GOSUB '245("IF OK. ENTER 0, IF NOT ENTER 1",1,0)
: IF Q9=0THEN 1660
: IF Q9=1THEN 1120
: GOSUB 9480
: GOTO 1610
1660 GOSUB '248(1,0,14)
: P8,P9=0
: CONVERT O8TO STR(D9$(1),8,1),(#)
: FOR I=1TO N1
: MAT SEARCHN2$(),=N9$(L2(I))TO L$()STEP 16
: L3=INT(VAL(STR(L$(1),2))-1)/16+1
: D9$(I+1)=N1$(L3)
: N5$(I)=N6$(L3)
: NEXT I
: LOAD DC T#6,"M/START"
1760 DEFFN'33(Z$,V1,V2)
: V3=32
: IF V1=2THEN 1800
: V3=20
1800 V4=INT((V2-1)/V1)+1
: PRINT HEX(03);Z$
: PRINT HEX(0A0A0A);
: PRINT "-----------------------------------------"
: FOR I=1TO V4
: PRINTUSING 2050,I,N9$(L2(I))
: NEXT I
: Q6=4
: E=0
: FOR I=V4+1TO V4*2
: Q6=Q6+1
: IF I<=V2THEN 1910
: I=V4*2
: E=1
: GOTO 1930
1910 GOSUB '248(Q6,V3,0)
: PRINTUSING 2050,I,N9$(L2(I))
1930 NEXT I
: IF E<>0THEN 2040
: Q6=4
: FOR I=V4*2+1TO V4*3
: Q6=Q6+1
: IF I<=V2THEN 2010
: I=V4*3
: GOTO 2030
2010 GOSUB '248(Q6,V3*2,0)
: PRINTUSING 2050,I,N9$(L2(I))
2030 NEXT I
2040 RETURN
2050 % ## ###############
2060 PRINT HEX(03);"2200 HARDWARE DIAGNOSTIC MENU"
: RETURN
9000 Q6=3
: GOTO 9610
9020 DEFFN'254
: GOSUB '243("KEY RETURN(EXEC) TO RESUME",0)
: W4$=Q6$
: GOSUB '248(0,0,4)
: Q6$=W4$
: RETURN
9080 DEFFN'242(W0,Q6$)
: IF W0<=0THEN 9760
: IF W0=1THEN 9120
: STR(Q6$,2)=STR(Q6$,1,W0-1)
9120 PRINT Q6$;
: RETURN
9140 DEFFN'243(Q6$,Q0)
: GOSUB 9510
9160 SELECT CO 205
: Q6$=" "
: INPUT Q6$
: IF Q0=0THEN 9580
: IF LEN(Q6$)<=Q0THEN 9580
: GOSUB 9480
9220 DEFFN'244(Q0)
: GOSUB 9560
: GOSUB 9530
: GOTO 9160
9260 DEFFN'245(Q6$,Q2,Q3)
: Q0=ABS(Q2)+Q3+1
: GOSUB 9510
9290 GOSUB '242(ABS(Q2)+2,HEX(09))
: PRINT "/"
: GOSUB 9560
: SELECT CO 205
: Q9,W0=-1E-99
: INPUT Q9
: IF W0=Q9THEN 9380
: IF Q9>=0THEN 9440
: IF Q2<=0THEN 9440
9380 GOSUB 9480
9390 DEFFN'246(Q2,Q3)
: Q0=ABS(Q2)+Q3+1
: GOSUB 9560
: GOSUB 9530
: GOTO 9290
9440 IF ABS(Q9)>=10^ABS(Q2)THEN 9380
: W0=ABS(Q9*10^Q3)
: IF INT(W0)<>W0THEN 9380
: GOTO 9000
9480 GOSUB 9000
: PRINT "RE-ENTER"
: RETURN
9510 GOSUB 9760
: PRINT HEX(010A);STR(Q6$,1);
9530 GOSUB 9760
: GOSUB '242(Q0+2,"-")
: PRINT TAB(64)
9560 PRINT HEX(010A0A)
: RETURN
9580 PRINT HEX(0A);TAB(64)
: GOTO 9760
9600 Q6=0
9610 Q7=0
: Q8=1
9630 DEFFN'248(Q6,Q7,Q8)
: GOSUB 9760
: IF Q8<1THEN 9730
: GOSUB 9730
: SELECT PRINT 205
: Q6$=" "
: PRINT STR(Q6$,Q7+1)
: IF Q8<2THEN 9730
: FOR W0=2TO Q8
: PRINT HEX(0A);STR(Q6$,1)
: NEXT W0
9730 PRINT HEX(01)
: GOSUB '242(Q7,HEX(09))
: GOSUB '242(Q6,HEX(0A))
9760 SELECT PRINT 005(64),CO 005
: RETURN
9780 DEFFN'10"SELECT CO 005";HEX(0D)
9800 DEFFN'0
: LOAD DC T#6,"COPY010A"