 100  PRINT  CHR$ (4);"MAXFILES 3"
 200 CNT = 768
 300 IDX = 769
 400 LOW = 770
 500 HGH = 771
 600 BEG = 772
 700 LST = 774
 800 VIR = 776
 900  POKE VIR,255: POKE VIR + 1,182
 1000 I =  PEEK (115)
 1100  POKE BEG,I: POKE LST,I
 1200 J =  PEEK (116)
 1300  POKE BEG + 1,J: POKE LST + 1,J
 1400 L = J * 256 + I
 1500  HIMEM: 9727
 1600 D$ =  CHR$ (4)
 1700  PRINT D$;"BLOAD PAKTXT"
 1800  HOME 
 1900  PRINT "DRIVE 2 - ADVENTURE OBJECT DISK"
 2000  PRINT 
 2100  INPUT "PRESS RETURN WHEN READY";X$
 2200  PRINT D$;"OPEN T.PTR,D2"
 2300  PRINT D$;"DELETE T.PTR"
 2400  PRINT D$;"OPEN T.PTR"
 2500  PRINT D$;"WRITE T.PTR"
 2600 F$ = "LNG"
 2700  GOSUB 4900
 2800 F$ = "SHT"
 2900  GOSUB 4900
 3000 F$ = "OBJ"
 3100  GOSUB 4900
 3200 F$ = "REM"
 3300  GOSUB 4900
 3400 F$ = "SCR"
 3500  GOSUB 4900
 3600 F$ = "MSC"
 3700  GOSUB 4900
 3800  PRINT D$;"CLOSE T.PTR"
 3900 A =  PEEK (BEG + 1) * 256 +  PEEK (BEG)
 4000 E =  PEEK (VIR + 1) * 256 +  PEEK (VIR)
 4100  PRINT : PRINT 
 4200 L = L - A
 4300  PRINT "TEXT LENGTH = ";L
 4400  PRINT D$"BSAVE TEXT,A$800,L$1,D2"
 4500  PRINT D$"DELETE TEXT"
 4600  PRINT D$"BSAVE TEXT,A";A;",L";L
 4700  PRINT D$"MAXFILES 3"
 4800  END 
 4900  CALL 9728
 5000  PRINT " SKP 1"
 5100  PRINT "X";F$;"L EQU *"
 5200 K = 0
 5300  FOR I = 0 TO  PEEK (CNT)
 5400  POKE IDX,I
 5500  CALL 9731
 5600 J =  PEEK (LOW)
 5700 K = K + 1
 5800  IF K = 1 THEN  PRINT " DFB ";J;: GOTO 6100
 5900  PRINT ",";J;
 6000  IF K = 10 THEN  PRINT :K = 0
 6100  NEXT 
 6200  IF K <  > 0 THEN  PRINT 
 6300  PRINT " SKP 1"
 6400  PRINT "X";F$;"H EQU *"
 6500 K = 0
 6600  FOR I = 0 TO  PEEK (CNT)
 6700  POKE IDX,I
 6800  CALL 9731
 6900 J =  PEEK (HGH)
 7000 K = K + 1
 7100  IF K = 1 THEN  PRINT " DFB ";J;: GOTO 7400
 7200  PRINT ",";J;
 7300  IF K = 10 THEN  PRINT :K = 0
 7400  NEXT 
 7500  IF K <  > 0 THEN  PRINT 
 7600  RETURN 
