DEFINT A-Z

DECLARE SUB modex ()
DECLARE SUB page (active, visual)
DECLARE SUB pixel (x, y, c)

modex
page 0, 0

COLOR 12

OUT &H3C4, &H2
OUT &H3C5, &HFF
s$ = "Ben" + SPACE$(7)
PRINT s$; s$; s$; s$

FOR i = 0 TO 100
pixel 319 - i, 239 - i, 14 - (i AND 1) * 2
NEXT


OUT &H3D4, &H8
OUT &H3D5, INP(&H3D5) OR 2 ^ 5

'x = INP(&H3DA)
'OUT &H3C0, &H13
'OUT &H3C0, 31

DO
a$ = INKEY$
IF a$ = CHR$(0) + "M" THEN x = x + 1
y = INP(&H3DA)
OUT &H3C0, &H13
OUT &H3C0, x MOD 4'AND &HFFF0

OUT &H3D4, &HD
OUT &H3D5, x \ 4

LOOP UNTIL INP(&H60) = 1

SYSTEM

SUB modex
   SCREEN 13
   OUT &H3C4, &H4: OUT &H3C5, &H6: OUT &H3C4, &H0
   OUT &H3C5, &H1: OUT &H3C2, &HE3: OUT &H3C4, &H0
   OUT &H3C5, &H3: OUT &H3D4, &H11: x = INP(&H3D5) AND &H7F
   OUT &H3D5, x: OUT &H3D4, &H6: OUT &H3D5, &HD
   OUT &H3D4, &H7: OUT &H3D5, &H3E: OUT &H3D4, &H9
   OUT &H3D5, &H41: OUT &H3D4, &H10: OUT &H3D5, &HEA
   OUT &H3D4, &H11: OUT &H3D5, &HAC: OUT &H3D4, &H12
   OUT &H3D5, &HDF: OUT &H3D4, &H14: OUT &H3D5, &H0
   OUT &H3D4, &H15: OUT &H3D5, &HE7: OUT &H3D4, &H16
   OUT &H3D5, &H6: OUT &H3D4, &H17: OUT &H3D5, &HE3
END SUB

SUB page (active, visual)
   OUT &H3D4, &HC
   OUT &H3D5, &H4B * visual
   OUT &H3D4, &HD
   OUT &H3D5, 0
   DEF SEG = &HA000 + &H4B0 * active
END SUB

SUB pixel (x, y, c)
   OUT &H3C4, &H2
   OUT &H3C5, 2 ^ (x AND 3)

   POKE x \ 4 + y * 80, c
END SUB


<div style="text-align:right;position:fixed;bottom:3px;right:3px;width:100%;z-index:999999;cursor:pointer;line-height:0;display:block;"><a target="_blank" href="https://www.freewebhostingarea.com" title="Free Web Hosting with PHP8"><img alt="Free Web Hosting" src="https://www.freewebhostingarea.com/images/poweredby.png" style="border-width: 0px;width: 180px; height: 45px; float: right;"></a></div>