32 lines
1.4 KiB
Plaintext
32 lines
1.4 KiB
Plaintext
10 DATA 49,54,48,32,78,61,51,51,48,13,49,55,48,32,68,73,77,32,65,40,78,41,13
|
|
20 DATA 49,56,48,32,70,79,82,32,73,61,48,32,84,79,32,78,13,49,57,48,32,58,32
|
|
30 DATA 82,69,65,68,32,65,40,73,41,13,50,48,48,32,78,69,88,84,32,73,13,50,49
|
|
40 DATA 48,32,70,79,82,32,73,61,48,32,84,79,32,49,52,32,13,50,50,48,32,58,32
|
|
50 DATA 80,82,73,78,84,32,77,73,68,36,40,83,84,82,36,40,40,73,43,49,41,42,49
|
|
60 DATA 48,41,44,50,41,59,34,32,68,65,84,65,32,34,59,77,73,68,36,40,83,84,82
|
|
70 DATA 36,40,65,40,73,42,50,51,41,41,44,50,41,59,13,50,51,48,32,58,32,70,79
|
|
80 DATA 82,32,74,61,49,32,84,79,32,50,50,13,50,52,48,32,58,32,32,32,75,61,73
|
|
90 DATA 42,50,51,43,74,13,50,53,48,32,58,32,32,32,73,70,32,75,32,60,61,32,78
|
|
100 DATA 32,84,72,69,78,32,80,82,73,78,84,32,34,44,34,59,77,73,68,36,40,83,84
|
|
110 DATA 82,36,40,65,40,75,41,41,44,50,41,59,13,50,54,48,32,58,32,78,69,88,84
|
|
120 DATA 32,74,13,50,55,48,32,58,32,80,82,73,78,84,13,50,56,48,32,78,69,88,84
|
|
130 DATA 32,73,13,50,57,48,32,70,79,82,32,73,61,48,32,84,79,32,78,13,51,48,48
|
|
140 DATA 32,58,32,80,82,73,78,84,32,67,72,82,36,40,65,40,73,41,41,59,13,51,49
|
|
150 DATA 48,32,78,69,88,84,32,73,13
|
|
160 N=330
|
|
170 DIM A(N)
|
|
180 FOR I=0 TO N
|
|
190 : READ A(I)
|
|
200 NEXT I
|
|
210 FOR I=0 TO 14
|
|
220 : PRINT MID$(STR$((I+1)*10),2);" DATA ";MID$(STR$(A(I*23)),2);
|
|
230 : FOR J=1 TO 22
|
|
240 : K=I*23+J
|
|
250 : IF K <= N THEN PRINT ",";MID$(STR$(A(K)),2);
|
|
260 : NEXT J
|
|
270 : PRINT
|
|
280 NEXT I
|
|
290 FOR I=0 TO N
|
|
300 : PRINT CHR$(A(I));
|
|
310 NEXT I
|