Compucolor.org – Virtual Media

Listing of file='8P3.BAS;01' on disk='vmedia/color_graphics_2_suits-sector.ccvf'

5 REM  PROGRAM 8.3
6 REM  POKE ANY INTO SCREEN MEMORY
10 PLOT 6,6,12:REM  SET UP
19
20 PLOT 3,0,5:REM  POSITION CURSOR
30 PLOT 11:REM  ERASE ANY PREVIOUS INPUT
40 INPUT "POKE WHAT NUMBER? ";N$:N= VAL (N$)
50 IF N< 0OR N< > INT (N)OR N> 255THEN 20
59
60 PLOT 11:REM  ERASE NEXT LINE
70 PRINT "CHARACTER ="N
80 POKE 28672,N
89
90 GOTO 20