Program that writes itself.
Give this a go :-)
10 POKE 23756,10
20 POKE 23757,35
30 POKE 23758,0
40 POKE 23759,245
50 POKE 23760,34
60 POKE 23761,73
70 POKE 23762,32
80 POKE 23763,72
90 POKE 23764,65
100 POKE 23765,86
110 POKE 23766,69
120 POKE 23767,32
130 POKE 23768,84
140 POKE 23769,65
150 POKE 23770,75
160 POKE 23771,69
170 POKE 23772,78
180 POKE 23773,32
190 POKE 23774,79
200 POKE 23775,86
210 POKE 23776,69
220 POKE 23777,82
230 POKE 23778,32
240 POKE 23779,89
250 POKE 23780,79
260 POKE 23781,85
270 POKE 23782,82
280 POKE 23783,32
290 POKE 23784,83
300 POKE 23785,80
310 POKE 23786,69
320 POKE 23787,67
330 POKE 23788,84
340 POKE 23789,82
350 POKE 23790,85
360 POKE 23791,77
370 POKE 23792,34
380 POKE 23793,13
390 POKE 23794,0
400 POKE 23795,11
410 POKE 23796,35
420 POKE 23797,0
430 POKE 23798,245
440 POKE 23799,34
450 POKE 23800,84
460 POKE 23801,72
470 POKE 23802,73
480 POKE 23803,83
490 POKE 23804,32
500 POKE 23805,73
510 POKE 23806,83
520 POKE 23807,32
530 POKE 23808,65
540 POKE 23809,32
550 POKE 23810,83
560 POKE 23811,69
570 POKE 23812,76
580 POKE 23813,70
590 POKE 23814,32
600 POKE 23815,67
610 POKE 23816,82
620 POKE 23817,69
630 POKE 23818,65
640 POKE 23819,84
650 POKE 23820,73
660 POKE 23821,78
670 POKE 23822,71
680 POKE 23823,32
690 POKE 23824,80
700 POKE 23825,82
710 POKE 23826,79
720 POKE 23827,71
730 POKE 23828,82
740 POKE 23829,65
750 POKE 23830,77
760 POKE 23831,34
770 POKE 23832,13
780 POKE 23833,0
790 POKE 23834,12
800 POKE 23835,35
810 POKE 23836,0
820 POKE 23837,245
830 POKE 23838,34
840 POKE 23839,89
850 POKE 23840,79
860 POKE 23841,85
870 POKE 23842,32
880 POKE 23843,78
890 POKE 23844,79
900 POKE 23845,32
910 POKE 23846,76
920 POKE 23847,79
930 POKE 23848,78
940 POKE 23849,71
950 POKE 23850,69
960 POKE 23851,82
970 POKE 23852,32
980 POKE 23853,72
990 POKE 23854,65
1000 POKE 23855,86
1010 POKE 23856,69
1020 POKE 23857,32
1030 POKE 23858,65
1040 POKE 23859,78
1050 POKE 23860,89
1060 POKE 23861,32
1070 POKE 23862,67
1080 POKE 23863,79
1090 POKE 23864,78
1100 POKE 23865,84
1110 POKE 23866,82
1120 POKE 23867,79
1130 POKE 23868,76
1140 POKE 23869,33
1150 POKE 23870,34
1160 POKE 23871,13
1170 POKE 23872,128
1180 POKE 23627,230
1190 POKE 23628,93
1200 POKE 23641,231
1210 POKE 23642,93
1220 POKE 23618,10
1230 POKE 23619,0
1240 POKE 23620,1
10 POKE 23756,10
20 POKE 23757,35
30 POKE 23758,0
40 POKE 23759,245
50 POKE 23760,34
60 POKE 23761,73
70 POKE 23762,32
80 POKE 23763,72
90 POKE 23764,65
100 POKE 23765,86
110 POKE 23766,69
120 POKE 23767,32
130 POKE 23768,84
140 POKE 23769,65
150 POKE 23770,75
160 POKE 23771,69
170 POKE 23772,78
180 POKE 23773,32
190 POKE 23774,79
200 POKE 23775,86
210 POKE 23776,69
220 POKE 23777,82
230 POKE 23778,32
240 POKE 23779,89
250 POKE 23780,79
260 POKE 23781,85
270 POKE 23782,82
280 POKE 23783,32
290 POKE 23784,83
300 POKE 23785,80
310 POKE 23786,69
320 POKE 23787,67
330 POKE 23788,84
340 POKE 23789,82
350 POKE 23790,85
360 POKE 23791,77
370 POKE 23792,34
380 POKE 23793,13
390 POKE 23794,0
400 POKE 23795,11
410 POKE 23796,35
420 POKE 23797,0
430 POKE 23798,245
440 POKE 23799,34
450 POKE 23800,84
460 POKE 23801,72
470 POKE 23802,73
480 POKE 23803,83
490 POKE 23804,32
500 POKE 23805,73
510 POKE 23806,83
520 POKE 23807,32
530 POKE 23808,65
540 POKE 23809,32
550 POKE 23810,83
560 POKE 23811,69
570 POKE 23812,76
580 POKE 23813,70
590 POKE 23814,32
600 POKE 23815,67
610 POKE 23816,82
620 POKE 23817,69
630 POKE 23818,65
640 POKE 23819,84
650 POKE 23820,73
660 POKE 23821,78
670 POKE 23822,71
680 POKE 23823,32
690 POKE 23824,80
700 POKE 23825,82
710 POKE 23826,79
720 POKE 23827,71
730 POKE 23828,82
740 POKE 23829,65
750 POKE 23830,77
760 POKE 23831,34
770 POKE 23832,13
780 POKE 23833,0
790 POKE 23834,12
800 POKE 23835,35
810 POKE 23836,0
820 POKE 23837,245
830 POKE 23838,34
840 POKE 23839,89
850 POKE 23840,79
860 POKE 23841,85
870 POKE 23842,32
880 POKE 23843,78
890 POKE 23844,79
900 POKE 23845,32
910 POKE 23846,76
920 POKE 23847,79
930 POKE 23848,78
940 POKE 23849,71
950 POKE 23850,69
960 POKE 23851,82
970 POKE 23852,32
980 POKE 23853,72
990 POKE 23854,65
1000 POKE 23855,86
1010 POKE 23856,69
1020 POKE 23857,32
1030 POKE 23858,65
1040 POKE 23859,78
1050 POKE 23860,89
1060 POKE 23861,32
1070 POKE 23862,67
1080 POKE 23863,79
1090 POKE 23864,78
1100 POKE 23865,84
1110 POKE 23866,82
1120 POKE 23867,79
1130 POKE 23868,76
1140 POKE 23869,33
1150 POKE 23870,34
1160 POKE 23871,13
1170 POKE 23872,128
1180 POKE 23627,230
1190 POKE 23628,93
1200 POKE 23641,231
1210 POKE 23642,93
1220 POKE 23618,10
1230 POKE 23619,0
1240 POKE 23620,1
Comments
If you don't to spend the time typing that in then just copy and paste that program into a text file and use Spud's Load BASIC Text File option in the File menu to load the file and then run it.
https://www.dropbox.com/s/w2luxu1xwir2elv/SelfW.tap?dl=0