Listing of file='MENUDA.BAS;01' on disk='vmedia/utility-sector.ccvf'
10 REM M E N U 15 GOSUB 150 20 PLOT 12 30 PLOT 3,10,5 40 PRINT " DO YOU WANT THE ......" 50 PRINT :PRINT 60 PRINT TAB( 10);" 1) THE 8080 DISASSEMBLER":PRINT 65 PRINT TAB( 10);" 2) 8080 DISASSEMBLER - SET FOR PRINTING" 80 PRINT :PRINT TAB( 10);" 3) BACK TO BASIC" 90 PRINT :PRINT :PRINT TAB( 20);" SELECTION : ";:A= CALL (0) 100 A= A- 48:IF A< 1OR A> 3THEN PRINT A:GOTO 90 110 ON AGOTO 120,125,140 120 LOAD "8080D":RUN 125 LOAD "8080P":RUN 140 PLOT 12:END 150 POKE 33283,232:POKE 33284,253 160 ADR= 65000 170 FOR I= 0TO 18 180 READ V:POKE (ADR+ I),V 190 NEXT I 200 RETURN 210 DATA 245,229,197,205,36,0 220 DATA 194,235,253,95,175,87 230 DATA 50,255,129,193,225,241 240 DATA 201