image of READY prompt

Wang2200.org

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"