image of READY prompt

Wang2200.org

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

# Sector 545, program filename = '609WC100'
0010 REM '609WC100' - START MODULE FOR WANGWRITER => WP CONVERSION UTILITY
0120 COM C,D1,D5,D0$8,A5,J1$(256)1,U1$(8),U2$(8)4,V1$(3)82,V0$(1)1,J2$80,J8$1,
     J3$1,C0$8,J2$(256)1,I1$1,I3$2
0200 DIM S5(1),S0(1),T5(1),S3(1),T1$(1)1,S1$(1)1,T1(6),S6(6),S1(6),T2$(6)42,T2
     (2),S7(2),S2(2),S4(2),T5$(2)8,S2$(16)2,S1$2,S2$1,T1$80,T2$2,S0,S4,S5,S6,S
     7,S9,T0,T2,T3,T5,C0,T7,D2$2,D$(2)124,D3$3
   : LIMITS T#0,"609$TRAN",D2,D3,S0,D4
   : DATA LOAD BA T#0,(D2+1)J1$()
   : D3$=HEX(84838286)
0350 IF D5=0THEN B2$=" "
   : D5=6
0390 RESTORE LINE2510
   : GOSUB '61
   : PRINT HEX(03);
   : IF B2$<>" "THEN PRINT AT(23,0,);B2$;HEX(07);
   : T5$(1)=D0$
   : T5$(2)=D$
   : GOSUB 1707
   : IF R1$=HEX(00)THEN 450
   : GOSUB 2630
   : PRINT AT(02,25,);B2$;
0445 GOSUB 2700
   : PRINT AT(22,60);B2$;HEX(07)
0446 KEYIN J$,480,480
   : GOTO 446
0447 GOTO 480
0450 GOSUB '62
   : C0$=D0$
   : ON T5GOTO 620,510,510
0480 IF J$=HEX(F0)OR J$=HEX(50)THEN 485
   : GOTO 445
0485 COM CLEAR D1
   : LOAD T"609menu"
0510 GOSUB 2610
   : PRINT AT(23,40,);B2$;HEX(07);
   : GOTO 450
0620 D0$=T5$(1)
   : GOTO 840
0840 PRINT AT(12,2);BOX(0,75);
   : RESTORE LINE2560
   : GOSUB '61
   : R5$=D1$
   : T5$(1)=R5$
0900 B2$=" "
   : GOSUB '62
   : ON T5GOTO 980,950,950
   : GOTO 390
0950 GOSUB 2610
   : PRINT AT(23,0,);B2$;HEX(07);
   : GOTO 900
0980 IF VER(STR(T5$(1),1,5),"####A")=5THEN 1020
   : GOSUB 2615
   : PRINT AT(23,0,);B2$;HEX(07);
   : GOTO 900
1020 R5$=T5$(1)
   : GOSUB '110(R5$,"D")
   : IF B2$=" "THEN GOSUB '111(B0$,B9$,B4$,HEX(FF))
   : IF R1$=HEX(03)THEN 1082
   : IF R1$=HEX(00)THEN GOSUB '212(V3)
   : IF B2$=" "THEN GOSUB 2620
   : PRINT AT(23,0);B2$;HEX(07);
   : GOTO 900
1082 GOSUB 2640
   : PRINT AT(22,0);B2$
   : GOSUB 1807
   : IF R1$=HEX(00)THEN 1126
   : GOTO 1140
1120 IF B2$=" "THEN GOSUB 2645
   : GOSUB 2307
   : PRINT AT(22,0);B2$;HEX(07)
   : GOTO 1271
1126 I1$="W"
   : C0$=D0$
   : GOSUB 1908
   : IF R1$=HEX(00)THEN 1155
   : GOTO 1140
1140 ON VAL(R1$)-47GOSUB 2650,2652,2654,2656,2658,2660,,,2662,2664,2666,2668,2
     670,2672,2674,2676,2678,2680,2682,2684,2686,2688,2690,2692,2694,2696,2698
   : GOTO 1120
1155 GOSUB '210(B0$,B9$,B4$)
   : IF R1$=HEX(00)THEN 1190
   : HEXUNPACKR1$TO T2$
   : GOSUB 2307
   : GOSUB 2625
   : PRINT AT(23,0,);B2$;HEX(07);
   : GOTO 900
1190 GOSUB '110(R5$,"D")
   : IF B2$=" "THEN GOSUB '111(B0$,B9$,B4$,HEX(FF))
   : IF B2$=" "THEN 1230
1205 %REM ENTER FILE TRANSFER MODE
1210 PRINT AT(23,0,);B2$;HEX(07);
   : GOTO 900
1230 A1=V3
   : B2$=" "
   : A5$="609WCBEG"
   : A5$()="609WC200FILERS  JCATSMALREC-GEN REC-RD"
   : LOAD T<5>A5$()
1271 A5$="609WCBEG"
   : COM CLEAR D1
   : A5$()="609CloseJCATSMAL"
   : LOAD T<2>A5$()
2500 % DO NTO RENUMBER THE FOLLOWING
2510 DATA 4,0,0,"WANG 2200 Word Processing System",4,1,23,"Convert Wangwriter
     Document to WP Document",4,4,2,"Please Enter Data",4,5,2,"Press EXECUTE t
     o Continue :",4,8,17,"Wangwriter File Name :",2,8,40,8," ",0
2560 DATA 4,0,0,"WANG 2200 Word Processing System",4,14,20,"Document ID :",2,1
     4,40,5," ",0
   : B2$="Wrong Type of File"
   : RETURN
2590 B2$="File Does Not Exist"
   : RETURN
2595 B2$="File is Scratched"
   : RETURN
2610 B2$="Invalid Key"
   : RETURN
2615 B2$="Invalid Document ID"
   : RETURN
2620 B2$="File Already Exists"
   : RETURN
2625 B2$="Error occurred while creating document = "&T2$
   : RETURN
2630 B2$="Terminal must be a wangwriter"
   : RETURN
2635 B2$="Unable to enter file transfer mode"
   : RETURN
2640 B2$="(In Progress)"
   : RETURN
2645 B2$="Problem with direction of transfer"
   : RETURN
2650 B2$="Operation Not Done"
   : RETURN
2652 B2$="Drive Not Ready"
   : RETURN
2654 B2$="Write Protected"
   : RETURN
2656 B2$="Disk CRC Error"
   : RETURN
2658 B2$="Disk Format Error"
   : RETURN
2660 B2$="Drive Malfunction"
   : RETURN
2662 B2$="Programming Error"
   : RETURN
2664 B2$="Drive Dropped Ready"
   : RETURN
2666 B2$="Document Not Found"
   : RETURN
2668 B2$="Invalid FRN"
   : RETURN
2670 B2$="File Not Open"
   : RETURN
2672 B2$="Document in Use"
   : RETURN
2674 B2$="Invalid Class"
   : RETURN
2676 B2$="Unsupported Diskette"
   : RETURN
2678 B2$="No Room on Diskette"
   : RETURN
2680 B2$="Invalid Page Number"
   : RETURN
2682 B2$="Document(s) Still in Use"
   : RETURN
2684 B2$="Volume Label Damaged"
   : RETURN
2686 B2$="No Room on Diskette"
   : RETURN
2688 B2$="Document Exists"
   : RETURN
2690 B2$="Not an Archive Disk"
   : RETURN
2692 B2$="Not a System Disk"
   : RETURN
2694 B2$="Copy Incomplete"
   : RETURN
2696 B2$="Run Recovery"
   : RETURN
2698 B2$="Number of Retries Exceeds Limit"
   : RETURN
2700 B2$="Please Cancel"
   : RETURN