Listing of file='MENU.BAS;01' on disk='vmedia/BASIC_language_1-5-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):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 "1 - TUTORIAL 1 : DEMO OF BASIC CAPABILITIES 1070 PRINT "2 - TUTORIAL 2 : INTRODUCTION AND ESCAPE SEQUENCES 1080 PRINT "3 - TUTORIAL 3 : FUNDAMENTALS AND SIMPLE PROGRAMMING 1090 PRINT "4 - TUTORIAL 4 : MORE STATEMENTS, FEATURES, AND PROGRAMMING 1100 PRINT "5 - TUTORIAL 5 : LOOPS, SUBROUTINES, BRANCHING, AND FUNCTIONS 1110 PRINT 1140 INPUT "MENU SELECTION (TYPE IN THE NUMBER YOU WANT AND HIT RETURN): ";A$:A= VAL (A$) 1150 IF A< 1OR A> 5THEN PLOT 28,11:GOTO 1140 1160 ADR= 256* PEEK (32941)+ PEEK (32940) 1170 POKE ADR+ 41,A:POKE ADR+ 42,A:POKE ADR+ 43,A:POKE ADR+ 44,0:POKE ADR+ 45,0 1180 GOTO 190