image of READY prompt

Wang2200.org

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"