image of READY prompt

Wang2200.org

Listing of file='IDS2PP16' on disk='vmedia/701-2725B.wvd.zip'

# Sector 178, program filename = 'IDS2PP16'
1000 REM "IDS2PP16" - INTERACTIVE PROGRAM GENERATOR - P/F SPECS K&L TRANSMIT
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
   : F5$=F1$
   : GOSUB 3050
   : E4$()=E4$()&HEX(9F)&"F6$(17)<"&HEX(225E22B1A5)&"@PART"&HEX(22)&"IDS2SUBM"
     &HEX(22BA)
   : ON C9-10GOTO 1100,1200,1300,1300
   : E4$()=E4$()&"H=0"&HEX(BAA2)&" - Transmit not currently available"&HEX(BA)
1100 E0$()="Transmit "&F1$
   : IF Q>260AND Q<>269THEN 1120
   : E4$()=E4$()&HEX(9A)&"'43("&E8$&HEX(29BA9A)&"'75(E4$())"
   : GOTO 1500
1120 E4$()=E4$()&HEX(9A)&"'75("&HEX(D3)&"E$(),E("&STR(E8$,3,1)&"),E0("&STR(E8$
     ,3,1)&")))"
   : GOTO 1500
1200 E4$()=E4$()&HEX(9A)&"'44("&HEX(22)&F1$&HEX(2229BA9A)&"'75(E4$())"
   : E0$()="Transmit indirect"
   : GOTO 1500
1300 E4$()=E4$()&HEX(9A)&"'75("&HEX(22)&"\C0\D2\C5\C3\C5\C9\D6\C5"&HEX(2229)
1500 UNPACK(####)C0$TO A
   : PACK(####)F9$FROMA+E2(7)-1
   : E4$()=E4$()&HEX(BA9F)&"E6$="&HEX(D2)&"00)"&HEX(B1A1)&"T#2,"&HEX(22)&F2$&H
     EX(22FF35002CFF3699B3FF)&STR(F9$,,2)&HEX(BA)
   : IF C9<13THEN 3000
   : E4$()=E4$()&HEX(9F)&"H>0"&HEX(B19A)&"'4"
1540 IF C9<14THEN 1550
   : E4$()=E4$()&"6("&HEX(22)&F1$&HEX(22)&",E3$())"&HEX(BA)
   : E0$()="Receive indirect"
   : GOTO 3000
1550 IF Q>260AND Q<>269THEN 1570
   : E4$()=E4$()&"5("&E8$&",E3$())"&HEX(BA)
   : GOTO 1580
1570 STR(E4$(),LEN(E4$())-2)=HEX(D3)&"E$(),E("&STR(E8$,3,1)&"),E0("&STR(E8$,3,
     1)&"))=E3$()"&HEX(BA)
1580 E0$()="Receive to "&HEX(22)&F1$&HEX(22)
3000 IF E2(2)>0THEN E4$()=E4$()&HEX(A2)&E0$()&HEX(BA)
   : IF STR(E4$(),LEN(E4$()))=HEX(BA)THEN STR(E4$(),LEN(E4$()))=HEX(1B)
   : IF POS(E4$()=BA)>0THEN E$=F0$
   : IF E$<>" "THEN STR(F$(),LEN(F$())+1)=E$
   : IF E4$()<>" "THEN STR(F$(),LEN(F$())+1)=STR(E4$(),POS(E4$()>20))
   : LOAD DA T#2,(D$(13))1000,
3020 STOP #
   : PRINT HEX(06020402000E);AT(23,16);"Compiling BASIC program - Now processi
     ng sector";E4-E3+1;
   : RETURN
3040 STOP "END IT"
3050 Q=250
   : IF F5$=" "THEN 3070
   : MAT SEARCHE3$(),=STR(F5$,,8)TO F9$STEP 8
   : IF F9$>HEX(0000)THEN Q=INT((VAL(F9$,2)+7)/8)
   : IF Q<250THEN 3070
   : IF VER(F5$,"@TSTFLD#")=8THEN Q=VAL(STR(F5$,8))+203
   : MAT SEARCHC8$,=STR(F5$,,8)TO F9$
   : IF F9$>HEX(0000)THEN Q=INT((VAL(F9$,2)+7)/8)+260
   : IF F5$="@SYSBUF0"THEN Q=249
   : IF F5$<"FILE # 1"OR F5$>"FILE # 7"THEN 3070
3060 Q=VAL(STR(F5$,8))+213
3070 DEFFN'71(Q)
   : E8$=" "
   : $PACK(F=HEX(1006))E8$FROMQ
   : E8$=STR(E8$,POS(E8$>20))
   : RETURN
3080 IF STR(F5$,,2)="IF"THEN F9$=HEX(8A)
   : IF STR(F5$,,2)="OR"THEN F9$=HEX(8B)
   : IF LEN(E$)>1THEN E$=E$&F9$
   : $TRAN(F9$,HEX(8A8B8B8A))R
   : IF LEN(F0$)>1THEN F0$=F0$&F9$
   : RETURN
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
   : E$="IDS2PP16"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"