image of READY prompt

Wang2200.org

Listing of file='IDS2PP25' on disk='vmedia/701-2724B.wvd.zip'

# Sector 707, program filename = 'IDS2PP25'
1000 REM "IDS2PP25" - INTERACTIVE PROGRAM GENERATOR - PRINT FLD/BOX (OPTIONS Q
     )
1005 STOP "IDS2PP25"
   : IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
   : IF NUM(F2$)<8THEN 1050
   : $UNPACK(F=HEX(1002100210021002))F2$TO R,C,X,Y
   : Q=R-1
   : GOSUB 3090
   : E$=HEX(A0D2)&"06);"&HEX(F5)&F5$
   : Q=C-1
   : GOSUB 3090
   : E$=E$&","&F5$
1050 IF F1$="PRINTBOX"THEN 1200
   : IF F1$="ERASEBOX"THEN 1400
   : IF VER(F1$,"DISPMSG#")=8THEN 1500
   : IF VER(F1$,"DISPERR#")=8THEN 1600
   : Q=X
   : GOSUB 3090
   : E$=E$&","&F5$&");"
   : GOSUB '71(F1$)
   : STR(F9$(),MAX(4,1+LEN(F9$())))=HEX(9A)&"'43("&F5$&"):"
   : Q=Y
   : GOSUB 3090
   : E$=E$&HEX(D3)&"E$,,"&F5$&");"&HEX(3AA2)&"Print field"
   : GOTO 2000
1200 E$=E$&");BOX("&STR(F2$,5,2)&","&STR(F2$,7,2)&"):"&HEX(A2)&"Print box"
   : GOTO 2000
1400 E$=E$&");BOX(-"&STR(F2$,5,2)&",-"&STR(F2$,7,2)&"):"&HEX(A2)&"Erase box"
   : GOTO 2000
1500 IF STR(F1$,8)="1"THEN F0$=STR(F$(),13)
   : ELSE F0$=STR(F$(),77)
   : E8$="'53("
   : E$="Operator prompt"
   : GOTO 1700
1600 IF STR(F1$,8)="1"THEN F0$=STR(F$(),13)
   : ELSE F0$=STR(F$(),77)
   : E8$="'35("
   : E$="Error message"
1700 STR(F9$(),MAX(4,1+LEN(F9$())))=HEX(9A)&E8$&HEX(22)&F0$&HEX(22293AA2)
2000 F9$()=F9$()&E$&HEX(0D0000FE)
   : GOSUB 3110
   : LOAD DA T#2,(D$(14))1000,
3010 STOP #
3020 DEFFN'71(F5$)
   : Q=0
   : IF F5$=" "OR F5$="BLANKFLD"THEN Q=250
   : IF Q=250THEN 3090
   : IF F5$="@SYSBUF0"THEN Q=269
   : IF Q=269THEN 3090
   : IF VER(F5$,"@TSTFLD#")<8THEN 3060
   : Q=VAL(STR(F5$,8))+203
   : GOTO 3090
3060 IF F5$<>E0$THEN 3070
   : Q=261
   : GOTO 3090
3070 MAT SEARCHE3$()<,F0*8>,=STR(F5$,1,8)TO F9$STEP 8
   : Q=INT((VAL(F9$,2)+7)/8)
   : IF Q>0THEN 3090
   : MAT SEARCHE$()<101,396>,=STR(F5$,1,8)TO F9$STEP 48
   : Q=INT((VAL(F9$,2)+47)/48)
3090 $PACK(F=HEX(1008))F5$FROMQ
   : F5$=STR(F5$,2)
   : RETURN
3100 STOP #
3110 IF POS(F8$()=FE)+POS(F9$()=FE)<258THEN 3180
   : DATA LOAD BA T#3,(E4-1)F8$()
   : F8$(1)=HEX(00)
   : F8$(POS(F8$()=FE))=HEX(FD)
   : DATA SAVE BA T#3,(E4-1)F8$()
   : F8$()=HEX(20FE)
   : GOTO 3190
3180 E4=E4-1
3190 UNPACK(####)C0$TO Q
   : PACK(####)C0$FROMQ+1
   : STR(F8$(),POS(F8$()=FE))=F9$()
   : IF F8$(256)=" "THEN F8$()=F8$()&ALL(00)
   : DATA SAVE BA T#3,(E4,E4)F8$()
   : PRINT HEX(06020402000E);AT(23,16);"Compiling BASIC program - Now processi
     ng sector";E4-E3+1;
   : RETURN
3240 STOP "END IT"
   : ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
   : E$="IDS2PP25"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"