Listing of file='DEVMEN.BAS;01' on disk='vmedia/chip_62-sector.ccvf'
0 REM <0xF5> INT 2<0xFF> FOR <0xF1> <0xC9> BY TOM DEVLIN 1 CLEAR 50:A= 33010:POKE 33221,195:POKE 33222,160:POKE 33223,130:POKE 33247,30 2 PRINT "XDDIR 3 PRINT "/R=RUN/L=LOAD / C=COPY (V6.78)/D=DELETE/ P=PRINT/S=SAVE/Q=QUIT/0=CD0/1=CD1":PLOT 3,64,31 4 S= Y* 128+ 29441:IF PEEK (S+ 7)= 60THEN Y= Y- 1:GOTO 4 5 POKE S- 1,62:POKE S,10:GOSUB 22:IF K= 28AND Y> 0OR K= 10AND Y< 25THEN Y= (K= 28)* 2+ 1+ Y:POKE S,0:GOTO 4 6 IF K= 81THEN PRINT "K":END 7 IF K= 80THEN GOSUB 27 8 IF K= 48OR K= 49THEN POKE A,K:RUN 9 IF K= 83THEN SAVE "MENU":RUN 10 P$= "":FOR I= 7TO 31STEP 2:C= PEEK (S+ I):IF C> 32THEN P$= P$+ CHR$ (C) 11 NEXT :T= PEEK (S+ 21):IF K= 82AND T= 66THEN PRINT "K":LOAD P$:RUN 12 IF K= 82AND (T= 76OR T= 80)THEN POKE 33247,0:PRINT "K DRUN "P$:END 13 IF K= 76AND (T= 76OR T= 80)THEN PRINT "c/CLOADINGDLOA "P$" ":POKE S,0:Y= Y+ 1 14 IF K= 68THEN 19 15 IF K< > 67THEN 3 16 POKE 33195,0:POKE 33196,0:D= PEEK (A)- 48:TD= ABS (D- 1):POKE A,TD+ 48:PRINT "DCOP"D":"P$"TO"TD": ":POKE A,D+ 48 17 IF PEEK (33231)= 1THEN GOSUB 22:GOTO 3 18 Y= Y+ 1:GOTO 2 19 PRINT "c/ADELETE? ":GOSUB 22:IF K= 68THEN 19 20 IF K= 89THEN PRINT "DDEL "P$" 21 GOTO 3 22 OUT 11,255:POKE 33278,0:POKE 33252,0 23 K= PEEK (33278):K= (K> 95)* 32+ K:IF KTHEN RETURN 24 GOTO 23 27 PLOT 14,27,18,3,27,7 28 PRINT "DIR":PLOT 27,27,15:RETURN