Compucolor.org – Virtual Media

Listing of file='MENU.BAS;01' on disk='vmedia/asmtut_disk1-sector.ccvf'

100 PLOT 6,2,15,12,27,24
110 POKE 32941,191:POKE 32940,172:CLEAR 100:PLOT 27,4:PRINT "LOA SCROLL.PRG":PLOT 27,27
120 POKE 33283,173:POKE 33284,191:DU= 49113:POKE DU,128
130 PLOT 6,8,14,3,6,8:PRINT "    A S S E M B L E R   T U T O R I A L   # 1,2,3    "
150 PLOT 15,6,3,3,10,20:PRINT "ENTER THE TUTORIAL AT WHICH YOU WISH TO START:"
160 PLOT 3,16,22:PRINT "1. NUMBER SYSTEMS"
170 PLOT 3,16,23:PRINT "2. BINARY LOGIC"
180 PLOT 3,16,24:PRINT "3. 8080 ARCHITECTURE"
195 GOSUB 250:PLOT 3,16,27:INPUT "";I$
200 I= VAL (I$):IF I< 0OR I> 3THEN PLOT 28,11:GOTO 195
240 PLOT 6,2,12:GOSUB 260:A$= "TUTE"+ I$:LOAD A$:RUN
250 FOR I= 10TO 24STEP 2:Z= CALL (I):NEXT
260 FOR I= 24TO 10STEP - 2:Z= CALL (I):NEXT :RETURN