Look and see if you can do any thing with this.  I admit that it is not done 
and there are bugs still in there but there it was.  GUY SATYA

0 CLS:CLEAR4000,MAXRAM
1 F=FRE(O)+4015
2 IFF<5200THENPRINT"SPACE IS LIMITED";
3 PRINT:PRINT" THERE ARE"F"BYTES FREE"
4 PRINT"YOU MUST HAVE THE [CAPS LOCK] ON"," TO CONTINUE PRESS $Y'";
5 A$=INKEY$:IFA$="Y"THEN100ELSE5
30 TI$="07:55:00":GOTO80
40 DATA"07:55:00","09:30:00","10:15:00","11:55:00","12:55:00","15:30:00","16:45:00"
50 RESTORE40
60 IFTIME$>"16:45:05"THEN30
70 READTI$:IFTIME$>TI$THEN70
80 ONTIME$=TI$GOSUB800
90 TIME$ON:RETURN
100 CLEAR2000
110 GOSUB50
120 CLS:PRINT@14,"<ORDER MENU>"
130 PRINT"<I>NCOMING","<R>ECORDING";"   SUB MENU<1>"
140 PRINT"<S>HOP","<P>HONE";"       SUB MENU<2>"
150 PRINT"<?>HELP","<E>XIT
170 PRINT"ORDER TYPE";
179 F=FRE(O)+2000:IFF<5500THENPRINT@240,"CAUTION"F"BYTES FREE"ELSEPRINT@240,F"BYTES FREE"
180 PRINT@1,TIME$:PRINT@30,TI$
185 OT$=INKEY$:IFOT$=""THEN180
190 IF OT$="I"THEN 10000
200 IF OT$="R"THEN 1000
210 IF OT$="S"THEN 20000
220 IF OT$="P"THEN 30000
250 IF OT$="?"THEN 600
260 IF OT$="E"THEN MENU
280 IF OT$="Q"THEN END
300 IF OT$="1"THEN400
310 IF OT$="2"THEN500
320 GOTO180
330 CLS:FILES
340 PRINT"WHAT FILE OR PROGRAM TO DELETE?"
350 PRINT"YOU MUST USE THE EXTENSION .DO OR .BA":INPUTK$
360 PRINT"DO YOU REALY WISH TO DELETE ","**** "K$" ****"
370 A$=INPUT$(1)
380 IFA$="Y"THEN KILLK$
390 GOTO500
400 CLEAR2000
402 GOSUB50
405 CLS:PRINT@14,"<PROGRAM MENU>":PRINT"<B>ACK ORDERS","<F>ROG":PRINT"<O>RDER MENU","SUB MENU<2>"
410 PRINT"<D>EVICE","OTHER <P>ROGRAMS","<N>OTER"
420 PRINT"PROGRAM";
454 PRINT@1,TIME$:PRINT@30,TI$
455 A$=INKEY$:IFA$=""THEN454
456 IFA$="P"THENGOSUB900
460 IFA$="B"THEN3000
465 IFA$="D"THEN 60010
470 IFA$="F"THEN4000
480 IFA$="O"THEN100
490 IFA$="2"THEN500
492 IFA$="N"THEN2000
499 GOTO455
500 CLEAR2000
502 GOSUB50
520 CLS:PRINT@14,"<EDITOR MENU>":PRINT"<F>INDER","<P>RINT";"    FINDER<2>":PRINT"<R>ECORD","<K>ILL";"     <L>IST FILES":PRINT"<O>RDER MENU","<D>EVICE  ";" SUB MENU<1>"
530 PRINT"FUNCTION";
534 PRINT@1,TIME$:PRINT@30,TI$
535 A$=INKEY$:IFA$=""THEN534
540 IFA$="1"THEN400
545 IFA$="D"THEN60010
550 IFA$="O"THEN100
560 IFA$="F"THEN50000
570 IFA$="P"THEN
580 IFA$="R"THEN
590 IFA$="K"THEN330
595 IFA$="2"THEN4200
596 IFA$<>"L"THEN599
597 CLS:FILES:PRINT"PRESS ANY KEY TO CONTINUE"
598 A$=INPUT$(1):GOTO500
599 GOTO535
800 IFTI$="07:55:00"THEN810
805 IFTI$="11:55:00"THEN820
806 IFTI$="12:55:00"THEN820
807 IFTI$="17:05:00"THEN840
808 IFTI$="15:30:00"THEN820
810 FORY=1TO1000:BEEP
812 A$=INKEY$:IFA$=""THENNEXT
814 GOSUB50
816 RETURN
820 FORY=1TO1000:BEEP:SOUND1243,20
825 A$=INKEY$:IFA$=""THENNEXT
830 GOSUB50
835 RETURN
840 CLS:PRINT:PRINT"ALL FUNCTIONS ON HOLD FOR":PRINT"DAILY RECORDING OF ORDERS"
850 FI$(1)="RECORD":FI$(2)="OPEN":FI$(3)="INCOM"
860 FORQ=1TO3STEP1
870 GOSUB62000
880 NEXT
890 GOSUB50
895 RETURN
900 CLS:LINE(0,0)-(239,63),1,BF
910 PRINT@80," FILES"
915 FILES
920 INPUT"$.BA' PROGRAM";FI$:FI$=FI$+".BA"
930 LOADFI$,R
999 GOTO100
1000 CLS:MAXFILES=10
1020 A$="IS THE ORDER IN A FILE":GOSUB1420
1030 O$=INPUT$(1):IF O$="Y"THENGOSUB1440ELSE1050
1040 GOTO100
1050 A$="CALLER": GOSUB1420
1060 INPUT AA$
1070 A$="COMPANY": GOSUB1420
1080 INPUT BA$
1090 A$="NUMER OF LINE ITEMS ": GOSUB1420
1100 INPUT C
1110 A$="PURCHAS ORDER #":GOSUB1420
1120 LINEINPUT PO$
1130 C=C+1
1140 BB$=LEFT$(BA$,6)
1150 OPEN BB$ FOR APPEND AS #1
1180 DIM BB$(C)
1190 PRINT#1,DATE$;" ";AA$;"     ";BA$
1200 PRINT#1,TIME$;" ";"PO#"PO$
1230 L=0
1240 L=L+1
1250 IF L=C THEN1320
1260 CLS
1270 PRINT@80," HOW MANY (TAB) ITEM#"
1280 PRINT@120,L;:LINEINPUT BB$(L)
1290 PRINT#1,"LINE"L;"";BB$(L)
1310 GOTO1240
1320 CLS:A$="HOW TO BE SHIPED":GOSUB1420
1330 LINEINPUT S$
1340 A$="SALES ORDER #":GOSUB1420
1350 INPUT SO
1360 PRINT#1,"SHIP VIA "S$"     SO#"SO
1380 CLOSE
1390 CLS:PRINT@133,"DONE WITH ORDER"
1400 PRINT@176,"NEW ORDER?";:A$=INPUT$(1)
1410 IF A$="Y"THEN1000ELSE100
1420 PRINT@120,STRING$(40,32);
1430 PRINT@120,A$;:RETURN
1440 PRINT:PRINT:FILES:PRINT:INPUT"WHAT FILE";F$
1450 N=0:F$=F$+".DO"
1460 OPENF$FORINPUTAS1
1470 N=N+1
1480 LINEINPUT#1,CA$
1490 IFEOF(1)THEN1510
1500 GOTO 1470
1510 CLOSE
1520 DIMRE$(N)
1530 OPENF$FORINPUTAS1
1540 FORI=1TON
1550 LINEINPUT#1,RE$(I)
1560 NEXT
1570 CLOSE
1580 FORI=1TON
1600 PRINT@120,RE$(I)
1610 INPUT"IS THIS CORRECT";C$
1620 IFC$="N"THEN1630ELSE1660
1630 PRINT"PRINT CORRECT LINE":INPUTC$
1640 RE$(I)=C$
1650 GOTO1600
1660 NEXT
1670 CLOSE
1680 PRINT:PRINT:PRINTF$" IS READY TO SAVE"
1700 OPEN "RECORD.DO"FORAPPEND AS 5
1720 FORI=1TON
1730 PRINT#5,RE$(I)
1750 NEXT
1760 INPUT"KILL OLD FILE";A$
1770 IFA$="Y"THEN KILLF$
1780 CLOSE:PRINT:PRINT " DONE. RECORD MADE","PRESS ANY KEY TO CONTINUE";
1790 A$=INPUT$(1)
1800 RETURN
1900 GOSUB1440
1910 GOTO100
2000 'NOTE CREATER
2010 OPEN"NOTE"FORAPPENDAS1
2020 CLS:PRINT@15,"NOTE MENU"
2030 PRINT"(1) CAR","(2) CB","(3) PHONE","(4) CUSTOMER","(5) SHOP","(6) MONEY","(7) SNAP-ON"
2040 PRINT"(0) RETURN TO MENU"'PRINT"     $"
2050 Q$=INKEY$:IFQ$=""THEN2050
2060 IFQ$="1"THENW$=CHR$(132):GOTO2120
2065 IFQ$="2"THENW$=CHR$(130):GOTO2120
2070 IFQ$="3"THENW$=CHR$(128):GOTO2120
2075 IFQ$="4"THENW$=CHR$(131):GOTO2120
2080 IFQ$="5"THENW$=CHR$(134):GOTO2120
2085 IFQ$="6"THENW$=CHR$(36):GOTO2120
2090 IFQ$="7"THENW$=CHR$(169):GOTO2120
2095 IFQ$="8"THENW$=CHR$(176):GOTO2120
2099 IFQ$="0"THENGOTO100
2100 GOTO2050
2120 CLS:PRINT@13,"NOTES"
2130 PRINT@40,"ENTER A BLANK LINE TO END AND RETURN":PRINT"TO MENU"
2135 PRINT#1,W$
2137 DIMW$(100)
2140 FORQ=1TO100
2150 LINEINPUTW$(Q)
2155 IFW$(Q)=""THEN2200
2160 PRINT#1,W$(Q)
2170 NEXT
2200 PRINT#1,"***DATED "DATE$"***"
2220 PRINT#1,CHR$(147):CLOSE
2230 GOTO400
3000 'BACK ORDER CREATOR
3010 CLS:ST$=CHR$(147)
3020 FILES:INPUT"FILE NAME FOR BACKORDER";F$
3030 F$=F$+".DO"
3040 OPENF$FORINPUTAS1
3050 C=0
3060 C=C+1
3070 LINEINPUT#1,QT$
3080 IFEOF(1)THEN3100
3090 GOTO3060
3100 CLOSE#1
3101 IFC=>250THENC=250
3102 GOTO3109
3103 ELSE3105
3104 A=C/2:B=C/A
3106 DIMQT$(A,B)
3107 GOTO3110
3109 DIMQT$(C)
3110 PRINT"FILE SIZE IS"C"LINES"
3120 OPENF$FORINPUTAS2
3130 FORI=1TOC
3140 LINEINPUT#2,QT$(I)
3150 IFQT$(I)=ST$THENGOSUB3700
3160 GOSUB3710
3190 NEXTI
3195 GOTO3230
3200 D=0
3210 GOSUB3500
3220 RETURN
3230 PRINT:PRINT:PRINT"DONE"
3240 INPUT"ANOTHER";W$
3250 IFW$="Y"THEN3020
3260 GOTO400
3500 OPEN"BOLIST"FORAPPENDAS3
3510 W=W+1
3520 IFW>=2GOTO3550
3530 PRINT#3,ST$
3540 PRINT#3,BA$:PRINT#3,BB$
3550 PRINT#3,QT$(I)
3560 CLOSE#3
3570 RETURN
3700 PRINT"FILE STARTS AT"I
3710 E=E+1:A%=INSTR(1,QT$(I),"-BO-")
3720 IFA%<>0THEN3200
3730 IFQT$(I)=ST$THEN3770
3740 IFE=1THENBA$=QT$(I)
3750 IFE=2THENBB$=QT$(I)
3760 RETURN
3770 E=0:W=0
3790 RETURN
4000 CLS:PRINT"THIS PROGRAM IS FOR WADEING THROUGH THE SYSTEMS KEY CODES":A$=INPUT$(1)
4020 PRINT:PRINT:INPUT"EQUILIZER ON";W$
4030 INPUT"START";C
4040 INPUT"END";D
4050 OPEN"FROG.DO"FORAPPENDAS1
4060 IFW$="N"THEN4140
4070 FORA=CTOD
4080 Q=PEEK(A)
4090 IFQ=>193ANDQ=<218THENQ=Q-128:PRINT" ":PRINT#1," "
4100 LETW$=CHR$(Q)
4110 PRINTW$;:PRINT#1,W$;
4120 NEXT
4130 A$=INPUT$(1):GOTO400
4140 FORA=CTOD
4150 Q=PEEK(A)
4160 LETW$=CHR$(Q)
4170 PRINTW$;:PRINT#1,W$;
4180 NEXT
4190 A$=INPUT$(1):GOTO400
4200 ONERRGOTO4550
4202 CLS:PRINT@15,"FINDER 2":PRINT"<S>EARCH","<M>AIN MENU"
4203 A$=INPUT$(1)
4204 IFA$="S"THEN4208
4205 IFA$="M"THEN100
4206 GOTO4203
4208 MAXFILES=3
4210 ST$=CHR$(147)
4220 PRINT@39,:FILES
4230 INPUT"FILE";F$
4240 F$=F$+".DO":OPENF$FORINPUTAS1
4250 OPEN"LCD:"FOROUTPUTAS2
4260 LINEINPUT#1,Z$
4262 IFZ$=ST$THENL=L+1
4266 IFEOF(1)THEN4270
4268 GOTO4260
4270 CLS:L=L-1
4271 CLOSE1:PRINT"THERE ARE "L" FILES TO SCAN","AT WHAT FILE# TO START SCAN";:INPUTA$
4272 A=VAL(A$)
4273 IFA$="0"THEN4202
4274 IFA$<>""THEN4900
4275 OPENF$FORINPUTAS1
4280 PRINT@40,TAB(200):GOSUB4570
4290 PRINT#2,DATE$;" ";TIME$
4300 PRINT"STARTING REQUEST"
4310 GOSUB4420
4320 FORI=1TON
4330 INPUT#1,Q$
4340 PRINT#2,Q$;I
4350 GOSUB4490
4360 PRINT"      COMPLETE"
4370 NEXT
4380 PRINT"DONE"
4400 CLOSE1
4410 GOSUB4690:GOTO4290
4420 INPUT" FILE NUMBER ";TN
4425 IFTN=0THEN4200
4430 FORI=1TO TN
4440 LINEINPUT#1,Z$
4450 IF Z$<>ST$ THEN 4440
4460 NEXT
4470 RETURN
4480 RUN"MAIN.BA"
4490 Z$=INPUT$(1,1)
4500 IFZ$=ST$THEN4530
4510 PRINT#2,Z$;
4520 GOTO4490
4530 A$=INPUT$(1)
4540 RETURN
4550 IFERR=54THENPRINT"END OF FILE":CLOSE1:RESUME
4560 RESUME
4570 'LISTING SUBRUTENE
4580 LINEINPUT#1,Z$
4590 IF Z$<>ST$ THEN 4580
4600 IFEOF(1)THEN4690
4610 LINEINPUT#1,BA$
4620 LINEINPUT#1,BB$
4630 K=K+1:C=0
4640 CLS:PRINT"*FILE"K"*";
4650 PRINTBA$
4660 PRINTBB$
4670 A$=INPUT$(1)
4675 IFA$=CHR$(27)THEN4200
4680 IFA$=CHR$(32)THEN4720ELSE4580
4690 CLOSE1
4700 OPENF$FORINPUTAS1
4710 RETURN
4720 C=C+1
4730 LINEINPUT#1,Z$
4740 IFEOF(1)THEN4690
4750 IF Z$=ST$THEN4800
4760 PRINTZ$:I=CSRLIN:IFI=7THEN4780
4770 GOTO4720
4780 PRINT"PRESS ANY KEY TO CONTINUE";:A$=INPUT$(1)
4790 CLS:GOTO4720
4800 PRINT"PRESS ANY KEY TO CONTINUE";:A$=INPUT$(1)
4810 GOTO4600
4900 OPENF$FORINPUTAS1
4910 FORI=1TOA
4915 IFI=ATHEN4940
4920 LINEINPUT#1,Z$
4930 IFZ$=ST$THENNEXTELSE4920
4940 K=A-1:GOSUB4580
4950 GOTO4271
10000 PRINT@0,TAB(255)
10010 PRINT@12,"RECIEVING ORDERS":PRINTTAB(255)
10100 OPEN"INCOM.DO"FOR APPEND AS 1
10110 A$="FROM ":GOSUB1420
10120 INPUT RE$
11315 A$="NUMER OF LINE ITEMS ": GOSUB1420
11320 INPUT C
11321 DIMBB$(C)
11322 A$="PURCHAS ORDER #":GOSUB1420
11325 LINEINPUT PO$
11330 PRINT#1,DATE$,RE$
11340 PRINT#1,,"PO# ";PO$
11350 L=0
11360 C=C+1
11370 L=L+1
11380 IF L=CTHEN15000
11390 PRINT@40,TAB(200)
11400 PRINT@80," HOW MANY (TAB) ITEM#"
11405 PRINT@120,L;:LINEINPUT BB$(L)
11410 PRINT#1,"LINE"L;"";BB$(L)
11420 GOTO11370
15000 PRINT@40,TAB(200):A$="SALES ORDER #":GOSUB1420
15005 INPUT SO$
15007 A$="SHIPED VIA":GOSUB1420
15010 INPUTSH$
15012 A$="RECIEVED BY ":GOSUB1420
15015 INPUT RE$
15020 PRINT#1,"RECIEVED BY "RE$"     SO#"SO$
15022 PRINT#1,"SHIPED VIA "SH$
15030 CLOSE
15100 PRINT@0,TAB(255):PRINT@133,"DONE WITH ORDER"
15200 PRINT@176,"NEW ORDER?";:A$=INPUT$(1)
15300 IF A$="Y"THEN10010
15400 GOTO100
20000 'PARTS AND SERVICE ORDERS
20010 CLS
20020 A$="PRESS ANY KEY TO START ORDER":GOSUB1420
20030 A$=INPUT$(1)
21110 CLS:MAXFILES=3
21200 A$="WHO DID WORK": GOSUB1420
21300 INPUT AA$
21305 A$="BILL TO COMPANY": GOSUB1420
21310 INPUT BA$
21330 C=100
21340 OPEN "SHOP.DO" FOR APPEND AS #1
21350 DIM BB$(C)
21355 PRINT#1,DATE$;" ";AA$;"     ";BA$
21356 PRINT#1,TIME$
21360 FORL=1TO100
21370 IF L=C THEN25000
21380 CLS
21390 PRINT@80," HOW MANY (TAB) ITEM#"
21400 PRINT@120,L;:LINEINPUT BB$(L)
21405 IFBB$(L)=""THEN25000
21410 PRINT#1,BB$(L)
21420 NEXT
25000 CLS:A$="WHERE WAS WORK DONE":GOSUB1420
25012 INPUT DO$
25020 PRINT#1,"DONE AT "DO$
25025 PRINT#1,CHR$(147)
25030 CLOSE
25100 CLS:PRINT@133,"DONE WITH ORDER"
25200 PRINT@176,"NEW ORDER?";:A$=INPUT$(1)
25300 IF A$="Y"THEN20000
25400 GOTO100
26000 GOSUB6000
26100 GOTO100
30000 'PHONE ORDER
31000 CLS
31200 A$="CALLER": GOSUB34000
31300 INPUT AA$
31305 A$="COMPANY": GOSUB34000
31310 INPUT BA$
31335 BB$="OPEN"
31340 OPEN BB$ FOR APPEND AS #1
31350 DIM BB$(100)
31355 PRINT#1,DATE$;" ";AA$:PRINT#1,TIME$;" ";BA$
31390 CLS:L=L+10 CLS:A$="PURCHAS ORDER #":GOSUB34000
31400 PRINT@80," HOW MANY [TAB] ITEM#,COMENTS"," BLANK LINE TO END."
31405 PRINT@160,L;:LINEINPUT BB$(L)
31410 IFBB$(L)=""THEN35000
31415 SP$=BB$(L)
31430 PRINT#1,SP$
31440 GOTO31390
34000 PRINT@120,STRING$(40,32);
34100 PRINT@120,A$;:RETURN
35000 CLS:A$="PURCHAS ORDER #":GOSUB34000
35010 LINEINPUT PO$
35020 CLS:A$="HOW TO BE SHIPED ":GOSUB34000
35030 LINEINPUT S$
35040 A$="SO#":GOSUB34000:INPUTSO$
35050 PRINT#1,"SHIP VIA "S$"  SO#"SO$
35060 PRINT#1,"PO#"PO$
35070 PRINT#1,"
35080 CLOSE
35200 PRINT@176,"NEW ORDER?";:A$=INPUT$(1)
35300 IF A$="Y"THEN30000
35400 GOTO100
40000 PRINT,,"NOT FINISHED",,"SORRY"
40001 A$=INPUT$(1)
40002 GOTO100
50000 'FINDER PROGRAM #2
50100 CLS:CLEAR4000
50110 CLS
50200 FILES
50250 PRINT" ENTER $Q' TO QUIT":PRINT
50300 INPUT"FILE";F$
50350 IF F$="Q"GOTO100
50360 IF F$="?"GOTO58000
50400 OPEN F$FOR INPUT AS 1
50600 INPUT"LOOK FOR";SE$
50700 Q=Q+1
50800 LINEINPUT#1,SC$
50810 IF EOF(1)THEN 53000
50820 SR=INSTR(1,SC$,SE$)
50830 IF SR=0 GOTO50700
50840 CLS:PRINT@160,SC$
50850 A$=INPUT$(1)
50900 GOTO50700
53000 CLOSE
53010 PRINT"NO MORE FOUND,"
53020 PRINT"<S>AME FILE","<D>IFFERENT FILE","<K>ILL FILE","<M>AIN MENU","<E>XIT"," CHOICE ";
53110 A$=INPUT$(1)
53120 IF A$="D" THEN 50100
53130 IF A$="S" THEN 54000
53140 IF A$="M" THEN 100
53150 IF A$="E" THEN MENU
53160 IF A$="K" THEN53300
53170 PRINT,,"NOT GOOD COMAND":GOTO53020
53300 F$=F$+".DO":INPUT"ARE YOU SURE";S$
53310 IFS$="Y"ORS$="YES"THEN53400
53320 GOTO53020
53400 KILLF$:PRINT"  "F$" IS GONE"
53410 A$=INPUT$(1)
53420 GOTO53020
54000 SC$="0":GOTO50400
56000 IF ERR=55 THEN PRINT "ONLY '.DO' FILES CAN BE ACCESED",,,: RESUME50200
56100 IF ERR=52 THEN PRINT F$" NOT FOUND",,:RESUME50200
56200 MAXFILES=2'*** SAVER ***
56300 RESUME 50100
58000 PRINTTAB(6);"ANY 'TEXT' FILE CAN BE SCANED","TO FIND WHAT YOU NEED. IF YOU WANT","TO SEE THE ENTIRE FILE LEAVE THE","'LOOK FOR' BLANK AND PRESS RETURN."
58005 A$=INPUT$(1)
58010 GOTO 50000
60010 MAXFILES=2'*** SAVER ***
60100 CLS
60110 FILES:INPUT"FILE TO SAVE ";FI$:FI$=FI$+".DO"
60120 CLS:PRINT:PRINT:PRINT"<C>ASSETTE","<P>RINTER","<O>THER COMPUTER","<E>XIT PROGRAM"
60130 A$=INPUT$(1)
60140 IFA$="C"THEN FS$="CAS:"+FI$:GOTO60190
60150 IFA$="P"THEN FS$="PTR:"+FI$:GOTO60190
60160 IFA$="O"THEN60400
60170 IFA$="E"THENMENU
60180 GOTO60130
60190 OPENFI$FORINPUTAS1
60200 N=0
60210 N=N+1
60220 LINEINPUT#1,CA$
60230 IFEOF(1)THEN60250
60240 GOTO 60210
60250 CLOSE
60260 DIMCA$(N)
60270 OPENFI$FORINPUTAS1
60280 FORI=1TON
60290 LINEINPUT#1,CA$(I)
60300 NEXT
60310 CLOSE
60320 OPENFS$FOROUTPUT AS 2
60330 FORI=1TON
60340 PRINT#2,CA$(I)
60350 NEXT
60360 CLOSE
60370 MOTORON
60375 FORI=1TO2000:NEXT
60376 MOTOROFF
60380 PRINT:PRINT:PRINT"DONE":A$=INPUT$(1)
60390 GOTO100
60400 CLS
60410 INPUT"SYS.CON. ";SYS$
60420 IFLEFT$(SYS$,1)="M"THEN CON$="MDM:"+RIGHT$(SYS$,2):GOTO60600
60430 IFSYS$="M7I1E"THEN CON$="MDM:7I1E":GOTO60600
60440 IFLEFT$(SYS$,1)="M"THENPRINT"NOT GOOD TRY AGAIN":GOTO60110
60450 CON$="COM:"+SYS$
60590 CON$=CON$+RIGHT$(SYS$,2)
60600 PRINTCON$
60610 END
62000 OPENFI$(Q)FORINPUTAS1
62005 N=0
62010 N=N+1
62020 LINEINPUT#1,A$
62030 IFEOF(1)THEN62050
62040 GOTO 62010
62050 CLOSE
62060 DIMAA$(N)'
62070 OPENFI$(Q)FORINPUTAS1
62080 FORI=1TON
62090 LINEINPUT#1,AA$(I)
62100 NEXT
62110 CLOSE
62120 OPENFS$FOROUTPUT AS 2
62130 FORI=1TON
62140 PRINT#2,A$(N)
62150 NEXT
62160 CLOSE
62170 MOTORON
62180 FORI=1TO2000:NEXT
62190 MOTOROFF:RETURN