Listing of file='MENU.BAS;01' on disk='vmedia/chip_138-sector.ccvf'
0 CLEAR 99:POKE 33283,200:POKE 33284,133:GOTO 2:<0xFF> BY TOM DEVLIN 1 PLOT 3,64,31:K= CALL (S):RETURN 2 PRINT " XDDIR 3 PRINT " /V8.2 ROM "2+ INT (FRE (X)/ 1E3)"K /R=RUN/L=LOAD / C=COPY/ D=DELETE/ P=PRINT/S=SAVE/Q=QUIT/0=CD0/1=CD1/A/B=RAM CARD 4 S= Y* 128+ 29441:U= PEEK (S+ 7)= 60:ON U+ 1GOSUB 1:U= UOR K= 28AND Y> 0OR ABS (K= 10AND Y< 25):Y= Y+ U:ON ABS (UOR K= 28)GOTO 4:IF K= 81THEN PRINT " K":END 5 A= 33010:IF (KOR 1)= 49THEN POKE A,K:RUN 6 IF K= 80THEN PRINT "GDIR 7 IF K= 83THEN SAVE "MENU;82":RUN 8 P$= "":ON KGOTO 4:FOR I= 7TO 31STEP 2:P= PEEK (S+ I):IF P> 32THEN P$= P$+ CHR$ (P) 9 NEXT :IF K= 67THEN D= PEEK (A)AND 1:POKE A,49- D:PRINT "DCOP"D":"P$"TO ":POKE A,D+ 48 10 IF K= 68THEN PRINT "c/ ADELETE? ":GOSUB 1:IF K= 89THEN Y= Y+ (Y> 0):PRINT "DDEL "P$" 11 T= PEEK (S+ 21):IF T= 66AND (K= 76OR K= 82)THEN POKE 33247,12:PRINT "K":ON K- 75GOTO 15:LOAD P$:RUN 12 V= T= 76OR T= 80:IF K= 82AND VTHEN P$= "KDRUN "+ P$+ " ":G= CALL (24) 13 L= (PEEK (S+ 63)OR 1)= 55:IF K= 76AND (LOR V)THEN PRINT "c/CLOADINGDLOA "P$" ":Y= Y+ 1:IF LTHEN PLOT 17 14 E= PEEK (33231):ON EGOSUB 1:ON EGOTO 2,3:Y= Y+ 1:GOTO 2 15 LOAD P$