image of READY prompt

Wang2200.org

Listing of file='609WW100' on disk='vmedia/731-0071G.wvd.zip'

# Sector 1105, program filename = '609WW100'
0010 REM '609WW100' - START MODULE FOR WP => WANGWRITER CONVERSION UTILITY
0080 COM C,D1,D4,D0$8
   : COM U1$(2)64,U2$(8)4,V1$(3)82,V0$(1)1,J2$80,J2$(256)1,J8$1,C0$8,R1$1,I1$1
     ,I3$2,I1,I2,I3
   : DIM S5(1),S0(1),T5(1),S3(1)
   : DIM T1$(1)1,S1$(1)1
   : DIM T1(5),S6(5),S1(5),T2$(5)80
   : DIM T2(2),S7(2),S2(2),S4(2),T5$(2)8
   : DIM S2$(16)2
   : DIM S1$2
0180 DIM S2$1,T1$80,T2$2,S0,S4,S5,S6,S7,S9,T0,T2,T3,T5,C0,T7
   : DIM D(25)
   : IF D4=0THEN B2$=" "
   : D4=6
   : RESTORE LINE2510
   : GOSUB '61
   : PRINT HEX(03);
   : IF B2$<>" "THEN PRINT AT(23,0,);B2$;HEX(07);
0285 T5$()=R5$
   : GOSUB 1707
   : IF R1$=HEX(00)THEN 293
   : GOSUB 2622
   : PRINT AT(02,25,);B2$;HEX(07);
   : GOSUB '34(1)
   : GOTO 305
0293 GOSUB '62
   : ON T5GOTO 335,320,320
0305 COM CLEAR D1
   : LOAD T"609menu"
0320 GOSUB 2575
   : PRINT AT(23,40,);T1$;HEX(07);
   : GOTO 285
0335 IF VER(T5$(1),"####A")=5THEN 355
   : GOSUB 2580
   : PRINT AT(23,0,);T1$;HEX(07);
   : GOTO 285
0355 R5$=T5$(1)
   : GOSUB '110(R5$,"D")
   : IF B2$<>" "THEN 415
   : GOSUB '111(B0$,B9$," ",HEX(FF))
   : IF R1$=HEX(05)THEN GOTO 390
   : B4$=" "
   : GOTO 400
0390 B4$=J7$
0395 GOSUB '111(B0$,B9$,B4$,HEX(FF))
0400 IF B2$=" "THEN 440
   : IF R1$=HEX(05)THEN 425
0415 PRINT AT(23,0,);B2$;HEX(07);
   : GOTO 285
0425 GOSUB '90
   : IF J$<>HEX(F0)THEN 395
0440 A1=V3
   : GOSUB '88(A1,1,1,1,1)
   : GOSUB '88(A1,1,VAL(STR(V1$(),3,2),2),1,1)
   : $UNPACK(F=HEX(A019))V1$()TO A6$()
   : $TRAN(A6$(1),HEX(8020))R
   : GOSUB 2585
   : PRINT AT(9,20);T1$;TAB(40);A6$(1)
   : $TRAN(STR(A6$(2),,20),HEX(8020))R
   : GOSUB 2590
   : PRINT TAB(20);T1$;TAB(40);A6$(2)
   : $TRAN(STR(A6$(3),,20),HEX(8020))R
   : GOSUB 2595
   : PRINT TAB(20);T1$;TAB(40);A6$(3)
0500 $TRAN(STR(A6$(4),,20),HEX(8020))R
   : GOSUB 2600
   : PRINT TAB(20);T1$;TAB(40);A6$(4)
   : GOSUB '34(0)
   : IF J$<>HEX(F0)THEN 555
0530 A5$="609WWBEG"
0535 COM CLEAR D1
   : A5$()="609CloseJCATSMAL"
   : LOAD T<2>A5$()
0555 PRINT AT(14,3);"---------------------------------------------------------
     -----------------"
   : RESTORE LINE2545
   : GOSUB '61
   : T5$()=" "
0580 GOSUB '62
   : ON T5GOTO 614,610,610
   : GOTO 530
0610 GOSUB 2575
   : PRINT AT(23,0,);T1$;HEX(07);
   : GOTO 580
0614 GOSUB 2624
   : PRINT AT(22,0);B2$
   : GOSUB 1807
   : IF R1$=HEX(00)THEN 654
   : ON VAL(R1$)-47GOTO 618,619,620,621,622,623,,,624,625,626,627,628,629,630,
     631,632,633,634,635,636,637,638,639,640,641,642
