Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 10 color15,4,7:definta-z:screen2:OPEN"grp:"AS#1:forj=0to2:fori=0to23:LINE(i*(10+j*2),j*64)-(i*10-10+j*37,191),1+imod15,bf:nexti,j:PRESET(0,0):PRINT#1,"QWERTYUIOP":PRESET(0,64):PRINT#1," ASDFGHJKL":PRESET(0,128):PRINT#1," ZXCVBNM"
- 20 p=3:c=255:gosub30:c=&haa:gosub30:p=0:gosub30:c=&h80:gosub30:goto20'this is a quick masktest, press any key to switch between mask preset
- 30 vdp(4)=p:vdp(3)=c:a$=INPUT$(1):RETURN
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement