Commander X16

Code: Select all

SCREEN 128

gosub ascii

z=255
StartEdit:
    Loop:
        Key$=GET
        if Key$="Q" then GOSUB links
	if Key$="E" then GOSUB rechts
    Goto loop
end

links:
print " LINKS"
return

rechts:
 z=z-1
 if z=-1 then 
   z=255
   u=u-1
   Poke $9F38,u 
 endif	
  
 Poke $9F37,z
return

ascii:
 For d= 1 to 8000
   VPoke 1,$b000+d+1,2  
   VPoke 1,$b000+d,0*16+2
 next d
return

Code: Select all

SCREEN 128
FILLSCREEN 0
gosub ascii
HScroll=0
ScrollAmount = 3
StartEdit:
    Loop:
        Key$=GET
        if Key$="Q" then GOSUB links
	    if Key$="E" then GOSUB rechts
    Goto loop
end

links:
    if HScroll>ScrollAmount then
        HScroll=HScroll-ScrollAmount
        SLEEP 0
        POKEN $9F37,CHR$(HScroll MOD 256) + CHR$(HScroll/256) 
    end if
return

rechts:
    HScroll=HScroll+ScrollAmount
    SLEEP 0
    POKEN $9F37,CHR$(HScroll MOD 256) + CHR$(HScroll/256) 
return

ascii:
    line$ = SPC(256)    'this way 256 bytes are reservers, so no relocation of string space needed
    line$=""
    for i = 1 to 128
        'Build a string of 128 pairs of letter B CHR$(2) and a color byte CHR$(2)
        line$ = line$ + CHR$(2) + CHR$(2) 
    next
    
    'VPOKE a line at a time
    For d= 0 to GETROWS()-1
        VPOKEN 1,$b000 + (d*256),line$
    next d
return