image of READY prompt

Wang2200.org

Listing of file='609@D0MP' on disk='vmedia/731-0067F-disk2.wvd.zip'

# Sector 58, program filename = '609@D0MP'
0010 REM 609@D0MP, Release 01-00, (01/31/81) - CopyrightWang  Laboratories, In
     c.
0040 DEFFN'0"LIST S HEX(03) D 10,";HEX(0D)
0050 DEFFN'1"LIMITS T";HEX(22);"609@D0MP";HEX(22);",G6,G7,G8,G9:PRINTG6,G7,G7-
     G6+1,G8,G9: PRINTUSING";HEX(22);"###.##%";HEX(22);",100*(G8-2)/(G7-G6-1)"
     ;HEX(0D)
   : DIM A0$(4)62,J0$3,D1$6,D2$6,D3$6,D4$6,D0$20,C4$16,J1$8,J2$13,C1$4,C2$4,C3
     $4,J1$(10)9,T1$80
   : PRINT HEX(03)
   : J0=0
0090 $FORMATD0$=A6,A4,A6,A4,A6,A4,A13,A6,A16,A9
   : J1$="609@D0"
0110 GOSUB 2010
   : PRINT AT(0,0);T1$;
   : LINPUT -J0$
   : IF J0$=" "THEN 110
   : SELECT #1<J0$>
   : DATA LOAD DC OPEN T#1,J1$
   : ERRORGOTO 200
0180 DATA LOAD DC #1,A0$()
   : $UNPACK(F=D0$)A0$()TO D1$,C1$,D2$,C2$,D3$,C3$,J2$,D4$,C4$,J1$()
0200 GOSUB 2030
   : PRINT T1$;
   : LINPUT -D1$
   : GOSUB 2050
   : PRINT T1$;
   : LINPUT -C1$
   : GOSUB 2070
   : PRINT T1$;
   : LINPUT -D2$
   : GOSUB 2090
   : PRINT T1$;
   : LINPUT -C2$
   : GOSUB 2110
   : PRINT T1$;
   : LINPUT -D3$
   : GOSUB 2130
   : PRINT T1$;
   : LINPUT -C3$
   : GOSUB 2150
   : PRINT T1$;
   : LINPUT -STR(J2$,9,5)
   : GOSUB 2170
   : PRINT T1$;
   : LINPUT -D4$
   : GOSUB 2190
   : PRINT HEX(06)
   : PRINT
   : GOSUB 2210
   : PRINT T1$
   : GOSUB 2230
   : PRINT T1$
   : PRINT
0520 J0=J0+1
   : IF J0=11THEN 660
   : PRINT AT(14,0,70)
   : GOSUB 2250
   : PRINT AT(13,0);T1$;
   : LINPUT -STR(J1$(J0),,8)
   : IF STR(J1$(J0),,8)=".REFDAST"THEN 600
   : IF STR(J1$(J0),,6)<>".REFWP"AND STR(J1$(J0),,8)<>" "THEN 640
0600 GOSUB 2270
   : PRINT T1$;
   : LINPUT -STR(J1$(J0),9,1)
   : GOTO 520
0640 J0=J0-1
   : GOTO 520
0660 DATA SAVE DC OPEN T#1,(3)J1$
   : ERRORDATA LOAD DC OPEN T#1,J1$
0670 GOSUB 2290
   : $PACK(F=D0$)A0$()FROMD1$,C1$,D2$,C2$,D3$,C3$,J2$,D4$,T1$,J1$()
   : DATA SAVE DC #1,A0$()
   : DATA SAVE DC #1,END
   : DATA SAVE DC CLOSE#1
   : GOSUB 2310
   : PRINT
   : PRINT HEX(020402000E20);T1$;HEX(0F)
   : STOP
0760 DEFFN'31
   : LOAD T"609start"
2010 T1$="Disk address where 609@D0 resides or should reside "
   : RETURN
2030 T1$="Current date (mmddyy) "
   : RETURN
2050 T1$="Current time (24 hour system - hhmm) "
   : RETURN
2070 T1$="Installation date (mmddyy) "
   : RETURN
2090 T1$="Installation time (24 hour system - hhmm) "
   : RETURN
2110 T1$="Backup date (mmddyy) "
   : RETURN
2130 T1$="Backup time (24 hour system - hhmm) "
   : RETURN
2150 T1$="Revision number (##.##) "
   : RETURN
2170 T1$="Revision date (mmddyy) "
   : RETURN
2190 STR(J2$,,7)="Release"
   : RETURN
2210 T1$="You may enter the names of up to 10 reference files."
   : RETURN
2230 T1$="Each must start with '.REFWP' or be '.REFDAST'. Enter a blank to end
     ."
   : RETURN
2250 T1$="Enter (next) reference file name "
   : RETURN
2270 T1$="Enter the number (1-9) of the diskette where these files reside "
   : RETURN
2290 T1$="(future use    )"
   : RETURN
2310 T1$="Press PF Key 31 if program was run from menu, else press CLEAR or RU
     N"
   : RETURN