Advertisement
Guest User

Untitled

a guest
Aug 1st, 2014
251
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
QBasic 0.41 KB | None | 0 0
  1. 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"
  2. 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
  3. 30 vdp(4)=p:vdp(3)=c:a$=INPUT$(1):RETURN
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement