Listing of file='MENU.BAS;01' on disk='vmedia/BASIC_language_11-15-sector.ccvf'
100 REM COPYRIGHT (C) BY COMPUCOLOR 1980 BY KLH 105 ADR= 256* PEEK (32941)+ PEEK (32940):IF ADR> 65484THEN 150 110 IF ADR< > 256* PEEK (ADR+ 50)+ PEEK (ADR+ 49)THEN 150 115 CLEAR 50 120 ADR= 256* PEEK (32941)+ PEEK (32940) 125 A= PEEK (ADR+ 41):B= PEEK (ADR+ 42) 130 IF A< > BTHEN 165 135 A= A+ 10 140 A$= MID$ (STR$ (A),2) 145 A$= "TTRL"+ A$:LOAD A$:RUN 150 ADR= 256* PEEK (32941)+ PEEK (32940):ADR= ADR- 51 155 POKE 32941,INT (ADR/ 256):POKE 32940,ADR- INT (ADR/ 256)* 256 160 POKE ADR+ 50,INT (ADR/ 256):POKE ADR+ 49,ADR- INT (ADR/ 256)* 256 165 CLEAR 50 170 PLOT 27,11,6,2,12 175 PRINT " C O M P U C O L O R C O R P O R A T I O N 180 PRINT "BASIC LANGUAGE VOLUME TWO" 185 PRINT 190 PRINT "TYPE IN THE NUMBER OF THE TUTORIAL YOU WANT FROM THE MENU BELOW" 195 PRINT :PRINT "1 - TUTORIAL 11 : BASIC STATEMENTS FOR MACHINE INTERFACING 200 PRINT "2 - TUTORIAL 12 : KEY MEMORY LOCATIONS 205 PRINT "3 - TUTORIAL 13 : THE FLAG STRUCTURE 210 PRINT "4 - TUTORIAL 14 : GRAPHICS REVISITED 215 PRINT "5 - TUTORIAL 15 : ALGORITHMS AND MISCELLANEOUS 220 INPUT "MENU SELECTION (TYPE IN THE NUMBER YOU WANT AND HIT RETURN): ";A$:A= VAL (A$)+ 10 225 IF A< 11OR A> 15THEN PLOT 28,11:GOTO 220 230 ADR= 256* PEEK (32941)+ PEEK (32940) 235 POKE ADR+ 41,A:POKE ADR+ 42,A:POKE ADR+ 44,0:POKE ADR+ 45,0 240 GOTO 140