image of READY prompt

Wang2200.org

Listing of file='609@VER' on disk='vmedia/701-2738G.wvd.zip'

# Sector sector 322, program filename = '609@VER '
0010 REM "609@VER" - VOLUME VERIFY
0095 COM D5$8,D6$4,D8$(2)8
   : DIM J$1,J$(53)8
   : DIM S5(1),S0(1),T5(1),S3(1)
   : DIM T1$(52)12,S1$(52)2
   : DIM T1(1),S6(1),S1(1),T2$(1)1
   : DIM T2(1),S7(1),S2(1),S4(1),T5$(1)1
   : DIM S2$(1)2
   : DIM S1$52
   : DIM S2$1,T1$80,T2$2
   : DIM S0,S4,S5,S6,S7,S9,T0,T2,T3,T5,C0,T7
0210 S2=4
   : S3=16
   : RESTORE LINE2020
   : GOSUB '61
   : FOR C=1TO 52
   : DATA LOAD DA T#0,(B3+C)A0$()
   : IF STR(A0$(),2,1)=" "THEN 310
   : J$(C)=STR(A0$(),2,8)
   : T1$(C)=T1$(C)&" / "&J$(C)
0310 NEXT C
0330 IF C5=0THEN PRINT HEX(0306);
   : GOSUB 2080
   : PRINT AT(0,24);B5$(2);T1$;B5$(1)
   : PRINT
   : GOSUB 2090
   : PRINT T1$
   : GOSUB 2100
   : PRINT T1$
   : GOSUB 2110
   : PRINT AT(5,0);HEX(020400040E);AT(5,11);T1$;AT(5,27);T1$;AT(5,43);T1$;AT(5
     ,59);T1$;B5$(2);HEX(0F);
0390 GOSUB '62
   : ON T5+1GOTO 800,420
   : GOSUB 2120
   : PRINT AT(23,0,);T1$;HEX(07);
   : GOTO 390
0420 J=T5(1)
   : J$=T1$(J)
   : DATA LOAD DA T#0,(B3+J)A0$()
   : IF STR(A0$(),2,1)<>" "THEN 510
   : GOSUB 2130
   : PRINT AT(23,0,);T1$;HEX(07);
   : GOTO 390
0510 MAT REDIM T1$(256)1
   : LIMITS T#0,"WPSYSTEM",A,Z,S,X9
   : DATA LOAD BA T#0,(A+1)T1$()
   : C5=1
0540 DATA LOAD BA T#0,(A+VAL(STR(T1$(),C5,2),2))T1$()
   : MAT SEARCHT1$(),=STR(A0$(),2,8)TO C1$
   : IF C1$<>HEX(0000)THEN 610
   : C5=4
   : IF VAL(STR(T1$(),C5,2),2)<>0THEN 540
0590 GOSUB 2130
   : PRINT AT(23,0,);T1$;HEX(07);
   : MAT REDIM T1$(52)12
   : GOTO 210
0610 HEXUNPACKSTR(T1$(),VAL(C1$,2)+16,2)TO D6$
   : D8$()="609@VER Prime 62"
   : D5$=STR(A0$(),2,8)
   : SELECT #5<D6$>
   : LIMITS T#5,D5$,A,Z,S,X9
   : ERRORGOTO 590
0626 IF X9<>2THEN 590
   : LOAD DC T"609.VER1"
0640 GOSUB 2080
   : PRINT TAB(24);B5$(2);T1$;B5$(1)
   : PRINT
   : GOSUB 2100
   : PRINT STR(T1$,4)
   : GOSUB 2140
   : PRINT AT(6,25);T1$;" ";STR(A0$(),1,1)
   : GOSUB 2150
   : PRINT AT(8,25);T1$;" ";STR(A0$(),2,8)
   : GOSUB 2160
   : PRINT AT(10,25);T1$;" ";STR(A0$(),10,4)
   : GOSUB 2170
   : PRINT AT(12,25);T1$;" ";STR(A0$(),14,4)
   : GOSUB 2180
   : IF STR(A0$(),18,25)=" "THEN STR(A0$(),18,25)=T1$
0720 GOSUB 2190
   : PRINT AT(14,25);T1$;" ";STR(A0$(),18,25)
   : PRINT AT(23,0,);
0750 KEYIN J0$,760,760
   : GOTO 750
0760 IF J0$=HEX(82)OR J0$=HEX(F0)THEN 330
   : PRINT HEX(07);
   : GOTO 750
0800 COM CLEAR D5$
   : LOAD DC T"609menu"
2000 % DO NOT RENUMBER THE FOLLOWING
2020 DATA 1,-7,11,1
   : DATA "A","B","C","D","E","F","G","H","I","J","K","L","M"
   : DATA "N","O","P","Q","R","S","T","U","V","W","X","Y","Z"
   : DATA "a","b","c","d","e","f","g","h","i","j","k","l","m"
   : DATA "n","o","p","q","r","s","t","u","v","w","x","y","z","BIN("
   : DATA 0
2080 T1$="V O L U M E   V E R I F Y "
   : RETURN
2090 T1$="Please Select Choice"
   : RETURN
2100 T1$="   Press EXECUTE to Continue"
   : RETURN
2110 T1$="Library/Volume"
   : RETURN
2120 T1$="Invalid Key"
   : RETURN
2130 T1$="Library does not exist"
   : RETURN
2140 T1$="Library :"
   : RETURN
2150 T1$="Volume Name :"
   : RETURN
2160 T1$="Next Document ID :"
   : RETURN
2170 T1$="Next Archive :"
   : RETURN
2180 T1$="None"
   : RETURN
2190 T1$="Comment :"
   : RETURN