10 REM TYPEART.BAS
20 REM Program by Nick Higham 1982 (Commodore Basic),
30 REM and 1988 (GW-Basic/Turbo Basic).  (c) N.J. Higham 1982, 1988.
40 REM Designs by Bob Neill.  (c) A.R. Neill 1982, 1984.
50 CLS
60 PRINT TAB(30)"Typewriter Art":PRINT
70 PRINT"This program prints two pieces of `typewriter art' to an Epson compatible"
80 PRINT"printer. These examples are based on designs in the books:
90 PRINT
100 PRINT" [1]  Bob Neill's Book of Typewriter Art, Weaver's Press, 1982."
110 PRINT" [2]  Bob Neill's Second Book of Typewriter Art, Weaver's Press, 1984."
120 PRINT
130 PRINT"Both [1] and [2] contain 20 pictures, each presented as a pattern for
135 PRINT"typing with an example of the final result.  The first book is out
140 PRINT"of print, but the second is available at the price of œ7.50
150 PRINT"(post free) from
160 PRINT
170 PRINT TAB(7)"Weavers Press Publishing
180 PRINT TAB(7)"Tregeraint House
190 PRINT TAB(7)"Zennor
200 PRINT TAB(7)"Cornwall, TR26 3DB
220 PRINT TAB(7)"England
230 PRINT TAB(7)"Tel. 0736 797061
240 PRINT
250 PRINT"This program was written by Nick Higham, (c) 1982, 1988.
260 PRINT"The designs are by A.R. Neill, (c) 1982, 1984.
270 WHILE INKEY$<>"": WEND
280 PRINT:PRINT TAB(27)"Press any key to continue...";
290 WHILE INKEY$="": WEND
300 '
310 CLS
320 PRINT "1.  H.R.H. Prince Charles (from book [1])"
330 PRINT "2.  The Tabby Cat         (from book [2])"
340 PRINT: INPUT "Which picture (1 or 2)";Z$
350 IF Z$<>"1" AND Z$<>"2" THEN 340
360 IF Z$="1" THEN T$="H.R.H. Prince Charles"
370 IF Z$="2" THEN T$ = "The Tabby Cat"
380 READ X$
390 WHILE X$<>T$: READ X$: WEND
400 '
410 PRINT: INPUT "Epson FX/LX (1) or LQ (2) compatible printer (1 or 2)";Z$
420 IF Z$<>"1" AND Z$<>"2" THEN 410
430 RESET.CODE$ = CHR$(27)+"@"
440 ZERO.LFEED$ = CHR$(27)+"A"+CHR$(0)    ' EPSON LQ-800 0 INCH
450 NORMAL.LFEED$ = CHR$(27)+"A"+CHR$(6)  ' EPSON LQ-800 6/60 INCH
460 IF Z$="2" GOTO 490
470 ZERO.LFEED$ = CHR$(27)+"3"+CHR$(0)    ' EPSON FX-80 0 INCH
480 NORMAL.LFEED$ = CHR$(27)+"3"+CHR$(21) ' EPSON FX-80 21/216 INCH
490 '
500 PRINT: INPUT "Printer port LPT1 or LPT2 (1 or 2)";PP$
510 IF PP$<>"1" AND PP$<>"2" THEN 500
520 '
530 REM -----------------------------
540 REM ROUTINE TO PRINT OUT DATABASE
550 REM -----------------------------
560 DEV$ = "LPT"+PP$+":"
570 OPEN DEV$ FOR  OUTPUT AS #1
580 PRINT #1, RESET.CODE$
590 WIDTH #1,255 ' this stops basic inserting unwanted carriage returns
600  GOSUB  800
610 L$=""
620  GOSUB 700:IF A$="/" THEN PRINT#1, NORMAL.LFEED$+L$: GOTO 610
630 IF A$="-" THEN PRINT#1, ZERO.LFEED$;L$: GOTO 610
640 A=ASC(A$):IF A>47 AND A<58 THEN A=A-48: GOTO 660
650 L$=L$+A$: GOTO 620
660  GOSUB 700:B=ASC(A$):IF B>47 AND B<58 THEN A=10*A+B-48: GOSUB 700
670 FOR I=1 TO A:L$=L$+A$:NEXT: GOTO 620
680 '
690 REM -- SUBROUTINE TO TAKE NEXT CHARACTER FROM Z$
700 A$=MID$(Z$,P,1):P=P+1: IF A$<>" "  AND A$<>"" THEN 730
710 IF P>Z THEN GOSUB 800
720 GOTO 700
730 IF A$="]" THEN A$=" "
740 IF A$="#" THEN A$=CHR$(34)
750 IF A$="^" THEN A$=":"
760 IF P>Z THEN GOSUB 800
770 RETURN
780 '
790 REM -- SUBROUTINE TO READ NEXT LUMP OF DATA
800 READ Z$:Z=LEN(Z$):P=1
810 IF Z$="PAUSE" THEN  FOR D=1 TO 20000:NEXT: GOTO 800
820 IF Z$="FINISH" THEN PRINT #1, CHR$(12)+RESET.CODE$: CLOSE #1:END
830 RETURN
840 '
850 REM -------------------------------------
860 REM * DATABASE1 - H.R.H. PRINCE CHARLES *
870 REM -------------------------------------
880 '
890 DATA "H.R.H. Prince Charles"
900 DATA  79G/79G/79G/79G
910 DATA  /79G-25]2.2^2&^L2^2&3^2.
920 DATA /26G16@&36G-22]2.^9]&S&3S2&3^.
930 DATA /22G23@34G-20].^10&]3&^6Y2C&^.
940 DATA /19G31@29G-17].^6&C&4C6&2^1]1'2#2]&.2]^.-25]^]2^]^
950 DATA /17G35@27G-16].5&^6&^#^.2^.3]^]^2].#3&2^^.-30].14].
960 REM --10
970 DATA /15G40@24G-13].^2]5&4^2&^]3^3]'3]^&]#2]5&3]2&.-27].15].
980 DATA/13G45@21G-12]^6&^5&^.'4]#^.]^.3].#^9&]2.2&.-42].
990 DATA /12G47@20G-11].&^7&^.5]^6]#^.2&^.2^.#9&^2.#.
1000 DATA /11G49@19G-11]A2&2#.^.#2@.#'^]#'2&5]#^2.#^.13&.2]#.-19].39].
1010 DATA /11G50@18G-10]^]4&]5&.^2]#^2&^#'2&]^2]&^15&^2&2].
1020 DATA /10G52@17G-9]^.4&^2&.&^.3]#^.3]&.].2]#'2&18&^.].
1030 DATA /10G53@16G-8].3&3S&S3&'3]#^.]^.2]2&^&'^3&^10&^9&2.
1040 DATA /9G53@17G-8]3&2]S2^S4]#3]#.]2&]^#26&]^3&.
1050 DATA /8G57@14G-7]^4&^.4&.3&.2]'^.#3&.2S29&].
1060 DATA /7G44@3&11@14G-6].4&.3&#2&2]#2.]&^@^3&^&18&9#5&1&-51]'7]'5].
1070 REM --20
1080 DATA  PAUSE
1090 DATA /7G42@4&4@4&5@13G-6]4&^.#4&6]#2^2.#20&2#.3^2&^3#5&.-12].15].20]'8]3.
1100 DATA /6G40@T2&12@&5@12G-6]3&2^2&2S2]4#2&.#]6&4S10&2#.'11]^3&2].-17].5].
1110 DATA /6G11@&13@4&10@2&21@11G-5]^3&2^#.3&].7&3A]2&4#'2&^4]^]#.2]2^]^2'&
1120 DATA &^#&]&^4&.-15]^43].
1130 DATA /5G16@7&@2&2@^&2@3&2@4&4@2&2@3&11@11G
1140 DATA -5]4&&2L6&^2]2#'#2]#'8]##'^4].^3]&2T].3T#'^#4]3&-21].32]2^.3].
1150 REM --24
1160 DATA /5G15@T#']'#2'#^14&24@11G
1170 DATA -5]4&#^'.2&^'.2]#2.3]4.13]^'2^']#]^&3^'#^'].']^#2&^-14]^#41].7]'
1180 DATA /5G10@4&'9].2^9&27@11G
1190 DATA -5]4&2]&^2]#'25]^2]^2]&]2^#]3&]&.]^]'^2]&^-15]'36].
1200 DATA /5G7@3&^.#13]2.#'4^3&26@&10G
1210 DATA -5]7&2#19]2.8]'^']2&]&#3&]3&^]&]^&2]&-51].
1220 DATA /5G6@&'#18]7.2^&26@&10G
1230 DATA -5]6&32]#']^#&]&S2&^.3&^.]2^&]^&
1240 DATA /5G5@^21]9.2&25@&10G-5]5&#31]^2]^&^&.13&.&^.&].
1250 DATA /5G4@#21]9.^2&26@10G-5]4&'32]^2]2.#10&#3&^3&^&^-47].10].8].
1260 REM --30
1270 DATA /5G4@21]10.^&27@10G-5]4&35]2^12&#2^9&-58].]#
1280 DATA /4G4@P20]10.^2&27@&9G-4]A3&#36]&&7&&14&].
1290 DATA /4GC3@^20]10.^3&27@&8G-4]VV3&34]^2]8&]#3&#].8&-4]37]#11].
1300 DATA /4GC3@'19]10.2^3&27@&8G-4]A3&34]'].8&^2&^.'4&^6&.
1310 DATA /4G4@20]11.^3&28@8G-4]4&36]^7&^11&#5&].
1320 DATA /4G4@20]9.3^3&29@&6G-4]4&35]^8&2&10&S#5&
1330 DATA /4GS3@20]9.2^5&27@G&6G-4]V3&35]'5&&2&&']'6&&^3&2&2&#-4]'66]'
1340 DATA /5G3@21]9.2^5&26@&7G-4]'3&36]#7&^5]#'#]#3&&4&]^-44]'13].3].
1350 DATA /5G3@24]6.3^4&28@6G-5]3&37]6&']#.2&3]^6&&4&-53].14].
1360 DATA /5G3@20]3.2^2.2]2.^6&27@6G-6]2&36]'#5&2]^19&.-45]'
1370 REM --40
1380 DATA  PAUSE
1390 DATA /5GC2@13]3.2^.^6&2^2.2].6&26@6G-5]V2&36]2^V13&&12&#-5]'40]'26].
1400 DATA /6G2@4.8].3&4@8&2@^2.7&25@6G-5]#2&16]3&5].10]2^#2&#2^&&18&^
1410 DATA /6G@&.4&3@&.3]11@&6@.]7&&24@6G-5]^&#16]6&6]2^5]^2.^]#24&V-48]'24]'
1420 DATA /6G2@^@2&5@&3]&6@3&9@3&^2.&&2&13@3&7@6G
1430 DATA -6]^4].10]3&'4#'3#'11].2]#12&&2#'7&'-63]'
1440 DATA /7G2&8@&2].^&2@2&4@7&2@^&^4.3&11@4&2^&5@6G
1450 DATA -6]#3]5&10]3.^#]'2^.12]^]'11&#5]#5&^-61]'5]'
1460 DATA /7G11&3].&4@2&2@10&2^4.^3&9@9&4@6G
1470 DATA -6]^^2]^2#2.2^.10]2.^S^.]#2^13]#9&#2].^.2]#4&^-60]'7]'
1480 DATA /7G&^3&^3&2@3].2@&2@&@&3@5&^5.]2.2^2&9@2&5@&^&3@6G
1490 DATA -6]^]#].^4#^.10]&&3S2^.#'#12]9&9]^3&-12]3.13]^#].37]#
1500 DATA /7G^.&4@J2&@3].@2&@&@C]4@#2@&3^.]3.3^2&9@&2@2&2@&2.3@6G
1510 DATA -6]#2]2^]2SV^.10]^#]4S.#^14]8&J3]2#2]']#3&-14]'13].30].9]'
1520 DATA /8G]2@&3@&#V3].2&@#@#'^#2@#^@&3^.3]3.3^&8@2&@&2.2&@2.3@6G
1530 DATA -11]#3S^2'7].]2.]'2S'18]7&3]#2]#4]3&-30]4.
1540 DATA /8G]&@'3@.^'2].2&2@&#10&^3.3]3.2^2&8@2&@&3.&@2.3@6G
1550 DATA -7]^4]3S12]8^16].7&11]3&
1560 REM --50
1570 DATA /8G]2#^#T#.^3].2&@&2@9&^.6]4.^2&7@4&^3.2&2.2@V6G-10].].#.9]#27]6&
1580 DATA ^].9]&^'-58]#
1590 DATA /8G2]6&^3].2&@&@#&#5&^.9]3.^2&8@3&2.].2&2.@&7G-34]#17]6&2]^.8]&]'
1600 DATA /8G2]#4&@4]^2&@2&^'.2]2#11]3.2^&@&7@&2@&.].2&.&@8G
1610 DATA -52]5&^2]2@.7]&#-27]#
1620 DATA /8G3]#2@'#3].2&2@&^#2.14]3.2^2&9@&3@2.]2&.&@8G-14]2.10].25]5&^12]2&
1630 DATA /8G6].^2].6&^2.]2.11]3.2^4&8@&@&@^2]&^.&@8G-52]'4&13]&V
1640 DATA /8G5]2.^2].6&^.14].4^3&9@3&@#@2.&.2^@8G-51]^]4&2]^.].6]#&
1650 DATA /8G7]'2].^5&^2.10]4.^4&11@&@&2.&].&.3@8G-52]^4&3]#7]^2&
1660 DATA /8G6].2].^&@3&&2.8]2.5^4&12@&@&2.&.2&.&2@8G-51]^4&#11].2&.-56]'
1670 DATA /8G2.4].2]2.&@5&2.7]3.3^6&10@2&2@&'2.&#.4@7G-51]^3&3].&2].3].]3&A
1680 DATA /8G6.3].^2@2&2@&^.7]4.2^5&11@&2@#3.&2.&4@&6G-52]#2&4]@.6].4&].
1690 REM --60
1700 DATA  PAUSE
1710 DATA /8G^5.4]2&@&^#&2@2.5]6.^5&4@3&4@&@&2.2&2.&6@&5G
1720 DATA -21]^]^33]^]#7]6&-59]'
1730 DATA /8GL4.5]3&#3.&@&2.4]6.^5&5@&4@&@#2.&#].&6@7G
1740 DATA -18].2^.3]#32].7]6&V#-72]'
1750 DATA /9G4.5]3&4.&@&2.3]6.2^5&4@3&3@&#2.2&2].&5@8G-25].31].7]^6&#-71]#
1760 DATA /9G7.^&6@2&@2.3]6.3^4&5@3&4@2&.^2].&6@8G-13]#7].^.41]6&#
1770 DATA /9GT2.2]&9@2&@.4]6.^.^5&5@2&4@2&2^2.&7@8G-9]^9].4&2.28]3F7]7&
1780 DATA /9G&3.]#6@4&@&6]5.2^.5&6@&4@7&7@8G-9]^6].2^F4#^29]3F6]^7&
1790 DATA /10G3.3]&4@4&^#7]5.3^3&12@4&10@8G-9]^6]#38]2F5]9&
1800 DATA /10G3.4]&3@3&^2.7]6.2^5&10@4&10@8G-55]2F.2].^F5&^
1810 DATA /10G2.4].&2@3&2^.9]3.2^.2^5&23@8G-55]9F7&V
1820 DATA /10G3.4]^&@2&2^3.5]2.]4.3^6&22@&8G-55]4F&4F&5&#V-71]'
1830 REM --70
1840 DATA /10GL2.4].^2&8.2]3.2]3.3^6&22@9G-10]^43]5F2]2F]2F3&&#'
1850 DATA /11G2.8]10.^2.2]4.2^6&22@9G-53]5F2]2F3]2F2&&
1860 DATA /11G.5]4.2^11.3]4.^6&&21@9G-53]5F3]F2]3F3&
1870 DATA /11G^.].^&@3&5@4&^3.4]4.^4&22@10G-28]^]^22]5F2]F3]^2F2&^
1880 DATA /11GL2]2&3@2&10@^2.5]4.5&22@9G-11]^10].3&4]^22]5F6]S2]&2&
1890 DATA /12G2]^3@8&3@^2'2.5]3.5&23@9G-14]#3&4#30]5F5]SA]3&2&
1900 DATA /12G^]^&10^2&1^2.]3.3]4.5&23@9G-15]^35]6F4].S2]3F&'
1910 DATA /13G]2.&9@4&5.2]5.3&23@#2]8G-51]5F4]S3]4F
1920 DATA /13G.3^9@4&4.2]4.4&22@#4]#7G-16]#]3.2^.26]5F4]^#].3F'4]'
1930 DATA /13GL4^10@2&5.2]2.2&24@#6]7G-13]^5]7&&22]6F'4]S].2F
1940 REM --80
1950 DATA  PAUSE
1960 DATA /14G5^7@5&2^6.3&21@#8]7G-20]2#'2#23]7F4]S#.F'
1970 DATA /14GL4^&3@10&3^2.2@3&18@#9].2&5G-14]^39]'3]S'.10]2^.
1980 DATA /15G5^#^.#2'#4&^6&22@#8]^5M4G-20].2].21]9F3]S]F10]6@
1990 DATA /15GL3^3].5]#'6&22@#7].^8@3G-15]^29]8F3]SF10]8M
2000 DATA /16G.^12]#.^2&22@#7]^11@2G-44]6F]F3].F9]10M^
2010 DATA /17G^3]2.7]3.2&21@#6]^13@2G-37]3F2]7F6]F8]13M^
2020 DATA /17GL2]4.9]^&19@#6]^17@-17]^19]3F2]7F4]F'7]17M
2030 DATA /18G3]4.3]2.3]&19@#5].^18@-36]12F4]F8]18M
2040 DATA /18GL]5.2]4.2&19@#6]20@-18]^19]9F4]F7]^19M
2050 DATA /19G2^2&@&^.3&20@#5].^21@-37]8F13]21M
2060 REM --90
2070 DATA /19GL&27@#6].&22@-19]^14]10F12]^22M
2080 DATA /22G24@#6].^24@-21]#21F12]24M-21]'
2090 DATA /25G20@#6].&25@-23]#'17F11]^25M
2100 DATA /28G14@V#6].^27@-27]2#]6F3]F2]#9]27M
2110 DATA /29G12@#7].29@-36]4F10]29M
2120 DATA /29G10@#7].^30@-29]2&7]#10]30M
2130 DATA /79G/79G/79G/79G/
2140 DATA  FINISH
2150 '
2160 '
2170 REM ------------------------------
2180 REM * DATABASE2 - THE TABBY CAT *
2190 REM ------------------------------
2200 '
2210 DATA "The Tabby Cat"
2220 DATA 80C/80C/80C/80C/80C
2230 DATA -72] 1^ 2&
2240 DATA /71C 3@ 1& 5C-70] 1&-70] 1^
2250 DATA /69C 1& 1# 3] 1' 5C-68] 1. 6] 1.
2260 DATA /68C 1& 1F 2] 2. 1^ 1# 4C-75] 1^
2270 DATA /67C 1& 1# 1] 2. 3^ 1. 1'3C
2280 DATA /2C ^& 62C &# 2.^2.2^.'3C-5] 1.
2290 DATA /3C 1& 2C 2& 57C 1& 1# 1] 2. 4^ 1& 2. 3C-2] 1. 1] 1^ 1.
2300 DATA /3C 5& 56C 1& 1' 1] 1. 1' 1^ 1. 1^ 4& 1^ 1J 2C-2] 1^ 5] 1. 68] 1'
2310 DATA /2C 1L 1] 1^ 1. 2] 1# 1@ 53C 1&  1' 1] 2. 2C 1# 1. 1' 1# 3& 1] 2C-10] 1.
2320 DATA /2C 1@ 1^ 3. 1^ 2] 1# 1& 50C 1& 1# 2] 1^ 2. 1^ 1# 2^ 1. 3& 1] 2C-2] 1&-2] 1S
2330 DATA /2C 2@ 2& 3^ 1. 1] 1# 1& 48C 1& 1# 1] 2. 4^ 1] 1. 1^ 3& 1C 1] 2C-2] 2&-2] 2S
2340 REM --- 16
2350 DATA /2C 2@ 2& 2# 1^ 2. 1] 1# 1& 22C 1& 1C 1& 3@ 3C 1@ 1& 1C 1& 11C 1@ 1# 2. 1^
2360 DATA  2# 1. 2^ 1. 5& 1# 1] 2C
2370 DATA -1] 3& 1S 1] 2. 6] 1. 13] 1. 1] 1^ 3] 1. 2] 1^ 5] 1. 1^ 2] 1. 3] 1^ 1. 6] 1.
2380 DATA 6] 1.-2] 2S
2390 DATA /1C 5@ 1& 1. 1# 1^ 2. 2] 1# 1& 16C 1& 3C 2& 3@ 1& 1C 1@ 1C 5@ 1C 1& 1@ 6C 1@ 1W
2400 DATA 4. 2^ 2# 1. 3& 2@ 1& 1. 1] 2C
2410 DATA -1] 3& 12] 1. 9] 1. 1] 1^ 1. 2& 2] 1^ 2] 1^ 3& 1] 1^ 1] 1^ 5] 1. 2] 1. 4] 1^ 1]
2420 DATA 1#-1] 2S
2430 DATA /1C 5@ 1# 1. 1^ 1. 2^ 1. 2] 1# 1& 10C 2& 1C 1@ 1C 1@ 1& 8@ 1& 2@ 1& 4@ 2& 2@
2440 DATA  3C 2@ 1# 1] 2. 1] 4^ 1# 1. 1# 1& 2@ 1& 1^ 2. 2C
2450 DATA -1] 4& 1# 10] 1T 1. 8] 1. 2] 1^ 1] 1. 2] 1& 2] 4& 5] 1^ 1] 1^ 1& 1T 1] 1^ 1. 1^
2460 DATA 1. 1^ 11] 1. 1] 1.-1] 2S
2470 DATA /1C 7@ 1& 1^ 3# 1. 2] 1' 1V 1& 7C 1& 3@ 1& 1@ 1& 9@ 1& 1@ 1& 6@ 1& 1@ 1& 4@ 1#
2480 DATA 1] 4. 2^ 3& 1^ 1. 2# 2& 2. 1] 2C
2490 DATA -1] 5& 1] 1& 2] 1. 5] 1# 1] 2.  4] 1. 1] 1^ 1. 1^ 3] 2& 3] 3& 7] 2& 4] 1& 1] 2&
2500 DATA 13] 1. 1^-1] 2S
2510 DATA /1C 5@ 3# 1^ 1& 1# 1^ 1# 1^ 1. 2] 1# 2@ 5C 2@ 1& 2@ 1& 1@ 1& 1@ 1& @& 4@ 2& 2@ 1&
2520 DATA 1@ 1& 4@ 1& 3@ 1# 4. 1^ 2# 1] 2. 1^ 1& 2# 2@ 1& 2. 1] 2C
2530 DATA -1] 5& 3. 10] 2& 1. 1] 1. 1] 1^ 1] 1& 1] 2& 3] 1& 3] 2& 7] 1& 1] 3& 2] 3& 13]
2540 DATA 1. 1^-1] 3S 2.
2550 DATA /1C 6@ 1& 1^ 1. 1& 1@ 2# 1^ 3. 1] 1' 3@ 3C 2@ 1& 3@ 1& 2@ 1& 6@ 1& 1@ 1& 2@ 1&
2560 DATA 8@ 1' 3. 1^ 1# 1] 1. 2] 1. 1# 1' 2^ 1# 1& 1@ 1& 1^ 1. 1] 2C
2570 DATA -1] 5& 17] 2^ 2& 2] 2& 6] 4& 9] 2& 1] 3& 15] 1.
2580 DATA -1] 2S 1] 3'
2590 DATA /2C 5@ 1& 1@ 1& 1# 1. 1^ 1# 2& 1# 1^ 1. 2] 1# 6@ 2&   2@ 2& 1@ 1& 7@ 2& 2@ 1&
2600 DATA 1@ 1& 2@ 1& 2@ 1& 3^ 1. 2# 6^ 2. 1# 3@ 1& 2^
2610 DATA -1] 1V 5& 6] 1. 10] 4& 6] 1& 2] 1& 1] 1&  13] 2& 5] 2. 8] 1. 7] 2C
2620 DATA -1] 1' 1S
2630 REM --- 23
2640 DATA /2C 5@ 1& 1^ 3# 1^ 2# 1. 1^ 3. 3] 1# 4@ 2& 2@ 2& 2@ 1& 1@ 1& 5@ 4& 4@
2650 DATA &@&. 3& 3^ 1# 2. 1] 1' 2^ 2& 3@ 1^ 2. 1] 2C
2660 DATA -1] 1' 5& 2] 1. 1] 1. 1] 1. 10] 4& 3] 1& 2] 1& 2] 1& 1] 1& 1] 1& 6] 1& 4] 1&
2670 DATA -2] 1S
2680 DATA /2C 6@ 1& 1^ 2# 1^ 1& 1# 2. 1^ 1] 1. 3& 1] 1# 4@ 1& 3@ 2& 10@ 3& 4@ 1& 1@ 4& 1^
2690 DATA 2& 6. 1' 1^ 1] 1. 1& 1@ 2& 1^ 1. 1] 2C
2700 DATA -2] 6& 2] 2. 13] 3&  3] 2& 2] 1& 1] 3& 9] 1& 5] 1. -2] 2S
2710 DATA /2C 6@ 2& 1@ 1& 1# 1. 1& 1^ 1# 1^ 1& 1. 3& 1. 1] 1# 3@ 2& 3@ 1& 6@ 1& 1@ 1& 1@
2720 DATA 3& 3@ 3& 1@ 6& 1. 1^ 2. 2^ 4& 1@ 3& 2^ 1] 2C
2730 DATA -2] 5& 3] 1& 5] 1^ 10] 1& 4] 1& 3] 2& 1] 1&  8] 2& 1] 1.-2] 1S
2740 DATA /2C 1V 7@ 1# 1. 2^ 1] 1# 1.1# 1] 5& 1. 1^ 1& 1@ 1& 5@ 2& 9@ 2& 5@ 4& 1^ 3& 1^
2750 DATA 1# 1^ 1# 2. 1& 1^ 1# 1& 2@ 2& 2^ 1. 1] 2C
2760 DATA -2] 1^ 7& 11] 1. 9] 3& 2] 2& 1] 1& 2] 1& 5] 3& 2] 1# 14] 1. 1#-6] 3S
2770 DATA /3C 1& 5@ 1& 1@ 1# 2. 1^ 1. 1^ 1& 1^ 2& 1# 4& 3@ 1& 5@ 1& 8@ 3& 4@ 5& 2@
2780 DATA 3& 1. 1] 1. 2^ 2& 4@ 3& 2. 1] 2C
2790 DATA -2] 1# 1] 2& 1] 2& 1^ 1& 8] 1^ 1. 7] 1& 2] 3& 2] 2& 1] 1& 8] 2&-7] 1S
2800 DATA /3C 1^ 1# 5@ 1& 1^ 1. 1^ 1] 2. 1^ 1& 1@ 2& 1# 1& 2@ 1& 2@ 2& 3@ 2& 2@ 1& 3@ 1& 
2810 DATA 1@ 3& 4@ 1^ 9& 1^ 1. 1] 1. 1# 3& 3@ 1& 1# 3. 1] 2C
2820 DATA -4] 1^ 2] 3& 21] 3& 2] 1& 2] 2& 7] 2& 15] 1. 7] 1^ -8] 1S
2830 DATA /3C 1L 1^ 1J 4@ 1^ 1# 1^ 1. 1& 2^ 2& 1. 4& 3@ 1^ 1@ 2& 3@ 2& 3@ 1& 4@ 2& 1^ 4@ 
2840 DATA 3& 1^ 1@ 6& 1^ 1. 1' 1# 1^ 1. 1& 3@ 1# 1^
2850 DATA -6] 3& 1^ 1] 1. 20] 1& 3] 3& 1] 1& 1] 2& 4] 1& 25] 3. 1] 2C
2860 DATA /4C 1^ 1# 4@ 1^ 1. 1& 1@ 1& 1@   1& 1^ 2. 3& 2@ 1&   2@ 2& 3@ 3& 3@ 1# 4@ 3& 4@
2870 DATA 3& 1@ 4& 1@ 3& 2. 1] 2. 1& 3@ 1' 2. 3] 2C
2880 DATA -5] 1. 1& 2] 1& 21] 2& 3] 3& 1] 1& 1] 1& 5] 1&
2890 DATA /4C 1] 1^ 1& 4@ 1& 1^ 1. 1# 1^ 1# 
2900 DATA 1' 1# 1^ 6& 2@ 2& 4@ 2& 3@ 1^ 4@ 2& 5@ 5& 2@ 1& 1^ 2& 3^ 1. 2] 1& 2@ 1& 3. 2] 
2910 DATA 1. 1S 1C-7] 4& 5]  1. 15] 2& 2] 3& 1] 3& 4] 2& -8] 2S
2920 DATA /4C 1] 2' 6@ 2# 2. 1] 1. 1^ 2& 3@ 1^ 5& 8@ 1. 1& 2@ 1& 6@ 1& 1@ 3& 1@ 3& 1@ 4& 4.
2930 DATA 1& 3@ 1. 1& 1# 1. 2] 1S 1C-7] 6& 2. 16] 3& 2] 2& 3] 2& 2] 4& 24] 1^-8] 4S
2940 DATA /4C 1^ 1. 1' 1# 5@ 1& 1^ 4. 1& 3@ 1& 2@ 2& 1@ 1& 4@ 3& 2@ 1C 1& 2@ 1& 3@ 1& 1@
2950 DATA 1& 1@ 3& 1^ 1& 1^ 3& 1^ 1& 1^ 1& 1^ 3. 1& 4@ 1& 1' 3] 1T 1C 
2960 DATA -8] 5& 11] 2& 6] 2& 2] 1# 1& 3] 2& 1] 3&-9] 3S
2970 DATA /4C 1L 1] 1'1]   1# 5@ 1# 1^ 1. 1^ 1& 1@ 1# 1T 1&   4@ 3& 8@ 1& 1^ 2& 4@ 2& 3@
2980 DATA 2& 1@ 1^ 2& 1@ 2& 1^ 2& 2^ 3. 1^ 3@ 1& 2. 2] 1& 1E 1C
2990 DATA -8] 1^ 5& 1. 5] 1. 5] 1& 5] 1& 1] 3& 5] 1& 1] 2& -9] 4S
3000 DATA /4C 1E 3] 1. 1# 3@ 1# 2^ 1. 4@ 3& 4@ 1^ 2& 7@ 1&   1. 1^ 5@ 3& 2@ 3& 1^ 4& 1C 
3010 DATA 2^ 2& 2C 1^ 2. 1& 2@ 1& 3. 1] 1J 2C
3020 DATA -9] 1^ 3& 1^ 3] 2& 1] 1& 5] 2&  3] 2& 1] 3& 5] 4& -10] 3S
3030 DATA /5C 1' 1] 1^ 2& 3@ 1# 1^ 1. 3@ 1& 4@ 1# 1T 3@ 1# 4@ 1& 3@ 1' 2. 1&3@ & 2^ 3& 1^ 1& 
3040 DATA 1^ 4& 1^ 4& 4^ 1. 1^ 2@ 1& 1^ 1.
3050 DATA -10] 3& 1. 2] 3& 1] 3& 1] 1. 1# 1] 1& 1] 1. 2& 1^ 2] 1& 1] 1& 5] 2& 32] 1& 2C
3060 DATA -11] 2S
3070 DATA /5C 1. 1] 2^ 1& 4@ 1# 10@ 1L 2& 3@ 1# 1@ 1^ 1& 3@ 1# 1] 1. 1^ 1& 2@ 1& 1. 1] 1' 
3080 DATA 1^ 1& 1^ 1' 1^ 5& 1@ 4& 2C 1. 3^ 2& 1^ 1. 1] 1. 1^ 1@ 2C
3090 DATA -10] 1^ 3& 1. 3& 2^ 1& 1^ 2& 1] 1' 2] 1& 1] 1& 1. 4~ 2& 5] 2& 13] 1.-11] 3S
3100 DATA /5C 1. 1] 1' 1# 1& 17@ 1& 1# 1& 1C 1@ 1C 1& 1^ 1& 2@ 1' 1] 1. 1' 1& 2@ 1' 1. 1]
3110 DATA 4. 1] 2^ 5& 2^ 2& 4C 1^ 4. 3] 1. 1@ 2C
3120 DATA -11] 4& 2L 1& 1] 5& 1] 1& 2] 1. 1] 1' 1& 1' 10] 1&-12] 2S 3] 1^ 13] 1'
3130 DATA /5C 1L 3] 1' 1@ 1# 8@ 2& 1@ 2# 1& 2@ 1'   1# 1& 2@ 1& 1^ 2C 1^ 3] 1' 1^ 1# 2^ 
3140 DATA 1. 1] 1. 2^ 1] 1. 1C 1& 2@ 6& 6C 1^ 2.
3150 DATA -11] 1. 7& 3] 1^ 2. 1] 1& 2] 1. 1] 2' 10] 1. 30] 2. -12] 1^ 1S 2] S 60] 1E 2C
3160 DATA /6C 3] 1. 1^ 1& 13@ 1. 1# 1& 1^ 1. 2C 1& 1C 1. 1^1C 1. 4] 1. ] 2. 2] 1. 2^ 1. 1]
3170 DATA 1^ 2& 2@ 6& 2C 1^ 2C 3. 1] 1. 1] 1. 1^ 1& 2C-12] 13&-12] 3S 2] 1S
3180 DATA /6C 1L 1. 2] 1. 16@ 1& 2' 1. 1C 2^ 3. 5] 1' 1] 2' 2] 1. 2^ 1. 1] 1C 3& 5C 2& 1^
3190 DATA 1C 2^ 1C 1^ 3. 2] 1. 1] 1E 2C -11] 6& 1] 9&-13] 1S 4] 2S
3200 REM --- 42
3210 DATA /7C 1. 1] 1. 1^ 1& 1@ 1& 13@ 1& 1# 1] 1' 1& 1^ 1C 2. 1^ 1. 6] 1' 1. 3] 2' 2] 2' 
3220 DATA 1^ 2. 4C 2& 3C 1^ 2& 2. 1^ 1' 2] 1.-6] 1& 5] 1& 2] 3& 2] 2& 2] 3& 50] 1& 2C
3230 DATA -13] 1S 4] 2S 5] 1'
3240 DATA /6C 1& 1^ 1. 1] 1^ 7@ 1& 6@ 1& 2@ 1L 1] 1. 1^ 1C 1# 4^ 14] 4^ 2. 1] 1^ 1C 2& 
3250 DATA 4C 4& 1C 1^ 2] 1. 1^ 1E 2C -6] 1T 5] 1& 2] 2& 3] 4& 2] 2& 1. 40] 1'-6] 1L
3260 DATA /6C 2@ 3& 1^ 1S 1& 3@ 3& 4@ 2# 2^ 1. 1# 1& 1. 1& 2C 2^ 1. 13] 1. 1C 5& 6C 2^ 1C 
3270 DATA 5& 2. 1] 1. 2& 1E 1C -6] 1& 1L  6] 3& 3] 4& 2. 3] 1. 22] 1^ 2] 2. 20] 1#-6] 2S
3280 DATA /6C 3@ 1C 2& 3@ 2& 5@ 1& 5^ 1& 1. 1# 1@ 2& 1C 2& 1^ 1. 11] 1J 4@ 2C 1@ 1& 1^ 1.  
3290 DATA 2& 2@ 1& 2@ 4& 4. 3E 1C
3300 DATA -5] 1^ 2& 5] 2&   5] 2&  1^ 5] 1. 1] 1. 1# 1^ 17] 2. 2& 1T 2# 1& 1. 8] 1& 2S 6] 
3310 DATA 2^ 1' -6] 1S 45] 2S 3' 1^ 
3320 DATA /7C 2@ 1C 1& 1C 1& 3@ 4& 3@ 1C 1& 8@ 1# 1. 1# 1& 1C 1. 11] 1@ 3C 2@ 3C 1] 1' 9@
3330 DATA 1& 1C 1^ 2. 1& 1@ 1E 2C
3340 DATA -5] 1^ 3& 4] 2& 6] 2& 1^ 2] 1^ 5& 1^ 1. 16] 1. 1# 1' 1J 2& 1. 1] 1# 3] 3& 1] 3&
3350 DATA 6] 3^ -6] 1^ 1S 19] 1^ 3S 1^ 19] 1' 1] 1^ 2S-53] 1. 2M
3360 DATA /6C 1& 1@  3C 1& 4@ 2& 2C 1& 12@ 1& 2] 1C 1^ 11] 1. 3C 2@ 1# 3C 1. 1] 1^ 8@ 2& 
3370 DATA 1C 2^ 2& 3C
3380 DATA -5] 1^ 1] 1# 5] 3& 6] 1& 1# 9& 1L 16] 1' 2] 2& 1] 1& 5] 8& 6] 1# 1T
3390 DATA -14] 1S 8] 1. 9S 1A 19] 2S 1] 1A-53] 2M 1] 1S 
3400 DATA /6C 1@ 1& 1@ 3& 5@ 1& 13@ 1# 2@ 1. 1] 1' 1C 1. 10] 1J 3C 4@ 2C 1^ 2] 1C 1& 7@ 
3410 DATA 1& 2C 2E 4C 
3420 DATA -5] 1'  6] 4& 4] 11& 1] 2& 15] 1^ 2] 1^ 4& 6] 1# 6& 5] 1^ 1#
3430 DATA -14] 2S 6] 1J 2] 6S 1] 2S 19] 4S -27] 4M 1] 2M 19] 4M
3440 DATA /5C 4& 14@ 1# 1J 2C 4@ 2C 1@ 1L 2] 1C 1. 10] 1J 3C 4@ 2C 1. 2] 3& 6@ 2& 1C 1& 
3450 DATA 1@ 1& 3C
3460 DATA -9] 2& 2] 10& 1] 1V 1' 1# 4& 1^ 1V 1& 1^ 14] 1^ 1. 1] 1' 4& 9] 4& 6] 1' 
3470 DATA -13] 3S 8] 1# 1] 1. 4S 2] 1S 19] 4S-27] 4M 2] 1M 19] 4M
3480 DATA /7C 2& 12@ 1& 2] 1^ 2C 4@ 2C 1@ 1& 2] 1^ 2. 9] 1' 1@ 3C 2@ 2C 1V 1. 2] 1C 3& 2C 
3490 DATA 3@ 4& 1@ 1& 3C 
3500 DATA -6] 1' 3] 11& 1# 3] 2^ 4& 1^ 1. 1& 1L 15] 1& 2] 1# 2& 1# 10] 1' 2&
3510 DATA -12] 4S 11] 4S 2] 1S 1A 15] 1S 2] 1' 2S 1' 
3520 DATA -27] 4M 2] 1M  20] 1^ 1M 
3530 DATA /6C 1& 14@ 1&  2] 1' 2C 4@ 2C 2@ 1. 1] 2. 9] 1. 1^ 1@ 7C 1# 1'  1] 1& 2@ 1& 1C 
3540 DATA 1#  2^ 5@ 1& 1@ 1& 3C
3550 DATA -8] 4& 1^ 7& 5] 1^ 1' 1T 2& 1P 1' 1] 2& 15] 1V 1L 2] 2# 2] 1^
3560 DATA -13] 2S 12] 4S 2] 2S 15] 1' 1^ 17] 3&-27] 4M 2] 2M
3570 DATA /7C 1& 13@  1& 3] 8C 1@ 1F 1. 1] 3. 9] 2. 1# 1V 3C 1# 1^ 1' 2] 1@ 3& 1C 2. 1# 1&
3580 DATA 6@ 1&  3C
3590 DATA -9] 11& 5] 1V 1& 1# 2& 1# 2] 1& 1P 16] 1' 1^ 4. 14] 1& -11] 5S 11] 4' 2] 1S 1V   40] 1&
3600 DATA -33] 1M
3610 REM --- 53
3620 DATA /7C 1& 13@ 2& 2] 1# 7C 2@ 1^ 1] 2. 13] 1' 3# 2' 1] 1. 3@ 2& 1C 3. 1' 3@ 2& 1@
3630 DATA 1E 3C
3640 DATA -9] 2# 9& 6] 1@ 2& 1' 2] 1^ 2& 36] 1& 2#
3650 DATA -11] 5S 10] 1^ 6] 1S
3660 DATA /8C 1& 13@ 1& 1. 2] 2# 1@ 2C 1# 2' 2@ 1] 2. 9] 1^ 7] 2. 1^ 1& 2@ 2& 1C 1^ 2.
3670 DATA 1^^ 1. 1] 1# 1C 2& 1@ 1& 3C
3680 DATA -10] 12& 5] 1' 1S 1L 1^ 1] 1^ 38] 1. 5] 1^ -10] 7S 12] 1^ 1] 1^
3690 DATA /9C 13@ 1& 1C 1. 8] 1^ 1C 1# 1] 1. 10] 2^ 5] 1. 1' 1^ 1C 1& 4@ 1& 1^ 1. 1] 1#
3700 DATA 1^ 1& 5# 1& 3C -9] 13& 39] 2& 8] 5. 1] 1. -11] 6S  1^
3710 DATA /10C 14@ 2& 1. 5] 1. 1^ 2] 2. 2^ 2] 3. 2] 1. 1] 1' 2^ 1. 5] 1' 2& 2@ 1& 2^ 4. 2C
3720 DATA 1& 2C 1@ 1& 1L 2C -9] 1# 13& 51] 1' 2] 1'-9] 1' 1^ 9S
3730 DATA /11C 14@ 2& 2C 1^ 5] 3^ 1. 2] 2. 4] 1^ 1. 1' 3^ 2. 2] 2. 1^ 1C 3@ 1C 5. 2& 2C
3740 DATA 1^ 1& 1@ 1E 2C-10] 1' 13& 37] 2&-11] 10S
3750 DATA /12C 14@ 1& 1^ 1. 6] 1. 1^ 1C 1^ 1. 2] 2. 2] 1^ 1C 1^ 2] 1' 2^ 3] 1' 2# 1^ 1# 
3760 DATA 1^ 2@ 2& 1C 2^ 1C 2^ 1' 1# 1& 1# 3C 
3770 DATA -11] 1J 12& 2^ 32] 1. 2] 1. 1] 1& 12] 1^ 1' -11] 1^ 8S
3780 DATA /12C 13@ 1& 1^ 1. 1' 6] 1' 1^ 2& 2. 1] 2. 2] 2C 1. 8] 1. 1^ 1& 8@ 2& 1C 1. 1^
3790 DATA 1.  2] 1& 1E 2C -12] 12& 1^ 35] 6& -12] 9S
3800 DATA /13C 11@ 5# 1. 5] 1. 1^ 1@ 1& 5. 1] 1. 1^ 1@ 1. 1] 3. 5] 2^ 1# 8@ 1& 1C 1^ 2.
3810 DATA 2] 1# 3C
3820 DATA -12] 1V 11& 3. 1] 1. 8] 1& 1^ 8] 1^  12] 1. 7& 8] 1. 1^
3830 DATA -12] 1' 1S 1] 1# 7S
3840 DATA /14C 14@ 1& 1. 5] 2. 3@ 1& 2C 2& 1^ 1& 1C 2] 2. 6] 3^ 8@ 1& 1C 2. 1' 1# 1& 1@
3850 DATA 3C-13] 1' 9& 1^ 1J 2& 1^ 9] 1& 8] 1. 1^ 13] 7& 9] 1^ 1. -14] 9S
3860 REM --- 62
3870 DATA /15C 13@ 1# 1^ 3] 2. 1^ 1. 6@ 1& 1C 1@ 1& 1# 10] 2^ 1L 2& 5@ 1& 1C 2^ 2. 1& 4@
3880 DATA 1&
3890 DATA -14] 1' 12S 1# 1^ 8] 6& 2. 1& 1J 1^ 12] 1^ 2] 4& 8] 4&
3900 DATA -15] 13# 9] 2S 1^ 5] 1^ 1'-15] 4. 9^ 9] 1C 1A 1^ 5] 1^ 1'
3910 DATA /16C 12@ 1# 6] 1^ 1. 1J 5@ 1& 1@ 1C 1@ 4] 2. 5] 1^ 1C 2& 1. 2# 2& 1C 1^ 2. 3#
3920 DATA 6@ -16] 11& 10] 1' 3& 3] 1# 1] 1^ 15] 1. 1^ 7] 1. 2] 6& -16] 11S 10] 1^ 3S 3] 1'
3930 DATA /17C 11@ 2^ 1] 2. 3] 1. 1^ 6@ 2^ 1. 2] 2. 7] 1^ 2C     4& 1# 1& 1. 1^ 1.
3940 DATA 1^ 2. 1& 6@ -16] 1' 11& 10] 1V 2& 24] 1. 8] 6& -17] 10S 11] 1' 1S 1V
3950 DATA /18C 6@ 2# 1^ 1# 1& 1# 1^ 2& 2C 2^ 1. 1' 1# 4@ 1# 2' 8] 2. 1] 1# 2& 2# 1& 2C 1. 
3960 DATA 1^ 1. 1^ 2& 8@
3970 DATA -17] 1' 6& 2' 1] 2^ 9] 1. 1' 3& 1] 1^ 16] 2. 12] 5& -18] 6S 2. 13] 1. 1'
3980 DATA /18C 4@ 2# 1L 4@ 1& 7^ 1. 3C 1# 2@ 1& 1L 2. 2] 3. 2] 2. 3^ 1C 3& 1C 1^ 2. 1^ 3& 
3990 DATA 2C 6@ -18] 4& 3^ 4& 11] 2' 2& 1] 1^ 28] 6& -18] 4S 3] 1S 1] 1S -18] 1M  
4000 DATA /20C 1@ 1# 2@ 1# 1& 1# 5@ 1& 2C 3^ 2C 2& 3@ 2& 1C 2^ 3. 1^ 1] 1# 1^ 1# 1C 1& 1C 
4010 DATA 3& 2C 4^ 1C 3@ 1& 1@ 1# 3@
4020 DATA -18] 2# 1& 1. 2& 1' 1L 1. 3& 3] 1^ 8] 2& 11] 1. 15] 3& 1] 1& 1. 3&
4030 DATA -18] 2' 1^ 3] 1. 1^ 16] 2^
4040 DATA /18C 1T 1& 2@ 1# 1& 1# 1& 1@ 1# 1@ 1F 1@ 3& 2C 5& 7@ 1C 1& 1C 2^ 1. 1^ 1# 1. 1^ 
4050 DATA 1' 1# 1& 4C 4^ 2C 1& 1@ 1& 3@ 1L 2@ 
4060 DATA -17] 1& 1# 1J 2& 1' 1Y 1' 1^ 1& 1' 1& 1# 10] 1. 6& 27] 3& 1' 2&
4070 DATA -17] 1^ 1. 1^ 2S 1. 1^ 1. 2] 1. 1S 13] 2S 1.
4080 DATA /14C 1' 1^ 1# 1^ 2@ 1# 2@ 1# 2@ 1# 1@ 1# 2& 2# 1& 1# 16@ 1& 2C 1# 1^ 1] 2. 1^
4090 DATA 3C 1& 1# 1C 2^ 2C 1@ 1# 8@
4100 DATA -18] 2& 1' 2& 1. 2& 1. 1& 1' 2^ 1' 1. 2^ 14& 15] 1. 6] 1.
4110 DATA -18] 2S 1. 2S  1] 2S 2] 1. 2] 1. 40] 7&-18] 2M 2] 2M
4120 REM --- 70
4130 DATA /12C 1# 1^ 1C 1# 2C 2# 1@ 1# 1& 2@ 1# 1@ 1# 1^ 1& 1@ 1# 20@ 1# 1^
4140 DATA 6. 2^ 1. 1& 1# 1& 1C 1^ 1C 2& 2@ 1# 6@
4150 DATA -12] 1. 2] 1. 2] 2' 1& 1' 1T 2& 1' 1& 1. 1] 1J 1# 1^ 20& 1^ 11] 1. 6] 2& 1' 3&
4160 DATA 2] 1&
4170 DATA -18] 1. 1] 1S 1. 1^ 2S 1. 1S 2] 1^ 1' 42] 1. -20] 1M  2] 2M 2] 1'
4180 DATA /11C 1# 1C 1# 3C 1# 2@ 1# 3@ 1& 2@ 1^ 1# 1@ 1E 2@ 2J 1# 3@ 9# 4@ 1& 2'1]  3.
4190 DATA 1^ 1. 1^ 5. 3c 3& 7@
4200 DATA -11] 1. 1] 1. 3] 1. 2& 1' 3& 1J 2& 1] 1. 1& 1^ 2& 2# 1. 3& 4^ 1] 1. 2] 1. 3&
4210 DATA 24] 5& -18] 2S 1. 3S 1L 2S 2] 1'-18] 2M 1] 3M 1^ 2M
4220 DATA /9C 1T 1^ 1C 1# 3C 1# 1C 1# 4@ 1& 1@ 1V 1^ 1. 1@ 1& 2@ 1^ 7@ 1^ 1C 5. 1] 1' 2&
4230 DATA 1C 3. 1] 1^ 1. 1& 1. 1] 3. 1^ 15@
4240 DATA -9] 1# 2] 1. 3] 1^ 1] 1' 4& 1J 1& 1' 2] 1& 1# 2& 1] 6& 27] 1& 1] 2& 4] 6&
4250 DATA -18] 1. 6S 3] 1S 1. 2J-19] 4M 1^ 1M 3] 1M
4260 DATA /8C 1# 1J 1# 1J 2C 1# 3C 3@ 1# 3@ 1^ 1# 1@ 1# 1^ 2@ 1^ 1J 8@ 1C 2& 4. 3C 4^ 1C
4270 DATA 1& 1. 2& 1C 1. 1& 3@ 1& 12@
4280 DATA -10] 1. 3] 1. 3] 3& 1' 3& 1] 1. 1& 1. 1] 2& 1] 1. 5& 25] 3& 5] 2& 1] 5&
4290 DATA -18] 3S 1] 3S 2] 1S 2] 2S-18] 3M 1. 3M 2] 1M 2] 2M
4300 DATA /7C 1# 1C 1# 7C 3@ 1# 3@ 2# 1@ 1# 1@ 1V 2@ 1^ 8@ 5& 1U 2& 4C 1^ 2. 1] 2. 1& 2C
4310 DATA 2& 5@ 1& 10@
4320 DATA -7] 1. 1] 1. 7] 3& 1' 3& 2' 1& 1' 1& 1' 2& 1] 5& 26] 5& 1] 1& 2] 1& 1] 5&
4330 DATA -17] 3S 1. 3S 2. 1S 1. 1S 1. 2S 1] 2S -17] 3M 1] 3M 2] 1M 1] 1M 1] 2M 1] 1M 1L
4340 DATA /5C 1E 1J 1P 1# 8C 2@ 1# 3@ 1# 1L 1J 2@ 1E 2@ 1^ 7@ 1& 6@ 1& 1@ 1& 1@ 3& 1C
4350 DATA 1. 3^ 1& 21@
4360 DATA -8] 1. 7] 1^ 2& 1' 3& 1' 1P 1^ 2& 1# 2& 1] 6& 21] 2& 3] 2& 1] 1& 1] 1& 5] 4&
4370 DATA -17] 2S 1. 3S 1. 1] 1' 2S 1' 2S 1] 4S 1L
4380 DATA  -17] 2M 1] 3M 3] 3M 1] 1M 1] 4M
4390 DATA  /4C 1# 1C 1P 1J 9C 1@ 1# 3@ 1# 1L 1J 6@ 1^ 15@ 1& 2@ 1& 2. 1^ 2@ 5& 1@ 1& 17@
4400 DATA  -4] 1. 12] 1& 1' 3& 1' 1# 1^ 6& 1P 1S 6& 1. 26] 6& 5] 3&
4410 DATA -17] 1S 1. 3S 1. 1' 1] 3S 1& 2S 2] 6S-17] 1M 1]  3M 3] 3M 1] 2M 2] 6M
4420 REM --- 77
4430 DATA /3C 1# 1C 1P 1J 10C 1L 1J 2@ 1L 1@ 1# 3@ 1P 3@ 1J 17@ 2& 1C 2^ 2& 1@ 1^ 15@ 1& 6@
4440 DATA -3] 1. 12] 1J 1# 1^ 2& 1# 1& 1. 3& 1# 3& 1^ 17& 11] 1& 1] 10& 5] 3&
4450 DATA -16] 1^ 1' 1. 2S 1' 1S 1] 3S 1' 3S 1] 9S 1L 2] 1^-19] 2M 1] 1M 1] 3M 1] 3M 1] 9M 
4460 DATA /2C 1J 1C 1F 8C 1F 2C 1& 1# 3@ 1J 1L 1J 3@ 1^ 3@ 1A 18@ 1^ 2C 1& 1C 2& 1^ 3@ 2& 
4470 DATA 2@ 1^ 4@ 1^ 2@ 1# 2& 4@
4480 DATA -16] 1@ 1' 3& 1A 1# 1^ 3& 1] 3& 1J 18& 8] 2& 3] 2& 1] 2& 4] 1& 1. 4] 2&
4490 DATA -16] 1S 1. 3S 1^ 1' 1] 3S 1] 3S 1. 16S
4500 DATA -16] 1M 1] 3M 3] 3M 1] 3M 1] 14M 
4510 DATA /16C 1# 3@ 1P 1@ 1# 8@ 1J 18@ 1C 2@ 5& 2@ 1^ 1A 1R 1N 1^ 1C 1@ 3& 4@ 1^ 5@
4520 DATA -16] 1' 3& 1# 1& 1# 4& 1M 3& 1A 17& 1A 8] 2& 13] 1& 1] 5&
4530 DATA -16] 1. 3S 1' 1S 1. 4S 1] 3S 1^ 16S
4540 DATA -17] 3M 3] 4M 1] 3M 1] 12M 
4550 DATA /16C 3@ 1L 2@ 1J 7@ 1L 20@ 1C 8@ 5& 1C 1^ 1& 12@ 
4560 DATA -15] 1. 3& 1# 2& 1A 7& 1# 19& 4] 5& 9] 12&-10] 3S 1' 2S 1^ 7S 1' 15S-16] 3M 1] 2M 1] 7M 1] 14M
4570 REM --- 81
4580 DATA /15C 4@ 1J 1@ 1P 29@  1& 11@ 2& 1@ 1C 1& 4@ 1& 7@
4590 DATA -15] 4& 1' 1& 1' 27& 5] 6&  1] 2& 6] 3& 1] 6& -15] 4S 1] 1S 1# 24S-15] 4M 1] 1M 1] 8M 1] 14M
4600 DATA /15C 3@ 1P 2@ 1J 25@ 1C 3& 9@ 1& 5@ 1& 13@
4610 DATA -15] 3& 1' 2& 1A 8& 1^ 16& 7] 3& 6] 3& 5] 2& 1] 4&
4620 DATA -15] 3S 1] 2S 1^ 8S 1] 14S-15] 3M 1] 2M 1] 8M 1] 13M
4630 DATA /15C 3@ 1J 1@ 1P 26@ 2& 5@ 1& 12@ 1C 2@ 3& 6@ 1&
4640 DATA -15] 2& 1F 1A 1& 1' 26& 5] 2& 2] 11& 1] 1& 4] 5&
4650 DATA -15] 2S 1] 1^ 1S 1] 23S- 15] 2M 2] 1M 1] 22M
4660 DATA /15C 2@ 1E 2@ 1E 23@ 1C 1& 5@ 1C 4& 11@ 1& 7@ 3& 2@
4670 DATA -15] 2& 1] 2& 1' 23& 3] 3& 1] 1V 5] 6& 6] 4& 4] 1&
4680 DATA -15] 2S 1] 2S 1] 21S-15] 2M 1] 2M 1] 19M
4690 DATA /80C/80C/80C/80C/80C/80C/
4700 DATA  FINISH
4710 '
4720 REM -- EXPLANATION OF DATA --
4730 REM / MEANS NEWLINE
4740 REM - MEANS CONTINUATION LINE
4750 REM 29G MEANS PRINT 29 LETTER G'S.
4760 REM @ MEANS PRINT ONE @ CHARACTER.
4770 REM CHARACTERS : " AND 'SPACE'
4780 REM ARE REPRESENTED BY ^ # AND ]
4790 REM IN THE DATA STATEMENTS.
4800 REM ALL OTHER CHARACTERS ARE
4810 REM PRINTED OUT AS THEMSELVES.