image of READY prompt

Wang2200.org

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

# Sector 827, program filename = 'IDS2PS15'
1000 REM "IDS2PS15" - Release 2.1 - SCREEN MASK EDITOR - DELETE A FIELD
1005 COM J6$16,C5$1,C1,C2
   : J6$=STR(E$(),61,8)
   : STR(J6$,9)=STR(E$(),9,8)
   : C5$="S"
   : IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
   : GOSUB '43(3)
   : Y=Q-1
   : GOSUB '43(4)
   : X=Q-1
   : GOSUB '43(34)
   : E$=ALL(00)
   : IF STR(F$(),Q*9-8,9)<>STR(E$,1,9)THEN 1070
   : PRINT HEX(07);
1055 R=Y
   : C=X
   : COM CLEAR J6$
   : LOAD T#2,"IDS2PS07"1000,
1070 GOSUB '53("Touch FN'9 to delete field, EXECUTE or CANCEL (FN'31) to abort
     ")
   : GOSUB '34(250)
   : IF Q=32OR Q=31OR Q=130THEN 1055
   : IF Q<>9THEN PRINT HEX(07);
   : IF Q<>9THEN 1070
   : GOSUB '43(34)
   : IF Z<>QTHEN 1120
   : STR(F$(),Q*9-8,9)=ALL(00)
   : E3$(Q)=" "
   : GOTO 1140
1120 STR(F$(),Q*9-8,(Z-Q+1)*9)=STR(F$(),Q*9+1,(Z-Q)*9)&ALL(00)
   : STR(E3$(),Q*8-7,1993-Q*8)=STR(E3$(),Q*8+1,1985-Q*8)
1140 Z=Z-1
   : E6$=BIN(Q)
   : FOR I=9TO Z*9STEP 9
   : IF STR(F$(),I,1)<E6$OR STR(F$(),I,1)>HEX(F8)THEN 1200
   : IF STR(F$(),I-1,1)>=HEX(40)THEN 1200
   : IF STR(F$(),I,1)=E6$THEN STR(F$(),I,1)=HEX(00)
   : ELSE ADD(STR(F$(),I,1),FF)
1200 NEXT I
   : GOSUB '55(34,Z+1)
   : R=Y
   : C=X
   : E6$=HEX(20)
   : LOAD T#2,"IDS2PS16"1000,
2000 STOP #
   : ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
   : E$="IDS2PS15"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"