0 REM AUTO MENU    VIDEO VENTURES
1 REM COPYRIGHT 1986
2 REM PROGRAMMED BY SHAWN ORT
3 FORX=49152TO49191:READA:POKEX,A:NEXTX
4 POKE53280,2:POKE53281,.
5 PRINTCHR$(142)"[147]     PLEASE WAIT...READING DIRECTORY"
10 DIMN$(170)
30 OPEN2,8,0,"$0"
50 PN$=""
55 FORX=0TO170
60 SYS49152
65 IFPEEK(8193)=1THEN100
70 GET#2,PN$
80 N$(X)=N$(X)+PN$:GET#2,PN$:IFPN$<>CHR$(34)THEN80
85 FORXT=1TO26-LEN(N$(X)):GET#2,PN$:NEXTXT
90 NEXT
100 CLOSE2:SR=1:POKE53265,PEEK(53265)OR16:PRINT"[147]":NS=23
105 PRINT"":FORA=1TONS:PRINT"                    ":NEXT:PRINT""
110 FORL=SRTOSR+NS-1
112 IFL>170THEN133
114 IFL=XTHENPOKE646,6
115 PRINT"[153]"L""N$(L)
130 NEXT
135 GOSUB1000
140 GETA$:IFA$=""THEN140
150 IFA$="N"THENSR=SR+NS:IFSR<160ANDSR<X+1THEN105
152 IFA$="N"THENSR=SR-NS
155 IFA$="F"THENSR=1:GOTO105
160 IFA$="P"THENSR=SR-NS:IFSR>0THEN105
161 IFA$="L"THEN180
162 IFA$="R"THEN180
165 IFSR>171THENSR=SR-NS
166 IFSR<0THENSR=1
170 GOTO140
180 PRINT"";SPC(21);"[154]ENTER NUMBER:":PRINTSPC(21)"-->";
181 GOSUB60500:L=VAL(B$):IFL>160THEN180
182 IFL=.THENPRINT"[145][145]";:FORA=1TO2:PRINTTAB(21)"             ":NEXT:PRINT"[145][145]";
183 IFL=.THEN140
184 IFL=0THEN180
185 F$=N$(L)
190 PRINT"[147]AUTO MENU                 COPYRIGHT 1987"
193 PRINT"PROGRAMMED BY SHAWN ORT"
195 PRINT"":PRINT"LOAD"CHR$(34);F$;CHR$(34)",8,1[145][145][145]"
200 IFA$="O"THENPOKE631,13:POKE198,1:END
205 POKE631,13:POKE632,82:POKE633,85:POKE634,78:POKE635,13:POKE198,5:END
250 DATA162,2,32,198,255,32,207,255,201,199,240,16,201,214,240,12,201,34,208
251 DATA236,169,0,141,1,32,76,33,192,169,1,141,1,32,162,1,32,198,255,96,255
1000 PRINT""TAB(25)"[158]AUTO-MENU"
1010 PRINTTAB(23)"L[154]OAD PROGRAM"
1015 PRINTTAB(23)"R[154]UN PROGRAM"
1020 PRINTTAB(23)"N[154]EXT SCREEN"
1025 PRINTTAB(23)"P[154]REVIOUS SCREEN"
1030 PRINTTAB(23)"F[154]IRST SCREEN"
1040 PRINTTAB(23)"[158]COPYRIGHT 1987  "
1050 RETURN
60500 PRINT"[164]";:B$="":FORA=1TO4
60510 GETA$:IFA$=""THEN60510
60520 IFA$=CHR$(13)THENPRINT"[157] ":RETURN
60530 IFA$=CHR$(20)ANDA>1THENPRINT"[157][157]  [157][157][164]";:A=A-1:B$=LEFT$(B$,A-1):GOTO60510
60535 IFA=4THEN60510
60540 IFA$<"0"ORA$>"9"THEN60510
60550 PRINT"[157]"A$"[164]";:B$=B$+A$:NEXT