Listing of file='MENU.BAS;01' on disk='vmedia/BASIC_language_6-10-sector.ccvf'
90 REM COPYRIGHT (C) BY COMPUCOLOR 1979 BY KLH 10/28/79 100 ADR= 256* PEEK (32941)+ PEEK (32940):IF ADR> 65523THEN 200 105 IF ADR< > 256* PEEK (ADR+ 50)+ PEEK (ADR+ 49)THEN 200 110 CLEAR 50 111 ADR= 256* PEEK (32941)+ PEEK (32940) 120 A= PEEK (ADR+ 41):B= PEEK (ADR+ 42) 130 IF A< > BTHEN 1000 190 A$= STR$ (A+ 5):A$= MID$ (A$,2) 195 A$= "TTRL"+ A$:LOAD A$:RUN 200 ADR= 256* PEEK (32941)+ PEEK (32940):ADR= ADR- 51 210 POKE 32941,INT (ADR/ 256):POKE 32940,ADR- INT (ADR/ 256)* 256 220 POKE ADR+ 50,INT (ADR/ 256):POKE ADR+ 49,ADR- INT (ADR/ 256)* 256 1000 CLEAR 50:PLOT 29,14,6,2,12,27,11,3,10,0 1010 PRINT "C O M P U C O L O R C O R P O R A T I O N" 1020 PLOT 3,19,2 1030 PRINT "BASIC LANGUAGE VOLUME ONE" 1040 PRINT 1050 PRINT "TYPE IN THE NUMBER OF THE TUTORIAL YOU WANT FROM THE MENU BELOW" 1060 PRINT :PRINT "6 - TUTORIAL 6 : GRAPHICS 1070 PRINT "7 - TUTORIAL 7 : USER FUNCTIONS, ARRAYS, AND DISK FEATURES 1080 PRINT "8 - TUTORIAL 8 : THE FILE CONTROL SYSTEM 1090 PRINT "9 - TUTORIAL 9 : RANDOM FILES 1100 PRINT "10 - TUTORIAL 10 : PROGRAMMING IN THE BASIC DEMO 1110 PRINT 1140 INPUT "MENU SELECTION (TYPE IN THE NUMBER YOU WANT AND HIT RETURN): ";A$:A= VAL (A$) 1150 IF A< 6OR A> 10THEN PLOT 28,11:GOTO 1140 1160 ADR= 256* PEEK (32941)+ PEEK (32940):A= A- 5 1170 POKE ADR+ 41,A:POKE ADR+ 42,A:POKE ADR+ 44,0:POKE ADR+ 45,0 1180 GOTO 190