home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / c64 / gfx / pscardco.arc / GOTHIC / 64 (.txt) < prev   
Commodore BASIC  |  1993-04-28  |  17KB  |  366 lines
  1. 0 REM(null) $:IFXY$=""THENGOTO0
  2. 1 POKE53280,11:POKE53281,11:PRINT"[147]":POKE808,225
  3. 2 REM (null)
  4. 3 IFPEEK((256*2)+(15*16))=4THENOPEN4,4,4:PRINT#4,CHR$(15):CLOSE4
  5. 4 GOSUB100
  6. 5 REM(null)
  7. 6 REM (null)
  8. 9 AZ$=""
  9. 10 REM(null)
  10. 11 REM(null)
  11. 14 S8=PEEK((256*2)+(16*15))
  12. 15 REM(null)
  13. 16 REM(null)
  14. 17 S8=S8+1:ONS8GOSUB30,60,60,60,70:GOTO79
  15. 30 NEW
  16. 39 REM MX(null)
  17. 49 REM FX(null)
  18. 59 REM GE(null)
  19. 60 C1$=CHR$(75):IFC1=0THENC1$=CHR$(76)
  20. 61 Q8$=CHR$(27)+C1$:LF$=CHR$(27)+CHR$(65)+CHR$(8):RETURN
  21. 69 REM PR(null)
  22. 70 LF$=CHR$(27)+"N"+CHR$(27)+"T16"
  23. 71 IFC1=0THENLF$=CHR$(27)+"P"+CHR$(27)+"T16"
  24. 72 RETURN
  25. 79 IFL9=44THENGOTO99
  26. 80 PRINT"[147][215]HAT LINE DO YOU WANT TO PRINT ON ?"
  27. 81 IFPEEK(752)=4THENGOTO92
  28. 82 IF C1=0THENGOTO86
  29. 83 IF C1=1THENPRINT"[197]NTER  1   2   OR  3"
  30. 84 GETL8$:L8=VAL(L8$):IF(L8<1)OR(L8>3)THENGOTO84
  31. 85 LL=L8-1:GOTO99
  32. 86 PRINT"[197]NTER  1   2   3   4   5  OR  6"
  33. 87 GETL8$:L8=VAL(L8$):IF(L8<1)OR(L8>6)THENGOTO87
  34. 88 LL=L8-1:GOTO99
  35. 92 IF C1=0THENGOTO96
  36. 93 IF C1=1THENPRINT"[197]NTER  1  2  3 OR 4"
  37. 94 GETL8$:L8=VAL(L8$):IF(L8<1)OR(L8>4)THENGOTO94
  38. 95 LL=L8-1:GOTO99
  39. 96 PRINT"[197]NTER  1  2  3  4  5  6  7 OR 8"
  40. 97 GETL8$:L8=VAL(L8$):IF(L8<1)OR(L8>8)THENGOTO97
  41. 98 LL=L8-1:GOTO99
  42. 99 PRINT"[147][215]ORKING":GOTO160
  43. 100 PRINTCHR$(14)CHR$(8)
  44. 105 IFPEEK(752)=4THENGOTO120
  45. 110 PRINT"[147][196]O YOU WANT TALL OR SHORT TYPE (T/S)"
  46. 112 GETX$:IFX$=""THENGOTO112
  47. 114 IFX$="S"THENC1=0:PRINT"[215]ORKING":RETURN
  48. 116 IFX$="T"THENC1=1:PRINT"[215]ORKING":RETURN
  49. 118 GOTO112
  50. 120 PRINT"[147][196]O YOU WANT TALL, MED OR SHORT (T/M/S)"
  51. 122 GETX$:IFX$=""THENGOTO122
  52. 124 IFX$="S"THENC1=0:PRINT"[215]ORKING":RETURN
  53. 126 IFX$="M"THENC1=1:PRINT"[215]ORKING":RETURN
  54. 128 IFX$="T"THENC1=1:GOTO130
  55. 129 GOTO120
  56. 130 OPEN4,4,5:PRINT#4,CHR$(14):CLOSE4:PRINT"[147]":L9=44
  57. 132 PRINT"[208]RINT ON UPPER OR LOWER LINE (U/L)"
  58. 133 GETL8$:IFL8$=""THENGOTO133
  59. 134 IFL8$="L"THENLL=0:RETURN
  60. 135 IFL8$="U"THENLL=1:RETURN
  61. 136 GOTO133
  62. 160 FORI=1TO8:SQ$=SQ$+CHR$(255):S$=S$+CHR$(0):NEXT
  63. 165 FORI=1TO152:LL$=LL$+CHR$(0):NEXT:I=152:GOSUB10000:LL$=SU$+LL$
  64. 166 FORI=1TO136:LN$=LN$+CHR$(255):NEXT:I=136:GOSUB10000:LN$=SU$+LN$
  65. 170 I=8:GOSUB10000:FG$=SU$
  66. 180 S$=FG$+S$:SQ$=FG$+SQ$
  67. 190 P1$=SQ$+SQ$:S1$=S$+S$:P2$=P1$+SQ$:S2$=S1$+S$:P3$=P2$+SQ$:S3$=S2$+S$
  68. 200 S5$=S3$+S$:P4$=P2$+P2$:S4$=S2$+S2$:B1$=P4$+P4$:B2$=B1$+P1$:B$=P4$+P3$+SQ$
  69. 205 IFS8=5THENGOSUB50000:GOTO250
  70. 210 FORI=1TO8:READI4:I4$=I4$+CHR$(I4):NEXT
  71. 220 FORI=1TO8:READI3:I3$=I3$+CHR$(I3):NEXT
  72. 230 FORI=1TO8:READI2:I2$=I2$+CHR$(I2):NEXT:I2$=FG$+I2$:J4$=I2$
  73. 240 FORI=1TO8:READI1:I1$=I1$+CHR$(I1):NEXT:I1$=FG$+I1$:J3$=I1$
  74. 250 I3$=FG$+I3$:I4$=FG$+I4$
  75. 260 J1$=I3$:J2$=I4$
  76. 270 DATA255,127,63,31,15,7,3,1,128,192,224,240,248,252,254,255
  77. 280 DATA1,3,7,15,31,63,127,255
  78. 290 DATA255,254,252,248,240,224,192,128
  79. 300 A$="":FORI=1TO8:A$=A$+CHR$(0):NEXT:I=8:GOSUB10000:A$=SU$+A$
  80. 310 FORI=1TO40:D$=D$+CHR$(0):NEXT:I=40:GOSUB10000:D$=SU$+D$
  81. 315 IFS8=5THENGOSUB50060:GOTO360
  82. 320 FORI=1TO16:READT4:T4$=T4$+CHR$(T4):NEXT
  83. 330 FORI=1TO16:READT3:T3$=T3$+CHR$(T3):NEXT
  84. 340 FORI=1TO16:READT2:T2$=T2$+CHR$(T2):NEXT
  85. 350 FORI=1TO16:READT1:T1$=T1$+CHR$(T1):NEXT
  86. 360 I=16:GOSUB10000:FJ$=SU$:T1$=FJ$+T1$:T2$=FJ$+T2$
  87. 370 T3$=FJ$+T3$:T4$=FJ$+T4$
  88. 380 DATA1,1,3,3,7,7,15,15,31,31,63,63,127,127,255,255
  89. 390 DATA255,255,254,254,252,252,248,248,240,240,224,224,192,192,128,128
  90. 400 DATA255,255,127,127,63,63,31,31,15,15,7,7,3,3,1,1
  91. 410 DATA128,128,192,192,224,224,240,240,248,248,252,252,254,254,255,255
  92. 420 GOTO1220
  93. 430 GOSUB20000:PRINT#4,A$S3$S$I2$P2$I4$S$SQ$I4$:GOSUB20000:PRINT#4,A$S3$I2$SQ$P3$S$P1$I4$
  94. 440 GOSUB20000:PRINT#4,A$S3$P1$I1$S$P1$S1$P1$:GOSUB20000:PRINT#4,A$S3$P1$I4$S$P1$S$I2$P1$
  95. 450 GOSUB20000:PRINT#4,A$S3$I3$P3$P3$I1$:GOSUB20000:PRINT#4,A$S3$I2$P3$P2$I1$:GOSUB20000:PRINT#4,A$S3$P1$:RETURN
  96. 460 GOSUB20000:PRINT#4,A$S3$P1$:GOSUB20000:PRINT#4,A$S3$I3$SQ$B1$:GOSUB20000:PRINT#4,A$S3$I2$SQ$B1$
  97. 470 GOSUB20000:PRINT#4,A$S3$P1$I1$S3$I3$P1$:GOSUB20000:PRINT#4,A$S3$P1$I4$S3$I2$P1$
  98. 480 GOSUB20000:PRINT#4,A$S3$I3$P3$P3$I1$:GOSUB20000:PRINT#4,A$S3$S$I3$P4$I1$:RETURN
  99. 490 GOSUB20000:PRINT#4,A$S3$S$I2$P4$I4$:GOSUB20000:PRINT#4,A$S3$I2$P4$P1$I4$:GOSUB20000:PRINT#4,A$S3$P1$I1$S$S2$I3$P1$
  100. 500 GOSUB20000:PRINT#4,A$S3$P1$I4$S3$I2$P1$:GOSUB20000:PRINT#4,A$S3$I3$P1$S3$P1$I1$
  101. 510 GOSUB20000:PRINT#4,A$S3$S$I3$SQ$S3$SQ$I1$:RETURN
  102. 520 GOSUB20000:PRINT#4,A$S3$S$I2$P4$I4$:GOSUB20000:PRINT#4,A$S3$I2$P4$P1$I4$:GOSUB20000:PRINT#4,A$S3$P1$I1$S3$I3$P1$
  103. 530 GOSUB20000:PRINT#4,A$S3$P1$I4$S3$I2$P1$:GOSUB20000:PRINT#4,A$S3$I3$SQ$B1$:GOSUB20000:PRINT#4,A$S3$I2$SQ$B1$
  104. 540 GOSUB20000:PRINT#4,A$S3$P1$:RETURN
  105. 550 GOSUB20000:PRINT#4,A$S3$S$I2$P4$I4$:GOSUB20000:PRINT#4,A$S3$I2$P4$P1$I4$:GOSUB20000:PRINT#4,A$S3$P1$I1$S$P1$S$I3$P1$
  106. 560 GOSUB20000:PRINT#4,A$S3$P1$I4$S$P1$S$I2$P1$:GOSUB20000:PRINT#4,A$S3$I3$P1$S$P3$SQ$I1$
  107. 570 GOSUB20000:PRINT#4,A$S3$S$I3$SQ$S$I3$SQ$P1$I1$:RETURN
  108. 580 GOSUB20000:PRINT#4,A$S3$B1$I4$:GOSUB20000:PRINT#4,A$S3$B1$SQ$I4$:GOSUB20000:PRINT#4,A$S3$S4$S1$P1$S$I3$P1$
  109. 590 GOSUB20000:PRINT#4,A$S3$S4$S2$S2$P1$:GOSUB20000:PRINT#4,A$S3$S4$S3$S$P1$I1$
  110. 600 GOSUB20000:PRINT#4,A$S3$S4$S3$S$SQ$I1$:RETURN
  111. 610 GOSUB20000:PRINT#4,A$S$I2$SQ$:GOSUB20000:PRINT#4,A$I2$SQ$I1$
  112. 620 GOSUB20000:PRINT#4,A$P1$
  113. 630 GOSUB20000:PRINT#4,A$P1$I4$:GOSUB20000:PRINT#4,A$I3$B1$SQ$S1$P1$
  114. 640 GOSUB20000:PRINT#4,A$S$I3$P4$P3$P1$S1$P1$:RETURN
  115. 650 GOSUB20000:PRINT#4,A$S3$B1$I4$:GOSUB20000:PRINT#4,A$S3$B1$SQ$I4$:GOSUB20000:PRINT#4,A$S3$S4$S1$P1$S$I3$P1$
  116. 660 GOSUB20000:PRINT#4,A$S3$S3$S2$I2$P1$S1$P1$:GOSUB20000:PRINT#4,A$S3$P4$P1$SQ$I1$S$P1$I1$
  117. 670 GOSUB20000:PRINT#4,A$S3$P4$P1$I1$S1$SQ$I1$:RETURN
  118. 680 GOSUB20000:PRINT#4,A$S3$I2$P2$P4$S1$P1$:GOSUB20000:PRINT#4,A$S3$P3$P4$S1$P1$:GOSUB20000:PRINT#4,A$S3$P1$
  119. 690 GOSUB20000:PRINT#4,A$S3$I3$SQ$I4$:RETURN
  120. 700 GOSUB20000:PRINT#4,A$S$I2$SQ$S1$I2$P4$I4$:GOSUB20000:PRINT#4,A$I2$P1$S$I2$P4$P1$I4$
  121. 710 GOSUB20000:PRINT#4,A$P1$S1$P1$I1$S3$I3$P1$
  122. 720 GOSUB20000:PRINT#4,A$P1$I4$S$P1$I4$S3$I2$P1$:GOSUB20000:PRINT#4,A$I3$B1$I1$
  123. 730 GOSUB20000:PRINT#4,A$S$I3$P4$P3$I1$:RETURN
  124. 740 FORI=1TO2:GOSUB20000:PRINT#4,A$S3$B2$:NEXT:GOSUB20000:PRINT#4,A$S3$S$I2$SQ$I1$I3$SQ$I4$
  125. 750 GOSUB20000:PRINT#4,A$S3$I2$SQ$I1$S1$I3$SQ$I4$:GOSUB20000:PRINT#4,A$S3$P1$I4$S2$I3$SQ$I4$
  126. 760 GOSUB20000:PRINT#4,A$S3$I3$P1$S3$I3$SQ$I4$:RETURN
  127. 770 GOSUB20000:PRINT#4,A$S3$I2$SQ$B1$:GOSUB20000:PRINT#4,A$S3$B2$:GOSUB20000:PRINT#4,A$S3$P1$:GOSUB20000:PRINT#4,A$S3$I3$SQ$I4$
  128. 780 RETURN
  129. 790 GOSUB20000:PRINT#4,A$S3$S4$S$P1$I4$:GOSUB20000:PRINT#4,A$S3$P3$P4$::GOSUB20000:PRINT#4,A$S3$P4$P2$I1$
  130. 800 FORI=1TO2:GOSUB20000:PRINT#4,A$S3$S4$S$I3$SQ$I4$:GOSUB20000:PRINT#4,A$S3$S4$S$I2$SQ$I1$:NEXT
  131. 810 GOSUB20000:PRINT#4,A$S3$P4$P2$I4$:GOSUB20000:PRINT#4,A$S3$P3$P4$:RETURN
  132. 820 GOSUB20000:PRINT#4,A$S3$S4$S$P1$I4$:GOSUB20000:PRINT#4,A$S3$P3$P4$:GOSUB20000:PRINT#4,A$S3$P4$P2$I1$
  133. 830 GOSUB20000:PRINT#4,A$S3$S4$I3$SQ$I4$:GOSUB20000:PRINT#4,A$S3$S4$S$I3$SQ$I4$
  134. 840 GOSUB20000:PRINT#4,A$S3$P3$P4$:GOSUB20000:PRINT#4,A$S3$P2$P4$I1$:RETURN
  135. 850 GOSUB20000:PRINT#4,A$S3$S$I2$P4$I4$:GOSUB20000:PRINT#4,A$S3$I2$P4$P1$I4$
  136. 860 GOSUB20000:PRINT#4,A$S3$P1$I1$S3$I3$P1$:GOSUB20000:PRINT#4,A$S3$P1$I4$S3$I2$P1$
  137. 870 GOSUB20000:PRINT#4,A$S3$I3$P4$P1$I1$:GOSUB20000:PRINT#4,A$S3$S$I3$P4$I1$:RETURN
  138. 880 GOSUB20000:PRINT#4,A$S3$S4$S1$P1$
  139. 890 GOSUB20000:PRINT#4,A$B1$SQ$I1$:GOSUB20000:PRINT#4,A$B1$SQ$I4$
  140. 900 GOSUB20000:PRINT#4,A$S3$P1$I1$S3$I3$P1$:GOSUB20000:PRINT#4,A$S3$P1$I4$S3$I2$P1$
  141. 910 GOSUB20000:PRINT#4,A$S3$I3$P4$P1$I1$:GOSUB20000:PRINT#4,A$S3$S$I3$P4$I1$:RETURN
  142. 920 GOSUB20000:PRINT#4,A$S3$S$I2$P4$I4$:GOSUB20000:PRINT#4,A$S3$I2$P4$P1$I4$
  143. 930 GOSUB20000:PRINT#4,A$S3$P1$I1$S3$I3$P1$:GOSUB20000:PRINT#4,A$S3$P1$I4$S3$I2$P1$
  144. 940 GOSUB20000:PRINT#4,A$B1$SQ$I1$:GOSUB20000:PRINT#4,A$B1$SQ$I4$:GOSUB20000:PRINT#4,A$S3$S4$S1$P1$:RETURN
  145. 950 FORI=1TO2:GOSUB20000:PRINT#4,A$S3$P3$P4$:NEXT:GOSUB20000:PRINT#4,A$S3$S4$S$I3$SQ$I4$
  146. 960 GOSUB20000:PRINT#4,A$S3$S4$S1$P1$:GOSUB20000:PRINT#4,A$S3$S4$S$P2$:GOSUB20000:PRINT#4,A$S3$S4$S$P1$I1$:RETURN
  147. 970 GOSUB20000:PRINT#4,A$S3$S$I2$SQ$S$I2$P2$I4$:GOSUB20000:PRINT#4,A$S3$I2$P1$S$P3$SQ$I4$
  148. 980 GOSUB20000:PRINT#4,A$S3$P1$S1$P1$S$I3$P1$:GOSUB20000:PRINT#4,A$S3$P1$I4$S$P1$S1$P1$
  149. 990 GOSUB20000:PRINT#4,A$S3$I3$P3$SQ$S$P1$I1$:GOSUB20000:PRINT#4,A$S3$S$I3$P2$I1$S$SQ$I1$:RETURN
  150. 1000 GOSUB20000:PRINT#4,A$S3$S4$S1$P1$:GOSUB20000:PRINT#4,A$S3$I2$SQ$B1$:GOSUB20000:PRINT#4,A$S3$B2$
  151. 1010 GOSUB20000:PRINT#4,A$S3$P1$S4$P1$:GOSUB20000:PRINT#4,A$S3$I3$SQ$I4$:RETURN
  152. 1020 GOSUB20000:PRINT#4,A$S3$S$I2$P4$P1$:GOSUB20000:PRINT#4,A$S3$I2$P4$P2$:GOSUB20000:PRINT#4,A$S3$P1$I1$
  153. 1030 GOSUB20000:PRINT#4,A$S3$P1$I4$:GOSUB20000:PRINT#4,A$S3$I3$P2$P4$:GOSUB20000:PRINT#4,A$S3$I2$P2$P4$:GOSUB20000:PRINT#4,A$S3$P1$
  154. 1040 RETURN
  155. 1050 GOSUB20000:PRINT#4,A$S3$S$I2$P4$P1$:GOSUB20000:PRINT#4,A$S3$I2$P4$P2$:GOSUB20000:PRINT#4,A$S3$P1$I1$
  156. 1060 GOSUB20000:PRINT#4,A$S3$P1$I4$:GOSUB20000:PRINT#4,A$S3$I3$P2$P4$:GOSUB20000:PRINT#4,A$S3$S$I3$P1$P4$:RETURN
  157. 1070 GOSUB20000:PRINT#4,A$S3$P3$P4$:GOSUB20000:PRINT#4,A$S3$I3$P2$P4$:FORI=1TO2:GOSUB20000:PRINT#4,A$S3$I2$SQ$I1$
  158. 1080 GOSUB20000:PRINT#4,A$S3$I3$SQ$I4$:NEXT:GOSUB20000:PRINT#4,A$S3$I2$P2$P4$:GOSUB20000:PRINT#4,A$S3$P3$P4$:RETURN
  159. 1090 GOSUB20000:PRINT#4,A$S3$P3$I4$I2$P3$:GOSUB20000:PRINT#4,A$S3$P3$P4$:GOSUB20000:PRINT#4,A$S3$S2$I3$P1$I1$
  160. 1100 GOSUB20000:PRINT#4,A$S3$S2$I2$P1$I4$:GOSUB20000:PRINT#4,A$S3$P3$P4$:GOSUB20000:PRINT#4,A$S3$P3$I1$I3$P3$:RETURN
  161. 1110 GOSUB20000:PRINT#4,A$S$I2$SQ$S1$I2$P4$P1$:GOSUB20000:PRINT#4,A$I2$P1$S$I2$P4$P1$SQ$
  162. 1120 GOSUB20000:PRINT#4,A$P1$S1$P1$I1$:GOSUB20000:PRINT#4,A$P1$I4$S$P1$
  163. 1130 GOSUB20000:PRINT#4,A$I3$SQ$B1$:GOSUB20000:PRINT#4,A$S$I3$B1$:RETURN
  164. 1140 GOSUB20000:PRINT#4,A$S$I2$SQ$S4$S2$P1$:GOSUB20000:PRINT#4,A$I2$P1$S4$I2$I4$S$P1$
  165. 1150 GOSUB20000:PRINT#4,A$P1$S4$I2$P1$I4$P1$:GOSUB20000:PRINT#4,A$P1$I4$S3$I2$P4$
  166. 1160 GOSUB20000:PRINT#4,A$I3$P4$P1$I1$I3$P2$:GOSUB20000:PRINT#4,A$S$I3$P4$I1$S1$I3$P1$:RETURN
  167. 1170 FORI=1TO3:PRINT#4,CHR$(10):NEXT:M=M+1:RETURN
  168. 1180 GOSUB20000:PRINT#4,A$S3$S4$S2$S2$P1$:GOSUB20000:PRINT#4,A$S3$S4$S2$I3$P3$
  169. 1190 GOSUB20000:PRINT#4,A$S3$S4$S3$I3$P1$I1$:RETURN
  170. 1200 FORI=1TO4:GOSUB20000:PRINT#4,A$S3$S3$P1$:NEXT:RETURN
  171. 1210 FORI=1TO2:GOSUB20000:PRINT#4,A$S3$P1$:NEXT:RETURN
  172. 1220 M0=1:OPEN4,4,4:IFPEEK(752)=3THENCLOSE4:OPEN4,4,5
  173. 1221 PRINT"[147]":GOSUB2550
  174. 1230 ST$=Y$:LN=LEN(ST$):IFM0>LNTHEN1420
  175. 1240 L=ASC(MID$(ST$,M0,1)):IF(L>47)AND(L<58)THEN2110
  176. 1260 IFL=33THENPRINT#4,LF$:GOSUB2390:GOTO1410
  177. 1270 IFL=39THENGOSUB2500:GOTO1410
  178. 1280 IFL=34THENGOSUB2450:GOTO1410
  179. 1290 IFL=44THENGOSUB2410:GOTO1410
  180. 1300 IFL=32THENGOSUB1170:GOTO1410
  181. 1305 IFL=36THENGOSUB30000:GOTO1410
  182. 1310 IFL=39THENGOSUB1180:GOTO1410
  183. 1320 IFL=45THENGOSUB1200:GOTO1410
  184. 1330 IFL=46THENGOSUB1210:GOTO1410
  185. 1340 IFL<65ORL>90THEN1390
  186. 1350 IFL>81THEN1380
  187. 1360 ON(L-64)GOSUB430,460,490,520,550,580,700,650,680,610,740,770,790,820,850,880,920
  188. 1370 GOTO1410
  189. 1380 ON(L-64-17)GOSUB950,970,1000,1020,1050,1070,1090,1110,1140
  190. 1390 IFL<193ORL>218THEN1410
  191. 1400 GOTO2060
  192. 1410 M0=M0+1:PRINT#4,LF$:GOTO1230
  193. 1420 RUN
  194. 1430 GOSUB20000:PRINT#4,D$B$P1$J2$:GOSUB20000:PRINT#4,D$B$P1$SQ$J2$:GOSUB20000:PRINT#4,D$S5$S$P1$S3$J1$P1$
  195. 1440 GOSUB20000:PRINT#4,D$S5$S$P1$S3$J4$P1$:GOSUB20000:PRINT#4,D$B$P1$SQ$J3$:GOSUB20000:PRINT#4,D$B$P1$J3$:RETURN
  196. 1450 FORI=1TO2:GOSUB20000:PRINT#4,D$B$P1$P1$:NEXT:GOSUB20000:PRINT#4,D$P1$S5$P1$S3$P1$
  197. 1460 GOSUB20000:PRINT#4,D$P1$J2$S2$J4$P1$J2$S$S$J4$P1$:GOSUB20000:PRINT#4,D$J1$P1$P1$P1$J3$J1$P1$P1$SQ$J3$
  198. 1470 GOSUB20000:PRINT#4,D$S$J1$P1$P1$J3$S$S$J1$SQ$P1$J3$:RETURN
  199. 1480 GOSUB20000:PRINT#4,D$S$J4$B$J2$:GOSUB20000:PRINT#4,D$J4$SQ$B$SQ$J2$:GOSUB20000:PRINT#4,D$P1$J3$S3$S5$J1$P1$
  200. 1490 GOSUB20000:PRINT#4,D$P1$J2$S3$S5$J4$P1$:GOSUB20000:PRINT#4,D$J1$P1$SQ$S5$S$S$P1$SQ$J3$
  201. 1500 GOSUB20000:PRINT#4,D$S$J1$P1$S$S$S5$P1$J3$:RETURN
  202. 1510 FORI=1TO2:GOSUB20000:PRINT#4,D$P1$B$P1$:NEXT:GOSUB20000:PRINT#4,D$P1$S$S$S3$S5$P1$
  203. 1520 GOSUB20000:PRINT#4,D$P1$J2$S3$S5$J4$P1$:GOSUB20000:PRINT#4,D$J1$SQ$B$SQ$J3$
  204. 1530 GOSUB20000:PRINT#4,D$S$J1$B$J3$:RETURN
  205. 1540 FORI=1TO2:GOSUB20000:PRINT#4,D$P1$B$P1$:NEXT:FORI=1TO2:GOSUB20000:PRINT#4,D$P1$S5$P1$S3$P1$:NEXT
  206. 1550 GOSUB20000:PRINT#4,D$P1$S$S$S3$S5$P1$:RETURN
  207. 1560 GOSUB20000:PRINT#4,D$S5$S5$J4$SQ$J3$:FORI=1TO2:GOSUB20000:PRINT#4,D$P1$B$P1$:NEXT:RETURN
  208. 1570 FORI=1TO2:GOSUB20000:PRINT#4,D$P1$B$P1$:NEXT:FORI=1TO2:GOSUB20000:PRINT#4,D$S$S$S5$P1$S3$P1$:NEXT
  209. 1580 GOSUB20000:PRINT#4,D$S3$S3$S5$P1$:RETURN
  210. 1590 GOSUB20000:PRINT#4,D$S$J4$B$J2$:GOSUB20000:PRINT#4,D$J4$SQ$B$SQ$J2$:GOSUB20000:PRINT#4,D$P1$J3$S3$S5$J1$P1$
  211. 1600 GOSUB20000:PRINT#4,D$P1$J2$S$S$J4$S5$S$J4$P1$:GOSUB20000:PRINT#4,D$J1$P1$P1$SQ$S5$P1$SQ$J3$
  212. 1610 GOSUB20000:PRINT#4,D$S$J1$P1$P1$S5$P1$J3$:RETURN
  213. 1620 FORI=1TO2:GOSUB20000:PRINT#4,D$P1$B$P1$:NEXT:FORI=1TO2:GOSUB20000:PRINT#4,D$S$S$S5$P1$S3$:NEXT
  214. 1630 FORI=1TO2:GOSUB20000:PRINT#4,D$P1$B$P1$:NEXT:RETURN
  215. 1640 FORI=1TO2:GOSUB20000:PRINT#4,D$P1$B$P1$:NEXT:RETURN
  216. 1650 GOSUB20000:PRINT#4,D$S$J4$P1$:GOSUB20000:PRINT#4,D$J4$SQ$P1$:GOSUB20000:PRINT#4,D$P1$J3$:GOSUB20000:PRINT#4,D$P1$J2$
  217. 1660 GOSUB20000:PRINT#4,D$J1$SQ$P1$B$:GOSUB20000:PRINT#4,D$S$J1$P1$B$:RETURN
  218. 1670 FORI=1TO2:GOSUB20000:PRINT#4,D$P1$B$P1$:NEXT:GOSUB20000:PRINT#4,D$S$S$T4$P1$T3$S$T1$P1$T2$
  219. 1680 GOSUB20000:PRINT#4,D$T4$P1$T3$S3$S$T1$P1$:GOSUB20000:PRINT#4,D$P1$T3$S3$S3$S$T1$:GOSUB20000:PRINT#4,D$T3$:RETURN
  220. 1690 FORI=1TO2:GOSUB20000:PRINT#4,D$P1$B$P1$:NEXT:FORI=1TO4:GOSUB20000:PRINT#4,D$P1$:NEXT:RETURN
  221. 1700 GOSUB20000:PRINT#4,D$P1$B$SQ$J2$:GOSUB20000:PRINT#4,D$P1$B$SQ$J3$:GOSUB20000:PRINT#4,D$S$S5$S5$J4$SQ$J3$
  222. 1710 GOSUB20000:PRINT#4,D$S$S5$S5$J1$SQ$J2$:GOSUB20000:PRINT#4,D$P1$B$SQ$J2$:GOSUB20000:PRINT#4,D$P1$B$SQ$J3$:RETURN
  223. 1720 GOSUB20000:PRINT#4,D$P1$B$SQ$J2$:GOSUB20000:PRINT#4,D$P1$B$SQ$J3$:GOSUB20000:PRINT#4,D$S$S5$S5$J4$SQ$J3$
  224. 1730 GOSUB20000:PRINT#4,D$S5$S5$J4$SQ$J3$:FORI=1TO2:GOSUB20000:PRINT#4,D$P1$B$P1$:NEXT:RETURN
  225. 1740 GOSUB20000:PRINT#4,D$S$J4$B$J2$:GOSUB20000:PRINT#4,D$J4$SQ$B$SQ$J2$:GOSUB20000:PRINT#4,D$P1$J3$S3$S5$J1$P1$
  226. 1750 GOSUB20000:PRINT#4,D$P1$J2$S3$S5$J4$P1$:GOSUB20000:PRINT#4,D$J1$SQ$B$SQ$J3$:GOSUB20000:PRINT#4,D$S$J1$B$J3$::RETURN
  227. 1760 FORI=1TO2:GOSUB20000:PRINT#4,D$P1$B$P1$:NEXT:GOSUB20000:PRINT#4,D$S$S$S5$P1$S3$P1$
  228. 1770 GOSUB20000:PRINT#4,D$S$S$S5$P1$J2$S$S$J4$P1$:GOSUB20000:PRINT#4,D$S$S$S5$J1$P1$P1$P1$J3$
  229. 1780 GOSUB20000:PRINT#4,D$S$S$S$S5$J1$P1$P1$J3$:RETURN
  230. 1790 GOSUB20000:PRINT#4,D$S$J4$B$J2$:GOSUB20000:PRINT#4,D$J4$SQ$B$SQ$J2$:GOSUB20000:PRINT#4,D$P1$J3$S3$S5$J1$P1$
  231. 1800 GOSUB20000:PRINT#4,D$P1$J2$S3$S5$J4$P1$:GOSUB20000:PRINT#4,D$J1$SQ$B$SQ$J3$:GOSUB20000:PRINT#4,D$J4$SQ$B$J3$
  232. 1810 GOSUB20000:PRINT#4,D$P1$J3$:RETURN
  233. 1820 FORI=1TO2:GOSUB20000:PRINT#4,D$P1$B$P1$:NEXT:GOSUB20000:PRINT#4,D$S$S$S5$P1$S3$P1$
  234. 1830 GOSUB20000:PRINT#4,D$S$S5$J4$P1$J2$S$S$J4$P1$:GOSUB20000:PRINT#4,D$P1$P1$P1$SQ$J3$J1$P1$P1$SQ$J3$
  235. 1840 GOSUB20000:PRINT#4,D$P1$P1$P1$J3$S$S$J1$P1$SQ$J3$:RETURN
  236. 1850 GOSUB20000:PRINT#4,D$S$J4$P1$S3$J4$P1$P1$J2$:GOSUB20000:PRINT#4,D$J4$SQ$P1$S$S$S$J4$P1$P1$P1$J2$
  237. 1855 IFRR=5THENRETURN
  238. 1860 GOSUB20000:PRINT#4,D$P1$J3$S$S$S$J4$P1$J3$S$S$J1$P1$:GOSUB20000:PRINT#4,D$P1$J2$S$S$J4$P1$J3$S$S$S$J4$P1$
  239. 1870 GOSUB20000:PRINT#4,D$J1$P1$P1$P1$J3$S$S$S$SQ$P1$J3$:GOSUB20000:PRINT#4,D$S$J1$P1$P1$J3$S3$P1$J3$:RETURN
  240. 1880 FORI=1TO2:GOSUB20000:PRINT#4,D$S3$S3$S5$P1$:NEXT:FORI=1TO2:GOSUB20000:PRINT#4,D$P1$B$P1$:NEXT
  241. 1890 FORI=1TO2:GOSUB20000:PRINT#4,D$S3$S3$S5$P1$:NEXT:RETURN
  242. 1900 GOSUB20000:PRINT#4,D$S$J4$B$P1$:GOSUB20000:PRINT#4,D$J4$SQ$B$P1$:GOSUB20000:PRINT#4,D$P1$J3$:GOSUB20000:PRINT#4,D$P1$J2$
  243. 1910 GOSUB20000:PRINT#4,D$J1$SQ$B$P1$:GOSUB20000:PRINT#4,D$S$J1$B$P1$:RETURN
  244. 1915 GOSUB20000:PRINT#4,D$S3$T4$P1$P1$P1$P1$SQ$:GOSUB20000
  245. 1920 PRINT#4,D$S$S$T4$P1$P1$P1$P1$P1$SQ$
  246. 1930 GOSUB20000:PRINT#4,D$T4$P1$T3$:GOSUB20000:PRINT#4,D$T1$P1$T2$:GOSUB20000:PRINT#4,D$S$S$T1$P1$P1$P1$P1$P1$SQ$
  247. 1940 GOSUB20000:PRINT#4,D$S3$T1$P1$P1$P1$P1$SQ$:RETURN
  248. 1950 GOSUB20000:PRINT#4,D$J4$SQ$P1$B$:GOSUB20000:PRINT#4,D$J1$SQ$P1$B$:GOSUB20000:PRINT#4,D$S$J1$SQ$J2$
  249. 1960 GOSUB20000:PRINT#4,D$S$J4$SQ$J3$:GOSUB20000:PRINT#4,D$J4$SQ$P1$B$:GOSUB20000:PRINT#4,D$J1$SQ$P1$B$:RETURN
  250. 1970 GOSUB20000:PRINT#4,D$P1$P1$P1$J2$S$S$J4$P1$P1$SQ$:GOSUB20000:PRINT#4,D$P1$P1$P1$SQ$J2$J4$P1$P1$P1$
  251. 1980 GOSUB20000:PRINT#4,D$S5$S$J1$P1$J3$:GOSUB20000:PRINT#4,D$S5$S$J4$P1$J2$
  252. 1990 GOSUB20000:PRINT#4,D$P1$P1$P1$SQ$J3$J1$P1$P1$P1$:GOSUB20000:PRINT#4,D$P1$P1$P1$J3$S$S$J1$P1$P1$SQ$:RETURN
  253. 2000 GOSUB20000:PRINT#4,D$S3$S3$J4$P1$P1$P1$:GOSUB20000:PRINT#4,D$S3$S$S$S$J4$SQ$P1$P1$P1$
  254. 2010 GOSUB20000:PRINT#4,D$P1$P1$P1$P1$SQ$J3$:GOSUB20000:PRINT#4,D$P1$P1$P1$P1$SQ$J2$
  255. 2020 GOSUB20000:PRINT#4,D$S3$S$S$S$J1$SQ$P1$P1$P1$:GOSUB20000:PRINT#4,D$S3$S3$J1$P1$P1$P1$:RETURN
  256. 2030 GOSUB20000:PRINT#4,D$P1$P1$T2$S$S$S5$P1$:GOSUB20000:PRINT#4,D$P1$P1$P1$T2$S5$P1$
  257. 2040 GOSUB20000:PRINT#4,D$P1$S$S$T1$P1$T2$S$S$S$P1$:GOSUB20000:PRINT#4,D$P1$S3$T1$P1$T2$S$P1$
  258. 2050 GOSUB20000:PRINT#4,D$P1$S3$S$S$T1$P1$SQ$P1$:GOSUB20000:PRINT#4,D$P1$S3$S3$T1$P1$SQ$:RETURN
  259. 2060 IFL>205THEN2090
  260. 2070 ON(L-192)GOSUB1430,1450,1480,1510,1540,1570,1590,1620,1640,1650,1670,1690,1700
  261. 2080 GOTO1410
  262. 2090 ON(L-192-13)GOSUB1720,1740,1760,1790,1820,1850,1880,1900,1915,1950,1970,2000,2030
  263. 2100 GOTO1410
  264. 2110 PRINT#4,CHR$(10)
  265. 2120 ON(L-47)GOSUB1740,2130,2150,2180,2210,2240,2270,2300,2330,2360:GOTO1410
  266. 2130 GOSUB20000:PRINT#4,D$S5$S3$T2$:GOSUB20000:PRINT#4,D$S5$S3$P1$T2$:GOSUB20000:PRINT#4,D$S5$S3$T1$P1$T2$
  267. 2140 GOSUB20000:PRINT#4,D$S5$S4$T1$P1$:FORI=1TO2:GOSUB20000:PRINT#4,D$B2$SQ$:NEXT:RETURN
  268. 2150 GOSUB20000:PRINT#4,D$P2$P2$I4$S2$P2$I4$:GOSUB20000:PRINT#4,D$P4$SQ$I4$S1$P3$I4$
  269. 2160 GOSUB20000:PRINT#4,D$P1$S2$I3$P1$I4$S2$I3$P1$:GOSUB20000:PRINT#4,D$P1$S3$I3$P1$I4$S1$I2$P1$
  270. 2170 GOSUB20000:PRINT#4,D$P1$S5$I3$P4$I1$:GOSUB20000:PRINT#4,D$P1$S4$I3$P3$I1$:RETURN
  271. 2180 GOSUB20000:PRINT#4,D$S$I2$P2$S2$SQ$I4$S2$P1$:GOSUB20000:PRINT#4,D$I2$P3$S2$P1$I4$S1$P1$
  272. 2190 GOSUB20000:PRINT#4,D$P1$I1$S5$P2$I4$S$P1$:GOSUB20000:PRINT#4,D$P1$I4$S3$I2$P3$I4$P1$
  273. 2200 GOSUB20000:PRINT#4,D$I3$P4$P1$I1$I3$P3$:GOSUB20000:PRINT#4,D$S$I3$P3$P1$I1$S1$I3$P2$:RETURN
  274. 2210 GOSUB20000:PRINT#4,D$S5$P1$T2$:GOSUB20000:PRINT#4,D$S5$P3$T2$:GOSUB20000:PRINT#4,D$S5$P1$T1$P1$T2$
  275. 2220 GOSUB20000:PRINT#4,D$S5$P1$S1$T1$P1$T2$:GOSUB20000:PRINT#4,D$P4$P1$S2$T1$P1$:GOSUB20000:PRINT#4,D$P4$P1$S5$T1$
  276. 2230 RETURN
  277. 2240 GOSUB20000:PRINT#4,D$S$I2$P2$S2$P4$SQ$:GOSUB20000:PRINT#4,D$I2$P3$S2$P4$SQ$
  278. 2250 GOSUB20000:PRINT#4,D$P1$I1$S5$P1$S2$P1$:GOSUB20000:PRINT#4,D$P1$I4$S3$I2$P1$S2$P1$
  279. 2260 GOSUB20000:PRINT#4,D$I3$P4$P1$I1$S2$P1$:GOSUB20000:PRINT#4,D$S$I3$P3$P1$I1$S3$P1$:RETURN
  280. 2270 GOSUB20000:PRINT#4,D$S$I2$B$I4$:GOSUB20000:PRINT#4,D$I2$B$P1$I4$:GOSUB20000:PRINT#4,D$P1$I1$S2$I3$P1$S2$I3$P1$
  281. 2280 GOSUB20000:PRINT#4,D$P1$I4$S2$I2$P1$S2$I2$P1$:GOSUB20000:PRINT#4,D$I3$P4$SQ$I1$S1$P2$I1$
  282. 2290 GOSUB20000:PRINT#4,D$S$I3$P3$SQ$I1$S2$P1$I1$:RETURN
  283. 2300 GOSUB20000:PRINT#4,D$P1$T2$S4$S2$P1$:GOSUB20000:PRINT#4,D$P3$T2$S4$S$P1$
  284. 2310 GOSUB20000:PRINT#4,D$S1$T1$P1$T2$S5$P1$:GOSUB20000:PRINT#4,D$S3$T1$P1$T2$S2$P1$
  285. 2320 GOSUB20000:PRINT#4,D$S5$S$T1$P3$P2$:GOSUB20000:PRINT#4,D$S4$S1$T1$P2$P1$:RETURN
  286. 2330 GOSUB20000:PRINT#4,D$S$I2$P3$SQ$I4$I2$P3$I4$:GOSUB20000:PRINT#4,D$I2$B1$SQ$I4$
  287. 2340 GOSUB20000:PRINT#4,D$P1$I1$S2$I3$P1$I1$S1$I3$P1$:GOSUB20000:PRINT#4,D$P1$I4$S2$I2$P1$I4$S1$I2$P1$
  288. 2350 GOSUB20000:PRINT#4,D$I3$B1$SQ$I1$:GOSUB20000:PRINT#4,D$S$I3$P3$SQ$I1$I3$P3$I1$:RETURN
  289. 2360 GOSUB20000:PRINT#4,D$S$I2$P1$S3$I2$P3$I4$:GOSUB20000:PRINT#4,D$I2$P2$S2$I2$P4$I4$
  290. 2370 GOSUB20000:PRINT#4,D$P1$I1$S3$P1$I1$S1$I3$P1$:GOSUB20000:PRINT#4,D$P1$I4$S3$P1$I4$S1$I2$P1$
  291. 2380 GOSUB20000:PRINT#4,D$I3$B1$SQ$I1$:GOSUB20000:PRINT#4,D$S$I3$B$I1$:RETURN
  292. 2390 GOSUB20000:PRINT#4,D$P1$S$I2$P4$P3$SQ$:GOSUB20000:PRINT#4,D$P1$S$I3$P4$P3$SQ$:RETURN
  293. 2400 GOTO1220
  294. 2410 Z=0
  295. 2420 PRINT#4,CHR$(10)
  296. 2430 GOSUB20000:PRINT#4,A$S3$SQ$SQ$
  297. 2440 GOSUB20000:PRINT#4,AZ$S3$I3$SQ$SQ$:RETURN
  298. 2450 Z=0
  299. 2460 PRINT#4,CHR$(0):FORI=1TO2
  300. 2470 PRINT#4,CHR$(0)
  301. 2480 GOSUB20000:PRINT#4,A$A$S3$S3$S4$S2$SQ$SQ$
  302. 2490 GOSUB20000:PRINT#4,AZ$A$S3$S3$S4$S2$I3$SQ$SQ$:NEXT:RETURN
  303. 2500 Z=0
  304. 2510 PRINT#4,CHR$(0);
  305. 2520 PRINT#4,CHR$(0)
  306. 2530 GOSUB20000:PRINT#4,A$A$S3$S3$S4$S2$SQ$SQ$
  307. 2540 GOSUB20000:PRINT#4,AZ$A$S3$S3$S4$S2$I3$SQ$SQ$:RETURN
  308. 2550 Y=0:Y$="":PRINT"[147][197]NTER YOUR MESSAGE HERE...."
  309. 2560 PRINT"[217]OU WILL BE LIMITED TO 254 CHARACTERS"
  310. 2570 PRINT"[217]OU MAY USE ALL THE UPPER AND LOWER"
  311. 2580 PRINT"CASE LETTERS, THE NUMBERS 0 THRU 9"
  312. 2590 PRINT"AND THE FOLLOWING: (SPACE),(!),("CHR$(34)"),"
  313. 2600 PRINT"('),(,),(.),($) AND (-)
  314. 2610 [153]"(null)(null)VAL(null)(null) * TO VAL(null)RIGHT$(null) FROM THIS PROGRAM"
  315. 2620 [153]""
  316. 2630 L[178]254:[141]2770
  317. 2640 [153]"LOAD":[153]"LOAD"Y$:[153]"RIGHT$'M PRINTING IT AS FAST AS RIGHT$ CAN":[142]
  318. 2650 [153]" WAITCMD";:[129]QW[178]0[164]25:[161]X$:[139]X$[178]""[167][130]:[137]2652
  319. 2651 [137]2658
  320. 2652 [153]" CMD";:[129]QW[178]0[164]25:[161]X$:[139]X$[178]""[167][130]:[137]2650
  321. 2658 [139](X$[178]"")[176](X$[178]":")[176](X$[178]";")[176](X$[178]"#")[176](X$[178]"%")[167]2650
  322. 2659 [139](X$[178]"@")[176](X$[178]"=")[176](X$[178]"?")[176](X$[178]"/")[176](X$[178]"<")[176](X$[178]">")[167]2650
  323. 2660 [139]X$[178]"*"[167] [138]
  324. 2670 [139](X$[178]"&")[176](X$[178]"(")[176](X$[178]")")[176](X$[178]"*")[176](X$[178]"+")[167]2650
  325. 2680 X[178][198](X$):[142]
  326. 2690 [141]2650:[139](X[178]13)[176](X[178]20)[167][142]
  327. 2700 [139](X[179]32)[176](X[177]90[170]128)[167]2690
  328. 2710 [139](X[179](65[170]128))[175](X[177]90)[167]2690
  329. 2720 [142]
  330. 2730 [139](X[177]57)[175](X[179]65)[167]2740
  331. 2740 [141]2650:[139](X[178]13)[176](X[178]20)[167][142]
  332. 2750 [139](X[179]32)[176](X[177]57)[167]2740
  333. 2760 [142]
  334. 2770 [141]2690:[139]X[178]13[167][142]
  335. 2780 [139]Y[178]0[175]X[178]20[167][137]2770
  336. 2790 [139]X[178]20[167]Y$[178][200](Y$,[195](Y$)[171]1):Y[178]Y[171]1:[153]X$;:[137]2770
  337. 2800 [139]Y[178]L[167]X$[178]"":[137]2770
  338. 2810 Y[178]Y[170]1:Y$[178]Y$[170]X$:[153]X$;:[139]X$[178][199](34)[167][151]212,0
  339. 2815 [137]2770
  340. 10000 [145]S8[141]10010,10040,10040,10040,10050:[142]
  341. 10010 [143][204]
  342. 10019 [143]MX[204]
  343. 10029 [143]FX[204]
  344. 10039 [143]GE[204]
  345. 10040 SU$[178]Q8$[170][199](I)[170][199](0):[142]
  346. 10049 [143]PR[204]
  347. 10050 SV$[178][201]([196](I),[195]([196](I))[171]1)
  348. 10060 [139][195](SV$)[179][177]4[167]SV$[178]"0"[170]SV$:[137]10060
  349. 10070 SU$[178][199](27)[170]"S"[170]SV$:[142]
  350. 20000 [139]LL[178]0[167][142]
  351. 20010 [129]KK[178]1[164]LL:[152]4,LL$;:[130]:[142]
  352. 30000 RR[178]5:[141]1850:RR[178]0
  353. 30010 [141]20000:[152]4,D$P1$J3$S$S$S$J4$P1$J3$S$S$J1$P1$:[141]20000
  354. 30015 [152]4,S$S$S$S$LN$:[141]20000:[152]4,D$P1$J2$S$S$J4$P1$J3$S$S$S$J4$P1$
  355. 30020 [141]1870:[142]
  356. 50000 [129]I[178]1[164]8:[135]I4:I1$[178]I1$[170][199](I4):[130]
  357. 50010 [129]I[178]1[164]8:[135]I3:I2$[178]I2$[170][199](I3):[130]
  358. 50020 [129]I[178]1[164]8:[135]I2:I3$[178]I3$[170][199](I2):[130]:I2$[178]FG$[170]I2$:J4$[178]I2$
  359. 50030 [129]I[178]1[164]8:[135]I1:I4$[178]I4$[170][199](I1):[130]:I1$[178]FG$[170]I1$:J3$[178]I1$
  360. 50040 [142]
  361. 50060 [129]I[178]1[164]16:[135]T4:T1$[178]T1$[170][199](T4):[130]
  362. 50070 [129]I[178]1[164]16:[135]T3:T2$[178]T2$[170][199](T3):[130]
  363. 50080 [129]I[178]1[164]16:[135]T2:T3$[178]T3$[170][199](T2):[130]
  364. 50090 [129]I[178]1[164]16:[135]T1:T4$[178]T4$[170][199](T1):[130]
  365. 50100 [142]
  366.