image of READY prompt

Wang2200.org

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

# Sector 574, program filename = '609WC300'
0010 REM '609WC300' - CONVERT WANGWRITER DATA FILE TO DOCUMENT
0145 B2$=" "
   : GOSUB 2210
   : IF R1$=HEX(00)THEN 216
   : ON VAL(R1$)-47GOTO 164,165,166,167,168,169,,,170,171,172,173,174,175,176,
     177,178,179,180,181,182,183,184,185,186,187,188
0164 GOSUB 2552
   : GOTO 210
0165 GOSUB 2554
   : GOTO 210
0166 GOSUB 2556
   : GOTO 210
0167 GOSUB 2558
   : GOTO 210
0168 GOSUB 2560
   : GOTO 210
0169 GOSUB 2562
   : GOTO 210
0170 GOSUB 2564
   : GOTO 210
0171 GOSUB 2566
   : GOTO 210
0172 GOSUB 2568
   : GOTO 210
0173 GOSUB 2570
   : GOTO 210
0174 GOSUB 2572
   : GOTO 210
0175 GOSUB 2574
   : GOTO 210
0176 GOSUB 2576
   : GOTO 210
0177 GOSUB 2578
   : GOTO 210
0178 GOSUB 2580
   : GOTO 210
0179 GOSUB 2582
   : GOTO 210
0180 GOSUB 2584
   : GOTO 210
0181 GOSUB 2586
   : GOTO 210
0182 GOSUB 2588
   : GOTO 210
0183 GOSUB 2590
   : GOTO 210
0184 GOSUB 2592
   : GOTO 210
0185 GOSUB 2594
   : GOTO 210
0186 GOSUB 2596
   : GOTO 210
0187 GOSUB 2598
   : GOTO 210
0188 GOSUB 2600
0210 GOSUB 2307
   : IF R1$=HEX(00)THEN 212
0212 PRINT AT(23,0);B2$;HEX(07)
   : GOTO 475
0216 D9$=STR(J2$(),,2)
   : D5$()=STR(J2$(),3,248)
   : D=3
   : IF STR(D9$,2,1)<>HEX(84)THEN 260
   : V4$="F"
   : GOSUB '84(4)
0260 IF STR(D9$,2,1)<>HEX(83)THEN 300
   : V4$="H"
   : GOSUB '84(5)
0300 IF STR(D9$,2,1)<>HEX(82)THEN 360
   : V4$="W"
   : GOSUB '84(6)
0360 V4$="T"
   : D6=7
0400 GOSUB '83
   : IF D4=0THEN 400
0430 V1$()=D1$()
   : V4$="P"
   : GOSUB '221(A1,1,1,1,1)
0470 IF B2$<>" "THEN PRINT AT(23,0,);B2$;HEX(07);
0475 COM CLEAR J1$()
   : GOSUB 2307
   : IF R1$=HEX(00)THEN 480
0480 A5=1
   : A5$()="609CloseJCATSMAL"
   : LOAD T<2>A5$()
0520 GOSUB 2510
   : GOTO 430
0550 ON VAL(R1$)GOTO 600
   : HEXUNPACKR1$TO T2$
   : GOSUB 2520
   : GOTO 470
0600 GOSUB 2530
   : GOTO 470
0640 DEFFN'83
   : D6=D6+1
0670 DEFFN'84(D6)
   : IF D6>123THEN 520
   : D1$(D6)=BIN(D,2)
   : D3=1
   : D2$()=ALL(20)
0770 STR(D0$(),8)=STR(D9$,2)&D5$()
   : $TRAN(STR(D0$(),8,1),HEX(868486838682))R
   : $TRAN(STR(D0$(),8),J1$())
   : IF D3=1AND POS(D2$()>20)=0THEN D4$()=STR(D0$(),8,POS(STR(D0$(),8)=83))
   : D1=VAL(D9$)
   : IF D1>0THEN GOSUB '85(STR(D0$(),8,D1))
   : GOSUB 2210
   : IF R1$=HEX(01)THEN D4=1
   : IF D4=1THEN 994
   : IF R1$=HEX(00)THEN 974
0885 ON VAL(R1$)-47GOTO 164,165,166,167,168,169,,,170,171,172,173,174,175,176,
     177,178,179,180,181,182,183,184,185,186,187,188
   : PRINT AT(23,0);B2$;HEX(07)
