Compucolor.org – Virtual Media

Listing of file='MENU.BAS;03' on disk='vmedia/comm_pgms-sideA-sector.ccvf'

10 POKE  32940,0: POKE  32941,191: REM  SET TOP OF MEM FOR BASIC
20 CLEAR  100
30 PLOT  27,4: PRINT  "RUN PATCH.LDA": PLOT  27,27
35 POKE  33282,195: POKE  33283,32: POKE  33284,191: REM  INSTALL CALL(X)
36 Z=  CALL  (128+ 64+ 1)
40 INPUT  "F=? ";F
50 Z=  CALL  (256+ 128+ F)
60 Z=  CALL  (3)
70 INPUT  A$
80 GOTO  40
90 END