image of READY prompt

Wang2200.org

Listing of file='609Eoldw' on disk='vmedia/701-2737G.wvd.zip'

# Sector sector 232, program filename = '609Eoldw'
0010 REM 609Eoldw
0020 COM V4$1,I2$2,S2$1,I2$(123)2,T5$(6)75
   : DIM V0$(1)1
   : DIM S5(1),S0(1),T5(1),S3(1),T1$(2)8,S5,S6(2),S1(2),T1(2),T2$(2)25,S6,S7(1
     ),S2(1),T2(1),S4(1),S1$1,S1$(2)2,S2$(5)2,T2$2,T1$80
   : J0=0
   : GOSUB '220(A1,1,1,1,1)
   : IF R1$<>HEX(00)THEN 1010
   : J1$()=V1$()
   : GOSUB '220(A1,1,2,1,1)
   : IF R1$<>HEX(00)THEN 1020
0100 $UNPACK(F=HEX(A019A0066006A002A001))STR(V1$(),,242)TO A6$(),A7$(),A0(),A8
     $(),A9$()
   : A7$(1)=C0$
   : IF C5>0THEN A0(3)=C5
   : IF D7$="h"THEN 600
   : I2=0
   : V4$="T"
   : FOR I=1TO A0(3)
   : IF J1$(I)=HEX(0000)THEN 450
   : I1=0
   : I0=V0+1
0250 I1=I1+1
   : IF I+I1<123AND J1$(I+I1)=HEX(0000)THEN 250
   : IF I<123THEN 340
   : I0=V0+1
   : GOTO 360
0340 IF J1$(I+I1)<>HEX(FFFF)THEN I0=VAL(J1$(I+I1),2)
0360 IF I0-VAL(J1$(I),2)>17THEN I2=1
   : IF I0-VAL(J1$(I),2)<>17THEN 440
   : GOSUB '220(A1,1,I0-1,1,1)
   : IF R1$<>HEX(00)AND R1$<>HEX(28)THEN 1050
   : IF STR(V1$(),246,1)<>" "THEN I2=1
0440 IF I2=1THEN I=999
0450 NEXT I
   : IF D7$=" "THEN ON I2+1GOTO 630,1030
   : ON I2+1GOTO 630
   : IF D7$="H"THEN J0=9E99
0600 GOSUB 1140
   : J8=2*J8
   : IF SPACEK<56THEN D7$="h"
   : ELSE D7$="H"
0630 V1$()=ALL(85)
   : IF J1$(7)<>HEX(0000)THEN GOSUB '220(A1,1,VAL(J1$(7),2),1,1)
   : IF J1$(7)<>HEX(0000)AND R1$<>HEX(00)THEN 1025
   : A5$()="609Eolds609Esum'Prime 62"
   : LOAD T<3>A5$()
1000 % This is line 1000 - do not renumber lines 1000-1100
1010 B2$="Error in page table read"
   : GOTO 1060
1020 B2$="Error in admin block read"
   : GOTO 1060
1025 B2$="Error in key word read"
   : GOTO 1060
1030 B2$="Page too large for standard page size option"
   : GOTO 1061
1040 B2$="Invalid Key - ignored"
   : RETURN
1050 B2$="Error in text read"
   : GOTO 1061
1060 IF R1$>HEX(29)THEN CONVERT VAL(R1$)TO I2$,(##)
   : ELSE HEXUNPACKR1$TO I2$
   : B2$=B2$&" = "&I2$
1061 IF Y5$=" "THEN B2$=B2$&" - please Cancel"
   : IF Y5$<>" "THEN GOSUB '32
1070 PRINT AT(23,0,80);HEX(07);B5$(2);B2$;B5$(1);
   : KEYIN S2$,,1080
   : GOTO 1070
1080 IF POS(HEX(F050)=S2$)>0THEN GOSUB '32
   : GOTO 1070
1100 DATA 1,21,20,1,"Standard","Extended","BIN(",0
   : B2$="Select page type:"
   : PRINT AT(21,0,80);B2$;
   : RETURN
1140 PRINT AT(23,0,78);B5$(3);"Loading next module";B5$(1);
   : RETURN
9030 DEFFN'31
   : A5=0
9032 DEFFN'32
   : A5$()="609CloseJCATSMAL"
   : A5$=R3$()
   : R3$()=STR(R3$(),10)
   : IF A1>-1OR A2>-1THEN LOAD T<2>A5$()
   : COM CLEAR C
   : LOAD TA5$