Listing of file='IDS2PI01' on disk='vmedia/701-2717B.wvd.zip'
# Sector 375, program filename = 'IDS2PI01'
1000 REM "IDS2PI01" - "START" PROGRAM SKELETON CREATION MODULE
1020 SAVE T#4,(8)E9$(3)1000,1000
: ERRORGOSUB '35("Disk device #4 is full - FN '31tocancel")
: GOSUB '34(250)
: LOAD T#2,"IDS2MI01"1000,
1035 DIM J$8
: J$="IDS2fs "
: A=(R0-#PART)/16+1
: IF A>0THEN CONVERT ATO STR(J$,7,2),(##)
: LIMITS T#2,J$,X,Q,Q,Q
: MAT REDIM E3$(9)83
: IF X>0THEN DATA LOAD DA T#2,(X)E3$()
: ELSE E3$()=" "
: MAT REDIM E3$(249)8
: LIMITS T#4,E9$(3),A,B,C,D
: FOR I=1TO 10
: ON IGOTO 1080,,,,,,,,,1090
: F$()=HEX(00FF10)&BIN(15+I)&HEX(9722)
1071 IF I<9THEN STR(F$(),252)=HEX(220D0000FD)
: ELSE STR(F$(),42)=HEX(220D0000FE)&ALL(00)
: IF I=9THEN F$(1)=" "
: IF I>2THEN 1085
: STR(F$(),7,21)="\E9"&STR(E9$(3),1,8)&" "&STR(R4$,1,3)&STR(R2$,1,6)
: STR(F$(),92,45)=STR(E3$(),#PART*45-17)
: GOTO 1085
1080 F$()=HEX(00FF1000A2E92022)&STR(E9$(3),1,8)&HEX(22)&" - ..................
.............. - REV# "&STR(R2$,1,6)&" BY "&STR(R4$,1,3)&HEX(0D0000FF)
: STR(F$(),81)=HEX(1001A6)&"E8"&HEX(0D0000FF10029F)&"E9=1E99"&HEX(B1FF10100
D0000FF1003)&"E8=0001"&HEX(0D0000FF)
1082 STR(F$(),121)=HEX(1004A5D7)&"15/"&STR(E3$(),#PART*45-14,3)&HEX(0D0000FF10
05A1)&"T#15,"&HEX(22)&"IDS2PIX0"&HEX(22FF10012CFF10100D)
: STR(F$(),161)=HEX(0000FF1010A1)&"T#02,"&HEX(22)&"IDS2PIX2"&HEX(22FF10012C
FF10100D0000FD)
1085 DATA SAVE BA T#4,(A+I)STR(F$(),1,256)
: GOTO 1100
1090 F$()=HEX(20000B)&ALL(00)
: GOTO 1085
1100 NEXT I
: LOAD T#2,"IDS2PI02"1000,
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PI01"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"