Listing of file='DISKS' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 380, program filename = 'DISKS'
0010 REM ******* DISKS *******
0020 COM E(6),S8,D$,E1$,Z9(1)
: DIM R$63,B$52
: Z9(1),R=1
0030 PRINT HEX(03);TAB(20);"WCS DISK DIAGNOSTICS"
: PRINT TAB(18);"*************************"
0040 PRINT HEX(0A);TAB(10);"HARDWARE";TAB(42);"MICRO-CODE"
: PRINT TAB(10);"--------";TAB(42);"----------"
0050 PRINT "00 .......... 2240 / 2270";TAB(36);
0060 PRINT "16 .......... 2240 / 2270"
0070 PRINT "01 .......... 2230-1";TAB(36);
0080 PRINT "17 .......... 2230-1"
0090 PRINT "02 .......... 2230-2";TAB(36);
0100 PRINT "18 .......... 2230-2"
0110 PRINT "03 .......... 2230-3";TAB(36);
0120 PRINT "19 .......... 2230-3"
0130 PRINT "04 .......... 2260";TAB(36);
0140 PRINT "20 .......... 2260"
0150 PRINT "05 .......... ALIGNMENT";TAB(36);
0160 PRINT "21 .......... MOVE / COPY"
0170 PRINT HEX(0A0A0A);TAB(13);"KEY CORRESPONDING SPEC. FUNC. KEY"
0180 INIT("*")R$
: STR(R$,R,2)=" "
: PRINT R$;HEX(0D)
0190 KEYIN A$,190,210
: R=R+1
: IF R=61THEN 200
: GOTO 180
0200 R=1
: GOTO 180
0210 A=VAL(STR(A$,1,1))+1
: ON AGOTO 220,230,240,250,260,340,30,30,30,30,30,30,30,30,30,430,270,280,2
90,300,310,350
: GOTO 30
0220 D$="2240 / 2270"
: S8=1023
: E1$="FLOPPY"
: GOTO 330
0230 D$="2230-1"
: S8=2399
: E1$="2230-1"
: GOTO 330
0240 D$="2230-2"
: S8=4799
: E1$="2230-2"
: GOTO 330
0250 D$="2230-3"
: S8=9791
: E1$="2230-3"
: GOTO 330
0260 D$="2260"
: S8=19583
: E1$="2260"
: GOTO 330
0270 S8=1023
: E1$="DISKETTE"
: GOTO 320
0280 S8=2399
: E1$="2230-1"
: GOTO 320
0290 S8=4799
: E1$="2230-2"
: GOTO 320
0300 S8=9791
: E1$="2230-3"
: GOTO 320
0310 S8=19583
: E1$="2260"
: GOTO 320
0320 Y$="DISK MC1"
: DATA SAVE DA T$(1023,L)Y$,Y$,Y$,Y$,Y$,1,S8,0,0,0,0,0,0,E1$
: LOAD DC T"DISK MC1"
0330 LOAD DC T"DISK HD1"
0340 LOAD DC T"DISK ALT"
0350 LOAD DC T"EXPAN-01"
0360 STR(B$,22,9)=" "
: GOSUB 380
0370 SELECT P0
: RETURN
0380 PRINT HEX(010A0A0A0A);TAB(5);B$;HEX(0D0A0A0A0A);TAB(5);B$
: RETURN
0390 S8=1023
: STR(G$,4,4)=HEX(00040000)
: GOTO 40
0400 S8=2399
: STR(G$,4,4)=HEX(00090600)
: GOTO 40
0410 S8=4799
: STR(G$,4,4)=HEX(01021300)
: GOTO 40
0420 S8=9791
: STR(G$,4,4)=HEX(02060400)
: GOTO 40
0430 DEFFN'15
: COM CLEAR
: LOAD DC T"START"