Listing of file='IDS2PS33' on disk='vmedia/701-2724B.wvd.zip'
# Sector 485, program filename = 'IDS2PS33' 1000 REM "IDS2PS33" - Release 2.1 - DOCUMENTATION FOR USER-SUPPLIED LOGIC 1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : E$="Name: "&HEX(22)&STR(E$(),98,8)&HEX(22)&"- " : GOSUB '48(0,E$,18) : GOSUB '48(0,STR(E$(),106),64) : GOSUB 2510 : FOR I=197TO 263STEP 33 : IF STR(E$(),I,5)=" "THEN 1050 : E$=STR(E$(),I+5,20) : GOSUB '48(0,E$,20) : GOSUB '48(-1,"is passed from field",0) : GOSUB '48(-1,STR(E$(),I+25),8) : GOSUB 2510 1050 NEXT I : E$=STR(E$(),296,20) : IF E$=" "THEN 2000 : GOSUB '48(0,E$,20) : GOSUB '48(-1,"is returned to field",0) : GOSUB '48(-1,STR(E$(),317),8) : GOSUB 2510 2000 LOAD T#2,"IDS2PS30"1000, 2500 STOP # 2510 GOSUB '49(0) : IF C5$<>"S"OR STR(R3$(1),6,1)<>"S"THEN D6=D6+1 : ELSE F4=F4+1 : RETURN 3699 ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PS33" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"