0974 D9$=STR(J2$(),,2)
   : D5$()=STR(J2$(),3,248)
   : IF END THEN D4=1
   : IF D4=1THEN 994
   : IF POS(STR(D3$,1)=STR(D9$,2,1))=0THEN 770
   : IF D6<>123THEN GOSUB '85(HEX(8F))
0994 IF POS(-D2$()>20)=0THEN 1002
   : V1$()=D2$()
   : GOSUB 1540
   : IF R1$<>HEX(00)THEN 550
1002 RETURN
1030 DEFFN'85(D3$())
1050 IF POS(-D2$()>20)+POS(-D3$()>20)>245THEN 1090
   : STR(D2$(),POS(D2$()=20))=D3$()
   : RETURN
1090 S7=POS(-D2$()>20)
   : IF S7=0THEN 1130
   : V1$()=STR(D2$(),1,S7)
   : D2$()=" "
1130 IF S7<246THEN STR(V1$(),1+S7)=STR(D3$(),1,246-S7)
   : D3$()=STR(D3$(),246-S7+1)
   : IF D3=D2THEN 1240
   : GOSUB 1540
   : IF POS(-D3$()>20)>245THEN 1090
   : D2$()=D3$()
   : RETURN
1240 GOSUB 2540
   : S8=POS(V1$()=86)
   : IF S8=0THEN 1320
   : S9=POS(STR(V1$(),S8)=83)+S8-1
   : IF S9=S8-1THEN S8=S8-1
   : ELSE S8=S9+1
   : GOTO 1350
1320 S8=POS(STR(V1$(),230)=80)+229
   : IF S8=229THEN S8=245
1350 D$()=STR(V1$(),S8)
   : IF D6<>123THEN STR(V1$(),S8)=HEX(8F)
   : ELSE STR(V1$(),S8)=" "
   : GOSUB 1540
   : D3=1
   : D6=D6+1
   : IF D6>123THEN 520
   : D1$(D6)=BIN(D,2)
   : D2$()=D4$()
   : D$()=D$()&D3$()
   : D3$()=D$()
   : GOTO 1050
1540 GOSUB '225(A1,1,1,1)
   : IF R1$<>HEX(00)THEN 550
   : D=D+1
   : D3=D3+1
   : RETURN
1620 DEFFN'31
   : A5$="609menu"
   : GOTO 470
2500 % DO NOT RENUMBER THE FOLLOWING
2510 B2$="Too many pages, document partially retrieved"
   : RETURN
2520 B2$="Error occurred while adding records = "&T2$
   : RETURN
2530 B2$="Volume Full"
   : RETURN
2540 B2$="Warning : a page was split in document due to size limits"
   : RETURN
2550 B2$="Unable to transfer data"
   : RETURN
2552 B2$="Operation Not Done"
   : RETURN
2554 B2$="Drive Not Ready"
   : RETURN
2556 B2$="Write Protected"
   : RETURN
2558 B2$="Disk CRC Error"
   : RETURN
2560 B2$="Disk Format Error"
   : RETURN
2562 B2$="Drive Malfunction"
   : RETURN
2564 B2$="Programming Error"
   : RETURN
2566 B2$="Drive Dropped Ready"
   : RETURN
2568 B2$="Document Not Found"
   : RETURN
2570 B2$="Invalid FRN"
   : RETURN
2572 B2$="File Not Open"
   : RETURN
2574 B2$="Document in Use"
   : RETURN
2576 B2$="Invalid Class"
   : RETURN
2578 B2$="Unsupported Diskette"
   : RETURN
2580 B2$="No Room on Diskette"
   : RETURN
2582 B2$="Invalid Page Number"
   : RETURN
2584 B2$="Document(s) Still in Use"
   : RETURN
2586 B2$="Volume Label Damaged"
   : RETURN
2588 B2$="No Room on Diskette"
   : RETURN
2590 B2$="Document Exists"
   : RETURN
2592 B2$="Not an Archive Disk"
   : RETURN
2594 B2$="Not a System Disk"
   : RETURN
2596 B2$="Copy Incomplete"
   : RETURN
2598 B2$="Run Recovery"
   : RETURN
2600 B2$="Number of Retries Exceeds Limit"
   : RETURN