10 REM VID SYSTEM 3 - IBM PC VERSION - COPYRIGHT 1988-1990 BROOKS DEFOREST
20 WIDTH LPRINT 80
30 KEY 1, CHR$(255): KEY 2, CHR$(177): KEY 3, CHR$(178): KEY 4, CHR$(219)
40 KEY 5, CHR$(218): KEY 6, CHR$(191): KEY 7, CHR$(192): KEY 8, CHR$(217): KEY 9, CHR$(179): KEY 10, CHR$(196)
41 BD$ = "1200": CP$ = "1": PR$ = "EVN": DB$ = "7": SB$ = "1"
50 SCREEN 2: SCREEN 0, 0, 0, 0: COLOR 15, 0, 1: PALETTE 1, 8: PALETTE 0, 1: VIEW PRINT 1 TO 25: CLS : PCOPY 0, 1: PALETTE 8, 0
60 L$ = CHR$(0) + "K": R$ = CHR$(0) + "M": U$ = CHR$(0) + "H": D$ = CHR$(0) + "P": AV = 32
70 DIM N$(2000): HF$ = "???": DIM T$(1000): DIM NN$(2000): EX$ = "*": FR$ = "*"
80 COLOR 11, 5: LOCATE 1, 1: LOCATE 1, 1: PRINT STRING$(160, "±"): COLOR 12, 0: LOCATE 1, 1: PRINT "VID": LOCATE 1, 5: PRINT "SYSTEM": LOCATE 1, 12: PRINT "3"
90 COLOR 0, 3: FOR O = 1 TO 8: GOSUB 190: NEXT
100 COLOR 14, 0: LOCATE 8, 1
110 PRINT "             Û±° Û±° ÛÛÛÛÛ° ÛÛÛÛ°"
120 PRINT "             Û±° Û±°   Û°   Û°  Û°"
130 PRINT "              Û±Û±°    Û°   Û°  Û°"
140 PRINT "               Û±°   ÛÛÛÛÛ° ÛÛÛÛ°    System 3"
150 PRINT "                                     (c)1990 RufusPro"
160 PRINT "                                     Programmed by B.deForest (p)1988"
170 ON ERROR GOTO 880
180 O1 = 1: O2 = 1: GOTO 220
190 IF O = 1 THEN LOCATE 2, 5: PRINT "File" ELSE IF O = 2 THEN LOCATE 2, 11: PRINT "Directory" ELSE IF O = 3 THEN LOCATE 2, 22: PRINT "Hacker" ELSE IF O = 4 THEN LOCATE 2, 30: PRINT "Application" ELSE IF O = 5 THEN LOCATE 2, 43: PRINT "Formats"
200 IF O = 6 THEN LOCATE 2, 52: PRINT "Printer" ELSE IF O = 8 THEN LOCATE 2, 71: PRINT "Quit" ELSE IF O = 7 THEN LOCATE 2, 61: PRINT "Transfer"
210 RETURN
220 SOUND 200, .5: O = O2: COLOR 0, 3: GOSUB 190: O = O1: COLOR 15, 0: GOSUB 190: O2 = O1: COLOR 15, 0
230 L$ = CHR$(0) + "K"
240 E = 0: A$ = INKEY$: IF A$ = "" THEN 240
250 IF A$ = L$ AND O1 > 1 THEN O1 = O1 - 1: GOTO 220 ELSE IF A$ = R$ AND O1 < 8 THEN O1 = O1 + 1: GOTO 220
260 IF A$ = CHR$(13) THEN SOUND 1500, .4: SOUND 500, .4: SOUND 1400, .4: GOTO 280
270 GOTO 240
280 COLOR 8, 7: GOSUB 190: COLOR 15, 0
290 IF O1 = 1 THEN 380
300 IF O1 = 2 THEN 1210
310 IF O1 = 3 THEN 1800
320 IF O1 = 4 THEN 2580
330 IF O1 = 5 THEN 4380
340 IF O1 = 6 THEN 5070
350 IF O1 = 7 THEN 5470
360 IF O1 = 8 THEN 5940
370 GOTO 240
380 PCOPY 0, 1: SCREEN 0, 0, 1, 1: COLOR 10, 1
390 LOCATE 3, 4: PRINT "³Load..   ³"
400 LOCATE 4, 4: PRINT "³Verify   ³": LOCATE 5, 4: PRINT "³Erase..  ³"
410 LOCATE 6, 4: PRINT "³Dir      ³"
420 LOCATE 7, 4: PRINT "³Clean    ³": LOCATE 8, 4: PRINT "³Backup   ³"
430 LOCATE 9, 4: PRINT "³Return   ³"
440 LOCATE 10, 4: PRINT "ÀÄÄÄÄÄÄÄÄÄÙ"
450 OP = 1: OO = 1: GOTO 490
460 IF O = 1 THEN LOCATE 3, 5: PRINT "Load..   " ELSE IF O = 2 THEN LOCATE 4, 5: PRINT "Verify   " ELSE IF O = 4 THEN LOCATE 6, 5: PRINT "Dir      " ELSE IF O = 5 THEN LOCATE 7, 5: PRINT "Clean    " ELSE IF O = 7 THEN LOCATE 9, 5: PRINT "Return   "
470 IF O = 6 THEN LOCATE 8, 5: PRINT "Backup   " ELSE IF O = 3 THEN LOCATE 5, 5: PRINT "Erase..  "
480 RETURN
490 O = OO: COLOR 10, 1: GOSUB 460: O = OP: COLOR 14, 5: GOSUB 460: OO = OP: COLOR 15, 0
500 A$ = INKEY$: IF A$ = "" THEN 500 ELSE SOUND 999, .3
510 IF A$ = U$ AND OP > 1 THEN OP = OP - 1: GOTO 490 ELSE IF A$ = D$ AND OP < 7 THEN OP = OP + 1: GOTO 490
520 IF A$ = CHR$(13) THEN SOUND 200, .5: GOTO 550
530 IF A$ = CHR$(27) THEN OP = 7: GOTO 550
540 GOTO 500
550 IF OP = 7 THEN SCREEN 0, 0, 0, 0: GOTO 220 ELSE IF OP = 5 THEN SCREEN 0, 0, 0, 0: VIEW PRINT 3 TO 25: CLS : VIEW PRINT 1 TO 25: GOTO 220
560 IF OP = 2 THEN 600 ELSE IF OP = 3 THEN 840
570 IF OP = 4 THEN 710
580 IF OP = 1 THEN 730 ELSE IF OP = 6 THEN 760
590 GOTO 500
600 PCOPY 0, 1: VIEW PRINT 24 TO 25: COLOR 15, 1: CLS : PRINT "Enter filename to Verify : "; : COLOR 10: LINE INPUT F$: E = 1: VIEW PRINT 1 TO 25: PCOPY 0, 1: ON ERROR GOTO 700
610 OPEN "I", #1, F$: CLOSE : T$ = "Checked ok."
620 COLOR 8, 7: SOUND 999, .5
630 LOCATE 10, 25: PRINT "°°±±±±±²²ÛFILE REPORTÛ²²±±±±°°": COLOR 1
640 LOCATE 11, 25: PRINT "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
650 FOR A = 12 TO 13: LOCATE A, 25: PRINT "³"; STRING$(28, 32); "³": NEXT
660 LOCATE 14, 25: PRINT "À"; STRING$(28, "Ä"); "Ù": COLOR 4
670 LOCATE 12, 28: T$ = LEFT$(F$, 12) + ":" + T$: FOR A = 1 TO LEN(T$): A$ = RIGHT$(LEFT$(T$, A), 1): T = ASC(A$): PRINT A$; : SOUND T * 9, .3: NEXT
680 COLOR 1: LOCATE 13, 49: PRINT "[ESC]"
690 WHILE INKEY$ <> CHR$(27): WEND: SCREEN 0, 0, 0, 0: SOUND 200, 1: COLOR 15, 0: ON ERROR GOTO 880: GOTO 220
700 T$ = "Not good.": RESUME 620
710 SCREEN 0, 0, 0, 0: VIEW PRINT 3 TO 25: COLOR 3, 0: LOCATE 25, 1: PRINT : PRINT "Files on disc:"; STRING$(6, "°"); STRING$(10, "±"); STRING$(50, 219): COLOR 8, 3: LOCATE CSRLIN - 1, 38: PRINT "Search:"; LEFT$(FR$, 8): LOCATE CSRLIN - 1, 60: PRINT _
 "Ext:"; LEFT$(EX$, 3): E = 2: COLOR 11, 0
