Compucolor.org – Virtual Media

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