start tok64 d64-omo8IX
10 REM" menu loader
15 OPEN 15,8,15:PRINT#15,"ui
17 PRINT#15,"i0":CLOSE15
20 GOSUB5000:IF nc=1 THEN n$="{?*4}-9{f*3} kareu"
30 IF nc=2 THEN n$="{?*4}-c{f*3} kareu"
40 IF nc=3 THEN n$="reu ramdos"
50 POKE53280,14:POKE53281,6
60 PRINT"{clear}{blue}{down*4}":PRINT"load";CHR$(34);n$;CHR$(34);",8,1":PRINT"{down*3}"
70 PRINT"{light blue}"
80 PRINT"{up*9}":POKE631,13:POKE632,13:POKE198,1
90 END
5000 REM" menu nc
5010 cl=15:cy=151:bl=144:REM"colours
5020 IF no>0 GOTO5060
5030 READ no,nc:DIM n$(no),op$(no)
5040 FORx=0TOno:READ op$(x):NEXT
5060 PRINT"{clear}{ct n}";:POKE 53280,cl:POKE 53281,cl
5070 PRINT"{blue}{cm a}";:FORx=1TO37:PRINT"{sh asterisk}";:NEXT:PRINT"{cm s}"
5080 PRINT"{cm g}{white}{space*3}KA PROGRAM MENU at your service{space*3}{blue}{cm m}
5090 PRINT"{blue}{cm z}";:FORx=1TO37:PRINT"{sh asterisk}";:NEXT:PRINT"{cm x}"
5100 PRINT:PRINTCHR$(bl)" Choose with {reverse on} CURSOR {reverse off}
5110 PRINT "{home}{down*4}"
5120 FORx=1TOno:n$(x)=CHR$(cy)+CHR$(146+128*(x=nc))+CHR$(-bl*(x=nc)):NEXT
5130 PRINTTAB(43)CHR$(146+128*(nc>0))"{orange} RETURN {reverse off}{space*2}to Execute{down}":PRINT"{white}"
5140 FORx=0TOno:PRINTTAB(19-LEN(op$(x))/2)n$(x)op$(x):NEXT
5150 GETc1$:IFc1$="{down}"THENnc=ABS(nc):nc=1+nc*SGN(no-nc):GOTO5110
5160 IFc1$="{up}"THENnc=ABS(nc):nc=nc-1-no*SGN(nc-1)+no:GOTO5110
5170 z=FRE(8):IFc1$=CHR$(13)THEN nc=ABS(nc):RETURN
5180 nc=-nc:GOTO5110
5190 DATA3,1
5200 DATA"{down}{space*2}*** RAM Expansion Modul ***{down*2}"
5210 DATA "{down}KA43 and RAMDOS at top of RAM"
5220 DATA "{down}KA43 and RAMDOS from 49152 to 53247"
5230 DATA "{down}RAMDOS with or without TURBO LOAD"
stop tok64
(bastext 1.0)