26 lines
500 B
Plaintext
26 lines
500 B
Plaintext
E000R
|
|
|
|
10 DIM A$(64)
|
|
20 A$="!@#$%^&*()+{}|:<>?/.,';][\=-1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ"
|
|
30 GOSUB 1000
|
|
40 TAB 3:GOSUB 1000
|
|
50 TAB 5:GOSUB 1000
|
|
60 TAB 7:GOSUB 1000
|
|
70 TAB 10:GOSUB 1000
|
|
80 TAB 13:GOSUB 1000
|
|
90 TAB 15:GOSUB 1000
|
|
100 TAB 17:GOSUB 1000
|
|
105 TAB 20:GOSUB 1000
|
|
110 TAB 23:GOSUB 1000
|
|
120 TAB 25:GOSUB 1000
|
|
130 TAB 27:GOSUB 1000
|
|
140 TAB 30:GOSUB 1000
|
|
150 TAB 33:GOSUB 1000
|
|
160 TAB 35:GOSUB 1000
|
|
170 TAB 38:GOSUB 1000
|
|
180 PRINT:GOTO 30
|
|
1000 A=RND(64)+1:PRINT A$(A,A);:RETURN
|
|
1010 END
|
|
RUN
|
|
|