0 REM       >MENU CREATOR V3.0<
1 :
2 REM    (C) 1985 BY:  ROCKY MOORE
3 :
4 SYS65418:K=PEEK(45)+PEEK(46)*256:A=K-1086:P=K-1019:SYSA:T$(0)=",8":T$(1)=",8,1"
5 LN$="[192][192][192][192][192][192][192][192][192][192]":LN$="[150]"+LN$+LN$+LN$+LN$:SP$="                   ":SP$=SP$+SP$
6 POKE53280,12:POKE53281,0:Y=1:R$(0)="":R$(1)="[146][154]":X(0)=2:X(1)=22
8 READN:N=N-1:DIMS(N),F$(N),T(N),E$(N),C$(N)
10 FORI=0TON:READS(I),F$(I),T(I),E$(I),C$(I):NEXT
12 PRINT"[147]";CHR$(9)CHR$(142)CHR$(8):Y=0:SYSP,14,0:PRINT"[154][213][178][201][213][192][201][213][201][201][213] [201]"
13 SYSP,36,0:PRINT"[158]V3[158].0"
14 SYSP,14,1:PRINT"[221][221][221][171][192] [221][221][221][221] [221]"
16 SYSP,14,2:PRINT"[156][202] [203][202][192][203][202][202][203][202][192][203]":MX=15:IFMX>(N-G)THENMX=N-G
18 SYSP,8,4:PRINT"CREATED BY:  ROCKY MOORE":R=1:PRINTLN$
20 A$="COURTESY OF HACKER SOFTWARE INC."
21 X=20-LEN(A$)/2:SYSP,X,6:PRINT"[159]";A$
22 FORY=0TOMX:GOSUB50:NEXT:Y=0:SYSP,5,22:PRINT"[156]USE CURSOR KEY TO MOVE CURSOR"
24 SYSP,15,18:PRINT"[150]COMMENT[158]:"
26 SYSP,0,21:PRINTLN$
28 I=23:IFN>MXTHENI=24:SYSP,4,23:PRINT"[158]PRESS THE [N] KEY FOR NEXT PAGE"
30 SYSP,6,I:PRINT"[159]PRESS [RETURN] TO LOAD FILE":POKE198,0
32 R=(R+1)*-(R<1):GOSUB50:T=0
34 GETA$:T=T+1:IFA$=""ANDT<20THEN34
36 IFA$=""THENR=1:GOSUB50:Y=Y+1:GOSUB56:GOTO32
38 IFA$=""ANDY+8<MX+1THENR=1:GOSUB50:Y=Y+8:GOSUB56:GOTO32
40 IFA$="[145]"THENR=1:GOSUB50:Y=Y-1:GOSUB56:GOTO32
42 IFA$="[157]"ANDY-8=>0THENR=1:GOSUB50:Y=Y-8:GOSUB56:GOTO32
44 IFA$="N"THENG=(G+16)*-(G<=N-16):GOTO12
46 IFA$=CHR$(13)THEN62
48 GOTO32
50 RL=Y-(8*-(Y=>8)):SYSP,X(-(Y=>8)),RL+9:PRINTR$(R);LEFT$(F$(Y+G),16)
52 SYSP,1,20:A$=LEFT$(C$(Y+G),38):A=LEN(A$):B$=LEFT$(SP$,19-A/2)
54 PRINT"[146]";B$;A$;B$:RETURN
56 IFY>MXTHENY=0
58 IFY<0THENY=MX
60 RETURN
62 IFS(Y+G)THENSYS52256
64 PRINT"[147]LOAD";CHR$(34);F$(Y+G);CHR$(34);T$(T(Y+G)):PRINT"";E$(Y+G);CHR$(9);""
66 POKE631,13:POKE632,13:POKE198,2:END
68 :
70 :
98 REM 0=NO WARP/DRIVE   0= ",8"
100 DATA 1 :REM NUMBER FILENAMES
101 DATA 0,"E-Z.SEQ.READ", 1,"RUN","USE TO VIEW OR PRINT MANUAL"
299 :
300 OPEN1,8,15,"I0":PRINT#1,"S:MENU":CLOSE1:SAVE"MENU",8:VERIFY"MENU",8