10 CLEAR 256,61695
20 A=61696:B=61883
30 FOR I=ATOB
40 READ C
50 POKE I,C
60 NEXT I
70 CALL 61721
80 D$=INKEY$:IF D$="" THEN 80
90 CLS
95 ' NOTE: After running this program, all that is necessary
96 ' is to run lines 70 to 90 -- so long as machine language
97 ' memory is not erased.
100 DATA 197 , 213 , 205 , 76 , 116 , 209 , 193 , 201 , 33 , 57  
200 DATA 246 , 115 , 33 , 58 , 246 , 114 , 201 , 197 , 213 , 205  
300 DATA 68 , 75 , 209 , 193 , 201 , 205 , 49 , 66 , 6 , 240  
400 DATA 22 , 0 , 21 , 20 , 30 , 0 , 205 , 0 , 241 , 30  
500 DATA 63 , 205 , 0 , 241 , 5 , 194 , 33 , 241 , 6 , 220  
600 DATA 22 , 10 , 21 , 20 , 30 , 10 , 14 , 10 , 205 , 0  
700 DATA 241 , 28 , 13 , 194 , 58 , 241 , 14 , 10 , 30 , 43  
800 DATA 205 , 0 , 241 , 28 , 13 , 194 , 70 , 241 , 5 , 194  
900 DATA 53 , 241 , 6 , 62 , 30 , 1 , 29 , 28 , 22 , 0  
1000 DATA 205 , 0 , 241 , 22 , 239 , 205 , 0 , 241 , 5 , 194  
1100 DATA 87 , 241 , 6 , 23 , 30 , 20 , 29 , 28 , 22 , 10  
1200 DATA 14 , 10 , 205 , 0 , 241 , 20 , 13 , 194 , 112 , 241  
1300 DATA 14 , 10 , 22 , 220 , 205 , 0 , 241 , 20 , 13 , 194  
1400 DATA 124 , 241 , 5 , 194 , 107 , 241 , 6 , 87 , 30 , 36  
1500 DATA 22 , 78 , 21 , 20 , 205 , 0 , 241 , 5 , 194 , 143  
1600 DATA 241 , 22 , 14 , 30 , 4 , 205 , 8 , 241 , 6 , 15  
1700 DATA 33 , 173 , 241 , 126 , 205 , 17 , 241 , 35 , 5 , 194  
1800 DATA 163 , 241 , 201 , 66 , 111 , 98 , 39 , 115 , 32 , 67  
1900 DATA 111 , 109 , 112 , 117 , 116 , 101 , 114 , 33 , 0 , 0  
100 DATA 197 , 213 , 205 , 76 , 116 , 209 , 193 , 201 , 33 , 57  
200 DATA 246 , 115 , 33 , 58 , 246 , 114 , 201 , 197 , 213 , 205  
300 DATA 68 , 75 , 209 , 193 , 201 , 205 , 49 , 66 , 6 , 240  
400 DATA 22 , 0 , 21 , 20 , 30 , 0 , 205 , 0 , 241 , 30  
500 DATA 63 , 205 , 0 , 241 , 5 , 194 , 33 , 241 , 6 , 220  
600 DATA 22 , 10 , 21 , 20 , 30 , 10 , 14 , 10 , 205 , 0  
700 DATA 241 , 28 , 13 , 194 , 58 , 241 , 14 , 10 , 30 , 43  
800 DATA 205 , 0 , 241 , 28 , 13 , 194 , 70 , 241 , 5 , 194  
900 DATA 53 , 241 , 6 , 62 , 30 , 1 , 29 , 28 , 22 , 0  
1000 DATA 205 , 0 , 241 , 22 , 239 , 205 , 0 , 241 , 5 , 194  
1100 DATA 87 , 241 , 6 , 23 , 30 , 20 , 29 , 28 , 22 , 10  
1200 DATA 14 , 10 , 205 , 0 , 241 , 20 , 13 , 194 , 112 , 241  
1300 DATA 14 , 10 , 22 , 220 , 205 , 0 , 241 , 20 , 13 , 194  
1400 DATA 124 , 241 , 5 , 194 , 107 , 241 , 6 , 87 , 30 , 36  
1500 DATA 22 , 78 , 21 , 20 , 205 , 0 , 241 , 5 , 194 , 143  
1600 DATA 241 , 22 , 14 , 30 , 4 , 205 , 8 , 241 , 6 , 15  
1700 DATA 33 , 173 , 241 , 126 , 205 , 17 , 241 , 35 , 5 , 194  
1800 DATA 163 , 241 , 201 , 66 , 111 , 98 , 39 , 115 , 32 , 67  
1900 DATA 111 , 109 , 112 , 117 , 116 , 101 , 114 , 33 , 0 , 0  
10 CLEAR 256,61695
20 A=61696:B=61883
30 FOR I=ATOB
40 READ C
50 POKE I,C
60 NEXT I
70 CALL 61721
80 D$=INKEY$:IF D$="" THEN 80
90 CLS