Listing of file='IDS2PU09' on disk='vmedia/701-2715B.wvd.zip'
# Sector 634, program filename = 'IDS2PU09'
1000 REM "IDS2PU09" - File expansion module - scratches, renames IDEAS2 file
: IF F6$(17)<"^" THEN SELECT @PART "IDS2SUBM"
1010 COM D8
: DIM D$(6)83,D1$8,D2$8,D3$1
: IF D8>0THEN 1030
: D3=0
: D8=1
: E9$(2)=E9$(1)
: GOSUB 1090
1020 GOSUB 1070
: GOSUB '71("IDS2PU09")
: GOTO 1060
1030 E9$(1)=E9$(2)
: D3=1
: GOSUB 1090
: IF STR(D$(),267+8*D8,8)=" "OR D8=17THEN 1050
: D1,D8=D8+1
: E9$(1)=STR(D$(),259+8*D8,8)
: GOTO 1020
1050 COM CLEAR D8
: GOSUB '71("IDS2PU14")
: F6$(14)="N"
: LOAD T#2,"IDS2PU10"1000,
1060 IF D9=1THEN GOSUB 1100
: F6$(14)="Y"
: LOAD T#2,"IDS2PF11"1000,
1070 FOR J=1TO D2
: SELECT #6<STR(D$(),105,3)>
: IF J>1THEN SELECT #6<STR(D$(),248+3*J,3)>
: D2$="\CA\F5\CE\CB"
1080 D1=D1+1
: CONVERT D1TO STR(D2$,5,4),(####)
: LIMITS T#6,D2$,X,X,X,X
: IF X<>0THEN 1080
: SCRATCH T#6,E9$(1)
: SAVE T#6,(E9$(1))D2$10,0
: SCRATCH T#6,D2$
: NEXT J
: RETURN
1090 D1$=E9$(1)OR ALL(20)
: GOSUB '39(D1$,5)
: DATA LOAD DA T#P,(A)D$()
: CONVERT STR(D$(),217,1)TO D2
: IF D3=1THEN D2=1
: RETURN
1100 PRINT AT(23,0,80);"Do you wish to clean up your platter before continuing
? (Y/N)"
: KEYIN D3$
: IF D3$="N"THEN RETURN
: IF D3$<>"Y"THEN 1100
: STOP "Do moves and copies if necessary. Don't CLEAR memory. Enter CONTINU
E when done."
: RETURN
1110 DEFFN'71(F0$)
: IF R3$(1)=F0$THEN RETURN
: X=LEN(STR(R3$()))-9
: MAT COPY -R3$()<1,X>TO -R3$()<10,X>
: R3$(1)=F0$
: RETURN
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PU09"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"