Advertisement
Guest User

Untitled

a guest
Jul 21st, 2017
84
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. CLEAR| WIDTH 90| OPTION BASE 1
  2. DIM PUZ$(20 , 20) , WRD$(30) , W(30 , 3) , DXY(8 , 2) , DD(28)
  3. DEF FNAT$(V , H) = CHR$(27) + "Y" + CHR$(31 + V) + CHR$(31 + H)
  4. FOR N=1 TO 8| READ DXY(N, 1) , DXY(N , 2) | NEXT
  5. FOR N=1 TO 28| READ DD(N) | NEXT
  6. DATA 0 , 1 , 1 , 1 , 1 , 0 , 1 , -1 , 0 , -1 , -1 , -1 , -1 , 0 , -1 , 1
  7. DATA 2 , 4 , 6 , 8 , 2 , 4 , 6 , 8 , 1 , 3 , 5 , 7 , 2 , 4 , 6 , 8 , 2 , 4 , 6 , 8 , 1 , 3 , 5 , 7
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement