image of READY prompt

Wang2200.org

Listing of file='IDS2PS16' on disk='vmedia/701-2716B.wvd.zip'

# Sector 833, program filename = 'IDS2PS16'
1000 REM "IDS2PS16" - Release 2.1 - SCREEN MASK EDITOR - INSERT A FIELD
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
   : GOSUB '43(3)
   : Y=Q-1
   : GOSUB '43(4)
   : X=Q-1
   : IF E6$=" "THEN G=0
   : ELSE G=1
   : ON GGOTO 1150
1050 GOSUB '53("Touch FN'9 again to finish delete, EXEC to insert as new field
     ")
   : GOSUB '34(250)
   : IF Q=32OR Q=130THEN 1190
   : IF Q<>9THEN PRINT HEX(07);
   : IF Q<>9THEN 1050
   : IF STR(E$(),52,3)="  0"THEN I=1
   : ELSE I=0
1100 STR(E$(),1,69)=STR(E2$(),401)
1110 E2$()=F$()
   : R,C1=Y
   : C,C2=X
   : IF I=1THEN 1130
   : MAT REDIM E$(24)83,F$(27)83,E2$(27)83,E3$(24)83
   : DATA SAVE DA T#3,(E4+25)E$()
   : DATA SAVE DA T#3,(E4+33)F$()
   : DATA SAVE DA T#3,(E4+42)E2$()
   : DATA SAVE DA T#3,(E4+51)E3$()
   : MAT REDIM E$(E8)1,F$(E9)1,E2$(250)9,E3$(249)8
   : LOAD T#2,"IDS2PS95"1000,
1130 COM CLEAR J6$
   : LOAD T#2,"IDS2PS03"1000,
1150 GOSUB '43(34)
   : IF Q>ZTHEN 1190
   : PRINT HEX(07);
   : GOTO 1110
1190 GOSUB '63("Touch EXEC to en","ter field number for insertion or touch FN'
     31 to abort insert"," ")
   : GOSUB '34(250)
   : IF Q=31THEN 1100
   : IF Q=32THEN 1250
   : PRINT HEX(07);
   : GOTO 1190
1250 GOSUB '53("Please enter the new field number for insertion of this field"
     )
1260 GOSUB '34(34)
   : IF Q<=Z+1THEN 1300
   : GOSUB '55(34,Z+1)
   : F0$="New field number for insertion must be from 1 to"
   : CONVERT Z+1TO STR(F0$,LEN(F0$)+2),(###)
   : GOSUB '35(F0$)
   : GOTO 1260
1300 GOSUB '63("Touch EXECUTE to"," complete insertion, EDIT for new field #,
     FN'31 to CANCEL"," ")
   : GOSUB '34(250)
   : IF Q=31THEN 1100
   : IF Q=33THEN 1250
   : IF Q=32OR Q=130THEN 1360
   : PRINT HEX(07);
   : GOTO 1300
1360 GOSUB '43(34)
   : IF Q=Z+1THEN 1410
   : MAT REDIM F$(249)9
   : BIN(E6$)=Q
   : FOR I=ZTO QSTEP -1
   : E3$(I+1)=E3$(I)
   : IF STR(F$(I),9,1)<E6$OR STR(F$(I),9,1)>HEX(F7)OR STR(F$(I),8,1)>=HEX(40)T
     HEN 1400
   : ADD(STR(F$(I),9,1),01)
1400 F$(I+1)=F$(I)
   : NEXT I
   : MAT REDIM F$(E9)1
1410 R=Y
   : C=X
   : LOAD T#2,"IDS2PS08"1000,
2000 STOP #
   : ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
   : E$="IDS2PS16"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"