0618 GOSUB 2626
   : GOTO 648
0619 GOSUB 2628
   : GOTO 648
0620 GOSUB 2630
   : GOTO 648
0621 GOSUB 2632
   : GOTO 648
0622 GOSUB 2634
   : GOTO 648
0623 GOSUB 2636
   : GOTO 648
0624 GOSUB 2638
   : GOTO 648
0625 GOSUB 2640
   : GOTO 648
0626 GOSUB 2642
   : GOTO 648
0627 GOSUB 2644
   : GOTO 648
0628 GOSUB 2646
   : GOTO 648
0629 GOSUB 2648
   : GOTO 648
0630 GOSUB 2650
   : GOTO 648
0631 GOSUB 2652
   : GOTO 648
0632 GOSUB 2654
   : GOTO 648
0633 GOSUB 2656
   : GOTO 648
0634 GOSUB 2658
   : GOTO 648
0635 GOSUB 2660
   : GOTO 648
0636 GOSUB 2662
   : GOTO 648
0637 GOSUB 2664
   : GOTO 648
0638 GOSUB 2666
   : GOTO 648
0639 GOSUB 2668
   : GOTO 648
0640 GOSUB 2670
   : GOTO 648
0641 GOSUB 2672
   : GOTO 648
0642 GOSUB 2674
0648 PRINT AT(02,25,);B2$;HEX(07);
   : GOSUB '34(1)
   : GOTO 900
0654 I1$="2"
   : C0$=T5$(1)
   : GOSUB 1908
   : IF R1$=HEX(00)THEN 735
   : ON VAL(R1$)-47GOTO 664,665,666,667,668,669,,,670,671,672,673,674,675,676,
     677,678,679,680,681,682,683,684,686,688,690,692
0664 GOSUB 2626
   : GOTO 725
0665 GOSUB 2628
   : GOTO 725
0666 GOSUB 2630
   : GOTO 725
0667 GOSUB 2632
   : GOTO 725
0668 GOSUB 2634
   : GOTO 725
0669 GOSUB 2636
   : GOTO 725
0670 GOSUB 2638
   : GOTO 725
0671 GOSUB 2640
   : GOTO 725
0672 GOSUB 2642
   : GOTO 725
0673 GOSUB 2644
   : GOTO 725
0674 GOSUB 2646
   : GOTO 725
0675 GOSUB 2648
   : GOTO 725
0676 GOSUB 2650
   : GOTO 725
0677 GOSUB 2652
   : GOTO 725
0678 GOSUB 2654
   : GOTO 725
0679 GOSUB 2656
   : GOTO 725
0680 GOSUB 2658
   : GOTO 725
0681 GOSUB 2660
   : GOTO 725
0682 GOSUB 2662
   : GOTO 725
0683 GOSUB 2664
   : GOTO 725
0684 GOSUB 2666
   : GOTO 725
0686 GOSUB 2668
   : GOTO 725
0688 GOSUB 2670
   : GOTO 725
0690 GOSUB 2672
   : GOTO 725
0692 GOSUB 2674
0725 GOSUB 2307
   : IF R1$<>HEX(00)THEN GOSUB '31
   : PRINT AT(22,0,);B2$;HEX(07)
   : GOSUB '34(1)
   : GOTO 530
0731 GOTO 580
0735 D0$=T5$(1)
   : IF D3>=0THEN 747
   : GOTO 580
0747 IF D3=0THEN 755
   : GOSUB 2606
   : PRINT AT(23,0,);T1$;HEX(07);
   : GOTO 580
0755 REM GOTO 1240
   : GOTO 815
0775 B2$=" "
   : IF C0=85THEN GOSUB 2608
   : IF C0=86THEN GOSUB 2610
   : IF B2$=" "THEN GOSUB 2612
   : PRINT AT(23,0,);B2$;HEX(07);
   : GOSUB '34(1)
   : GOTO 530
0815 REM DBACKSPACE #D4,BEG
   : A5$()="609WW200FILERS  REC-GEN REC-RD"
   : LOAD T<4>A5$()
0845 DEFFN'88(D5,D6,D7,D8,D9)
   : GOSUB '220(D5,D6,D7,D8,D9)
   : IF R1$=HEX(00)THEN RETURN
   : RETURN CLEAR ALL
