Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ→Str1
- 1→N
- {8,16→dim([A]
- Fill(0,[A]
- ClrHome
- 14→L₁(1)
- 4→L₂(1)
- 3→L₃(1)
- For(B,0,2
- Output(4,14+B,0
- 1→[A](4,14+B
- End
- For(A,1,40
- randInt(1,15→X
- randInt(1,7→Y
- randInt(2,5→L
- If randInt(0,1)
- –L→L
- If L>0
- Then
- If X+L-1≤16
- Then
- 1→T
- For(B,0,L-1
- If [A](Y,X+B)>0
- 0→T
- End
- If T
- Then
- N+1→N
- X→L₁(N
- Y→L₂(N
- L→L₃(N
- For(B,0,L-1
- Output(Y,X+B,sub(Str1,N,1
- N→[A](Y,X+B
- End
- End
- End
- Else
- If Y-L-1≤8
- Then
- 1→T
- For(B,0,abs(L)-1
- If [A](Y+B,X)>0
- 0→T
- End
- If T
- Then
- N+1→N
- X→L₁(N
- Y→L₂(N
- L→L₃(N
- For(B,0,abs(L)-1
- Output(Y+B,X,sub(Str1,N,1
- N→[A](Y+B,X
- End
- End
- End
- End
- End
- ClrHome
- 1→A
- –13→B
- prgmCARPUZZR
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement