Compucolor.org – Virtual Media

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