start tok64 d64-rDqAsH 1 REM***program by joseph w. teall*** 2 REM***7430 maple island road*** 3 REM***holton, mi 49425*** 4 REM***4/10/86*** 5 GOSUB143:PRINT"{clear}":PRINTCHR$(142):DIMa$(650):POKE53280,1:POKE53281,1:PRINT"{black}" 6 GOSUB71:PRINT"{down*2} (1){space*5}read files" 7 PRINT"{down*2} (2){space*5}input or edit files":PRINT"{down*2} (3){space*5}copy file" 8 PRINT"{down*2} (4){space*5}delete file":PRINT"{down*3} enter a code (1 to 4)" 9 GOSUB73:IFa<1ORa>4THEN9 10 ONaGOTO11,28,54,57 11 GOSUB71:PRINT"{down} (1){space*5}get files by name" 12 PRINT"{down} (2){space*5}get files by rating":PRINT"{down} (3){space*5}get files by type" 13 PRINT"{down} (4){space*5}get files by tape number":PRINT"{down} (5){space*5}review all files" 14 PRINT"{down} (6){space*5}return to main menu":PRINT"{down*2} enter a code (1 to 6)" 15 GOSUB73:IFa<1ORa>6THEN15 16 ONaGOTO17,18,21,24,27,6 17 m$="nmenu":GOSUB76:d=1:GOSUB85:d$=a$(g):GOSUB97:GOSUB100:GOTO11 18 m$="rmenu":GOSUB76:d=1:GOSUB85:i$=a$(g):m$="nmenu":GOSUB76 19 FORb=1TOc:d$=a$(b):GOSUB97:IFf$=i$THENGOSUB100 20 NEXT:GOTO11 21 m$="tmenu":GOSUB76:d=1:GOSUB85:i$=a$(g):m$="nmenu":GOSUB76 22 FORb=1TOc:d$=a$(b):GOSUB97:IFh$=i$THENGOSUB100 23 NEXT:GOTO11 24 PRINT"{clear}":INPUT"{down*6}get what tape number";i$:m$="nmenu":GOSUB76 25 FORb=1TOc:d$=a$(b):GOSUB97:IFe$=i$THENGOSUB100 26 NEXT:GOTO11 27 m$="nmenu":GOSUB76:FORb=1TOc:d$=a$(b):GOSUB97:GOSUB100:NEXT:GOTO11 28 GOSUB71:PRINT"{down*3} (1){space*5}input a new file" 29 PRINT"{down*2} (2){space*5}edit an existing file" 30 PRINT"{down*2} (3){space*5}return to main menu":PRINT"{down*3} enter a code (1 to 3)" 31 GOSUB73:IFa<1ORa>3THEN31 32 ONaGOTO33,37,6 33 PRINT"{clear}":INPUT"{down*2}program name";d$:INPUT"{down}tape number";e$:INPUT"{down}rating";f$ 34 INPUT"{down}time";g$:INPUT"{down}type";h$:h=1:PRINT"{down}discription" 35 INPUTj$(h):GOSUB112:IFc$="{f1}"THENh=h+1:GOTO35 36 GOSUB116:GOTO28 37 m$="nmenu":GOSUB76:d=1:GOSUB85:d$=a$(g):GOSUB97:PRINT"{clear}":PRINTd$ 38 c1=0:c2=0:PRINT"{down}tape number: "e$:GOSUB134:IFc$="y"THEN40 39 INPUT"{down}tape number";e$ 40 y$=f$:PRINT"{down}rating: "f$:GOSUB134:IFc$="y"THEN42 41 INPUT"{down}rating";f$ 42 PRINT"{down}time: "g$:GOSUB134:IFc$="y"THEN44 43 INPUT"{down}time";g$ 44 z$=h$:PRINT"{down}type: "h$:GOSUB134:IFc$="y"THEN46 45 INPUT"{down}type";h$ 46 PRINT"{down}discription:":FORj=1TOh:PRINTj$(j):NEXT:GOSUB134:IFc$="y"THEN49 47 h=1 48 INPUTj$(h):GOSUB112:IFc$="{f1}"THENh=h+1:GOTO48 49 GOSUB116:m$="nmenu":GOSUB76:FORb=1TOc:d$=a$(b):GOSUB97:IFf$=y$THENc1=1 50 IFh$=z$THENc2=1 51 NEXT:IFc1=0THENGOSUB137 52 IFc2=0THENGOSUB140 53 GOTO28 54 m$="nmenu":GOSUB76:d=1:GOSUB85:d$=a$(g):GOSUB97 55 PRINT"{clear}":PRINTTAB(11)"{down*6}insert backup disk" 56 PRINTTAB(8)"{down}press any key when ready":GOSUB83:GOSUB116:GOTO6 57 m$="nmenu":GOSUB76:d=1:GOSUB85:PRINT"{clear}":PRINTTAB(8)"{down*6}warning!" 58 PRINT"{down*3}use of this option will" 59 PRINT"{down}erase "a$(g) 60 PRINT"{down}from the disk. press q to quit or":PRINT"{down}c to continue" 61 GOSUB83:IFc$<>"q"ANDc$<>"c"THEN61 62 IFc$="q"THEN6 63 d$=a$(g):GOSUB97:y$=f$:z$=h$ 64 OPEN15,8,15,"s:"+a$(g):GOSUB79:CLOSE15:FORm=gTOc:a$(m)=a$(m+1):NEXT 65 c=c-1:GOSUB132:c1=0:c2=0:FORb=1TOc:d$=a$(b):GOSUB97 66 IFf$=y$THENc1=1 67 IFh$=z$THENc2=1 68 NEXT:IFc1=0THENGOSUB137 69 IFc2=0THENGOSUB140 70 GOTO6 71 PRINT"{clear}":PRINTTAB(6)"*****video tape catalog*****" 72 PRINT"{down} code{space*5}function":PRINT" {-*4}{space*5}{-*8}":RETURN 73 GETa$:IFa$=""THEN73 74 a=VAL(a$) 75 RETURN 76 GOSUB78:OPEN15,8,15:OPEN2,8,2,"0:"+m$+",s,r":GOSUB79:INPUT#2,c 77 FORb=1TOc:INPUT#2,a$(b):NEXT:GOSUB79:CLOSE2:CLOSE15:RETURN 78 PRINT"{clear}":PRINTTAB(15)"{down*8}please wait":RETURN 79 INPUT#15,w,x$,y,z:IFw<20THENRETURN 80 CLOSE2:PRINT"{clear}":PRINTTAB(10)"*****disk error*****" 81 PRINT"{down*6}{space*5}"x$:PRINT"{down*5}{space*5}press any key to continue":GOSUB83 82 PRINT#15,"i":CLOSE15:GOTO6 83 GETc$:IFc$=""THEN83 84 RETURN 85 PRINT"{clear}":PRINTTAB(6)"*****video tape catalog*****{down}" 86 e=d+6:IFe>cTHENe=c 87 IFe>7THENd=d-1:PRINT"{down} ("d"){space*5}previous menu" 88 d1=d:IFe>7THENd1=d+1 89 FORf=d1TOe:PRINT"{down} ("f"){space*5}"a$(f):NEXT 90 IFeeTHEN91 93 IFg=1THENRETURN 94 IFe>7ANDg=dTHENd=d-6:GOTO85 95 IFe"y"ANDc$<>"n"THEN103 104 IFc$="n"THENRETURN 105 REM printer routine 106 GOSUB78:OPEN4,4:eo$=CHR$(14):ef$=CHR$(15):po$=CHR$(16) 107 PRINT#4,eo$;po$;"10";"*****video tape catalog*****":PRINT#4:PRINT#4 108 PRINT#4,d$;ef$:PRINT#4:PRINT#4,"tape number: "e$:PRINT#4 109 PRINT#4,"rating: "f$;po$;"40";"time: "g$ 110 PRINT#4:PRINT#4,"type: "h$:PRINT#4:PRINT#4,"discription:":FORj=1TOh 111 PRINT#4,j$(j):NEXT:FORx=1TO7:PRINT#4:NEXT:CLOSE4:RETURN 112 PRINT"{down}press f1 to continue input or" 113 PRINT"f7 to end input on discription{down}" 114 GOSUB83:IFc$<>"{f1}"ANDc$<>"{f7}"THEN114 115 RETURN 116 GOSUB78:OPEN15,8,15:OPEN2,8,2,"@0:"+d$+",s,w":GOSUB79:PRINT#2,e$ 117 PRINT#2,f$:PRINT#2,g$:PRINT#2,h$:PRINT#2,h:FORj=1TOh 118 PRINT#2,j$(j):NEXT:GOSUB79:CLOSE2:CLOSE15:n$=d$:m$="nmenu" 119 GOSUB129:IFck=1THEN122 120 GOSUB76:FORb=1TOc:IFa$(b)=d$THEN122 121 NEXT:c=c+1:a$(c)=d$:GOSUB132 122 n$=f$:m$="rmenu":GOSUB129:IFck=1THEN125 123 GOSUB76:FORb=1TOc:IFa$(b)=f$THEN125 124 NEXT:c=c+1:a$(c)=f$:GOSUB132 125 n$=h$:m$="tmenu":GOSUB129:IFck=1THEN128 126 GOSUB76:FORb=1TOc:IFa$(b)=h$THEN128 127 NEXT:c=c+1:a$(c)=h$:GOSUB132 128 RETURN 129 GOSUB78:ck=0:OPEN15,8,15:OPEN2,8,2,"0:"+m$+",s,r":INPUT#15,w,x$,y,z 130 CLOSE2:CLOSE15:IFw=62THENc=1:a$(c)=n$:ck=1:GOTO132 131 RETURN 132 GOSUB78:OPEN15,8,15:OPEN2,8,2,"@0:"+m$+",s,w":GOSUB79:PRINT#2,c 133 FORb=1TOc:PRINT#2,a$(b):NEXT:GOSUB79:CLOSE2:CLOSE15:RETURN 134 PRINT"{down}is this correct (y/n)?" 135 GOSUB83:IFc$<>"y"ANDc$<>"n"THEN135 136 RETURN 137 m$="rmenu":GOSUB76:FORb=1TOc 138 IFa$(b)=y$THENFORm=bTOc:a$(m)=a$(m+1):NEXT:c=c-1:GOSUB132 139 NEXT:RETURN 140 m$="tmenu":GOSUB76:FORb=1TOc 141 IFa$(b)=z$THENFORm=bTOc:a$(m)=a$(m+1):NEXT:c=c-1:GOSUB132 142 NEXT:RETURN 143 POKE53280,1:POKE53281,1:PRINTCHR$(14)"{clear}"; 144 PRINT"{down}{reverse off}{black}****************************************"; 145 PRINT"*{space*38}*"; 146 PRINT"*{space*11}Video Tape File{space*12}*"; 147 PRINT"*{space*11}{-*15}{space*12}*"; 148 PRINT"*{space*4}If you find this program useful{space*3}*"; 149 PRINT"*{space*38}*"; 150 PRINT"*{space*2}please consider sending the author{space*2}*"; 151 PRINT"*{space*38}*"; 152 PRINT"*{space*4}five dollars (or whatever you{space*5}*"; 153 PRINT"*{space*38}*"; 154 PRINT"*{space*4}think it's worth). In any case{space*4}*"; 155 PRINT"*{space*38}*"; 156 PRINT"*{space*5}please distribute it to your{space*5}*"; 157 PRINT"*{space*38}*"; 158 PRINT"*{space*5}friends or any public domain{space*5}*"; 159 PRINT"*{space*38}*"; 160 PRINT"*{space*2}libraries that you have access to.{space*2}*"; 161 PRINT"*{space*38}*"; 162 PRINT"*{space*11}Joseph W. Teall{space*12}*"; 163 PRINT"*{space*7}7430 Maple Island Road{space*9}*"; 164 PRINT"*{space*10}Holton, MI 49425{space*12}*"; 165 PRINT"*{space*38}*"; 166 PRINT"*{space*11}Press any key{space*14}*"; 167 PRINT"****************************************"; 168 GETaa$:IFaa$=""THEN168 169 RETURN stop tok64 (bastext 1.0)