Listing of file='IDS2PI03' on disk='vmedia/701-2717B.wvd.zip'
# Sector 220, program filename = 'IDS2PI03' 1000 REM "IDS2PI03" - Release 2.1 - "START" PROGRAM SPECIFICATION (PART 1) 1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : IF E0$="IDS2sI01"AND Q=33THEN 1050 : GOSUB '32("IDS2sI01") : E9=2250 : IF STR(E$(),20,2)<="81"AND STR(E$(),16,4)<"1006"THEN STR(E$(),139,78)=" " : F6$(11)="Y" : F0=36 : GOSUB '36 : F0=43 : GOSUB '37(36) : IF Q<1750THEN GOSUB '55(36,1750) : J1=Q : GOSUB '43(37) : GOSUB '55(37,MAX(J1,Q)) 1032 GOSUB '37(38) : IF Q<256THEN GOSUB '55(38,256) : J1=Q : GOSUB '43(39) : GOSUB '55(39,MAX(J1,Q)) : GOSUB '37(40) : IF Q<256THEN GOSUB '55(40,256) : J1=Q : GOSUB '43(41) : GOSUB '55(41,MAX(J1,Q)) : GOSUB '43(42) : GOSUB '55(42,Q) : GOSUB '43(34) : IF E$<>" "THEN 1400 1050 F=0 1060 F=F+1 : IF F>F0THEN 1400 : IF F<>12AND F<>15THEN 1070 : GOSUB '43(F) : IF E$=" "THEN GOSUB '45(F,"0") 1070 GOSUB '34(F) : ON FGOTO ,,,,,,,,,,,1080,1090,,1080,1090,1100 : IF F<17THEN 1060 : IF F<33THEN 1400 : ON F-32GOTO 1060,1110,1400,,1150,,1160,,1160 : GOTO 1060 1080 IF VER(E$,"H")=1THEN 1060 : GOSUB '35("User class must be 0 - 9 or A - F") : GOTO 1070 1090 E7$=E$ : GOSUB '43(F-1) : IF E7$=R4$AND R8$<E$THEN GOSUB '35("You won't be able to edit this progra m again !") : E$=E7$ : IF E$=" "THEN 1060 : GOSUB '41(E1$(1),E$,0) : IF Q<>0OR F=16THEN 1060 : GOTO 1070 1100 F=32 : GOTO 1060 1110 LIMITS T#4,E$,A,B,C,D : IF D=0THEN 1060 : IF D>0THEN 1130 : GOSUB '35("Specified load module is scratched") : GOTO 1070 1130 IF D=1THEN 1060 : GOSUB '35("Must be a program file") : GOTO 1070 1150 IF Q>1749AND Q<10000THEN 1400 : GOSUB '35("Work buffer must be 1750 - 9999 bytes long") : GOTO 1070 1160 J1=Q : GOSUB '43(F-1) : IF J1>=QTHEN 1400 : GOSUB '35("Buffer is too small - Please re-enter") : GOTO 1070 1400 GOSUB '63("EXECUTE= Accept,"," EDIT= Modify, '1-'15= Addresses, '16-'18= Buffers, '31= Cancel"," ") : GOSUB '34(250) : IF Q=33THEN 1050 : IF Q>0AND Q<19THEN 1460 : IF Q=32THEN LOAD T#2,"IDS2PI04"1000, : IF Q=31THEN LOAD T#2,"IDS2MI01"1000, 1460 IF Q>15THEN 1470 : F=Q+17 : GOTO 1070 1470 F=Q*2+5 : GOTO 1070 3699 ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PI03" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"