home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / FRP.CREATOR (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  16.0 KB  |  259 lines
  1. 0 REM"[141][133](C) [195]OPYRIGHT 1985 [196]EEP [208]AN [211]OFTWARE CO.[141]
  2. 1 [143]"(null)ARNING: STR$ON'T ATTEMPT TO MODIFY
  3. 2 REM"THIS PROGRAM.  [210]AW DATA HAS
  4. 3 [143]"BEEN TACKED TO THE END!GOSUB
  5. 4 REM"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
  6. 5 [139][194](52)[178]48[167]20
  7. 10 [151]52,48:[151]56,48:[151]45,[194](14401):[151]46,[194](14402):[156]
  8. 20 [156]:[151]53280,0:[151]53281,0
  9. 90 [151]53272,([194](53272)[175]240)[176]12
  10. 91 [137]2000
  11. 95 A$[178]""
  12. 100 A$[178]A$[170]"(null)(null)(null)(null)(null)(null)(null)@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\"
  13. 105 B$[178]""
  14. 106 [139][195](B$)[179]40[167]B$[178]B$[170]" ":[137]106
  15. 110 B$[178]B$[170]" !"[170][199](34)[170]"#$%&'()*+,-./0123456789(null)"
  16. 120 [151]53280,0:[151]53281,0
  17. 130 C$[178]"":C[178]1
  18. 140 [153]"LOAD";
  19. 150 [153]"(null)(null)WAITCMDCMD<SGN"
  20. 160 [153]:[153]"ASCCHR$LEFT$RIGHT$MID$(null)(null)(null)(null)(null)(null)(null)"
  21. 200 [153]C$;[201](A$,C):[153]C$;"CONTWAIT";[202](B$,C,40)
  22. 210 C[178]C[170]1:[139]C[179]36[167]200
  23. 220 [153][199](14)"                         "[199](142);[199](8);
  24. 230 [129]G[178]1[164]4000:[161]A$:[139]A$[179][177]""[167]G[178]5000
  25. 240 [130]G:[137]6000
  26. 300 [143] INPUT ROUTINE
  27. 310 X[178]1:Y[178]23:[141]1100:IN$[178]"":[153]"";:IN[178]0
  28. 330 [153]"]WAITCMD";:[161]I$:[139]I$[178]""[167][153]" CMD";:[137]330
  29. 335 [139]I$[178][199](20)[167]380
  30. 337 [139]I$[178][199](13)[167]390
  31. 340 I[178][198](I$):[139]CA[178]3[167][139]I$[179]"0"[176]I$[177]"9"[167]330
  32. 350 [139]CA[178]1[167][139]I$[177][178]"A"[175]I$[179][178]"Z"[167]I[178]I[170]128
  33. 360 [139]I$[178]","[176]I$[178]":"[176]I$[178][199](34)[167]330
  34. 365 [139]I[179]32[176]I[177]218[176](I[177]95[175]I[179]193)[167]330
  35. 370 [139]IN[178]MA[167]330
  36. 375 I$[178][199](I):[153]I$;:IN$[178]IN$[170]I$:IN[178]IN[170]1:[137]330
  37. 380 [139]IN[178]0[167]330
  38. 385 [153]" CMDCMD CMD";:IN[178]IN[171]1:IN$[178][200](IN$,IN):[137]330
  39. 390 [139]RT[178]1[175]IN[179]MA[167]330
  40. 395 [153]" CMD";:[142]
  41. 1000 [153]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^";
  42. 1010 [129]G[178]1[164]21:[153]"(null)                                      (null)";:[130]
  43. 1020 [153]"-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<";
  44. 1030 [153]"(null)CLOSE                                     (null)";
  45. 1040 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN";:[151]2023,125:[151]56295,2
  46. 1050 [142]
  47. 1100 [151]782,X:[151]781,Y:[158]65520:[142]
  48. 1105 Y[178]Y[170]MY:[137]1100
  49. 1110 [153]"";
  50. 1120 [153]"     WAIT  (null)(null)VAL =WAIT ATN(null)STR$ <WAIT (null)(null) (null)VAL(null)VALLEN(null)";:[142]
  51. 1125 [153]"";
  52. 1130 [153]"     WAIT  (null)(null)VAL :WAIT ATN(null)STR$ ;WAIT (null)(null) (null)VAL(null)VALLEN(null)";:[142]
  53. 1135 [153]"";
  54. 1137 [153]"         VAL(null)(null)VAL(null) (null)VAL(null) (null)ATN(null)(null)VAL:        ";:[142]
  55. 1140 [139]CR%[178]1[167] [153]"ORWAITCMD";
  56. 1150 [139]CR%[178]2[167] [153]">WAITCMD";
  57. 1160 [139]CR%[178]3[167] [153]"=WAITCMD";
  58. 1170 CT%[178]0:CR%[178]CR%[170]1:[139]CR%[178]4[167]CR%[178]1
  59. 1180 [161]A$:[139]A$[179][177]""[167][153]" CMD";:[142]
  60. 1190 CT%[178]CT%[170]1:[139]CT%[178]10[167]1140
  61. 1195 [137]1180
  62. 1200 [141]1100:[141]1140
  63. 1205 DR%[178]0
  64. 1210 [139]A$[178]"ON"[167]DR%[178][171]1
  65. 1220 [139]A$[178]""[167]DR%[178]1
  66. 1230 [139]A$[178][199](13)[167][153]"<WAITCMD";:[142]
  67. 1240 [139]DR%[178]0[167]1200
  68. 1250 Y[178]Y[170]YM[172]DR%:S[178]S[170]DR%:[139]S[179]1[167]S[178]1:Y[178]Y[170]YM
  69. 1260 [139]S[177]MS[167]S[178]S[171]1:Y[178]Y[171]YM
  70. 1270 [137]1200
  71. 1300 [153][199](14)"                         "[199](142);[199](8);:[142]
  72. 2000 [153]"LOAD";:[141]100
  73. 2010 [141]1000:X[178]10:Y[178]5:[141]1100
  74. 2020 [153]"LEN(null)(null)(null)(null)(null)RIGHT$(null)VAL ASC(null)(null) PEEKPEEK(null)"
  75. 2030 Y[178]8:[141]1100:[153]"STR$VALASCRIGHT$(null)VAL STR$(null)RIGHT$(null)VAL (null)VAL(null)-(null)(null)"
  76. 2040 Y[178]11:[141]1100:[153]"(null)(null)RIGHT$(null)VAL LEFT$VAL(null)(null) ASCRIGHT$(null)VAL(null)"
  77. 2050 Y[178]14:[141]1100:[153]"(null)VAL(null)(null)ATNCHR$VAL ASC(null)(null)(null) ATN(null)(null)LEFT$(null)(null)"
  78. 2060 Y[178]17:[141]1100:[153]"VAL(null)RIGHT$(null) (null)(null)(null)CHR$(null)ATN(null)":[141]1125
  79. 2062 MY[178]1:[141]1105:MY[178]2:[153]"((null)RITE CUSTOM DATA TO DISK)"
  80. 2065 [153]"WAITSYS  TANTAN LEN(null)(null)(null)(null)(null)RIGHT$(null)VAL ASC(null)(null) PEEKPEEK(null) (null)ATNRIGHT$(null) (null)VAL(null)(null) TANTAN";
  81. 2070 X[178]8:Y[178]5:MS[178]5:YM[178]3:S[178]1:[141]1200
  82. 2080 [145]S[137]3000,4000,7000,20000
  83. 2090 [141]1000:X[178]10:Y[178]7:[141]1100:[153]"SYSVAL(null)RIGHT$(null) LEN(null)VALATN(null)(null)(null) (null)(null)(null)CHR$(null)ATN(null)?":MY[178]2:YM[178]2:X[178]15
  84. 2095 [141]1125
  85. 2100 [141]1105:[153]"  (null)(null)":[141]1105:[153]"  (null)VAL(null)":S[178]1:Y[178]9:MS[178]2:[141]1200
  86. 2105 [139]S[178]1[167]2010
  87. 2107 [153]"LOAD(null)RITTING LEN(null)(null)(null)(null)(null) STR$ATN(null)ATN TO DISK...":[141]5400
  88. 2110 [153]"LOAD":[158]64738
  89. 3000 [141]1000
  90. 3010 X[178]3:Y[178]1:[141]1100:[153]"PEEKPEEK(null) (null)ATN(null)VAL: PRINT"BN$:MY[178]1
  91. 3020 [141]1105:[153]"(null)(null)(null)(null)(null)'(null) (null)ATN(null)VAL:PRINT "SY$
  92. 3030 [141]1105:[153]"PEEKATNLEN(null) STR$(null)(null)(null) (null)(null):PRINT "BD$
  93. 3040 [141]1105:[153]"(null)ATN(null)(null) (null)RIGHT$(null)VAL PEEK(null)ATN(null)STR$:CONT ";:AN$[178]"(null)ES":[139]PT%[178]0[167]AN$[178]"(null)O"
  94. 3050 [153]AN$;
  95. 3060 [141]1105:[153]"...CHR$(null) (null)(null)(null)RIGHT$(null)VAL ATN(null):CONT "SU$" MILITARY"
  96. 3070 [141]1105:[153]"..CHR$(null) (null)ASCASC(null)RIGHT$(null)VAL ATN(null):CONT "SO$" MILITARY"
  97. 3080 [141]1105:[153]"# (null)ASC LENATN(null)(null)(null) ATN(null)(null)(null)(null)VALSTR$ ATN STR$ATN(null):PRINT";NA%;
  98. 3090 [141]1105:[153]"ATNLENLENVAL(null)(null)RIGHT$(null)CHR$ (null)VAL(null) ATNLENLEN(null)(null)(null)(null)(null): PRINT";:AN$[178]"(null)ES":[139]A0%[178]0[167]AN$[178]"(null)O"
  99. 3100 [153]AN$
  100. 3110 [141]1105:[153]"(null)IME ALLOWED FOR (null)RIGHT$(null)RIGHT$(null)(null)(null):CONT"T%(0)" MINS."
  101. 3120 [141]1105:[153]"..................(null)(null)ATN(null)VAL(null):CONT"T%(1)
  102. 3130 [141]1105:[153]  "........LENLEFT$(null)(null)(null)RIGHT$LENATN(null) (null)VALVAL(null)VAL(null):CONT"T%(2)
  103. 3140 [141]1105:[153]  "............(null)ATN(null)(null)(null) (null)VALATNSTR$VAL(null):CONT"T%(3)
  104. 3150 [141]1105:[153]  ".............CHR$ATN(null)VAL (null)ATN(null)(null)VAL(null):CONT"T%(4)
  105. 3160 [141]1105:[153]  ".(null)(null)(null)(null)VAL(null) (null)(null)VAL(null)(null)(null)(null)STR$ ((null)(null)(null)(null)(null)):CONT"T%(5)
  106. 3170 [141]1105:[153]"SYS(null)VAL(null)(null)(null)(null) (null)(null)CLOSE(null)ATNRIGHT$(null) (null)VAL(null)(null)"
  107. 3200 [141]1125:[153]"";:S[178]1:X[178]1:Y[178]1:YM[178]1:MS[178]15:[141]1200:[139]S[179][177]15[167][141]1135
  108. 3210 RT[178]0:[145]S[137]3300,3310,3320,3330,3340,3350,3360,3370
  109. 3220 [139]S[178]15[167]3900
  110. 3240 T[178]S[171]9:[137]3380
  111. 3300 MA[178]26:CA[178]0:[141]300:[139]IN[178]0[167]3000
  112. 3305 BN$[178]IN$:[137]3000
  113. 3310 MA[178]20:CA[178]0:[141]300:[139]IN[178]0[167]3000
  114. 3315 SY$[178]IN$:[137]3000
  115. 3320 MA[178]10:CA[178]1:[141]300:[139]IN[178]0[167]3000
  116. 3325 [139][195](IN$)[179]10[167]IN$[178]IN$[170]" ":[137]3325
  117. 3327 BD$[178]IN$:[137]3000
  118. 3330 PT%[178]1[171]PT%:[137]3000
  119. 3340 RT[178]1:MA[178]4:CA[178]3:[141]300:[139]IN[178]0[167]3000
  120. 3345 SU$[178]IN$:[137]3000
  121. 3350 RT[178]1:MA[178]4:CA[178]3:[141]300:[139]IN[178]0[167]3000
  122. 3355 SO$[178]IN$:[137]3000
  123. 3360 MA[178]3:CA[178]3:[141]300:[139]IN[178]0[167]3000
  124. 3365 NA%[178][197](IN$):[137]3000
  125. 3370 A0%[178]1[171]A0%:[137]3000
  126. 3380 MA[178]3:CA[178]3:[141]300:A[178][197](IN$):[139]IN[178]0[167]3000
  127. 3385 [139]A[177]200[167]A[178]200
  128. 3387 T%(T)[178]A:[137]3000
  129. 3900 [137]2010
  130. 4000 [141]1000:S[178]1
  131. 4005 [153]"CLR  TAN (null)YSTEM STR$RIVE (null)ET-(null)P TAN"
  132. 4010 MY[178]1:X[178]3:Y[178]5:[141]1100:[153]"STR$(null)RIGHT$(null)VAL (null)(null)(null)VAL: CONT";
  133. 4020 D$[178]"SINGLE FLOPPY DRIVE"
  134. 4022 [139]DD%[178]1[167]D$[178]"TWO FLOPPY DRIVES"
  135. 4024 [139]DD%[178]2[167]D$[178]"A DUAL DISK DRIVE ((null)STR$-2)"
  136. 4025 [153]D$
  137. 4030 [141]1105:[153]"ATN(null)VAL LENLEFT$(null)(null)(null)RIGHT$LENATN(null)(null) (null)(null)VALSTR$:CONT ";:AN$[178]"(null)ES":[139]C1%[178]0[167]AN$[178]"(null)O"
  138. 4035 [153]AN$
  139. 4040 [141]1105:[153]"LENLEFT$(null)(null)(null)RIGHT$LENATN(null)(null) (null)(null)CLOSESTR$VAL(null)RIGHT$LENVAL:CONT"C1%
  140. 4050 [141]1105:[153]"...............STR$(null)RIGHT$(null)VAL:CONT "C2$
  141. 4060 [141]1105:[153]"(null)ATN(null) # (null)ASC (null)(null)VAL(null)(null) RIGHT$(null) (null)(null)VAL(null) ASCRIGHT$(null)VAL:CONT"MU%
  142. 4070 [141]1105:[153]"SYS(null)VAL(null)(null)(null)(null) (null)(null)CLOSE(null)ATNRIGHT$(null) (null)VAL(null)(null)"
  143. 4100 [141]1125:[153]"";:S[178]1:X[178]1:Y[178]5:YM[178]1:MS[178]6:[141]1200:[139]S[179][177]6[167][141]1135
  144. 4110 RT[178]0:[145]S[137]4200,4210,4220,4230,4240,3900
  145. 4200 DD%[178]DD%[170]1:[139]DD%[178]3[167]DD%[178]0
  146. 4205 [137]4000
  147. 4210 [139]C1%[178]0[167]C1%[178]8:[137]4000
  148. 4215 C1%[178]0:[137]4000
  149. 4220 CA[178]3:MA[178]2:[141]300:[139]IN[178]0[167]4000
  150. 4225 A[178][197](IN$):[139]A[179]8[176]A[177]11[167]4000
  151. 4227 C1%[178]A:[137]4000
  152. 4230 [139]C2$[178]"0"[167]C2$[178]"1":[137]4000
  153. 4235 C2$[178]"0":[137]4000
  154. 4240 CA[178]3:MA[178]3:[141]300:[139]IN[178]0[167]4000
  155. 4250 MU%[178][197](IN$):[137]4000
  156. 4960 [161]A$:[139]A$[179][177][199](13)[167]4960
  157. 5000 [153]"LOAD         RIGHT$NSERT SYS(null)(null)(null)(null)VAL(null) STR$RIGHT$(null)(null)  IN"
  158. 5010 [153]"            STR$EVICE 8, DRIVE 0."
  159. 5015 [153]:[153]:[153]:[153]:[153]"          LISTLEFT$IT (null)VAL(null)(null)(null)(null)LIST WHEN READY!"
  160. 5020 [153]"PRINTONONONON                <WAIT  ^_WAIT  =WAITCMDCMDCMDCMDCMD>?WAIT
  161. 5025 GETDU$
  162. 5030 GETA$:IFA$<>CHR$(13)THEN5030
  163. 5040 OPEN15,8,15:OPEN2,8,2,"FRP.CONFIG,S,R":INPUT#15,A$
  164. 5050 IFA$="00"THEN 5300
  165. 5060 CLOSE2:CLOSE15
  166. 5070 PRINT"[158][147]";:X=10:Y=10:GOSUB1100:PRINT"[198][207][210][205][193][212] [212][200][201][211] [196][201][211][203]?":MY=2:GOSUB1125
  167. 5080 X=15:GOSUB1105:PRINT"  [154][217][197][211]":GOSUB1105:PRINT"  [206][207]":Y=14:S=2:MS=2:YM=2:GOSUB1200
  168. 5090 IFS=2THEN5200
  169. 5100 PRINT"[147][196][201][211][203] [198][207][210][205][193][212][201][206][199] [193][211]: [158][198][210][208] [194][194][211] [214]1.0,[214]1"
  170. 5110 OPEN15,8,15,"N0:FRP BBS V1.0,V1":CLOSE15
  171. 5200 PRINT"[147]";:GOSUB10000
  172. 5210 ND%=1:RETURN
  173. 5300 INPUT#2,BN$,SY$,PT$,SU$,SO$,AO$,BD$,NA$:PT%=VAL(PT$):A0%=VAL(AO$)
  174. 5310 NA%=VAL(NA$):FORG=0TO5:INPUT#2,T$:T%(G)=VAL(T$):NEXT
  175. 5320 INPUT#2,DD$,C1$,C2$,MU$:DD%=VAL(DD$):C1%=VAL(C1$):MU%=VAL(MU$):CLOSE2:CLOSE15
  176. 5330 ND%=0:RETURN
  177. 5400 OPEN15,8,15,"S0:FRP.CONFIG":OPEN2,8,2,"0:FRP.CONFIG,S,W"
  178. 5410 C$=CHR$(13)
  179. 5420 PRINT#2,BN$C$SY$C$PT%C$SU$C$SO$C$A0%C$BD$C$NA%C$;
  180. 5430 FORG=0TO5:PRINT#2,T%(G)C$;:NEXT:PRINT#2,DD%C$C1%C$C2$C$MU%:CLOSE2:CLOSE15
  181. 5440 OPEN15,8,15:OPEN2,8,2,"0:FRP.CONFIG,S,R"
  182. 5450 INPUT#15,A$:CLOSE2:CLOSE15
  183. 5460 IFA$<>"00"THENOPEN15,8,15,"V0":CLOSE15:GOTO5400
  184. 5470 RETURN
  185. 5999 STOP
  186. 6000 PRINT"[147]    [158]";
  187. 6010 PRINT"[192][193][146]        [194][195][146]     [196][197][146]"
  188. 6020 PRINT"       [160][161][146]ANTASY[158]  [162][163][146]OLE[158]  [164][165][146]LAYING"
  189. 6025 PRINT:PRINT
  190. 6030 PRINT"[154]               [213][214][146] [213][214][146] [215][216]"
  191. 6040 PRINT"               [181][182][146] [181][182][146] [183][184]"
  192. 6050 L1$="[156][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  193. 6055 L2$="[156][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  194. 6060 PRINT:PRINTL1$
  195. 6065 PRINT"[193] [198]REE-[198]ORM, [198]ANTASY [210]OLE [208]LAYING [205]EDIA"
  196. 6067 PRINT"      [196]ESIGNED, AND WRITTEN BY:"
  197. 6100 PRINT:PRINT"                [159][217][218][219][220][221][255][223]"
  198. 6110 PRINT"                [185][186][187][188][189][190][191]"
  199. 6120 PRINT:PRINTL2$
  200. 6200 X=1:Y=24:GOSUB1100
  201. 6210 PRINT"[166][155][167][168][169][170][171][172][173][174][175][146] 1985, [196]EEP [208]AN [211]OFTWARE CO.";
  202. 6900 PRINT""L1$""L2$
  203. 6905 FORG=1TO20:GETA$:IFA$<>""THENG=25
  204. 6906 NEXTG:IFG>25THEN5000
  205. 6910 PRINT""L2$""L1$
  206. 6920 FORG=1TO20:GETA$:IFA$<>""THENG=25
  207. 6930 NEXTG:IFG>25THEN5000
  208. 6940 GOTO6900
  209. 6999 STOP
  210. 7000 GOSUB1000:X=8:Y=5:GOSUB1100:PRINT"[159][192][192] [215][210][201][212][197] [200][197][204][208] [198][201][204][197][211] [192][192]"
  211. 7010 X=11:MY=2:YM=2:GOSUB1105:PRINT"[195][207][206][212][201][206][213][197]":GOSUB1105:PRINT"[158][210][197][212][213][210][206] [212][207] [205][193][201][206] [205][197][206][213]"
  212. 7020 PRINT"";:X=9:Y=7:S=1:MS=2:GOSUB1200
  213. 7030 IFS=2THEN2010
  214. 7040 PRINT"[147]";:PT=14403
  215. 7045 F$=""
  216. 7050 A=PEEK(PT)
  217. 7060 IFA=13THEN7080
  218. 7070 F$=F$+CHR$(A):PT=PT+1:GOTO7050
  219. 7080 PT=PT+1
  220. 7090 PRINT"[147][215]RITTING: [158]"F$:OPEN2,8,2,"@0:"+F$+",S,W"
  221. 7100 A=PEEK(PT):IFA=92THEN7120
  222. 7110 PRINT#2,CHR$(A);:PT=PT+1:GOTO7100
  223. 7120 CLOSE2:PT=PT+2:IFF$="WHATDOIDO"THEN7140
  224. 7130 GOTO7045
  225. 7140 GOTO2010
  226. 7999 GOTO7999
  227. 9999 GOTO 9999
  228. 10000 REM DUMMY SET UP
  229. 10010 BN$="[210]OLE [208]LAYING [194]OARD'S [206]AME!"
  230. 10020 SY$="[211]YSOP'S [206]AME"
  231. 10030 MU%=400:PT%=1:SU$="0000":SO$="0000":A0%=1:BD$="[194][193][195][203][196][207][207][210]  "
  232. 10040 NA%=0
  233. 10050 T%(0)=20:T%(1)=35:T%(2)=40:T%(3)=45:T%(4)=50:T%(5)=200
  234. 10060 DD%=0:C1%=0:C2$="0"
  235. 10999 RETURN
  236. 20000 PRINT"[147]";
  237. 20010 PRINT"[154][192][193][146]        [194][195][146]     [196][197][146]"
  238. 20020 PRINT"[160][161][146]ANTASY[154]  [162][163][146]OLE[154]  [164][165][146]LAYING [194][194][211] IS A":PRINT
  239. 20030 PRINT"[158][198][210][197][197][215][193][210][197] PROGRAM.  [199]IVE THIS PROGRAM":PRINT
  240. 20040 PRINT"(AND IT'S SUPPORT PROGRAMS) OUT FREELY.":PRINT
  241. 20050 PRINT"[201]F YOU FEEL THIS PROGRAM HAS BEEN":PRINT
  242. 20060 PRINT"HELPFUL TO YOU, SEND ME A DONATION.":PRINT
  243. 20070 PRINT"[201]F IT IS OF NO VALUE TO YOU, THEN":PRINT
  244. 20080 PRINT"(NEEDLESS TO SAY) DON'T BOTHER.":PRINT
  245. 20090 PRINT"  [203]EEP CHECKING [195]OMPUSERVE FOR NEW":PRINT
  246. 20100 PRINT"VERSIONS, AND FURTHER [201][178][207][146] RELEASES.":PRINT
  247. 20110 PRINT"";
  248. 20120 PRINT"[196]ONATIONS TO: [155][196]EEP [208]AN [211]OFTWARE CO."
  249. 20130 PRINT" (& PAYABLE[155]   #3 [198]AIRWAY CT."
  250. 20140 PRINT"  TO ALSO) [155]   [198]LORISSANT [205][207]"
  251. 20150 PRINT"                      63033"
  252. 20160 PRINT"                            [217][218][219][220][221][255][223]"
  253. 20170 PRINT"                            [185][186][187][188][189][190][191][146]";
  254. 20200 GETA$:IFA$=""THEN20200
  255. 20210 GOTO2010
  256. 20999 GOTO20999
  257. 30000 OPEN15,8,15:OPEN2,8,2,"FRP.CONFIG"
  258. 30010 GET#2,A$:PRINTA$;:GOTO30010
  259.