10 REM  ÆÉÌÅ ÉÎÄÅØ ³®°  by Stacy Goff›20 REM For personal use or free exchange only.›30 REM Modified by Carolyn Hoglin›31 REM PPN 72467,2522 - Orlando, FL›32 GRAPHICS 2+16:POSITION 5,3:? #6;"æéìå éîäåø":POSITION 3,5:? #6;"ÍÁÓÔÅÒ ÉÎÄÅØ ÔÏ":POSITION 5,7:? #6;"ÄÉÓË ÆÉÌÅÓ"›35 Q1=1:Q2=2:Q3=3:Q4=4:Q5=5:Q6=6:Q7=0:Q8=40000:Q9=9:Q10=10:Q11=7:Q12=12:Q13=13:Q14=14:Q15=15:Q16=16:Q17=8:Q18=18:Q19=19:Q20=20›45 Q21=11:Q23=1015:Q24=3000:Q27=27:Q30=30:Q34=34:Q39=39:Q82=82:Q100=100:Q110=110:Q120=120:Q130=130:Q155=155:Q195=195:Q200=200›55 Q225=225:Q241=3240:Q250=1250:Q255=255:Q260=1260:Q279=53279:Q300=300:Q310=3310:Q315=2315:Q360=360:Q381=1380:Q430=1430:Q500=500›65 Q530=530:Q559=559:Q570=570:Q650=650:Q752=752:Q764=764:Q770=770:Q780=780:Q820=1820›80 FOR X=Q1 TO 1000:NEXT X›85 GOSUB 4000›90 DIM FILE$(Q30),SOR$(Q3),D$(Q4):D$="    ":D=Q1:FILENAME=Q7:DIM AREA$(Q20*1000),SAV$(Q20):GOTO Q820›100 TONE=Q14:GOTO Q130›110 TONE=Q2:GOTO Q130›120 TONE=Q4›130 FOR Z=Q1 TO Q30:SOUND Q7,Q10,TONE,Q12:NEXT Z:FOR Z=Q39 TO Q1 STEP -Q1:SOUND Q7,Q10,TONE,Z/Q3:NEXT Z›150 SOUND Q7,Q7,Q7,Q7:RETURN ›155 ? "}  ÎÏ ÒÅÃÏÒÄÓ ÉΠÍÅÍÏÒÙ ":GOSUB Q120:FOR X=Q1 TO Q500:NEXT X:GOTO Q820›200 IF COUNT=Q7 THEN GOTO Q155›210 POKE Q752,Q1:? "}TOTAL NUMBER OF RECORDS IS ";COUNT›225 IF COUNT=Q7 THEN GOTO Q155›240 ? "ENTER Ä TO SORT BY DISK #":? "      Ð TO SORT BY PROGRAM NAME":? "      Å TO SORT BY EXTENSION"›270 ? "      Ô TO SORT BY PROGRAM TYPE":TRAP 240:GOSUB Q100›310 POSITION Q6,Q9:INPUT D$:IF D$="D" THEN L=Q15:P=Q1:GOTO Q360›320 IF D$="P" THEN L=Q12:P=Q5:GOTO Q360›330 IF D$="E" THEN L=Q3:P=Q13:GOTO Q360›340 IF D$="T" THEN L=Q1:P=Q20:GOTO Q360›345 IF D$="" THEN 1250›350 GOTO Q200›360 ? :? "Sort will take ";INT(COUNT*(COUNT/Q300)+Q6);" seconds.":FOR X=Q1 TO Q500:NEXT X:POKE Q559,Q7:TRAP Q8:C=COUNT›380 C=INT(C/Q3)+Q1:FOR A=Q1 TO COUNT-C:LC=A*Q20-Q20+P:IF AREA$(LC,LC+L-Q1)<=AREA$(LC+(Q20*C),LC+(Q20*C)+L-Q1) THEN 440›400 SAV$(Q1,Q20)=AREA$((A+C)*Q20-Q19):B=A›410 AREA$((B+C)*Q20-Q19,(B+C)*Q20)=AREA$(B*Q20-Q19):B=B-C:IF B>Q7 THEN IF SAV$(P,P+L-Q1)<AREA$(B*Q20-Q20+P) THEN 410›430 AREA$((B+C)*Q20-Q19,(B+C)*Q20)=SAV$(Q1,Q20)›440 NEXT A:IF PEEK(Q279)=Q3 THEN POKE Q559,Q34:? :? " ÓÏÒÔ ÁÂÏÒÔÅÄ ÁÔ ÒÅÑÕÅÓÔ ":GOTO 470›450 IF C>Q1 THEN 380›460 POKE Q559,Q34:? :? " ÓÏÒÔ ÃÏÍÐÌÅÔÅÄ "›470 GOSUB Q110:FOR Z=Q1 TO Q500:NEXT Z:GOTO Q820›530 POKE Q752,Q1:? "}      ÄÏ ÙÏÕ ×ÉÓÈ ÔÏ ÅÎÔÅÒ Á    ":? "     ÆÉÌÅ ÔÙÐÅ ÃÏÄÅ¿ ¨Ù ÏҠΩ   ";:GOSUB Q100:INPUT D$›560 IF D$="Y" THEN PSW=Q1:GOTO Q570›565 IF D$<>"N" THEN GOTO Q530›570 TRAP Q570:? :? "    ÅÎÔÅÒ ¢ÅÎÄ¢ ÏÒ ÉÎÓÅÒÔ ÎÅØÔ   ":? "    ÄÉÓË ÁÎÄ ÅÎÔÅÒ ÄÉÓË ÎÕÍÂÅÒ® ";:GOSUB Q100›595 INPUT D$:IF D$="END" THEN 830›596 IF LEN(D$)=Q7 THEN GOTO Q570›597 IF D$(LEN(D$))<>"A" AND D$(LEN(D$))<>"B" THEN D$(LEN(D$)+Q1)=" "›600 IF LEN(D$)<>Q2 THEN 610›605 D$(Q3,Q4)=D$(Q1,Q2):D$(Q1,Q2)="  "›610 IF LEN(D$)<>Q3 THEN 625›615 D$(Q4,Q4)=D$(Q3,Q3):D$(Q3,Q3)=D$(Q2,Q2):D$(Q2,Q2)=D$(Q1,Q1):D$(Q1,Q1)=" "›625 IF PSW=Q1 THEN ? :? "    ÅÎÔÅÒ ¢ª¢ ÔÏ ÂÙÐÁÓÓ Á ÆÉÌÅ® "›630 DISKS=DISKS+Q1:TRAP Q780:FILE$="D":FILE$(Q2)=STR$(D):FILE$(Q3)=":*.*":OPEN #Q1,Q6,Q7,FILE$›650 FILE$(Q18,Q18)=" ":INPUT #Q1;FILE$:? FILE$,:IF FILE$(Q1,Q1)>"*" THEN GOTO Q780›670 IF FILE$(Q3,Q6)="DOS " OR FILE$(Q3,Q6)="DUP " OR FILE$(Q3,Q6)="Dup " THEN GOTO Q770›680 IF FILE$(Q3,Q13)="AUTORUN SYS" OR FILE$(Q3,Q13)="MENU       " THEN GOTO Q770›685 IF PSW=Q7 THEN ? ›690 SAV$=" ":IF PSW=Q7 THEN 710›700 TRAP Q8:POKE Q764,Q255:? "PROGRAM TYPE";:INPUT SAV$:IF SAV$="*" THEN 760›710 COUNT=COUNT+Q1:LOC=COUNT*Q20-Q19:AREA$(LOC,LOC+Q3)=D$:IF SAV$="" THEN SAV$=" "›730 FILE$(Q19,Q19)=SAV$:FILE$(Q14,Q18)=FILE$(Q15,Q19):AREA$(LOC+Q4,LOC+Q19)=FILE$(Q3,Q18):GOTO Q650›760 ? ,,"**Bypassed**  ":GOTO Q650›770 ? "**Bypassed**":GOTO Q650›780 ? :? "    ÅÎÄ ÏÆ ÄÉÒÅÃÔÏÒÙ¬ ÔÈÉÓ ÄÉÓË ":? "  TOTAL RECORDS IS NOW ";COUNT:POKE Q764,Q255:GOSUB Q110›800 FOR X=Q1 TO Q200:NEXT X:CLOSE #Q1:GOTO Q570›830 ? :? "    ÒÅÃÏÒÄÓ ÁÄÄÅĺ ";COUNT:? "    ÄÉÓËÓ ÉÎÐÕÔº   ";DISKS:GOSUB Q110:PSW=Q7:FOR X=Q1 TO 400:NEXT X:GOTO Q820›910 PG=Q7:LINES=Q7:IF COUNT=Q7 THEN GOTO Q155›912 POKE 82,2›915 ? "}Position paper so that printing will  begin 1/2 inch below perforation.     Hit <RETURN> when ready.":INPUT D$›930 TRAP 1220:OPEN #Q3,Q17,Q7,"P:":? #Q3;CD$;LM$;LF$;›940 GOSUB 1180:X=Q7›955 Z=1500:IF COUNT<225*PG THEN Z=INT((COUNT-225*(PG-Q1))/Q3+0.7)*Q20›965 FOR Y=Q1 TO Q2*Z+Q1 STEP Z:TRAP 1100:FILE$(Q1,Q20)=AREA$(X+Y,X+Y+Q19)›990 ? #Q3;"   ";FILE$(Q1,Q4);"  ";FILE$(Q5,Q12);".";FILE$(Q13,Q15);" ";FILE$(Q16,Q19);" ";›1000 D$=FILE$(Q20,Q20):IF D$=" " THEN SAV$=" "›1010 SAV$=D$:GOSUB Q23:GOTO 1085›1015 IF D$="A" THEN SAV$="AMUSEMENT/GAMES"›1017 IF D$="B" THEN SAV$="BUSINESS"›1020 IF D$="C" THEN SAV$="COMMUNICATIONS"›1023 IF D$="D" THEN SAV$="DIRECTORY"›1025 IF D$="E" THEN SAV$="EDUCATIONAL"›1027 IF D$="F" THEN SAV$="DATAFILE"›1030 IF D$="G" THEN SAV$="GRAPHICS"›1037 IF D$="H" THEN SAV$="HOME & PERSONAL"›1041 IF D$="J" THEN SAV$="JOYSTICK"›1043 IF D$="L" THEN SAV$="LANGUAGE"›1045 IF D$="M" THEN SAV$="MUSIC"›1050 IF D$="P" THEN SAV$="PRINTER PROGRAM"›1055 IF D$="S" THEN SAV$="SOUND"›1060 IF D$="T" THEN SAV$="TEXTFILE"›1065 IF D$="U" THEN SAV$="UTILITY"›1070 IF D$="W" THEN SAV$="WORD PROCESSOR"›1075 IF D$="X" THEN SAV$="MISCELLANEOUS"›1080 RETURN ›1085 ? #Q3;SAV$;›1090 IF LEN(SAV$)<Q15 THEN FOR I=Q1 TO (Q15-(LEN(SAV$))):? #Q3;" ";:NEXT I›1095 ? #Q3;"  ";:NEXT Y›1100 IF PEEK(Q279)=Q3 THEN GOTO Q260›1102 IF PEEK(Q195)=Q5 THEN POKE Q195,Q1›1105 ? #Q3:LINES=LINES+Q1:IF LINES=79 THEN X=X+Q24:IF X<COUNT*Q20 THEN GOSUB 1170›1115 X=X+Q20:IF X-4500*(PG-Q1)<Z THEN 955›1120 ? :? ,"   ÅÎÄ ÏÆ ÆÉÌÅ ":? :? "     Press <RETURN> to continue";:GOSUB Q110:INPUT D$:GOTO Q250›1170 FOR I=Q1 TO Q9:? #Q3:NEXT I:LINES=Q7›1180 PG=PG+Q1:IF PG>Q1 THEN ? #Q3;EX$;"                 Page ";PG:GOTO 1200›1190 ? #Q3;EX$;"           INDEX TO PROGRAMS "›1200 ? #Q3;CD$:LINES=LINES+Q2›1202 FOR Y=Q1 TO Q3›1203 ? #Q3;"  DISK#  FILENAME EXT SIZE FILETYPE         ";:NEXT Y:? #Q3›1210 ? #Q3;"  ";:FOR Y=Q1 TO 128:? #Q3;"-";:NEXT Y:? #Q3:LINES=LINES+Q2:RETURN ›1220 ? "}":? ," ÔÕÒΠÔÈÅ ÐÒÉÎÔÅÒ ÏΡ "›1230 GOSUB Q120:FOR X=Q1 TO Q100:NEXT X›1250 TRAP Q250:CLOSE #Q3:PSW=Q7:GOTO Q820›1260 ? :? ," ÁÂÏÒÔÅÄ ÕÐÏΠÒÅÑÕÅÓÔ ":GOTO 1230›1300 IF COUNT=Q7 THEN GOTO Q155›1305 GOSUB Q24:TRAP 1390:OPEN #Q2,Q9,Q7,FILE$›1320 ? "}   Type Ù if you want records in memory    to replace those in ";FILE$;".":GOSUB Q120›1340 INPUT D$:IF D$<>"Y" THEN ? "   Closing file.":CLOSE #Q2:GOTO Q820›1345 GOTO Q430›1350 C=Q7:FOR X=Q1 TO COUNT:IF PEEK(Q279)=Q3 THEN ? :? " ÓÁÖÅ ÁÂÏÒÔÅÄ ÁÔ ÒÅÑÕÅÓÔ ":GOTO Q381›1360 FILE$(Q1,Q20)=AREA$(X*Q20-Q19,X*Q20):IF FILE$(Q1,Q1)="*" THEN C=C+Q1:NEXT X:GOTO Q381›1370 PRINT #Q2;FILE$:NEXT X›1380 CLOSE #Q2:? "}";X-C-Q1;"RECORDS WRITTEN":? "";C;"RECORDS DROPPED":FOR X=Q1 TO Q500:NEXT X:GOTO Q820›1390 IF PEEK(Q195)=170 THEN GOTO Q430›1395 IF PEEK(Q195)=144 THEN ? ," Åòòïò ±´´ ­ ÃÈÅÃË ÄÉÓË¡":GOSUB Q120:FOR X=Q1 TO Q200:NEXT X:CLOSE #Q2:GOTO Q250›1400 IF PEEK(Q195)=129 THEN GOTO Q430›1410 ? ,"       É¯Ï ÅÒÒÏÒ¡      ":GOSUB Q120:CLOSE #Q2:FOR X=Q1 TO Q200:NEXT X:GOTO Q250›1430 TRAP 1390:CLOSE #Q2:OPEN #Q2,Q17,Q7,FILE$:TRAP Q8:GOTO 1350›1480 GOSUB Q24:TRAP 1580:OPEN #Q2,Q4,Q7,FILE$›1500 TRAP 1610:POKE Q559,Q7:SETCOLOR Q2,RND(Q7)*Q9,Q7›1530 INPUT #Q2;FILE$:COUNT=COUNT+Q1:AREA$(COUNT*Q20-Q19,COUNT*Q20)=FILE$›1565 IF PEEK(Q279)=Q3 THEN POKE Q559,Q34:CLOSE #Q2:? :? ," ÌÏÁÄ ÁÂÏÒÔÅÄ ÁÔ ÒÅÑÕÅÓÔ ":GOTO 1590›1570 GOTO 1530›1580 TRAP Q8:CLOSE #Q2:POKE Q559,Q34:? :? ,"     ÆÉÌÅ ÎÏÔ ÆÏÕÎÄ    "›1590 GOSUB Q120:FOR X=Q1 TO Q200:NEXT X:GOTO Q250›1610 IF PEEK(Q195)<>136 THEN POKE Q559,Q34:GOTO 1410›1620 POKE Q559,Q34:POKE Q752,Q1:? ,"      ÅÎÄ ÏÆ ÆÉÌÅ          ":GOSUB Q110:FOR X=Q1 TO Q200:NEXT X›1650 CLOSE #Q2:CLOSE #Q3:GOTO 1940›1700 GRAPHICS Q2:POSITION Q3,Q3:? #Q6;"ARE YOU SURE??":GOSUB Q120›1720 POKE Q752,Q1:INPUT D$:IF D$<>"Y" THEN GRAPHICS Q7:GOTO Q820›1730 GOSUB Q24:TRAP 1770:XIO 33,#Q3,Q7,Q7,FILE$:? #Q6:? #Q6;"MISSION ACCOMPLISHED":GOSUB Q110›1760 FOR X=Q1 TO 150:NEXT X:GRAPHICS Q7:GOTO Q820›1770 ? #Q6:? #Q6;"   FILE IS HIDING":GOSUB Q120:GOTO 1760›1820 SETCOLOR Q2,RND(Q7)*Q9,Q7:POKE Q82,Q7:? "}";:POKE Q752,Q1:? ,"  ÐÒÏÇÒÁÍ ÉÎÖÅÎÔÏÒÙ "›1850 ? " Which action do you wish to perform?":? :? " Enter:Ì TO LOAD INDEX FROM DISK":? "Á TO ADD FILES"›1875 ? "ÂÄTO ADD BOOT DISK":? "Ä TO DISPLAY FROM MEMORY":? "РTO PRINT FROM MEMORY"›1895 ? "ÓÅTO SEARCH FOR A PROGRAM NAME":? "ÓÏTO SORT IN MEMORY":? "ÓÁTO SAVE INDEX TO DISK"›1920 ? "ÄÆTO DELETE DISK INDEX FILE":? "ÄÍTO DELETE FROM MEMORY":? "Ú TO 'ZERO' MEMORY"›1930 ? "¿ TO DISPLAY DISK DIRECTORY":? "Å TO EXIT PROGRAM":? :? "(Hold <OPTION> to abort function)"›1940 POSITION Q10,22:? "ÒÅÃÏÒÄÓ ÉΠÍÅÍÏÒÙ ½";COUNT:POSITION Q21,Q20:? "þþ";:GOSUB Q100:INPUT D$:IF D$="A" THEN GOTO Q530›1975 IF D$="BD" THEN 3610›1980 IF D$="SO" THEN GOTO Q200›1985 IF D$="SE" THEN 3230›1990 IF D$="SA" THEN 1300›2000 IF D$="L" THEN 1480›2010 IF D$="D" THEN 3400›2020 IF D$="P" THEN 910›2030 IF D$="DF" THEN 1700›2035 IF D$="DM" THEN 2225›2040 IF D$="Z" THEN 2070›2050 IF D$="E" THEN 2090›2055 IF D$="?" THEN 2430›2060 GOTO Q820›2070 GOSUB Q120:CLOSE #Q2:AREA$="":COUNT=Q7:DISKS=Q7:GOTO 1250›2090 GOSUB Q120:GRAPHICS Q7:END ›2225 IF COUNT=Q7 THEN GOTO Q155›2230 POKE Q752,Q1:? "}":POSITION Q12,Q1:? "DELETING RECORDS"›2240 ? "     You may delete an entire disk's      index from memory by entering that      disk's number now.":? ›2250 GOSUB Q100:C=Q7:TRAP Q315:POSITION Q2,Q11:INPUT D$:IF D$(LEN(D$))<>"A" AND D$(LEN(D$))<>"B" THEN D$(LEN(D$)+Q1)=" "›2256 IF LEN(D$)<>Q2 THEN 2270›2260 D$(Q3,Q4)=D$(Q1,Q2):D$(Q1,Q2)="  "›2270 IF LEN(D$)<>Q3 THEN 2290›2280 D$(Q4,Q4)=D$(Q3,Q3):D$(Q3,Q3)=D$(Q2,Q2):D$(Q2,Q2)=D$(Q1,Q1):D$(Q1,Q1)=" "›2290 FOR X=Q1 TO COUNT:Z=X*Q20:IF AREA$(Z-Q19,Z-Q16)=D$(Q1,Q4) THEN AREA$(Z-Q19,Z-Q19)="*":C=C+Q1›2305 IF PEEK(Q279)=Q3 THEN ? :? " ÄÅÌÅÔÅ ÁÂÏÒÔÅÄ ÁÔ ÒÅÑÕÅÓÔ ":POP :GOTO Q315›2310 NEXT X›2315 ? "  ";C;"  ÒÅÃÏÒÄÓ ÆÌÁÇÇÅÄ ÆÏÒ ÄÅÌÅÔÉÏΠ":? ›2320 ? "     Note that actual deletion will       not occur until records are written     back to disk file.":GOSUB Q110›2350 ? "  Hit <RETURN> to continue";:INPUT D$:GOTO Q820›2430 POKE Q82,Q7:POKE 83,Q39:D=Q1:SETCOLOR Q2,RND(Q7)*Q12,Q7:? "}":? ," ÃÕÒÒÅÎÔ ÄÉÓË ÍÅÎÕ ":TRAP 2490›2440 FILE$="D":FILE$(Q2)=STR$(D):FILE$(Q3)=":*.*":OPEN #Q1,Q6,Q7,FILE$›2450 INPUT #Q1;FILE$:? FILE$,:GOTO 2450›2490 CLOSE #Q1:? :GOSUB Q110:? :? "       ÐÒÅÓÓ ÒÅÔÕÒΠÔÏ ÃÏÎÔÉÎÕÅ ";:INPUT D$:GOTO Q820›3000 FILE$="D":FILE$(Q2)=STR$(D):FILE$(Q3)=":PROGINDX.":FILE$(Q13)="DAT":IF FILENAME=Q7 THEN RETURN ›3020 TRAP 3020:? "}":POSITION Q2,Q4:? "ENTER 3-DIGIT EXTENSION FOR FILENAME    ÐÒÏÇÉÎÄØ®";:INPUT SOR$›3030 FILE$(Q13)=SOR$:RETURN ›3230 IF COUNT=Q7 THEN GOTO Q155›3240 POKE Q752,Q1:? "}":? ›3245 ? "   ÔÏ ÓÅÁÒÃÈ ÂÙ ÐÒÏÇÒÁÍ ÎÁÍŬ ÅÎÔÅÒ        ÎÁÍÅ ÏÒ ÐÏÒÔÉÏΠÏÆ ÎÁÍÅ ÙÏÕ ÁÒÅ         ÓÅÁÒÃÈÉÎÇ ÆÏÒº";›3250 INPUT FILE$:? :IF LEN(FILE$)=Q7 THEN ? :GOTO Q241›3260 ? "  Searching...":? :FOR X=Q1 TO COUNT:IF FILE$(Q1,LEN(FILE$))=AREA$(X*Q20-Q15,X*Q20-Q16+LEN(FILE$)) THEN 3290›3270 IF PEEK(Q279)=Q3 THEN ? :? "   ÓÃÁΠÁÂÏÒÔÅÄ ÁÔ ÒÅÑÕÅÓÔ ":GOTO Q310›3280 NEXT X:IF SCAN<>Q1 THEN ? :? "   ÓÏÒÒÙ¬ ÎÏ ÍÁÔÃÈ ÆÏÕÎÄ ":GOTO Q310›3285 GOTO Q310›3290 SAV$(Q1,Q20)=AREA$(X*Q20-Q19,X*Q20):SCAN=Q1›3300 ? " ";SAV$(Q1,Q4);" ";SAV$(Q5,Q12);".";SAV$(Q13,Q15);" ";SAV$(Q16,Q19);" ";›3301 D$=SAV$(Q20,Q20):IF D$=" " THEN SAV$="        "›3302 SAV$=D$:GOSUB Q23:? SAV$:NEXT X›3310 SCAN=Q7:GOSUB Q110:? :? :? "  SCAN FOR ANOTHER (Y or N)";:INPUT D$:IF D$="Y" THEN GOTO Q241›3320 POP :GOTO Q820›3400 IF COUNT=Q7 THEN GOTO Q155›3420 SETCOLOR Q2,RND(Q7)*Q9,Q7:POKE Q752,Q1:GOSUB 3540:FOR X=Q1 TO COUNT:FILE$(Q1,Q20)=AREA$(X*Q20-Q19,X*Q20)›3450 ? " ";FILE$(Q1,Q4);" ";FILE$(Q5,Q12);".";FILE$(Q13,Q15);" ";FILE$(Q16,Q19);" ";›3460 D$=FILE$(Q20,Q20):IF D$=" " THEN SAV$="        "›3470 SAV$=D$:GOSUB Q23:? SAV$:IF PEEK(Q279)=Q3 THEN GOTO Q260›3500 NEXT X:? :? ,"    ÅÎÄ ÏÆ ÆÉÌÅ ":? :? "      Press <RETURN> to continue";:GOSUB Q110:INPUT D$:GOTO Q250›3540 ? "}":? ,"  ÉÎÄÅØ ÔÏ ÐÒÏÇÒÁÍÓ  ":? :? :? "DISK# FILENAME EXT SIZE FILETYPE":? :RETURN ›3610 ? "}  ×ÈÁÔ ÉÓ ÄÉÓË ÎÕÍÂÅÒ       ";:INPUT D$:IF LEN(D$)=Q7 THEN GOTO Q250›3630 IF D$(LEN(D$))<>"A" AND D$(LEN(D$))<>"B" THEN D$(LEN(D$)+Q1)=" "›3640 IF LEN(D$)<>Q2 THEN 3660›3650 D$(Q3,Q4)=D$(Q1,Q2):D$(Q1,Q2)="  "›3660 IF LEN(D$)<>Q3 THEN 3680›3670 D$(Q4,Q4)=D$(Q3,Q3):D$(Q3,Q3)=D$(Q2,Q2):D$(Q2,Q2)=D$(Q1,Q1):D$(Q1,Q1)=" "›3680 DISKS=DISKS+Q1:TRAP Q780:COUNT=COUNT+Q1:LOC=COUNT*Q20-Q19:AREA$(LOC,LOC+Q3)=D$›3710 ? :? "  ×ÈÁÔ ÉÓ ÄÉÓË ÎÁÍÅ         ":? "  ¨åéçèô ãèáòáãôåòó ïò ìåóó©";:INPUT FILE$›3720 FOR X=LEN(FILE$)+Q1 TO Q17:FILE$(X)=" ":NEXT X:FILE$(Q9,Q15)="       ":AREA$(LOC+Q4,LOC+Q18)=FILE$(Q1,Q15)›3750 TRAP Q8:POKE Q764,Q255:? :? "  ÐÒÏÇÒÁÍ ÔÙÐÅ ¨ïò ¼ÒÅÔÕÒξ©";:INPUT SAV$:IF SAV$="" THEN SAV$=" "›3770 FILE$(Q16,Q16)=SAV$:AREA$(LOC+Q19)=SAV$:GOTO Q250›4000 DIM LM$(3),LF$(2),EX$(3),CD$(3):POKE 82,10›4010 ? "} ÓÅÌÅÃÔ ÙÏÕÒ ÐÒÉÎÔÅÒ ":POKE 752,1:POKE 82,11:? ›4020 ? "1>  EPSON/PANASONIC"›4025 ? "2>  STAR GEMINI"›4030 ? "3>  NEC/C.ITOH"›4035 ? "4>  OKIDATA"›4040 ? "5>  ATARI 1025"›4050 ? "6>  ***none***"›4060 TRAP 5000:INPUT D›4065 IF (D<1 OR D>6) OR D<>INT(D) THEN ? "ýœ";:GOTO 4060›4070 ON D GOTO 4080,4090,4100,4110,4120,4080›4080 LF$="0":EX$="":CD$="":LM$="l":RETURN ›4090 LF$="0":EX$="":CD$="":LM$="M":RETURN ›4100 LF$="B":EX$="N":CD$="Q":RETURN ›4110 LF$="8":EX$="":CD$="":RETURN ›4120 LF$="8":EX$="":CD$="":RETURN ›5000 TRAP 40000:GOTO 4065›<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<