0875 HEXUNPACKR1$TO T2$
   : GOSUB 2614
   : PRINT AT(23,0,);B2$;HEX(07);
   : GOSUB '34(1)
   : GOTO 530
0900 DEFFN'31
   : A5$="609menu"
   : GOTO 535
0910 DEFFN'90
   : GOSUB 2616
   : PRINT AT(23,0,);B2$;HEX(20858585858585);
   : GOSUB 2618
   : PRINT AT(23,40);B2$;HEX(07);AT(23,29);HEX(0509);
0925 KEYIN J$,925,925
   : D(6)=0
   : B4$=" "
0940 KEYIN J$,945,945
   : GOTO 940
0945 PRINT HEX(06);AT(23,40,);
   : ON POS(HEX(0D82F0)=J$)GOTO 980,980,990
   : GOSUB 2620
   : PRINT AT(23,40,);B2$;HEX(07);
   : GOTO 940
0965 D(6)=D(6)+1
   : STR(B4$,D(6),1)=J$
   : IF D(6)<6THEN 940
0980 PRINT AT(23,0,);
   : RETURN
0990 PRINT AT(23,0,);
   : B4$=" "
   : RETURN
2500 % DO NOT RENUMBER THE FOLLOWING
2510 DATA 4,0,0,"WP Document to WANGWRITER File Conversion"
   : DATA 4,3,2,"Please Enter Data"
   : DATA 4,4,2,"Press EXECUTE to Continue :"
   : DATA 4,7,20,"Document ID :"
   : DATA 2,7,40,5," "
   : DATA 0
2545 DATA 4,0,0,"WP Document to WANGWRITER File Conversion"
   : DATA 4,16,16,"WANGWRITER File Name :"
   : DATA 2,16,40,8," "
   : DATA 0
2575 T1$="Invalid Key"
   : RETURN
2580 T1$="Invalid Document ID"
   : RETURN
2585 T1$="Document Name :"
   : RETURN
2590 T1$="Operator :"
   : RETURN
2595 T1$="Author :"
   : RETURN
2600 T1$="Comments :"
   : RETURN
2602 T1$="Invalid Address"
   : RETURN
2604 T1$="Unable to re-use file name"
   : RETURN
2606 T1$="File Name already in use"
   : RETURN
2608 B2$="Catalog Index Full"
   : RETURN
2610 B2$="Disk Full"
   : RETURN
2612 B2$="Error "
   : CONVERT XTO STR(B2$,7,3),(###)
   : B2$=B2$&" Occurred During Open"
   : RETURN
2614 B2$="Error Occurred While Reading Document = "&T2$
   : RETURN
2616 B2$="Enter Document "&R5$&" Password  "
   : RETURN
2618 B2$="Password Protected"
   : RETURN
2620 B2$="Invalid Character"
   : RETURN
2622 B2$="Terminal must be a wangwriter"
   : RETURN
2624 B2$="(In Progress)"
   : RETURN
2626 B2$="Operation Not Done"
   : RETURN
2628 B2$="Drive Not Ready"
   : RETURN
2630 B2$="Write Protected"
   : RETURN
2632 B2$="Disk CRC Error"
   : RETURN
2634 B2$="Disk Format Error"
   : RETURN
2636 B2$="Drive Malfunction"
   : RETURN
2638 B2$="Programming Error"
   : RETURN
2640 B2$="Drive Dropped Ready"
   : RETURN
2642 B2$="Document Not Found"
   : RETURN
2644 B2$="Invalid FRN"
   : RETURN
2646 B2$="File Not Open"
   : RETURN
2648 B2$="Document in Use"
   : RETURN
2650 B2$="Invalid Class"
   : RETURN
2652 B2$="Unsupported Diskette"
   : RETURN
2654 B2$="No Room On Diskette"
   : RETURN
2656 B2$="Invalid Page Number"
   : RETURN
2658 B2$="Document(s) Still in Use"
   : RETURN
2660 B2$="Volume Label Damaged"
   : RETURN
2662 B2$="No Room on Diskette"
   : RETURN
2664 B2$="Document Exists"
   : RETURN
2666 B2$="Not an Archive Disk"
   : RETURN
2668 B2$="Not a System Disk"
   : RETURN
2670 B2$="Copy Incomplete"
   : RETURN
2672 B2$="Run Recovery"
   : RETURN
2674 B2$="Number of Retries Exceeds Limit"
   : RETURN