Compucolor.org – Virtual Media

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