720 FILES FR$ + "." + EX$: VIEW PRINT 1 TO 25: COLOR 15, 0: GOTO 220
730 PCOPY 0, 1: VIEW PRINT 24 TO 25: COLOR 15, 1: CLS : PRINT "Enter file to Load : "; : COLOR 10: LINE INPUT F$: E = 3: VIEW PRINT 1 TO 25: PCOPY 0, 1
740 IF F$ = "" THEN F$ = "!@'*&^$œ"
750 RUN F$: GOTO 880
760 PCOPY 0, 1: COLOR 1, 7: LOCATE 11, 28: PRINT "Ú"; STRING$(24, "Ä"); "¿": FOR A = 12 TO 14: LOCATE A, 28: PRINT "³"; STRING$(24, 32); "³": NEXT: LOCATE 15, 28: PRINT "À"; STRING$(24, "Ä"); "Ù"
770 COLOR 8: LOCATE 11, 34: PRINT "BACKUP REQUEST"
780 LOCATE 12, 30: PRINT "Press space when ready"
790 COLOR 0: LOCATE 14, 34: PRINT "[ESC] to abort"
800 A$ = INKEY$: IF A$ = CHR$(27) THEN SCREEN 0, 0, 0, 0: GOTO 220 ELSE IF A$ = " " THEN 810 ELSE 800
810 FOR A = 12 TO 14: LOCATE A, 28: PRINT STRING$(26, 32): NEXT
820 COLOR 4: LOCATE 13, 31: PRINT "Producing backup.."
830 SCREEN 0, 0, 0, 0: GOTO 220
840 PCOPY 0, 1: VIEW PRINT 24 TO 25: COLOR 15, 1: CLS : PRINT "Enter file to be Erased : "; : COLOR 12: LINE INPUT F$: VIEW PRINT 1 TO 25: IF F$ = "" THEN PCOPY 0, 1: SCREEN 0, 0, 0, 0: GOTO 220
850 VIEW PRINT 24 TO 25: CLS : COLOR 15: PRINT "Erasing "; : COLOR 12: PRINT "~"; F$; "~ "
860 KILL F$: VIEW PRINT 1 TO 25: PCOPY 0, 1: SCREEN 0, 0, 0, 0: SOUND 999, 1: GOTO 220
870 END
880 VIEW PRINT 1 TO 25: SCREEN 0, 0, 0, 0: PCOPY 0, 1: SOUND 200, 1: SCREEN 0, 0, 1, 1: COLOR 13, 4: LOCATE 10, 20: PRINT "Ú"; STRING$(38, "Ä"); "¿": FOR A = 11 TO 12: LOCATE A, 20: PRINT "³"; STRING$(38, 32); "³": NEXT: LOCATE 13, 20: PRINT "À";  _
STRING$(38, "Ä"); "Ù"
890 COLOR 15, 5: LOCATE 10, 28: PRINT "! SYSTEM ERROR REPORT !"
900 ER = ERR: E$ = "": IF E = 4 THEN ER = 0: E$ = "You are already in the root" ELSE IF E = 99 THEN ER = 0: E$ = "Not enough space on disc"
910 IF ER = 71 THEN E$ = "No disc in drive"
920 IF ER = 57 THEN E$ = "Bad formatted disc in drive"
930 IF ER = 2 THEN E$ = "VID SYSTEM ERROR"
940 IF ER = 53 THEN E$ = "File does not exist in path"
950 IF ER = 70 THEN E$ = "Disc is write protected"
960 IF ER = 54 THEN E$ = "File is incompatible with option"
970 IF ER = 58 THEN E$ = "File already exists"
980 IF ER = 61 THEN E$ = "The disc is full"
990 IF ER = 64 THEN E$ = "Invalid filename"
1000 IF ER = 67 THEN E$ = "There are too many files on disc"
1010 IF ER = 76 THEN E$ = "No such directory exists"
1020 IF ER = 75 OR ER = 74 THEN E$ = "Disc of bad sector structure"
1030 IF ER = 77 THEN E$ = "SYSTEM BOMBED"
1040 IF ER = 68 THEN E$ = "No such device avalible"
1050 IF ER = 69 THEN E$ = "Communications have overflowed buffer"
1060 IF ER = 74 THEN E$ = "Weird disc in drive"
1070 IF ER = 23 THEN E$ = "Line buffer overflow"
1080 IF ER = 62 THEN E$ = "Bad file"
1090 IF ER = 24 THEN E$ = "RS232 device not online"
1100 IF ER = 25 THEN E$ = "Printer not online"
1110 IF ER = 51 THEN E$ = "Internal system error"
1120 IF ER = 57 THEN E$ = "I/O error on device"
1130 IF ER = 66 THEN E$ = "File is datafile type"
1140 IF ER = 68 THEN E$ = "Device not avalible"
1150 IF E$ = "" THEN E$ = "System being Bombeb"
1160 LX = 40 - (LEN(E$) / 2)
1170 IF ER = 69 THEN E$ = "Overflow in COM buffer"
1180 IF ER = 27 THEN E$ = "No paper in printer"
1190 COLOR 14, 4: LOCATE 12, LX: FOR A = 1 TO LEN(E$): A$ = RIGHT$(LEFT$(E$, A), 1): PRINT A$; : SOUND ASC(A$) * 9, .3: NEXT: COLOR 7: LOCATE 13, 50: PRINT "[ESC]": IF MT = 0 THEN BK = 1 ELSE BK = 0
1200 WHILE INKEY$ <> CHR$(27): WEND: SCREEN 0, 0, 0, 0: COLOR 15, 0, BK: VIEW PRINT 1 TO 25: RESUME 220
1210 PCOPY 0, 1: SCREEN 0, 0, 1, 1: COLOR 10, 1
1220 LOCATE 3, 10: PRINT "³Root        ³"
1230 LOCATE 4, 10: PRINT "³New DIR     ³"
1240 LOCATE 5, 10: PRINT "³Create DIR  ³"
1250 LOCATE 6, 10: PRINT "³Erase DIR   ³"
1260 LOCATE 7, 10: PRINT "³Previous    ³"
1270 LOCATE 8, 10: PRINT "³ÄÄÄÄÄÄÄÄÄÄÄij"
1280 LOCATE 9, 10: PRINT "³EXTension   ³"
1290 LOCATE 10, 10: PRINT "³Filename    ³": LOCATE 11, 10: PRINT "³Reset       ³"
1300 LOCATE 12, 10: PRINT "³Return      ³"
1310 LOCATE 13, 10: PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÙ"
1320 OP = 1: OO = 1: GOTO 1360
1330 IF O = 1 THEN LOCATE 3, 11: PRINT "Root        " ELSE IF O = 2 THEN LOCATE 4, 11: PRINT "New DIR     " ELSE IF O = 3 THEN LOCATE 5, 11: PRINT "Create DIR  " ELSE IF O = 4 THEN LOCATE 6, 11: PRINT "Erase DIR   " ELSE IF O = 5 THEN LOCATE 7, 11:  _
PRINT "Previous    "
1340 IF O = 6 THEN LOCATE 9, 11: PRINT "EXTension   " ELSE IF O = 7 THEN LOCATE 10, 11: PRINT "Filename    " ELSE IF O = 9 THEN LOCATE 12, 11: PRINT "Return      " ELSE IF O = 8 THEN LOCATE 11, 11: PRINT "Reset       "
1350 RETURN
1360 O = OO: COLOR 10, 1: GOSUB 1330: O = OP: COLOR 14, 5: GOSUB 1330: OO = OP: COLOR 15, 0
1370 A$ = INKEY$: IF A$ = "" THEN 1370 ELSE SOUND 999, .3
1380 IF A$ = U$ AND OP > 1 THEN OP = OP - 1: GOTO 1360 ELSE IF A$ = D$ AND OP < 9 THEN OP = OP + 1: GOTO 1360
1390 IF A$ = CHR$(13) THEN SOUND 200, 1: GOTO 1420
1400 IF A$ = CHR$(27) THEN OP = 9: GOTO 1420
1410 GOTO 1370
1420 IF OP = 9 THEN SCREEN 0, 0, 0, 0: GOTO 220
1430 IF OP = 1 THEN 1470 ELSE IF OP = 2 THEN 1580 ELSE IF OP = 3 THEN 1630
1440 IF OP = 4 THEN 1670 ELSE IF OP = 5 THEN 1710 ELSE IF OP = 6 THEN 1740
1450 IF OP = 7 THEN 1760 ELSE IF OP = 8 THEN 1780
1460 GOTO 1370
1470 PCOPY 0, 1: ON ERROR GOTO 1480: CHDIR "..": GOTO 1510
1480 COLOR 8, 7: LOCATE 11, 27: PRINT "ÚÄÄÄÄÄÄÄ"; : COLOR 0: PRINT "SYSTEM REPORT"; : COLOR 8: PRINT "ÄÄÄÄÄÄÄ¿"
1490 LOCATE 12, 27: PRINT "³Disc is already at the root³"
1500 LOCATE 13, 27: PRINT "³        directory          ³": LOCATE 14, 27: PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ": LOCATE 14, 50: COLOR 4: PRINT "[ESC]": WHILE INKEY$ <> CHR$(27): WEND: COLOR 15, 0: SCREEN 0, 0, 0, 0: ON ERROR GOTO 880: RESUME 220
1510 ON ERROR GOTO 1570
1520 COLOR 8, 7: LOCATE 11, 28: PRINT "ÚÄÄÄÄÄÄ"; : COLOR 0: PRINT "SYSTEM NOTICE"; : COLOR 8: PRINT "ÄÄÄÄÄÄ¿"
1530 LOCATE 12, 28: PRINT "³                         ³"
1540 LOCATE 13, 28: PRINT "³ "; : COLOR 4: PRINT "Finding root directory:"; : COLOR 8: PRINT " ³"
1550 LOCATE 14, 28: PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
1560 CHDIR "..": GOTO 1560
1570 SOUND 400, 1: SCREEN 0, 0, 0, 0: ON ERROR GOTO 880: RESUME 220
1580 PCOPY 0, 1: VIEW PRINT 24 TO 25: COLOR 15, 1: CLS : PRINT "Enter new directory to enter : "; : COLOR 10: LINE INPUT "", DR$: IF DR$ = "" THEN VIEW PRINT 1 TO 25: PCOPY 0, 1: SCREEN 0, 0, 0, 0: GOTO 220
1590 CLS : COLOR 15: PRINT "Entering "; DR$; " directory."
1600 ON ERROR GOTO 1620
1610 CHDIR DR$: PCOPY 0, 1: VIEW PRINT 1 TO 25: ON ERROR GOTO 880: SCREEN 0, 0, 0, 0: GOTO 220
1620 VIEW PRINT 1 TO 25: GOTO 880
1630 PCOPY 0, 1: VIEW PRINT 24 TO 25: COLOR 15, 1: CLS : PRINT "Enter new directory to create : "; : COLOR 10: LINE INPUT "", ND$: IF ND$ = "" THEN VIEW PRINT 1 TO 25: PCOPY 0, 1: SCREEN 0, 0, 0, 0: GOTO 220
1640 ON ERROR GOTO 1660
1650 CLS : COLOR 15: PRINT "Creating "; ND$; " directory..": MKDIR ND$: VIEW PRINT 1 TO 25: ON ERROR GOTO 880: PCOPY 0, 1: SCREEN 0, 0, 0, 0: GOTO 220
1660 VIEW PRINT 1 TO 25: GOTO 880
1670 PCOPY 0, 1: VIEW PRINT 24 TO 25: COLOR 15, 1: CLS : PRINT "Enter directory to be erased : "; : COLOR 10: LINE INPUT "", DN$: IF DN$ = "" THEN VIEW PRINT 1 TO 25: PCOPY 0, 1: SCREEN 0, 0, 0, 0: GOTO 220
1680 ON ERROR GOTO 1700
1690 CLS : COLOR 15: PRINT "Erasing "; DN$; " directory..": RMDIR DN$: VIEW PRINT 1 TO 25: PCOPY 0, 1: ON ERROR GOTO 880: SCREEN 0, 0, 0, 0: GOTO 220
1700 VIEW PRINT 1 TO 25: GOTO 880
1710 PCOPY 0, 1: ON ERROR GOTO 1730: COLOR 8, 7: LOCATE 11, 19: PRINT "Ú"; STRING$(40, "Ä"); "¿": FOR A = 12 TO 13: LOCATE A, 19: PRINT "³"; STRING$(40, " "); "³": NEXT: LOCATE 14, 19: PRINT "À"; STRING$(40, "Ä"); "Ù": LOCATE 11, 33: COLOR 4: PRINT  _
"SYSTEM REPORT": COLOR 8
1720 LOCATE 12, 20: PRINT STRING$(40, "Ä"): LOCATE 13, 27: COLOR 0: PRINT "FINDING PREVIOUS DIRECTORY": CHDIR "..": ON ERROR GOTO 880: PCOPY 0, 1: SCREEN 0, 0, 0, 0: GOTO 220
1730 PCOPY 0, 1: E = 4: GOTO 880
1740 PCOPY 0, 1: VIEW PRINT 24 TO 25: COLOR 15, 1: CLS : PRINT "Enter extension for search : "; : COLOR 10: LINE INPUT "", EX$: EX$ = LEFT$(EX$, 3): IF EX$ = "" THEN EX$ = "*"
1750 VIEW PRINT 1 TO 25: PCOPY 0, 1: SCREEN 0, 0, 0, 0: GOTO 220
1760 PCOPY 0, 1: VIEW PRINT 24 TO 25: COLOR 15, 1: CLS : PRINT "Enter filename for search : "; : COLOR 10: LINE INPUT "", FR$: FR$ = LEFT$(FR$, 8): IF FR$ = "" THEN FR$ = "*"
1770 GOTO 1750
1780 PCOPY 0, 1: COLOR 8, 7: FOR A = 10 TO 14: LOCATE A, 30: PRINT STRING$(20, 32): NEXT: LOCATE 10, 31: PRINT "DIRECTORY NOTICE": LOCATE 11, 30: PRINT STRING$(20, "Ä"): COLOR 0: LOCATE 13, 33: PRINT "Atributes Reset"
1790 EX$ = "*": FR$ = "*": PCOPY 0, 1: SCREEN 0, 0, 0, 0: GOTO 220
1800 PCOPY 0, 1: SCREEN 0, 0, 1, 1: COLOR 10, 1
1810 LOCATE 3, 21: PRINT "³Vid file   ³"
1820 LOCATE 4, 21: PRINT "³ASCII file ³"
1830 LOCATE 5, 21: PRINT "³Database   ³"
1840 LOCATE 6, 21: PRINT "³Unkown     ³": LOCATE 7, 21: PRINT "³Filename   ³": LOCATE 8, 21: PRINT "³Ex DTop    ³": LOCATE 9, 21: PRINT "³Ex Tone    ³": LOCATE 10, 21: PRINT "³Find       ³"
1850 LOCATE 11, 21: PRINT "³Return     ³"
1860 LOCATE 12, 21: PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÙ"
1870 OO = 1: OP = 1: GOTO 1910
1880 IF O = 1 THEN LOCATE 3, 22: PRINT "Vid file   " ELSE IF O = 2 THEN LOCATE 4, 22: PRINT "ASCII file " ELSE IF O = 3 THEN LOCATE 5, 22: PRINT "Database   " ELSE IF O = 4 THEN LOCATE 6, 22: PRINT "Unkown     " ELSE IF O = 9 THEN LOCATE 11, 22:  _
PRINT "Return     "
1890 IF O = 5 THEN LOCATE 7, 22: PRINT "Filename   " ELSE IF O = 6 THEN LOCATE 8, 22: PRINT "Ex DTop    " ELSE IF O = 7 THEN LOCATE 9, 22: PRINT "Ex Tone    " ELSE IF O = 8 THEN LOCATE 10, 22: PRINT "Find       "
1900 RETURN
1910 RESET: O = OO: COLOR 10, 1: GOSUB 1880: O = OP: COLOR 14, 5: GOSUB 1880: OO = OP
1920 A$ = INKEY$: IF A$ = "" THEN 1920 ELSE SOUND 999, .3
1930 IF A$ = U$ AND OP > 1 THEN OP = OP - 1: GOTO 1910 ELSE IF A$ = D$ AND OP < 9 THEN OP = OP + 1: GOTO 1910
1940 IF A$ = CHR$(27) THEN OP = 9: GOTO 1970
1950 IF A$ = CHR$(13) THEN SOUND 200, 1: GOTO 1970
1960 GOTO 1920
1970 CLOSE : IF OP = 9 THEN VIEW PRINT 1 TO 25: SCREEN 0, 0, 0, 0: IF PZX = 0 THEN 220 ELSE PZX = 0: COLOR 11, 5: LOCATE 1, 70: PRINT "±±±±±±±±±±": PLAY "d40": GOTO 220
1980 IF OP = 5 THEN 2020 ELSE IF OP = 3 THEN 2180 ELSE IF OP = 7 THEN 6650
1990 IF OP = 1 THEN 2040 ELSE IF OP = 2 THEN 2100 ELSE IF OP = 4 THEN 2380 ELSE IF OP = 8 THEN 2530
2000 IF OP = 6 THEN PCOPY 0, 1: COLOR 15, 1: LOCATE 12, 32: PRINT "Please wait..": GOTO 4830
2010 GOTO 1920
2020 PCOPY 0, 1: VIEW PRINT 24 TO 25: COLOR 15, 1: CLS : COLOR 14: PRINT "~"; HF$; "~   "; : COLOR 15: PRINT "Enter ~Hacker~ filename : "; : COLOR 10: LINE INPUT "", F$: IF F$ = "" THEN VIEW PRINT 1 TO 25: PCOPY 0, 1: GOTO 1800
2030 HF$ = LEFT$(F$, 12): VIEW PRINT 1 TO 25: PCOPY 0, 1: GOTO 1800
2040 PCOPY 0, 1: VIEW PRINT 24 TO 25: COLOR 10, 1: CLS : PRINT "Locating "; HF$; "..": OPEN "i", #1, HF$: CLS : PRINT "Reading "; HF$; " as VID File.": INPUT #1, N2: IF N2 = 0 THEN CLS : PRINT "FILE IS NOT VID COMPATIBLE    [ESC]": RESET: WHILE  _
INKEY$ <> CHR$(27): WEND: OP = 9: GOTO 1970
2050 VIEW PRINT 3 TO 23: COLOR 15, 0: LOCATE 23, 1: PRINT : PRINT : PRINT : FOR N = 1 TO N2: INPUT #1, N$: PRINT N$: IF INKEY$ = CHR$(27) THEN CLOSE : OP = 9: VIEW PRINT 24 TO 25: COLOR , 0: CLS : PCOPY 1, 0: GOTO 1970
2060 IF PZX = 1 THEN LPRINT N$
2070 IF EOF(1) AND N < N2 THEN 2090
2080 NEXT: CLOSE : OP = 9: VIEW PRINT 24 TO 25: COLOR , 0: CLS : PCOPY 1, 0: GOTO 1970
2090 VIEW PRINT 24 TO 25: COLOR 15, 1: CLS : PRINT "File stopped short of Length pointer.       [ESC]": WHILE INKEY$ <> CHR$(27): WEND: RESET: COLOR , 8: CLS : OP = 9: PCOPY 1, 0: GOTO 1970
2100 PCOPY 0, 1: VIEW PRINT 24 TO 25: COLOR 10, 1: CLS : PRINT "Locating "; HF$; "..": OPEN "I", #1, HF$: CLS : PRINT "Reading "; HF$; " as ASCII.": ON ERROR GOTO 2170
2110 VIEW PRINT 3 TO 23: COLOR 15, 0: LOCATE 23, 1: PRINT : PRINT : PRINT : WHILE INKEY$ <> CHR$(27)
2120 LINE INPUT #1, N$: PRINT N$
2130 IF PZX = 1 THEN LPRINT N$
2140 IF EOF(1) THEN 2160
2150 WEND: CLOSE : OP = 9: VIEW PRINT 24 TO 25: COLOR , 0: CLS : PCOPY 1, 0: ON ERROR GOTO 880: VIEW PRINT 1 TO 25: GOTO 1970
2160 CLOSE : ON ERROR GOTO 880: OP = 9: VIEW PRINT 24 TO 25: COLOR , 0: CLS : PCOPY 1, 0: GOTO 1970
2170 VIEW PRINT 24 TO 25: COLOR 10, 1: CLS : PRINT "File has no EOF statment.      [ESC]": WHILE INKEY$ <> CHR$(27): WEND: ON ERROR GOTO 880: OP = 9: VIEW PRINT 24 TO 25: COLOR , 0: CLS : PCOPY 1, 0: RESUME 1970
2180 PCOPY 0, 1: VIEW PRINT 24 TO 25: COLOR 15, 1: CLS : LINE INPUT "Enter number of fields : ", FL$: FL = VAL(FL$): IF FL = 0 THEN OP = 9: COLOR , 0: CLS : GOTO 1970 ELSE IF FL > 200 THEN CLS : PRINT "Too many fields.   [ESC]": WHILE INKEY$ <> CHR$ _
(27): WEND: COLOR , 0: CLS : OP = 9: GOTO 1970
2190 CLS : PRINT "Scanning for format..": OPEN "i", #1, HF$: INPUT #1, A$: A = FL * VAL(A$)
2200 FOR B = 1 TO 99999!: INPUT #1, N$: IF EOF(1) AND B < A THEN 2220 ELSE IF EOF(1) AND B > A THEN 2220 ELSE IF EOF(1) THEN CLOSE : VD = 1: GOTO 2230
2210 NEXT: CLOSE : VD = 1: GOTO 2230
2220 CLOSE : VD = 0
2230 CLS : COLOR 7: IF VD = 1 THEN PRINT "File is of VID format ";  ELSE PRINT "File is of ASCII format ";
2240 COLOR 15: RC = FIX(B / FL): IF RC < 1 THEN PRINT " : Field information incorrect  [ESC]": WHILE INKEY$ <> CHR$(27): WEND: COLOR , 0: CLS : OP = 9: GOTO 1970
2250 PRINT "("; RC; ") Enter record : "; : COLOR 10: LINE INPUT "", G$: R = VAL(G$): IF R = 0 THEN COLOR , 0: CLS : OP = 9: GOTO 1970
2260 CLS : COLOR 15: PRINT "Finding record"; R; "."
2270 OPEN "i", #1, HF$: A = 0: IF VD = 1 THEN INPUT #1, N$
2280 WHILE INKEY$ <> CHR$(27): A = A + 1
2290 FOR B = 1 TO FL: INPUT #1, N$(B): NEXT
2300 IF A = R THEN 2340
2310 IF EOF(1) THEN 2330
2320 WEND: SOUND 999, 1: COLOR , 0: CLS : OP = 9: GOTO 1970
2330 CLS : PRINT "Record not found with current Field data.    [ESC]": WHILE INKEY$ <> CHR$(27): WEND: SOUND 999, 1: COLOR , 0: CLS : OP = 9: GOTO 1970
2340 CLS : PRINT "Displaying record: "; R; ".": IF PZX = 1 THEN LPRINT "Displaying record: "; R; "."
2350 COLOR , 0: VIEW PRINT 3 TO 23: LOCATE 23, 1: PRINT : PRINT : PRINT : COLOR 2: PRINT "***HACKER DATABASE***   RECORD "; R; " // "; HF$; ".": COLOR 10: FOR B = 1 TO FL: PRINT N$(B): NEXT: PRINT
2360 IF PZX = 1 THEN LPRINT "***HACKER DATABASE***   RECORD "; R; " // "; HF$; ".": FOR B = 1 TO FL: LPRINT N$(B): NEXT: LPRINT : PZX = 0
2370 VIEW PRINT 24 TO 25: COLOR , 0: CLS : SOUND 300, 1: PCOPY 1, 0: OP = 9: GOTO 1970
2380 PCOPY 0, 1: VIEW PRINT 24 TO 25: COLOR 15, 1: CLS : PRINT "Locating "; HF$; " as Unkown..": OPEN "i", #1, HF$
2390 CLS : PRINT "Displaying modified "; HF$; "..": VIEW PRINT 3 TO 23: LOCATE 23, 1: COLOR 12, 0: PRINT : PRINT : PRINT
2400 WHILE INKEY$ <> CHR$(27): LINE INPUT #1, A$
2410 L = 0: L = INSTR(A$, CHR$(12)): IF L > 0 THEN MID$(A$, L, 1) = CHR$(1): GOTO 2410
2420 L = 0: L = INSTR(A$, CHR$(11)): IF L > 0 THEN MID$(A$, L, 1) = CHR$(2): GOTO 2420
2430 L = 0: L = INSTR(A$, CHR$(29)): IF L > 0 THEN MID$(A$, L, 1) = CHR$(3): GOTO 2430
2440 L = 0: L = INSTR(A$, CHR$(30)): IF L > 0 THEN MID$(A$, L, 1) = CHR$(4): GOTO 2440
2450 L = 0: L = INSTR(A$, CHR$(7)): IF L > 0 THEN MID$(A$, L, 1) = CHR$(5): GOTO 2450
2460 L = 0: L = INSTR(A$, CHR$(8)): IF L > 0 THEN MID$(A$, L, 1) = CHR$(6): GOTO 2460
2470 IF RST = 0 THEN PRINT A$ ELSE IF INSTR(A$, ST$) > 0 OR INSTR(A$, NU$) > 0 OR INSTR(A$, NL$) > 0 THEN PRINT A$
2480 IF PZX = 0 THEN 2500
2490 IF RST = 0 THEN LPRINT A$ ELSE IF INSTR(A$, ST$) > 0 OR INSTR(A$, NU$) > 0 OR INSTR(A$, NL$) > 0 THEN LPRINT A$
2500 IF EOF(1) THEN 2520
2510 WEND
2520 CLOSE : PRINT : COLOR , 0: VIEW PRINT 24 TO 25: CLS : PCOPY 1, 0: SCREEN 0, 0, 0, 0: OP = 9: GOTO 1970
2530 PCOPY 0, 1: VIEW PRINT 3 TO 25: LOCATE 25, 1: PRINT : PRINT : VIEW PRINT 24 TO 25: COLOR 15, 1: CLS : PRINT "Enter string : "; : COLOR 10: LINE INPUT "", ST$: IF ST$ = "" THEN OP = 9: GOTO 1970
2540 PCOPY 0, 1: VIEW PRINT 24 TO 25: COLOR 15, 1: CLS : PRINT "Locating "; HF$; " for string search of "; ST$; ".": OPEN "i", #1, HF$: VIEW PRINT 3 TO 23
2550 NL$ = "": NU$ = "": FOR A = 1 TO LEN(ST$): A$ = RIGHT$(LEFT$(ST$, A), 1): B = ASC(A$): C = ASC(A$): IF B > 96 THEN B = B - 32 ELSE IF C < 91 AND C > 64 THEN C = C + 32
2560 NL$ = NL$ + CHR$(C): NU$ = NU$ + CHR$(B): NEXT
2570 COLOR , 0: LOCATE 23, 1: RST = 1: GOTO 2400
2580 PCOPY 0, 1: SCREEN 0, 0, 1, 1: COLOR 10, 1
2590 LOCATE 3, 29: PRINT "³Telephone   ³"
2600 LOCATE 4, 29: PRINT "³Database    ³"
2610 LOCATE 5, 29: PRINT "³Monochrome  ³"
2620 LOCATE 6, 29: PRINT "³Colour      ³"
2630 LOCATE 7, 29: PRINT "³Line editor ³"
2640 LOCATE 8, 29: PRINT "³Scroll      ³": LOCATE 9, 29: PRINT "³Clock       ³"
2650 LOCATE 10, 29: PRINT "³Return      ³"
2660 LOCATE 11, 29: PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÙ"
2670 OO = 1: OP = 1: GOTO 2710
2680 IF O = 1 THEN LOCATE 3, 30: PRINT "Telephone   " ELSE IF O = 2 THEN LOCATE 4, 30: PRINT "Database    " ELSE IF O = 3 THEN LOCATE 5, 30: PRINT "Monochrome  " ELSE IF O = 4 THEN LOCATE 6, 30: PRINT "Colour      " ELSE IF O = 5 THEN LOCATE 7, 30:  _
PRINT "Line editor "
2690 IF O = 6 THEN LOCATE 8, 30: PRINT "Scroll      " ELSE IF O = 8 THEN LOCATE 10, 30: PRINT "Return      " ELSE IF O = 7 THEN LOCATE 9, 30: PRINT "Clock       "
2700 RETURN
2710 O = OO: COLOR 10, 1: GOSUB 2680: O = OP: COLOR 14, 5: GOSUB 2680: OO = OP
2720 A$ = INKEY$: IF A$ = "" THEN 2720 ELSE SOUND 999, .3
2730 IF A$ = CHR$(27) THEN O = 8: GOTO 2770
2740 IF A$ = U$ AND OP > 1 THEN OP = OP - 1: GOTO 2710 ELSE IF A$ = D$ AND OP < 8 THEN OP = OP + 1: GOTO 2710
2750 IF A$ = CHR$(13) THEN 2770
2760 GOTO 2720
2770 IF O = 8 THEN VIEW PRINT 1 TO 25: SCREEN 0, 0, 0, 0: GOTO 220 ELSE IF O = 7 THEN 3910
2780 IF O = 6 THEN SCREEN 0, 0, 0, 0: COLOR , 0: VIEW PRINT 3 TO 25: LOCATE 25, 1: PRINT : VIEW PRINT 1 TO 25: GOTO 220 ELSE IF O = 4 THEN PCOPY 0, 1: GOTO 7040 ELSE IF O = 3 THEN 2810
2790 IF O = 1 THEN 2820 ELSE IF O = 2 THEN 3410 ELSE IF O = 5 THEN 4060
2800 GOTO 2720
2810 PALETTE 0, 0: PALETTE 1, 8: PALETTE 2, 7: PALETTE 3, 7: PALETTE 4, 7: PALETTE 5, 7: PALETTE 6, 7: PALETTE 7, 15: PALETTE 8, 0: PALETTE 9, 7: PALETTE 10, 15: PALETTE 11, 15: PALETTE 12, 7: PALETTE 13, 7: PALETTE 14, 15: PALETTE 15, 15: COLOR ,  _
, 0: SCREEN 0, 0, 0, 0: MT = 1: GOTO 220
2820 REM *ALL SYSTEMS TELEPHONE BOOK*
2830 PCOPY 0, 1: ON ERROR GOTO 2840: VIEW PRINT 24 TO 25: COLOR 15, 1: CLS : PRINT "Searching for Telephone data..": RESET: OPEN "i", #1, "TELEFILE.DAT": INPUT #1, N2: GOTO 2910
2840 RESUME 2850
2850 ON ERROR GOTO 2860: RESET: FOR A = 1 TO 9999: CHDIR "..": NEXT
2860 RESUME 2870
2870 ON ERROR GOTO 2880: RESET: OPEN "I", #1, "TELEFILE.DAT": INPUT #1, N2: GOTO 2910
2880 RESUME 2890
2890 ON ERROR GOTO 2900: RESET: CHDIR "VID": OPEN "I", #1, "TELEFILE.DAT": INPUT #1, N2: GOTO 2910
2900 CLS : PRINT "No telephone format.    [ESC]": WHILE INKEY$ <> CHR$(27): WEND: ON ERROR GOTO 880: COLOR , 0: CLS : VIEW PRINT 1 TO 25: PCOPY 0, 1: SCREEN 0, 0, 0, 0: RESUME 220
2910 ON ERROR GOTO 880: CLOSE : COLOR , 0: CLS : VIEW PRINT 1 TO 25: PCOPY 0, 1
2920 COLOR 7, 4
2930 LOCATE 6, 10: COLOR 12: PRINT "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄ"; : COLOR 15: PRINT "* ALL SYSTEMS TELEPHONE BOOK *"; : COLOR 12: PRINT "ÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
2940 COLOR 12: LOCATE 7, 10: PRINT "³"; STRING$(56, "Ä"); "³"
2950 LOCATE 8, 10: PRINT "³"; STRING$(56, 32); "³"
2960 LOCATE 9, 10: PRINT "³"; : COLOR 11: PRINT "    [1] Search Name                 [2] Search Number   "; : COLOR 12: PRINT "³"
2970 LOCATE 10, 10: PRINT "³"; STRING$(56, 32); "³"
2980 LOCATE 11, 10: PRINT "³"; : COLOR 11: PRINT "    [3] New entre                   [4] Erase entre     "; : COLOR 12: PRINT "³"
2990 LOCATE 12, 10: PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ"; : COLOR 14: PRINT "[ESC]"; : COLOR 12: PRINT "ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
3000 VIEW PRINT 24 TO 25: COLOR 15, 1: CLS : PRINT "Last:        "; : COLOR 7: PRINT "Name:"; : COLOR 10: PRINT NAM$: LOCATE 24, 50: COLOR 7: PRINT "Tel:"; : COLOR 10: PRINT TEL$
3010 RESET: A$ = INKEY$: IF A$ = "" THEN 3010 ELSE SOUND 999, .3
3020 IF A$ = CHR$(27) THEN COLOR , 0: CLS : VIEW PRINT 1 TO 25: SCREEN 0, 0, 0, 0: GOTO 220
3030 IF A$ = "1" THEN 3070 ELSE IF A$ = "2" THEN 3170
3040 IF A$ = "3" THEN 3190
3050 IF A$ = "4" THEN 3290
3060 GOTO 3000
3070 CLS : COLOR 15: PRINT "Enter name for search : "; : COLOR 10: LINE INPUT "", N$: NM = 1: TL = 0: IF N$ = "" THEN 3000
3080 CLS : COLOR 3: PRINT "Searching..": NL$ = "": NU$ = "": FOR A = 1 TO LEN(N$): A$ = RIGHT$(LEFT$(N$, A), 1): B = ASC(A$): C = ASC(A$): IF B > 96 THEN B = B - 32 ELSE IF C < 91 AND C > 64 THEN C = C + 32
3090 NL$ = NL$ + CHR$(C): NU$ = NU$ + CHR$(B): NEXT
3100 ON ERROR GOTO 3110: OPEN "i", #1, "TELEFILE.DAT": INPUT #1, N2: IF N2 = 0 THEN OPEN "jksl" FOR INPUT AS 1 ELSE 3120
3110 CLS : PRINT "No records present.": ON ERROR GOTO 880: CLOSE : SOUND 200, 1: RESUME 3010
3120 FOR N = 1 TO N2: INPUT #1, TL$, NM$
3130 IF TL = 1 THEN IF TL$ = T$ OR VAL(TL$) = VAL(T$) THEN TEL$ = TL$: NAM$ = NM$: SOUND 999, .5: ON ERROR GOTO 880: CLOSE : HTT = N: GOTO 3000
3140 IF NM = 1 THEN IF NM$ = N$ OR NM$ = NL$ OR NM$ = NU$ THEN TEL$ = TL$: NAM$ = NM$: SOUND 999, .5: ON ERROR GOTO 880: CLOSE : HTT = N: GOTO 3000
3150 NEXT: CLOSE : ON ERROR GOTO 880
3160 CLS : PRINT "Not found.": GOTO 3010
3170 CLS : COLOR 15: PRINT "Enter number for search : "; : COLOR 10: LINE INPUT "", T$: NM = 0: TL = 1: IF T$ = "" THEN 3000
3180 CLS : PRINT "Searching..": GOTO 3100
3190 CLS : COLOR 15: PRINT "New entre ( Name ) : "; : COLOR 10: LINE INPUT "", NN$: IF NN$ = "" OR LEN(NN$) > 28 THEN 3000
3200 CLS : COLOR 15: PRINT "New entre ( Telephone ) : "; : COLOR 10: LINE INPUT "", TT$: IF TT$ = "" OR LEN(TT$) > 20 THEN 3000
3210 CLS : COLOR 15: PRINT "Correct? (Y/N)": COLOR 10: LOCATE 24, 30: PRINT "Name:"; NN$: LOCATE 24, 62: PRINT "Tel:"; TT$
3220 A$ = INKEY$: IF A$ = "n" OR A$ = "N" THEN 3000 ELSE IF A$ = "Y" OR A$ = "y" THEN 3230 ELSE 3220
3230 CLS : COLOR 15: PRINT "Appending datafile.."
3240 ON ERROR GOTO 3250: OPEN "I", #1, "TELEFILE.DAT": INPUT #1, N2: GOTO 3260
3250 CLS : COLOR 11: PRINT "Bad datafile   ::  New entre aborted": CLOSE : ON ERROR GOTO 880: RESUME 3000
3260 FOR N = 1 TO N2: INPUT #1, T$(N), N$(N): NEXT: CLOSE
3270 CLS : COLOR 15: PRINT "Sorting..": OPEN "o", #1, "TELEFILE.DAT": WRITE #1, N2 + 1: FOR N = 1 TO N2: WRITE #1, T$(N), N$(N): NEXT: WRITE #1, TT$, NN$: CLOSE
3280 CLS : PRINT "New data added.": ON ERROR GOTO 880: GOTO 3000
3290 IF HTT = 0 THEN 3000 ELSE CLS : COLOR 15: PRINT "Erase last record found? (Y/N)"
3300 A$ = INKEY$: IF A$ = "n" OR A$ = "N" THEN 3000 ELSE IF A$ = "Y" OR A$ = "y" THEN 3310 ELSE 3300
3310 CLS : PRINT "Erasing record.."
3320 ON ERROR GOTO 3110: RESET: OPEN "I", #1, "TELEFILE.DAT": INPUT #1, N2: IF N2 = 0 THEN OPEN "kaldsh" FOR INPUT AS 1
3330 HT = 0: FOR N = 1 TO 9999: INPUT #1, T$(N), N$(N): IF T$(N) = TEL$ AND N$(N) = NAM$ AND HT = 0 THEN HT = N
3340 IF EOF(1) = -1 THEN 3360
3350 NEXT
3360 CLOSE : N2 = N
3370 CLOSE : CLS : ON ERROR GOTO 880: PRINT "Could not find previous record.": GOTO 3010
3380 CLOSE : CLS : PRINT "Sorting.."
3390 OPEN "O", #1, "Telefile.dat": WRITE #1, N2 - 1: FOR N = 1 TO N2: IF N <> HT THEN WRITE #1, T$(N), N$(N)
3400 NEXT: CLOSE : CLS : PRINT "Last record has been erased from the datafile.": ON ERROR GOTO 880: SOUND 2000, 1: GOTO 3010
3410 PCOPY 0, 1: SCREEN 0, 0, 1, 1: COLOR 12, 4
3420 LOCATE 10, 22: PRINT "ÚÄÄÄÄÄÄÄÄÄÄÄ"; : COLOR 15: PRINT "* DATABASE *"; : COLOR 12: PRINT "ÄÄÄÄÄÄÄÄÄÄÄ¿"
3430 LOCATE 11, 22: PRINT "³ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄij"
3440 LOCATE 12, 22: PRINT "³"; : COLOR 11: PRINT " [1] Find               [2] Add   "; : COLOR 12: PRINT "³"
3450 LOCATE 13, 22: PRINT "³                                  ³"
3460 LOCATE 14, 22: PRINT "³ "; : COLOR 11: PRINT "[3] List               [4] Erase "; : COLOR 12: PRINT "³"
3470 LOCATE 15, 22: PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄ"; : COLOR 14: PRINT "[ESC]"; : COLOR 12: PRINT "ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
3480 COLOR , 0
3490 RESET: A$ = INKEY$: IF A$ = "" THEN 3490
3500 IF A$ = CHR$(27) THEN SCREEN 0, 0, 0, 0: ON ERROR GOTO 880: GOTO 220
3510 IF A$ = "1" THEN 3560
3520 IF A$ = "2" THEN 3640
3530 IF A$ = "3" THEN 3730
3540 IF A$ = "4" THEN 3790
3550 GOTO 3490
3560 VIEW PRINT 24 TO 25: COLOR 15, 1: CLS : PRINT "Search string : "; : COLOR 10: LINE INPUT "", S$: IF S$ = "" THEN COLOR , 0: CLS : VIEW PRINT 1 TO 25: GOTO 3490
3570 CLS : PRINT "Searching..": ON ERROR GOTO 3580: RESET: OPEN "i", #1, "files": GOTO 3590
3580 CLS : PRINT "Database file not present on disc.         [ESC]": WHILE INKEY$ <> CHR$(27): WEND: COLOR , 0: CLS : VIEW PRINT 1 TO 25: RESUME 3490
3590 NL$ = "": NU$ = "": FOR A = 1 TO LEN(S$): A$ = RIGHT$(LEFT$(S$, A), 1): B = ASC(A$): C = ASC(A$): IF B > 96 THEN B = B - 32 ELSE IF C < 91 AND C > 64 THEN C = C + 32
3600 NL$ = NL$ + CHR$(C): NU$ = NU$ + CHR$(B): NEXT
3610 INPUT #1, A$, T$: IF A$ = S$ OR A$ = NL$ OR A$ = NU$ THEN VIEW PRINT 3 TO 25: SCREEN 0, 0, 0, 0: LOCATE 25, 1: COLOR 2, 0: PRINT : PRINT : PRINT "*DATABASE*   ::  "; : COLOR 14: PRINT A$: COLOR 10: PRINT T$: PRINT : ON ERROR GOTO 880: VIEW  _
PRINT 1 TO 25: GOTO 3410
3620 IF EOF(1) = -1 THEN CLS : COLOR 15: PRINT "Can not find string.       [ESC]": WHILE INKEY$ <> CHR$(27): WEND: COLOR , 0: CLS : VIEW PRINT 1 TO 25: ON ERROR GOTO 880: GOTO 3490
3630 GOTO 3610
3640 VIEW PRINT 20 TO 25: COLOR 15, 1: CLS : PRINT "Title : "; : COLOR 10: LINE INPUT "", T$: IF T$ = "" THEN VIEW PRINT 1 TO 25: PCOPY 0, 1: GOTO 3410
3650 CLS : COLOR 15: PRINT "Enter record data>": PRINT : COLOR 10: LINE INPUT "", DT$: IF DT$ = "" THEN VIEW PRINT 1 TO 25: PCOPY 0, 1: GOTO 3410
3660 PRINT : COLOR 14: PRINT "Information correct? (Y/N)"
3670 A$ = INKEY$: IF A$ = "n" OR A$ = "N" THEN VIEW PRINT 1 TO 25: GOTO 3290 ELSE IF A$ = "Y" OR A$ = "y" THEN 3680 ELSE 3670
3680 PCOPY 0, 1: VIEW PRINT 3 TO 25: LOCATE 25, 1: COLOR 2, 0: PRINT "Title:"; : COLOR 14: PRINT T$: COLOR 7: PRINT DT$: PRINT : PCOPY 1, 0
3690 VIEW PRINT 24 TO 25: COLOR 15, 1: CLS : PRINT "Appending database.."
3700 RESET: ON ERROR GOTO 3710: OPEN "a", #1, "files": GOTO 3720
3710 CLS : CLOSE : VIEW PRINT 24 TO 25: COLOR 15, 1: CLS : PRINT "Datafile for database gone.       [ESC]": WHILE INKEY$ <> CHR$(27): WEND: ON ERROR GOTO 880: COLOR , 0: CLS : VIEW PRINT 1 TO 25: RESUME 3410
3720 WRITE #1, T$, DT$: CLOSE : ON ERROR GOTO 880: COLOR , 0: CLS : VIEW PRINT 1 TO 25: GOTO 3410
3730 PCOPY 0, 1: VIEW PRINT 3 TO 25: LOCATE 25, 1: PRINT : PRINT
3740 VIEW PRINT 24 TO 25: COLOR 15, 1: CLS : PRINT "Listing all titles for the Database.": SOUND 999, 1: VIEW PRINT 3 TO 23: LOCATE 23, 1: COLOR 10, 0: PRINT : PRINT "**Indexed list of Database records**"
3750 ON ERROR GOTO 3710: OPEN "i", #1, "files": N = 0: COLOR , 0: ON ERROR GOTO 3780
3760 WHILE INKEY$ <> CHR$(27) OR EOF(0): N = N + 1: INPUT #1, A$, B$: COLOR 7: PRINT N; : COLOR 14: PRINT " ---- "; : COLOR 15: PRINT A$: WEND
3770 VIEW PRINT 24 TO 25: COLOR , 0: CLS : PCOPY 1, 0: ON ERROR GOTO 880: VIEW PRINT 1 TO 25: GOTO 3410
3780 CLOSE : RESUME 3770
3790 VIEW PRINT 24 TO 25: COLOR 15, 1: CLS : PRINT "Enter record to be erased : "; : COLOR 10: LINE INPUT "", FE$: IF FE$ = "" THEN COLOR , 0: CLS : VIEW PRINT 1 TO 25: GOTO 3490
3800 CLS : PRINT "Erasing "; FE$; ".": ON ERROR GOTO 3580: RESET: OPEN "i", #1, "files": N = 0: HT = 0: GOSUB 3890
3810 N = N + 1: INPUT #1, N$(N), T$(N): IF N$(N) = FE$ OR N$(N) = NU$ OR N$(N) = NL$ THEN HT = N: GOTO 3830
3820 IF EOF(1) THEN 3830 ELSE 3810
3830 IF HT = 0 THEN CLS : PRINT "Can not find "; FE$; ".         [ESC]": WHILE INKEY$ <> CHR$(27): WEND: COLOR , 0: CLS : VIEW PRINT 1 TO 25: ON ERROR GOTO 880: GOTO 3490
3840 CLS : PRINT "Sorting..": CLOSE
3850 OPEN "o", #1, "files": N2 = N: N = 0
3860 N = N + 1: IF N <> HT THEN WRITE #1, N$(N), T$(N)
3870 IF N = N2 THEN 3880 ELSE 3860
3880 CLOSE : COLOR , 0: CLS : VIEW PRINT 1 TO 25: ON ERROR GOTO 880: GOTO 3490
3890 NL$ = "": NU$ = "": FOR A = 1 TO LEN(N$): A$ = RIGHT$(LEFT$(S$, A), 1): B = ASC(A$): C = ASC(A$): IF B > 96 THEN B = B - 32 ELSE IF C < 91 AND C > 64 THEN C = C + 32
3900 NL$ = NL$ + CHR$(C): NU$ = NU$ + CHR$(B): NEXT: RETURN
3910 PCOPY 0, 1
3920 COLOR 11, 4: LOCATE 11, 35: PRINT "ÚÄÄÄÄÄÄÄÄ¿": LOCATE 12, 35: PRINT "³": LOCATE 12, 44: PRINT "³": LOCATE 13, 35: PRINT "ÀÄÄÄÄÄÄÄÄÙ": COLOR 10: LOCATE 14, 31: PRINT "ÛSETÛ±±±±±±±±ÛESCÛ"
3930 WHILE A$ <> CHR$(27)
3940 T$ = TIME$: H$ = LEFT$(T$, 2): M$ = MID$(T$, 4, 2): S$ = RIGHT$(T$, 2)
3950 IF S$ <> S2$ THEN SOUND 200, .2: S2$ = S$
3960 A$ = INKEY$: IF A$ = "S" OR A$ = "s" THEN 3990
3970 COLOR 15, 1: LOCATE 12, 36: PRINT H$; ":"; M$; " "; S$: WEND
3980 PLAY "C40A40C40": SCREEN 0, 0, 0, 0: GOTO 220
3990 TM$ = "": B = 0: C = 35: COLOR 10, 4: LOCATE 14, 31: PRINT "Û±ENTER NEW TIME±Û"
4000 A$ = INKEY$: IF A$ = "" THEN 4000
4010 IF ASC(A$) = 27 THEN 3910 ELSE IF ASC(A$) < 48 OR ASC(A$) > 57 THEN 4000 ELSE B = B + 1: C = C + 1: IF B > 2 THEN B = 1: C = C + 1
4020 COLOR 15, 1: LOCATE 12, C: PRINT A$: SOUND 999, .2: TM$ = TM$ + A$: IF LEN(TM$) = 6 THEN PLAY "A40C40": GOTO 4030 ELSE 4000
4030 TM$ = LEFT$(TM$, 2) + ":" + MID$(TM$, 3, 2) + ":" + RIGHT$(TM$, 2): ON ERROR GOTO 4050
4040 TIME$ = TM$: ON ERROR GOTO 880: GOTO 3920
4050 SOUND 2000, 1: ON ERROR GOTO 880: RESUME 3920
4060 PCOPY 0, 1: COLOR 12, 4: RESET
4070 LOCATE 10, 15: PRINT "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ"; : COLOR 15: PRINT "* LINE EDITOR *"; : COLOR 12: PRINT "ÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
4080 LOCATE 11, 15: PRINT "³ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄij"
4090 LOCATE 12, 15: PRINT "³                                            ³"
4100 LOCATE 13, 15: PRINT "³"; : COLOR 14: PRINT " [1] Load        [2] Save         [3] View  "; : COLOR 12: PRINT "³"
4110 LOCATE 14, 15: PRINT "³                                            ³"
4120 LOCATE 15, 15: PRINT "³"; : COLOR 14: PRINT " [4] Create      [5] Add          [6] New   "; : COLOR 12: PRINT "³"
4130 LOCATE 16, 15: PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ"; : COLOR 11: PRINT "[ESC]"; : COLOR 12: PRINT "ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
4140 A$ = INKEY$: IF A$ = "" THEN 4140 ELSE SOUND 888, .5
4150 IF A$ = CHR$(27) THEN SCREEN 0, 0, 0, 0: VIEW PRINT 1 TO 25: GOTO 220
4160 IF A$ = "1" THEN 4190 ELSE IF A$ = "2" THEN 4260 ELSE IF A$ = "6" THEN NN2 = 0: N = 0: COLOR , , 15: SOUND 999, 1: GOSUB 4181: NN$(1) = ""
4170 IF A$ = "3" THEN 4300 ELSE IF A$ = "4" THEN 4330 ELSE IF A$ = "5" THEN PCOPY 0, 1: VIEW PRINT 3 TO 25: LOCATE 25, 1: COLOR 7, 0: PRINT : PRINT : N = 1: GOTO 4350
4180 GOTO 4140
4181 IF MT = 0 OR MT = 3 THEN COLOR , , 1 ELSE COLOR , , 0
4182 RETURN
4190 VIEW PRINT 24 TO 25: COLOR 15, 1: CLS : PRINT "Load which file : "; : COLOR 10: LINE INPUT "", LF$: IF LF$ = "" THEN COLOR , 0: CLS : VIEW PRINT 1 TO 25: GOTO 4140
4200 CLS : PRINT "Loading "; LF$; "..": ON ERROR GOTO 4210: OPEN "i", #1, LF$: GOTO 4220
4210 CLS : PRINT "No such file exists in path.     [ESC]": WHILE INKEY$ <> CHR$(27): WEND: ON ERROR GOTO 880: COLOR , 0: CLS : VIEW PRINT 1 TO 25: RESUME 4140
4220 LINE INPUT #1, NN2$: IF VAL(NN2$) = 0 THEN NN$(1) = NN2$: N1 = 2 ELSE N1 = 1
4230 FOR N = N1 TO 9999: IF EOF(1) = -1 THEN NN2 = N: GOTO 4250 ELSE LINE INPUT #1, NN$(N)
4240 NEXT: CLOSE : NN2 = 9999
4250 COLOR , 0: CLS : VIEW PRINT 1 TO 25: SOUND 999, 1: ON ERROR GOTO 880: GOTO 4140
4260 VIEW PRINT 24 TO 25: COLOR 15, 1: CLS : PRINT "Save which file : "; : COLOR 10: LINE INPUT "", SF$: IF SF$ = "" THEN COLOR , 0: CLS : VIEW PRINT 1 TO 25: GOTO 4140
4270 CLS : PRINT "Saving "; SF$; "..": ON ERROR GOTO 4280: OPEN "o", #1, SF$: GOTO 4290
4280 CLS : PRINT "Save incomplete.      [ESC]": WHILE INKEY$ <> CHR$(27): WEND: ON ERROR GOTO 880: COLOR , 0: CLS : VIEW PRINT 1 TO 25: RESUME 4140
4290 FOR N = 1 TO NN2: PRINT #1, NN$(N): NEXT: CLOSE : GOTO 4250
4300 PCOPY 0, 1: VIEW PRINT 3 TO 25: LOCATE 25, 1: COLOR 7, 0: PRINT : PRINT
4310 N = 0: WHILE INKEY$ <> CHR$(27) AND N < NN2: N = N + 1: PRINT NN$(N): WEND
4320 PCOPY 1, 0: GOTO 4060
4330 PCOPY 0, 1: VIEW PRINT 3 TO 25: LOCATE 25, 1: COLOR 7, 0: PRINT : PRINT
4340 N = 0: WHILE N < NN2: N = N + 1: PRINT NN$(N): WEND: N = NN2 + 1
4350 LINE INPUT "", O$: IF O$ = CHR$(250) THEN 4370
4360 NN$(N) = O$: N = N + 1: SOUND 999, 1: GOTO 4350
4370 NN2 = N - 1: PCOPY 1, 0: GOTO 4060
4380 PCOPY 0, 1: SCREEN 0, 0, 1, 1: COLOR 10, 1
4390 LOCATE 3, 42: PRINT "³VID format   ³"
4400 LOCATE 4, 42: PRINT "³Check format ³"
4410 LOCATE 5, 42: PRINT "³Check dir    ³"
4420 LOCATE 6, 42: PRINT "³ÄÄÄÄÄÄÄÄÄÄÄÄij"
4430 LOCATE 7, 42: PRINT "³Setup        ³": LOCATE 8, 42: PRINT "³Erase all    ³": LOCATE 9, 42: PRINT "³Frame        ³": LOCATE 10, 42: PRINT "³Recall last  ³"
4440 LOCATE 11, 42: PRINT "³Return       ³"
4450 LOCATE 12, 42: PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
4460 OO = 1: OP = 1: GOTO 4500
4470 IF O = 1 THEN LOCATE 3, 43: PRINT "VID format   " ELSE IF O = 2 THEN LOCATE 4, 43: PRINT "Check format " ELSE IF O = 3 THEN LOCATE 5, 43: PRINT "Check dir    " ELSE IF O = 4 THEN LOCATE 7, 43: PRINT "Setup        " ELSE IF O = 8 THEN LOCATE 11 _
, 43: PRINT "Return       "
4480 IF O = 5 THEN LOCATE 8, 43: PRINT "Erase all    " ELSE IF O = 6 THEN LOCATE 9, 43: PRINT "Frame        " ELSE IF O = 7 THEN LOCATE 10, 43: PRINT "Recall last  "
4490 RETURN
4500 O = OO: COLOR 10, 1: GOSUB 4470: O = OP: COLOR 14, 5: GOSUB 4470: OO = OP
4510 A$ = INKEY$: IF A$ = "" THEN 4510 ELSE SOUND 999, .3
4520 IF A$ = D$ AND OP < 8 THEN OP = OP + 1: GOTO 4500 ELSE IF A$ = U$ AND OP > 1 THEN OP = OP - 1: GOTO 4500
4530 IF A$ = CHR$(13) THEN 4560
4540 IF A$ = CHR$(27) THEN OP = 8: GOTO 4560
4550 GOTO 4510
4560 IF OP = 8 THEN VIEW PRINT 1 TO 25: SCREEN 0, 0, 0, 0: GOTO 220
4570 IF OP = 1 THEN 4610 ELSE IF OP = 2 THEN 4750 ELSE IF O = 7 THEN 6550
4580 IF OP = 3 THEN 4860 ELSE IF OP = 4 THEN 4990
4590 IF OP = 5 THEN 5030 ELSE IF OP = 6 THEN 6380
4600 GOTO 4510
4610 PCOPY 0, 1: COLOR 8, 7: LOCATE 9, 19: PRINT "Ú"; STRING$(40, "Ä"); "¿": FOR A = 10 TO 13: LOCATE A, 19: PRINT "³"; STRING$(40, 32); "³": NEXT: LOCATE 14, 19: PRINT "À"; STRING$(40, "Ä"); "Ù": COLOR 4
4620 FOR A = 10 TO 11: LOCATE A, 22: PRINT "ÛÛ°": LOCATE A, 55: PRINT "ÛÛ°": NEXT: LOCATE 13, 22: PRINT "ÛÛ°": LOCATE 13, 55: PRINT "ÛÛ°"
4630 COLOR 8: LOCATE 10, 31: PRINT "VID FORMAT REQUEST"
4640 COLOR 0: LOCATE 12, 30: PRINT "ARE YOU SURE?  (Y/N)"
4650 A$ = INKEY$: IF A$ = CHR$(27) OR A$ = "n" OR A$ = "N" THEN SCREEN 0, 0, 0, 0: GOTO 220 ELSE IF A$ = "Y" OR A$ = "y" THEN 4660 ELSE 4650
4660 LOCATE 12, 29: PRINT "     PLEASE WAIT..      "
4670 ON ERROR GOTO 4690
4680 RESET: OPEN "I", #1, "TELEFILE.DAT": CLOSE : ON ERROR GOTO 4710: GOTO 4700
4690 RESET: OPEN "O", #1, "TELEFILE.DAT": WRITE #1, 0: CLOSE : ON ERROR GOTO 4710: RESUME 4700
4700 RESET: OPEN "I", #1, "FILES": CLOSE : ON ERROR GOTO 4730: GOTO 4720
4710 RESET: OPEN "O", #1, "FILES": CLOSE : ON ERROR GOTO 4730: RESUME 4720
4720 RESET: OPEN "I", #1, "VD3.DFT": CLOSE : ON ERROR GOTO 880: GOTO 4740
4730 RESET: OPEN "O", #1, "VD3.DFT": CLOSE : ON ERROR GOTO 880: RESUME 4740
4740 SOUND 888, .5: SOUND 999, .5: PCOPY 0, 1: SCREEN 0, 0, 0, 0: GOTO 220
4750 PCOPY 0, 1: COLOR , 0: VIEW PRINT 3 TO 25: LOCATE 25, 1: PRINT : PRINT : VIEW PRINT 24 TO 25: COLOR 15, 1: CLS : PRINT "Checking for Format files.."
4760 COLOR 13, 0: VIEW PRINT 3 TO 23: LOCATE 23, 1
4770 ON ERROR GOTO 4780: OPEN "I", #1, "TELEFILE.DAT": CLOSE : PRINT "Telephone found.": GOTO 4790
4780 PRINT "No Telephone format.": RESUME 4790
4790 ON ERROR GOTO 4800: OPEN "i", #1, "files": CLOSE : PRINT "Database found.": GOTO 4810
4800 PRINT "No Database format.": RESUME 4810
4810 ON ERROR GOTO 4820: OPEN "i", #1, "VD3.DFT": CLOSE : PRINT "Default found.": GOTO 4830
4820 PRINT "No Default format.": RESUME 4830
4830 ON ERROR GOTO 4840: OPEN "i", #1, "VID3.SYS": CLOSE : PRINT "System file found.": GOTO 4850
4840 PRINT "No System file present.": RESUME 4850
4850 ON ERROR GOTO 880: VIEW PRINT 24 TO 25: CLS : VIEW PRINT 1 TO 25: PCOPY 1, 0: SCREEN 0, 0, 0, 0: GOTO 220
4860 COLOR , 0: PCOPY 0, 1: VIEW PRINT 3 TO 25: LOCATE 25, 1: PRINT : PRINT : VIEW PRINT 24 TO 25: COLOR 15, 1: CLS : PRINT "Checking for Sub-Directorys.."
4870 COLOR 12, 0: VIEW PRINT 3 TO 23: LOCATE 23, 1
4880 Z1$ = "": Z2$ = "": ON ERROR GOTO 4900
4890 F = 927416!: F$ = "BOOT": F2$ = STR$(F): F3$ = "FDT": OPEN "I", #1, F$ + F2$: INPUT #1, P1, P2, P3, PASS$, K, L, RN, FAIL: CLOSE : F$ = "IF#": F = RN: F2$ = STR$(F): Z2$ = "1": GOTO 4910
4900 Z2$ = "": RESET: RESUME 4910
4910 ON ERROR GOTO 4930
4920 L$ = "&&" + CHR$(255) + "  " + CHR$(255) + " " + CHR$(255) + CHR$(255) + ".&" + CHR$(255) + "&": OPEN "I", #1, L$: INPUT #1, N2: CLOSE : Z1$ = "1": GOTO 4940
4930 Z1$ = "": RESET: RESUME 4940
4940 ON ERROR GOTO 880
4950 IF Z1$ = "" AND Z2$ = "" THEN PRINT "No Sub-Directorys found."
4960 IF Z1$ = "1" THEN PRINT "Universal type 2 directory found with "; N2; " files listed."
4970 IF Z2$ = "1" THEN PRINT "DeskTop type 4 default file found."
4980 VIEW PRINT 24 TO 25: COLOR , 0: CLS : VIEW PRINT 1 TO 25: PCOPY 1, 0: SCREEN 0, 0, 0, 0: GOTO 220
4990 PCOPY 0, 1: VIEW PRINT 24 TO 25: COLOR 15, 1: CLS : PRINT "Placing new Setup.."
5000 ON ERROR GOTO 5020
5010 RESET: OPEN "o", #1, "VD3.dft": WRITE #1, MT: CLOSE : ON ERROR GOTO 880: COLOR , 0: CLS : SCREEN 0, 0, 0, 0: VIEW PRINT 1 TO 25: GOTO 220
5020 CLS : COLOR 11: PRINT "Fatel error : Could not enter new Setup           [ESC]": WHILE INKEY$ <> CHR$(27): WEND: ON ERROR GOTO 880: COLOR , 0: CLS : VIEW PRINT 1 TO 25: SCREEN 0, 0, 0, 0: RESUME 220
5030 PCOPY 0, 1: VIEW PRINT 24 TO 25: COLOR 14, 1: CLS : PRINT "Erase all files in current path? (Y/N)"
5040 A$ = INKEY$: IF A$ = "n" OR A$ = "N" THEN VIEW PRINT 1 TO 25: SCREEN 0, 0, 0, 0: GOTO 220 ELSE IF A$ = "Y" OR A$ = "y" THEN 5050 ELSE 5040
5050 CLS : COLOR 15: PRINT "Please wait.."
5060 KILL "*.*": VIEW PRINT 1 TO 25: SCREEN 0, 0, 0, 0: GOTO 220
5070 PCOPY 0, 1: SCREEN 0, 0, 1, 1: COLOR 10, 1
5080 LOCATE 3, 51: PRINT "³Print file  ³"
5090 LOCATE 4, 51: PRINT "³Print memory³"
5100 LOCATE 5, 51: PRINT "³ÄÄÄÄÄÄÄÄÄÄÄij"
5110 LOCATE 6, 51: PRINT "³Escape all  ³"
5120 LOCATE 7, 51: PRINT "³LPT: NLQ    ³"
5130 LOCATE 8, 51: PRINT "³LPT: Italic ³": LOCATE 9, 51: PRINT "³LPT: Bold   ³": LOCATE 10, 51: PRINT "³LPT: Script ³": LOCATE 11, 51: PRINT "³LPT: Pro    ³"
5140 LOCATE 12, 51: PRINT "³Return      ³"
5150 LOCATE 13, 51: PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÙ"
5160 COLOR 12, 1: FOR O = 4 TO 8
5170 IF O = 4 AND LP1 = 1 THEN LOCATE 7, 52: PRINT "LPT: NLQ" ELSE IF O = 5 AND LP2 = 1 THEN LOCATE 8, 52: PRINT "LPT: Italic" ELSE IF O = 6 AND LP3 = 1 THEN LOCATE 9, 52: PRINT "LPT: Bold"
5180 IF O = 7 AND LP4 = 1 THEN LOCATE 10, 52: PRINT "LPT: Script" ELSE IF O = 8 AND LP5 = 1 THEN LOCATE 11, 52: PRINT "LPT: Pro"
5190 NEXT
5200 OO = 1: OP = 1: COLOR , 0: GOTO 5240
5210 IF O = 1 THEN LOCATE 3, 52: PRINT "Print file  " ELSE IF O = 2 THEN LOCATE 4, 52: PRINT "Print memory" ELSE IF O = 3 THEN LOCATE 6, 52: PRINT "Escape all  " ELSE IF O = 4 THEN LOCATE 7, 52: PRINT "LPT: NLQ    "
5220 IF O = 5 THEN LOCATE 8, 52: PRINT "LPT: Italic " ELSE IF O = 6 THEN LOCATE 9, 52: PRINT "LPT: Bold   " ELSE IF O = 7 THEN LOCATE 10, 52: PRINT "LPT: Script " ELSE IF O = 8 THEN LOCATE 11, 52: PRINT "LPT: Pro    " ELSE IF O = 9 THEN LOCATE 12,  _
52: PRINT "Return      "
5230 RETURN
5240 COLOR 10, 1
5250 IF O = 4 AND LP1 = 1 THEN COLOR 12 ELSE IF O = 5 AND LP2 = 1 THEN COLOR 12 ELSE IF O = 6 AND LP3 = 1 THEN COLOR 12 ELSE IF O = 7 AND LP4 = 1 THEN COLOR 12 ELSE IF O = 8 AND LP5 = 1 THEN COLOR 12
5260 GOSUB 5210: COLOR 14, 5: O = OP: GOSUB 5210
5270 A$ = INKEY$: IF A$ = "" THEN 5270 ELSE SOUND 999, .3
5280 IF A$ = U$ AND OP > 1 THEN OP = OP - 1: GOTO 5240 ELSE IF A$ = D$ AND OP < 9 THEN OP = OP + 1: GOTO 5240
5290 IF A$ = CHR$(27) THEN SCREEN 0, 0, 0, 0: VIEW PRINT 1 TO 25: GOTO 220
5300 IF A$ = CHR$(13) THEN 5320
5310 GOTO 5270
5320 IF OP = 9 THEN SCREEN 0, 0, 0, 0: VIEW PRINT 1 TO 25: GOTO 220
5330 IF OP = 3 THEN LPRINT CHR$(27); "T"; CHR$(27); "5"; CHR$(27); "F"; CHR$(27); "p"; CHR$(0); CHR$(27); "x"; CHR$(0): SCREEN 0, 0, 0, 0: VIEW PRINT 1 TO 25: LP1 = 0: LP2 = 0: LP3 = 0: LP4 = 0: LP5 = 0: GOTO 220
5340 IF OP = 4 THEN LPRINT CHR$(27); "x"; CHR$(1); : LP1 = 1: SCREEN 0, 0, 0, 0: VIEW PRINT 1 TO 25: GOTO 220 ELSE IF OP = 8 THEN LPRINT CHR$(27); "p"; CHR$(1); : LP5 = 1 ELSE IF OP = 7 THEN LPRINT CHR$(27); "S"; CHR$(1); : LP4 = 1
5350 IF OP = 6 THEN LPRINT CHR$(27); "E"; : LP3 = 1 ELSE IF OP = 5 THEN LPRINT CHR$(27); "4"; : LP2 = 1
5360 IF OP = 2 THEN PCOPY 0, 1: GOTO 5410
5370 IF OP = 1 AND PZX = 0 THEN PZX = 1: SCREEN 0, 0, 0, 0: VIEW PRINT 1 TO 25: COLOR 10, 1: LOCATE 1, 70: PRINT "Û²     Û²": COLOR 30: LOCATE 1, 72: PRINT "PRINT": GOTO 220
5380 IF OP > 2 AND OP < 9 THEN SCREEN 0, 0, 0, 0: VIEW PRINT 1 TO 25: GOTO 220
5390 IF OP = 1 THEN COLOR 11, 5: SCREEN 0, 0, 0, 0: VIEW PRINT 1 TO 25: LOCATE 1, 70: PRINT "±±±±±±±±±±": PZX = 0: PLAY "a40": GOTO 220
5400 GOTO 5270
5410 COLOR 1, 7: LOCATE 10, 20: PRINT "Ú"; STRING$(38, "Ä"); "¿": FOR A = 11 TO 13: LOCATE A, 20: PRINT "³"; STRING$(38, 32); "³": NEXT: LOCATE 14, 20: PRINT "À"; STRING$(38, "Ä"); "Ù": COLOR 15: LOCATE 10, 36: PRINT "PRINTER"
5420 FOR A = 11 TO 13: LOCATE A, 22: PRINT "°±±±±°": NEXT
5430 IF NN2 = 0 THEN LOCATE 12, 30: PRINT "No information stored": COLOR 11: LOCATE 14, 50: PRINT "[ESC]": WHILE INKEY$ <> CHR$(27): WEND: SCREEN 0, 0, 0, 0: VIEW PRINT 1 TO 25: GOTO 220
5440 LOCATE 12, 30: PRINT "Printing document.."
5450 FOR N = 1 TO NN2: LPRINT NN$(N): NEXT: PLAY "a40c40a40": SCREEN 0, 0, 0, 0: VIEW PRINT 1 TO 25: GOTO 220
5460 END
5470 PCOPY 0, 1: SCREEN 0, 0, 1, 1: COLOR 10, 1
5480 LOCATE 3, 60: PRINT "³Copy      ³"
5490 LOCATE 4, 60: PRINT "³Trans dir ³"
5500 LOCATE 5, 60: PRINT "³Transform ³"
5501 LOCATE 6, 60: PRINT "³ÄÄÄÄÄÄÄÄÄij"
5502 LOCATE 7, 60: PRINT "³Set com   ³"
5503 LOCATE 8, 60: PRINT "³Terminal  ³"
5504 LOCATE 9, 60: PRINT "³UP/LD mem ³"
5505 LOCATE 10, 60: PRINT "³DN/LD mem ³"
5506 LOCATE 11, 60: PRINT "³Video set ³"
5510 LOCATE 12, 60: PRINT "³Return    ³"
5520 LOCATE 13, 60: PRINT "ÀÄÄÄÄÄÄÄÄÄÄÙ"
5530 OP = 1: OO = 1: GOTO 5560
5540 IF O = 1 THEN LOCATE 3, 61: PRINT "Copy      " ELSE IF O = 2 THEN LOCATE 4, 61: PRINT "Trans dir " ELSE IF O = 3 THEN LOCATE 5, 61: PRINT "Transform " ELSE IF O = 4 THEN LOCATE 7, 61: PRINT "Set com   " ELSE IF O = 5 THEN LOCATE 8, 61: PRINT  _
"Terminal  "
5541 IF O = 6 THEN LOCATE 9, 61: PRINT "UP/LD mem " ELSE IF O = 7 THEN LOCATE 10, 61: PRINT "DN/LD mem " ELSE IF O = 8 THEN LOCATE 11, 61: PRINT "Video set " ELSE IF O = 9 THEN LOCATE 12, 61: PRINT "Return    "
5550 RETURN
5560 O = OO: COLOR 10, 1: GOSUB 5540: O = OP: COLOR 14, 5: GOSUB 5540: OO = OP
5570 A$ = INKEY$: IF A$ = "" THEN 5570 ELSE SOUND 999, .3
5580 IF A$ = U$ AND OP > 1 THEN OP = OP - 1: GOTO 5560 ELSE IF A$ = D$ AND OP < 9 THEN OP = OP + 1: GOTO 5560
5590 IF A$ = CHR$(13) THEN 5620
5600 IF A$ = CHR$(27) THEN OP = 9: GOTO 5620
5610 GOTO 5570
5620 IF OP = 9 THEN SCREEN 0, 0, 0, 0: GOTO 220
5621 IF OP = 4 THEN PLAY "a40c40a40": GOTO 8020
5622 IF OP = 5 THEN 9100
5623 IF OP = 6 THEN 9400
5630 IF OP = 1 THEN RST = 0: TR$ = "Transfer": GOTO 5670
5640 IF OP = 2 THEN RST = 1: TR$ = "Directory Transfer": GOTO 5670
5650 IF OP = 3 THEN TR$ = "Transforming": GOTO 5860
5660 GOTO 5570
5670 PCOPY 0, 1: VIEW PRINT 24 TO 25: COLOR 15, 1: CLS : PRINT "Enter file for "; TR$; " : "; : COLOR 10: LINE INPUT "", F$: IF F$ = "" THEN VIEW PRINT 1 TO 25: PCOPY 0, 1: SCREEN 0, 0, 0, 0: GOTO 220
5680 ON ERROR GOTO 5690: CLS : COLOR 15: PRINT "Loading "; F$; "..": OPEN "i", #1, F$: GOTO 5700
5690 CLS : CLOSE : PRINT "Can not find "; F$; ".            [ESC]": WHILE INKEY$ <> CHR$(27): WEND: VIEW PRINT 1 TO 25: SCREEN 0, 0, 0, 0: RESUME 220
5700 ON ERROR GOTO 5710: GOTO 5720
5710 CLS : CLOSE : PRINT "Bad file type.           [ESC]": WHILE INKEY$ <> CHR$(27): WEND: VIEW PRINT 1 TO 25: SCREEN 0, 0, 0, 0: RESUME 220
5720 N = 0
5730 N = N + 1: LINE INPUT #1, N$(N): IF EOF(1) THEN 5740 ELSE 5730
5740 CLOSE : CLS : IF RST = 1 THEN 5830 ELSE PRINT "TPA="; N; "  :   "; : COLOR 14: PRINT "Insert target disc and press Space.": N2 = N
5750 A$ = INKEY$: IF A$ = CHR$(27) THEN VIEW PRINT 1 TO 25: SCREEN 0, 0, 0, 0: ON ERROR GOTO 880: GOTO 220 ELSE IF A$ = " " THEN 5760 ELSE 5750
5760 ON ERROR GOTO 5770: GOTO 5780
5770 CLS : COLOR 11: PRINT "Can not place new file,Bad Disc.        [ESC]": WHILE INKEY$ <> " ": WEND: ON ERROR GOTO 880: VIEW PRINT 1 TO 25: SCREEN 0, 0, 0, 0: RESUME 220
5780 N2 = N: N = 0: CLS : IF RST = 0 THEN PRINT "Placing "; F$; " on target disc." ELSE PRINT "Placing "; F$; " in Directory "; DR$; "."
5790 RESET: OPEN "o", #1, F$
5800 N = N + 1: IF VAL(N$(N)) > 0 THEN PRINT #1, VAL(N$(N)) ELSE PRINT #1, N$(N)
5810 IF N = N2 THEN 5820 ELSE 5800
5820 CLS : PRINT "Closing "; F$; ".": CLOSE : SCREEN 0, 0, 0, 0: VIEW PRINT 1 TO 25: ON ERROR GOTO 880: GOTO 220
5830 COLOR 15: PRINT "Enter target directory : "; : COLOR 10: LINE INPUT "", DR$: IF DR$ = "" THEN VIEW PRINT 1 TO 25: SCREEN 0, 0, 0, 0: ON ERROR GOTO 880: GOTO 220
5840 ON ERROR GOTO 5850: CLS : COLOR 15: PRINT "Entering "; DR$; ".": CHDIR DR$: GOTO 5760
5850 CLS : COLOR 11: PRINT "Directory does not exist in current path.   [ESC]": WHILE INKEY$ <> CHR$(27): WEND: ON ERROR GOTO 880: VIEW PRINT 1 TO 25: SCREEN 0, 0, 0, 0: RESUME 220
5860 PCOPY 0, 1: VIEW PRINT 24 TO 25: COLOR 15, 1: CLS : PRINT "Enter file for "; TR$; " : "; : COLOR 10: LINE INPUT "", F$: IF F$ = "" THEN VIEW PRINT 1 TO 25: PCOPY 0, 1: SCREEN 0, 0, 0, 0: GOTO 220
5870 ON ERROR GOTO 5690: CLS : COLOR 15: PRINT "Loading "; F$; "..": OPEN "i", #1, F$
5880 ON ERROR GOTO 5710: N = 0
5890 N = N + 1: INPUT #1, N$(N): IF EOF(1) THEN 5900 ELSE 5890
5900 CLOSE : CLS : PRINT "Validating.."
5910 N2 = N: N = 0: OPEN "o", #1, F$
5920 N = N + 1: IF VAL(N$(N)) > 0 THEN PRINT #1, VAL(N$(N)) ELSE PRINT #1, N$(N)
5930 IF N = N2 THEN 5820 ELSE 5920
5940 PCOPY 0, 1: SCREEN 0, 0, 1, 1: COLOR 10, 1
5950 LOCATE 3, 70: PRINT "³IBM    ³"
5960 LOCATE 4, 70: PRINT "³Tandy  ³"
5970 LOCATE 5, 70: PRINT "³Applic ³": LOCATE 6, 70: PRINT "³Creds  ³"
5980 LOCATE 7, 70: PRINT "³Return ³"
5990 LOCATE 8, 70: PRINT "ÀÄÄÄÄÄÄÄÙ"
6000 OO = 1: OP = 1: GOTO 6030
6010 IF O = 1 THEN LOCATE 3, 71: PRINT "IBM    " ELSE IF O = 2 THEN LOCATE 4, 71: PRINT "Tandy  " ELSE IF O = 3 THEN LOCATE 5, 71: PRINT "Applic " ELSE IF O = 5 THEN LOCATE 7, 71: PRINT "Return " ELSE IF O = 4 THEN LOCATE 6, 71: PRINT "Creds  "
6020 RETURN
6030 O = OO: COLOR 10, 1: GOSUB 6010: O = OP: COLOR 14, 5: GOSUB 6010: OO = OP
6040 A$ = INKEY$: IF A$ = "" THEN 6040 ELSE SOUND 999, .3
6050 IF A$ = U$ AND OP > 1 THEN OP = OP - 1: GOTO 6030 ELSE IF A$ = D$ AND OP < 5 THEN OP = OP + 1: GOTO 6030
6060 IF A$ = CHR$(13) THEN 6090
6070 IF A$ = CHR$(27) THEN OP = 5: GOTO 6090
6080 GOTO 6040
6090 IF OP = 5 THEN SCREEN 0, 0, 0, 0: GOTO 220
6100 IF OP = 1 THEN 6140 ELSE IF OP = 4 THEN 6280
6110 IF OP = 2 THEN 6170
6120 IF OP = 3 THEN 6200
6130 GOTO 6040
6140 PCOPY 0, 1: VIEW PRINT 24 TO 25: COLOR 15, 3: CLS : PRINT "IBM quit? (Y/N)"
6150 A$ = INKEY$: IF A$ = "n" OR A$ = "N" THEN VIEW PRINT 1 TO 25: PCOPY 0, 1: GOTO 220 ELSE IF A$ = "y" OR A$ = "Y" THEN 6160 ELSE 6150
6160 SCREEN 2: SCREEN 0, 0, 0, 0: CLS : PRINT "VID System (C)Brooks deForest": SYSTEM
6170 PCOPY 0, 1: VIEW PRINT 24 TO 25: COLOR 15, 3: CLS : PRINT "TANDY quit? (Y/N)"
6180 A$ = INKEY$: IF A$ = "n" OR A$ = "N" THEN VIEW PRINT 1 TO 25: PCOPY 0, 1: GOTO 220 ELSE IF A$ = "y" OR A$ = "Y" THEN 6190 ELSE 6180
6190 SCREEN 2: SCREEN 0, 0, 0, 0: CLS : ON ERROR GOTO 9000: CHDIR "..": RUN "menu"
6200 PCOPY 0, 1: VIEW PRINT 24 TO 25: COLOR 15, 3: CLS : PRINT "Enter appliction name : "; : COLOR 8: LINE INPUT "", F$: IF F$ = "" THEN COLOR , 0: CLS : VIEW PRINT 1 TO 25: SCREEN 0, 0, 0, 0: GOTO 220
6210 ON ERROR GOTO 5690
6220 REM *LOAD VID APPLICATION*
6230 CHAIN F$
6240 OPEN "ldicndo" FOR INPUT AS 1
6250 REM VID System (c)1990 RufusPro
6260 REM Programmed by Brooks Deforest
6270 REM For Tandy 1000ex Computers #0001
6280 PCOPY 0, 1: COLOR 8, 15
6290 LOCATE 11, 20: PRINT "ÚÄÄÄÄÄÄÄÄ** VID SYSTEM 3 **ÄÄÄÄÄÄÄÄÄÄ¿"
6300 LOCATE 12, 20: PRINT "³~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~³"
6310 LOCATE 13, 20: PRINT "ÀÄÄ     (c)1990 RufusPro Inc.    ÄÄÄÄÙ"
6320 LOCATE 14, 20: PRINT "ÚÄÄÄÄÄTANDY 1000 / IBM VERSIONÄÄÄÄÄÄÄ¿"
6330 LOCATE 15, 20: PRINT "³   Programmed by Brooks Deforest    ³"
6340 LOCATE 16, 20: PRINT "³     All rights are researved       ³"
6350 LOCATE 17, 20: PRINT "³"; : COLOR 4: PRINT "               [ESC]                "; : COLOR 8: PRINT "³"
6360 LOCATE 18, 20: PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
6370 WHILE INKEY$ <> CHR$(27): WEND: PCOPY 0, 1: SCREEN 0, 0, 0, 0: SOUND 999, .5: GOTO 220
6380 PCOPY 0, 1: SCREEN 0, 0, 1, 1
6390 VIEW PRINT 24 TO 25: COLOR 15, 1: CLS : PRINT "[1] 160x200  [2] 320x200   [3] 640x200  [4] 640x400x16       [ESC]"
6400 A$ = INKEY$: IF A$ = "" THEN 6400
6410 IF A$ = CHR$(27) THEN VIEW PRINT 1 TO 25: SCREEN 0, 0, 0, 0: GOTO 220
6420 RST = 0: IF A$ = "1" THEN MD = 3: GOTO 6440 ELSE IF A$ = "2" THEN MD = 4: GOTO 6440 ELSE IF A$ = "3" THEN MD = 2: GOTO 6440 ELSE IF A$ = "4" THEN RST = 1: GOTO 6440
6430 GOTO 6400
6440 CLS : COLOR 15: PRINT "File to load : "; : COLOR 10: LINE INPUT "", F$: IF F$ = "" THEN VIEW PRINT 1 TO 25: SCREEN 0, 0, 0, 0: GOTO 220
6450 CLS : COLOR 11: PRINT "Searching for "; F$; ".."
6460 ON ERROR GOTO 6470: OPEN "i", #1, F$: CLOSE : GOTO 6480
6470 CLS : PRINT "CAN NOT FIND "; F$; "        [ESC]": WHILE INKEY$ <> CHR$(27): WEND: ON ERROR GOTO 880: RESET: VIEW PRINT 1 TO 25: SCREEN 0, 0, 0, 0: RESUME 220
6480 ON ERROR GOTO 6530
6490 IF RST = 1 THEN 6540 ELSE SCREEN MD
6500 BLOAD F$
6510 WHILE INKEY$ <> CHR$(27): COLOR , 1: COLOR , 0: WEND
6520 KEY OFF: SCREEN 4: SCREEN 2: SCREEN 0, 0, 0, 0: COLOR 15, 0, 1: PALETTE 1, 8: PALETTE 0, 1: VIEW PRINT 1 TO 25: CLS : PCOPY 0, 1: PALETTE 8, 0: GOTO 80
6530 LOCATE 1, 1: PRINT "ERROR [ESC]": WHILE INKEY$ <> CHR$(27): WEND: ON ERROR GOTO 880: RESET: VIEW PRINT 1 TO 25: SCREEN 0, 0, 0, 0: RESUME 220
6540 CLS : PRINT "Loading "; F$; "..": GOTO 6590
6550 REM *DISPLAY FRAME*
6560 VIEW PRINT 1 TO 25: PCOPY 2, 1: K = 7: PALETTE 0, 0: IF MT = 0 THEN PALETTE 1, 1: PALETTE 8, 0: K = 9
6570 WHILE INKEY$ <> CHR$(27): COLOR , , K!: COLOR , , 0: WEND: IF MT = 0 THEN PALETTE 0, 1: COLOR , , 1: PALETTE 1, 8: PALETTE 8, 0 ELSE PALETTE 0, 0: PALETTE 1, 8: PALETTE 8, 8: COLOR , , 0
6580 SCREEN 0, 0, 0, 0: GOTO 220
6590 ON ERROR GOTO 6610: DEF SEG = &HB800: BSAVE "VœD3.SYT", 0, 4096: SCREEN 0, 0, 1, 1: BLOAD F$: PCOPY 0, 2: BLOAD "VœD3.SYT": PCOPY 0, 1: KILL "VœD3.SYT"
6600 GOTO 6550
6610 ON ERROR GOTO 6630: RESUME 6620
6620 KILL "VœD3.SYT": KILL "*$%%^^!"
6630 RESUME 6640
6640 ON ERROR GOTO 880: E = 99: KILL "!œ$%"
6650 PCOPY 0, 1: COLOR 8, 7: PLAY "MB": IF CHN = 0 THEN CHN = 1
6660 LOCATE 10, 19: PRINT "Ú"; STRING$(40, "Ä"); "¿": FOR A = 11 TO 14: LOCATE A, 19: PRINT "³"; STRING$(40, 32); "³": NEXT: LOCATE 15, 19: PRINT "À"; STRING$(40, "Ä"); "Ù": IF FLA = 0 THEN FLA = 1
6670 LOCATE 10, 22: PRINT CHR$(14): LOCATE 10, 58: PRINT CHR$(14): IF DR = 0 THEN DR = 1
6680 COLOR 4: LOCATE 10, 32: PRINT "* MUSIC READER *": IF EFF = 0 THEN EFF = 1
6690 COLOR 0: LOCATE 12, 25: PRINT "[1] Speed           [2] Play": IF TH = 0 THEN TH = 1500
6700 LOCATE 13, 25: PRINT "[3] Voice           [4] Format": LOCATE 14, 25: PRINT "[5] Tolerence       [6] Effect"
6710 COLOR 14: LOCATE 15, 38: PRINT "[ESC]"
6720 SOUND 2000, .3: COLOR 0, 7: LOCATE 14, 36: PRINT TH: LOCATE 14, 55: PRINT EFF: IF EFF > 10 THEN EF = EFF - 10: V1 = 15: V2 = 14: V3 = 13 ELSE V1 = 15: V2 = 13: V3 = 10: EF = EFF
6730 SOUND 2000, .3: COLOR 0, 7: LOCATE 13, 34: PRINT CHN: LOCATE 13, 55: PRINT FLA: LOCATE 12, 34: PRINT LEFT$(STR$(DR), 4); "  "
6740 E1 = EF / 4: E2 = EF / 2: E3 = EF
6750 A$ = INKEY$: IF A$ = "" THEN 6750
6760 IF A$ = CHR$(27) THEN PLAY "MB": SCREEN 0, 0, 0, 0: GOTO 220
6770 IF A$ = "1" THEN 6850
6780 IF A$ = "3" THEN CHN = CHN + 1: IF CHN > 3 THEN CHN = 1
6790 IF A$ = "3" THEN 6730
6800 IF A$ = "4" THEN FLA = FLA + 1: IF FLA > 3 THEN FLA = 1
6810 IF A$ = "4" THEN 6730 ELSE IF A$ = "2" THEN 6870
6820 IF A$ = "5" THEN TH = TH + 200: IF TH > 3000 THEN TH = 200: GOTO 6720 ELSE IF A$ = "5" THEN 6720
6830 IF A$ = "6" THEN EFF = EFF + 1: IF EFF > 20 THEN EFF = 0: GOTO 6720 ELSE IF A$ = "6" THEN 6720
6840 GOTO 6750
6850 DR = DR + .1: IF DR > 2 THEN DR = .1
6860 GOTO 6730
6870 VIEW PRINT 24 TO 25: COLOR 15, 1: CLS : PRINT "Searching for "; HF$; ".."
6880 D = DR: ON ERROR GOTO 6890: RESET: OPEN "i", #1, HF$: IF FLA = 1 THEN INPUT #1, A: GOTO 6900 ELSE 6900
6890 CLS : PRINT "Bad File.      [ESC]": WHILE INKEY$ <> CHR$(27): WEND: COLOR , 0: CLS : VIEW PRINT 1 TO 25: RESUME 6720
6900 IF CHN = 2 THEN 6950 ELSE IF CHN = 3 THEN 6990 ELSE WHILE INKEY$ <> CHR$(27) AND EOF(1) <> -1
6910 IF FLA = 3 THEN INPUT #1, A
6920 INPUT #1, A: IF A < TH THEN SOUND A + E1, D: SOUND A - E2, D: SOUND A + E3, D
6930 WEND
6940 ON ERROR GOTO 880: COLOR , 0: CLS : VIEW PRINT 1 TO 25: CLOSE : PLAY "MB": GOTO 6720
6950 WHILE INKEY$ <> CHR$(27) AND EOF(1) <> -1
6960 IF FLA = 3 THEN INPUT #1, A
6970 INPUT #1, A, B: IF A < TH AND B < TH THEN SOUND A + E1, D: SOUND A - E2, D: SOUND A + E3, D
6980 WEND: GOTO 6940
6990 WHILE INKEY$ <> CHR$(27) AND EOF(1) <> -1
7000 IF FLA = 3 THEN INPUT #1, A
7010 INPUT #1, A, B, C: IF A < TH AND B < TH AND C < TH THEN SOUND A + E1, D: SOUND A - E2, D: SOUND A + E3, D
7020 WEND: GOTO 6940
7030 REM
7040 PCOPY 0, 1: SCREEN 0, 0, 1, 1: VIEW PRINT 3 TO 25: COLOR 7, 1
7050 LOCATE 8, 20: PRINT "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ"; : COLOR 15: PRINT "*MAPPER*"; : COLOR 7: PRINT "ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
7060 FOR A = 9 TO 13: LOCATE A, 20: PRINT "³"; STRING$(38, 32); "³": NEXT
7070 LOCATE 14, 20: PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ"; : COLOR 11: PRINT "[ESC]"; : COLOR 7: PRINT "ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
7080 DATA 15,14,11,10,13,4,1
7090 FOR A = 9 TO 10: RESTORE 7080: FOR Z = 24 TO 29: LOCATE A, Z: READ C: COLOR C: PRINT "Û": NEXT: NEXT
7100 COLOR 7: LOCATE 9, 34: PRINT "[1] Normal": LOCATE 10, 34: PRINT "[2] Night": LOCATE 11, 34: PRINT "[3] Reverse": LOCATE 12, 34: PRINT "[4] Mono two"
7110 COLOR , 7: COLOR 12, 4: LOCATE 9, 50: PRINT "Û²±°"; : COLOR 4, 1: PRINT "Û²±°": COLOR 10, 2: LOCATE 10, 50: PRINT "Û²±°"; : COLOR 2, 1: PRINT "Û²±°": COLOR 9, 0: LOCATE 11, 50: PRINT "Û²±°"; : COLOR 0, 1: PRINT "Û²±°"
7120 A$ = INKEY$: IF A$ = "" THEN 7120
7130 IF A$ = CHR$(27) THEN SCREEN 0, 0, 0, 0: VIEW PRINT 1 TO 25: GOTO 220
7140 IF A$ = "1" THEN MT = 0: FOR P = 2 TO 15: PALETTE P, P: NEXT: PALETTE 0, 1: PALETTE 1, 8: PALETTE 8, 0: COLOR , 0, 1: VIEW PRINT 1 TO 25: SCREEN 0, 0, 0, 0: GOTO 220
7150 IF A$ = "2" THEN MT = 2: FOR P = 2 TO 15: PALETTE P, P: NEXT: PALETTE 0, 0: PALETTE 1, 1: PALETTE 8, 0: COLOR , 0, 0: VIEW PRINT 1 TO 25: SCREEN 0, 0, 0, 0: GOTO 220
7160 IF A$ = "3" THEN MT = 3: P = 15: FOR P2 = 2 TO 15: PALETTE P2, P: P = P - 1: NEXT: PALETTE 0, 1: PALETTE 1, 8: PALETTE 8, 0: COLOR , 0, 1: VIEW PRINT 1 TO 25: SCREEN 0, 0, 0, 0: GOTO 220
7170 IF A$ = "4" THEN MT = 4: RESTORE 7170: FOR P = 0 TO 15: READ P2: PALETTE P, P2: NEXT: COLOR , 0, 0: VIEW PRINT 1 TO 25: SCREEN 0, 0, 0, 0: GOTO 220: DATA 0,1,3,9,8,9,8,7,0,9,11,11,9,7,11,15
7180 GOTO 7120
8020 PCOPY 0, 1: SCREEN 0, 0, 1, 1: SOUND 600, .3: SOUND 500, .2: SOUND 600, .3
8030 COLOR 15, 4
8040 LOCATE 6, 15: PRINT "Ú"; STRING$(17, "Ä"); : COLOR 14: PRINT "COMMUNICATIONS"; : COLOR 15: PRINT STRING$(17, "Ä"); "¿"
8050 LOCATE 7, 15: PRINT "³"; : COLOR 7: PRINT "  Buad rate:"; : COLOR 3: PRINT BD$; : COLOR 7: PRINT "                 COM PORT:"; : COLOR 3: PRINT CP$; : COLOR 15: PRINT "     ³"
8060 LOCATE 8, 15: PRINT "³"; STRING$(48, "Ä"); "³"
8070 LOCATE 9, 15: PRINT "³"; : COLOR 7: PRINT "  Parity:"; : COLOR 3: PRINT PR$; : COLOR 7: PRINT "       Data bits:"; : COLOR 3: PRINT DB$; : COLOR 7: PRINT "     Stop bits:"; : COLOR 3: PRINT SB$; : COLOR 15: PRINT "  ³"
8080 LOCATE 10, 15: PRINT "³"; STRING$(48, "Ä"); "³"
8090 LOCATE 11, 15: PRINT "³"; : COLOR 11: PRINT "  Comunications options                         "; : COLOR 15: PRINT "³"
8100 LOCATE 12, 15: PRINT "³"; : COLOR 11: PRINT "                              [1] Baud rate     "; : COLOR 15: PRINT "³"
8110 LOCATE 13, 15: PRINT "³"; : COLOR 11: PRINT "  [2] Com port                [3] Parity        "; : COLOR 15: PRINT "³"
8120 LOCATE 14, 15: PRINT "³"; : COLOR 11: PRINT "  [4] Data bits               [5] Stop bits     "; : COLOR 15: PRINT "³"
8130 LOCATE 15, 15: PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ"; : COLOR 8: PRINT "[ESC]"; : COLOR 15: PRINT "ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
8140 A$ = INKEY$: IF A$ = "" THEN 8140 ELSE SOUND 400, .3
8150 IF A$ = "1" THEN 8210
8160 IF A$ = "2" THEN 8230
8170 IF A$ = "3" THEN 8250
8180 IF A$ = "4" THEN 8270
8190 IF A$ = "5" THEN 8290
8191 IF A$ = CHR$(27) THEN SCREEN 0, 0, 0, 0: VIEW PRINT 1 TO 25: GOTO 220
8200 GOTO 8140
8210 IF BD$ = "  75" THEN BD$ = " 300" ELSE IF BD$ = " 300" THEN BD$ = "1200" ELSE IF BD$ = "1200" THEN BD$ = "2400" ELSE IF BD$ = "2400" THEN BD$ = "4800" ELSE IF BD$ = "4800" THEN BD$ = "9600" ELSE IF BD$ = "9600" THEN BD$ = "  75"
8220 SOUND 999, .3: COLOR 3: LOCATE 7, 28: PRINT BD$; " ": GOTO 8140
8230 IF CP$ = "1" THEN CP$ = "2" ELSE CP$ = "1"
8240 SOUND 999, .3: COLOR 3: LOCATE 7, 58: PRINT CP$: GOTO 8140
8250 IF PR$ = "EVN" THEN PR$ = "ODD" ELSE IF PR$ = "ODD" THEN PR$ = "MRK" ELSE IF PR$ = "MRK" THEN PR$ = "SPC" ELSE IF PR$ = "SPC" THEN PR$ = " NO" ELSE IF PR$ = " NO" THEN PR$ = "EVN"
8260 SOUND 999, .3: COLOR 3: LOCATE 9, 25: PRINT PR$; " ": GOTO 8140
8270 IF DB$ = "5" THEN DB$ = "6" ELSE IF DB$ = "6" THEN DB$ = "7" ELSE IF DB$ = "7" THEN DB$ = "8" ELSE IF DB$ = "8" THEN DB$ = "5"
8280 SOUND 999, .3: COLOR 3: LOCATE 9, 45: PRINT DB$: GOTO 8140
8290 IF SB$ = "1" THEN SB$ = "2" ELSE SB$ = "1"
8300 SOUND 999, .3: COLOR 3: LOCATE 9, 61: PRINT SB$: GOTO 8140
9000 RESUME 9005
9005 CLS : BEEP: PRINT "Insert SYSTEM disc into driver - Press space": WHILE INKEY$ <> " ": WEND: CLS : RUN "menu"
9010 PCOPY 0, 1: SCREEN 0, 0, 1, 1: SOUND 600, .3: SOUND 500, .2: SOUND 600, .3
9011 AA$ = "COM" + CP$ + ":" + BD$ + "," + (MID$(PR$, 1, 1)) + "," + DB$ + "," + SB$
9014 COLOR 15, 4: ON ERROR GOTO 9040
9015 LOCATE 10, 30: PRINT "Ú  Going  On-Line  ¿"
9016 LOCATE 11, 30: PRINT "³ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄij"
9017 LOCATE 12, 30: PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
9020 RESET
9021 OPEN AA$ FOR INPUT AS 1: OPEN AA$ FOR OUTPUT AS 2
9022 ON ERROR GOTO 880: SOUND 900, .5: SOUND 800, .5: SOUND 850, 1: PCOPY 0, 1: RETURN
9040 END
9100 GOSUB 9010
9105 VIEW PRINT 3 TO 25: COLOR 7, 0: CLS
9110 PRINT "Now Online:   "; : COLOR 3: PRINT "Baud "; BD$; " : Parity "; PR$; " : Data bits "; DB$; " : Stop bits "; SB$
9120 PRINT #2, CHR$(12) + CHR$(7); : PRINT #2, "Now online:" + CHR$(10): COLOR 4: PRINT "Now online:"
9130 COLOR 15: PRINT "O>  "; : COLOR 7
9140 A$ = INKEY$: IF A$ = "" THEN 9140 ELSE IF A$ = CHR$(13) THEN 9160 ELSE IF A$ = CHR$(8) THEN PRINT CHR$(29) + CHR$(29) + CHR$(29) + "± "; : PRINT #2, CHR$(8); : GOTO 9140 ELSE IF A$ = CHR$(27) THEN A$ = CHR$(0): GOTO 9160
9150 PRINT CHR$(29) + CHR$(29) + A$ + "± "; : SOUND ASC(A$) * 4, .1: PRINT #2, A$; : GOTO 9140
9160 PRINT CHR$(29) + CHR$(29); "  ": PRINT #2, A$ + CHR$(10): IF A$ = CHR$(0) THEN PRINT "Disconecting": PRINT #2, "Line Disconected" + CHR$(7) + CHR$(10): CLOSE : SCREEN 0, 0, 0, 0: VIEW PRINT 1 TO 25: A$ = CHR$(27): GOTO 8191
9170 COLOR 2: PRINT "  ";
9180 A$ = INPUT$(1, 2): IF A$ = CHR$(13) OR INKEY$ = CHR$(27) THEN PRINT CHR$(29) + CHR$(29); "  ": PRINT #2, CHR$(10): GOTO 9130 ELSE IF A$ = CHR$(8) THEN PRINT CHR$(29) + CHR$(29) + CHR$(29) + "° "; : GOTO 9180 ELSE IF A$ = CHR$(19) THEN 9180
9190 SOUND ASC(A$) * 9, .1: PRINT CHR$(29) + CHR$(29) + A$ + "° "; : GOTO 9180
9400 PCOPY 0, 1: SCREEN 0, 0, 1, 1: SOUND 900, 1: SOUND 800, 1
9410 VIEW PRINT 24 TO 25: COLOR 15, 1: CLS : PRINT "   Press (1) to start upload (ESC) quits"
9420 A$ = INKEY$: IF A$ = "" THEN 9420
9430 IF A$ = CHR$(27) THEN A$ = CHR$(27): GOTO 8191
9440 IF A$ = "1" THEN 9450 ELSE 9420
9450 GOSUB 9010: VIEW PRINT 24 TO 25: COLOR 15, 1: CLS : PRINT "   Uploading file at "; BAUD; " baud."
9460 VIEW PRINT 2 TO 23: COLOR 3, 0: CLS
9470 LOCATE 23, 1
9480 RESET
9500 FOR M = 0 TO NN2: PRINT #2, NN$(M) + CHR$(10): PRINT N$(M): NEXT
9510 CLOSE : RESET
9520 A$ = CHR$(27): GOTO 8191