10 CLEAR ,,999,16384 20 WIDTH LPRINT 80 30 KEY 1,CHR$(176):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):KEY 11,CHR$(186):KEY 12,CHR$(250)+CHR$(13) 41 BD$="1200":CP$="1":PR$="EVN":DB$="7":SB$="1" 50 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 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)1988-90 RufusPro" 160 PRINT " Programmed by B.Deforest 1990" 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 NOISE 6,15,.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 NOISE 0,15,.5: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,15,0 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 NOISE 1,15,1: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,15,0 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,15,0:NEXT 680 COLOR 1:LOCATE 13,49:PRINT "[ESC]" 690 WHILE INKEY$<>CHR$(27):WEND:SCREEN 0,0,0,0:NOISE 0,15,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 SAVE "vid3.sys":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,15,0:GOTO 220 870 END 880 VIEW PRINT 1 TO 25:SCREEN 0,0,0,0:PCOPY 0,1:NOISE 4,15,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,15,0: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,15,0 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 NOISE 1,15,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 NOISE 0,15,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,15,0 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 NOISE 1,15,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 NCHR$(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 BA 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,15,0: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,15,0: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:NOISE 2,15,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,15,0 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,15,0 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 SHIT ELSE 3120 3110 CLS:PRINT "No records present.":ON ERROR GOTO 880:CLOSE:NOISE 1,15,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$:NOISE 4,15,.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$:NOISE 4,15,.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 SHIT 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:NOISE 4,15,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,15,0: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,15,0: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,15,0: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 NOISE 2,15,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,15,0 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,15,0: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,15,0: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 N1 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,15,0:SOUND 999,.5,15,0: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,15,0 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,15,0 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 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,15,0 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:SYSTEM 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$,100 6240 SHIT 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,15,0: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":SHIT 6630 RESUME 6640 6640 ON ERROR GOTO 880:E=99:SHIT 6650 PCOPY 0,1:COLOR 8,7:PLAY "MB":SOUND ON: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 NOISE 0,15,.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 NOISE 0,15,.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 SOUND ON: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 ACHR$(27) AND EOF(1)<>-1 6960 IF FLA=3 THEN INPUT #1,A 6970 INPUT #1,A,B:IF ACHR$(27) AND EOF(1)<>-1 7000 IF FLA=3 THEN INPUT #1,A 7010 INPUT #1,A,B,C:IF A" ":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 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 SOUND 900,.5:SOUND 800,.5:SOUND 850,1:PCOPY 0,1:RETURN 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,14,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,12,0:PRINT CHR$(29)+CHR$(29)+A$+"° ";:GOTO 9180