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"