start tok64 d64-lkgYFu 0 GOTO10000:REM "$0:*=p" 1 : 2 REM (c) 1987 by: rocky moore 3 : 4 SYS65418:k=PEEK(45)+PEEK(46)*256:a=k-1094:p=k-1027:SYSa:t$(0)=",8":t$(1)=",8,1" 5 ln$="{sh asterisk*10}":ln$="{pink}"+ln$+ln$+ln$+ln$:sp$="{space*19}":sp$=sp$+sp$ 6 POKE53280,12:POKE53281,0:y=1:r$(0)="{reverse on}{white}":r$(1)="{reverse off}{light blue}":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"{clear}";CHR$(9)CHR$(142)CHR$(8):y=0:SYSp,14,0:PRINT"{light blue}U{cm r}IU{sh asterisk}IUIIU I" 13 SYSp,36,0:PRINT"{yellow}v{white}4{yellow}.{white}1" 14 SYSp,14,1:PRINT"{blue}{sh -*3}{cm q}{sh asterisk} {sh -*4} {sh -}" 16 SYSp,14,2:PRINT"{156}J KJ{sh asterisk}KJJKJ{sh asterisk}K":mx=15:IFmx>(n-g)THENmx=n-g 18 SYSp,8,4:PRINT"{red}created by:{space*2}{white}rocky moore":r=1:PRINTln$ 19 flash=1 20 a$="(c) 1987 software unlimited" 21 x=20-LEN(a$)/2:SYSp,x,6:PRINT"{cyan}";a$ 22 FORy=0TOmx:GOSUB50:NEXT:y=0:SYSp,5,22:PRINT"{156}use cursor key to move cursor" 24 SYSp,15,18:PRINT"{pink}comment{yellow}:" 26 SYSp,0,21:PRINTln$ 28 i=23:IFn>mxTHENi=24:SYSp,4,23:PRINT"{yellow}press the [n] key for next page" 30 SYSp,6,i:PRINT"{cyan}press [return] to load file{home}":POKE198,0 32 r=(r+1)*-(r<1):GOSUB50:t=0 34 GETa$:t=t+1:IFa$=""ANDt<20THEN34 36 IFa$="{down}"THENr=1:GOSUB50:y=y+1:GOSUB56:GOTO32 38 IFa$="{right}"ANDy+80THENr=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"{reverse off}";b$;a$;b$:RETURN 56 IFy>mxTHENy=0 58 IFy<0THENy=mx 60 RETURN 62 IFs(y+g)THENSYS52224:IF flash=0THENPOKE52722,173 64 PRINT"{clear}{down*3}{black}load";CHR$(34);f$(y+g);CHR$(34);t$(t(y+g)):PRINT"{down*4}";e$(y+g);CHR$(9);"{home}{white}" 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 1,"filename", 0,"start","comment" 299 : 300 OPEN1,8,15,"i0":PRINT#1,"s:menu":CLOSE1:SAVE"menu",8:VERIFY"menu",8 400 a$="menu creator":OPEN1,8,15,"i0":PRINT#1,"s:";a$:CLOSE1:SAVEa$,8:VERIFYa$,8:END 10000 nk=PEEK(45)+PEEK(46)*256-1054:PRINT"{clear}{space*15}{reverse on}build menu{reverse off}" 10010 PRINT"{down*3} insert destination disk and then press 10020 PRINT"{down} the [return] key to continue":POKE49154,0 10030 POKE198,0:WAIT198,1:GETa$:IFa$<>CHR$(13)THEN10030 10040 OPEN1,8,15,"i"::INPUT#1,e,e$,t,s:CLOSE1:IFe=0THENSYSnk:fp=20484:GOTO10060 10050 PRINT"{down} disk error:"e","e$","t","s:END 10060 IFPEEK(fp)THENfp=fp+1:GOTO10060 10065 GOTO10075 10070 fp=PEEK(49152)+PEEK(49153)*256 10075 a$="":co=0:fp=fp+3::li=PEEK(fp)+PEEK(fp+1)*256:fp=fp+2 10080 ch=PEEK(fp):IFch<>34ANDchTHENfp=fp+1:GOTO10080 10090 a$=a$+CHR$(ch):fp=fp+1:ch=PEEK(fp):IFch<>34ANDchTHEN10090 10095 a$=a$+CHR$(34):IFch=0THEN10210 10100 fp=fp+1:ch=PEEK(fp):IFchTHEN10100 10110 wd=1:sa=0:ss$="run":PRINT"{clear}{down*3} {reverse on}block size{reverse off}:"li:PRINT"{down} {reverse on}filename{reverse off}: ";a$ 10120 an$="y":INPUT"{down*2} keep this filename ({reverse on}y{reverse off}/{reverse on}n{reverse off}){space*2}y{left*3}";an$ 10130 POKE198,0:IFLEFT$(an$,1)<>"n"THEN10145 10135 INPUT"{down*2} are you sure ({reverse on}y{reverse off}/{reverse on}n{reverse off}/){space*2}n{left*3}";an$:IFLEFT$(an$,1)="y"THEN10075 10140 GOTO10110 10145 nf=PEEK(49154)+1:POKE49154,nf:q$=CHR$(34) 10150 INPUT"{down} warp/drive ({reverse on}y{reverse off}/{reverse on}n{reverse off}){space*2}y{left*3}";an$:IFLEFT$(an$,1)="n"THENwd=0 10160 an$="n":INPUT"{down} load with ',8,1' ({reverse on}y{reverse off}/{reverse on}n{reverse off}){space*2}n{left*3}";an$ 10170 IFLEFT$(an$,1)="y"THENsa=1 10180 INPUT"{down} starting statment{space*2}run{left*5}";ss$ 10185 PRINT"{down} comment (38 letters max.).":INPUT" ";co$:co$=LEFT$(co$,38) 10190 PRINT"{clear}{down*3}";MID$(STR$(100+nf),2);"dA";wd;"{left},";a$;",";sa;"{left},";q$;ss$;q$; 10195 PRINT",";q$;co$;q$:ms=INT(fp/256):ls=fp-ms*256:POKE49152,ls:POKE49153,ms 10200 PRINT"gO10070{home}":POKE631,13:POKE632,13:POKE198,2:END 10210 POKE2,0:REM *delete read part of menu * 10220 n=PEEK(2):POKE2,n+1:n1=n*5+10000:IFn1>10210THEN10240 10230 PRINT"{clear}{down*3}"MID$(STR$(n1),2):PRINT"gO10220{home}":POKE631,13:POKE632,13:POKE198,2:END 10240 PRINT"{clear}{down*2}":FORi=0TO4:PRINTMID$(STR$(i*10+10220),2):NEXT:PRINT"0rem{space*7}>menu creator v4.1<" 10250 PRINT"100dA"PEEK(49154)":rem number filenames":PRINT"400":PRINT"run300{home}" 10260 FORi=0TO7:POKE631+i,13:NEXT:POKE198,8:END stop tok64 (bastext 1.0)