home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 147 / 147.d81 / b.friend (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1996-01-01  |  6.7 KB  |  224 lines
  1. 1 poke55,0:poke56,160:clr
  2. 2 z$=""
  3. 3 e$="---------------------------------------------------------------"
  4. 4 d$="[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]"
  5. 5 dv=peek(186):ifdv<8thendv=8
  6. 6 dima$(20)
  7. 7 print"[147]":poke53280,0:poke53281,.:poke646,6:gosub60000
  8. 8 sys57812"texted.o",dv,0:poke780,0:poke781,0:poke782,192:sys65493:i=0
  9. 9 reada:ifa>-1thenpoke828+i,a:i=i+1:goto9
  10. 10 te=192*256:poke845,dv
  11. 11 print"[147]"chr$(142):poke53280,15:poke53281,15
  12. 12 printtab(14)"bob dallmann's
  13. 15 [153][163]8)"ortantan^    ^ ortantan ortantan^ ^   or
  14. 16 printtab(8)"[171][192][179]  [192]  [171][192][179]   [171][192][179]  [173][192][178][192][189]
  15. 17 [153][163]8)">       exp /tantan /tantanexp   >
  16. 18 printtab(9)"[176][192][174] [176][192][174] [178] [176][192][174] [176][174][176] [174][192][174]
  17. 20 [153][163]9)"-<  -=exp (NULL) -<  (NULL)(NULL)(NULL) (NULL) (NULL)
  18. 22 printtab(9)"[189]   [189][173][189] [177] [173][192][189] [189][173][189] [189][192][189]
  19. 30 [153][163]5)"pokeusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr(NULL)(NULL)"
  20. 32 [153][163]6)"                    andandandandand  + (NULL)"
  21. 34 [153][163]6)d$"   (NULL)sgnf 1+(NULL) + +"
  22. 36 [153][163]6)d$"  + (NULL)andandandsqr sgn+ +"
  23. 38 [153][163]6)d$"  +(NULL) f 2 (NULL)sgn+ +"
  24. 40 [153][163]6)d$"   usrusrusrusrusrusrusr + +"
  25. 42 [153][163]6)d$"    andandandandand  + +"
  26. 44 [153][163]6)d$"   (NULL)sgnf 3+(NULL) + +"
  27. 46 [153][163]6)d$"  + (NULL)andandandsqr sgn+ +"
  28. 48 [153][163]6)d$"  +(NULL) f 4 (NULL)sgn+ +"
  29. 50 [153][163]6)d$"   usrusrusrusrusrusrusr + +"
  30. 100 [153]"        1stop. instructions
  31. 102 print"        2[144]. load a template
  32. 104 [153]"        3stop. create a new template
  33. 106 print"        4[144]. directory
  34. 108 [153]"        5stop. quit to loadstar"
  35. 110 [161]a$:[139]a$[179]"1"[176]a$[177]"5"[167]110
  36. 112 [139]a$[178]"3"[167]305
  37. 114 [153]"";
  38. 120 [139]a$[178]"1"[167]200
  39. 122 [139]a$[178]"2"[167]140
  40. 126 [139]a$[178]"4"[167][141]500:[137]11
  41. 128 [139]a$[178]"5"[167]40000
  42. 140 [153]"load"
  43. 160 [153][163]4)"ascilename: ff.";
  44. 162 l9%[178]13:[141]50000:[139]q9$[178]""[167]11
  45. 164 f$[178]"ff."[170]q9$
  46. 170 [159]15,dv,15,"r0:"[170]f$[170]"="[170]f$:[132]15,er,er$:[160]15
  47. 172 [139]er[178]63[167]180
  48. 174 [153]er$
  49. 176 tq[178]ti
  50. 177 [139]ti[179]tq[170]150[167]177
  51. 178 [137]11
  52. 180 [159]2,dv,2,f$[170]",p,r"
  53. 182 [132]2,p$
  54. 184 [129]i[178]1[164]8:[132]2,f$(i):[130]
  55. 186 [129]i[178]1[164]20:[132]2,a$(i):[130]
  56. 188 [160]2
  57. 190 [153]"load":[137]900
  58. 200 [153]"load"[163]14)"right$(NULL)(NULL)(NULL)(NULL)(NULL)len(NULL)right$(NULL)(NULL)(NULL)"
  59. 225 [153]"stop   (NULL)o use this program simply follow"
  60. 230 [153]" the prompts and supply the requested"
  61. 235 [153]" information.  (NULL)ou will first be asked"
  62. 240 [153]" for the program name, then the labels
  63. 245 print" for each [198]unction [203]ey.  [212]hen you can
  64. 250 [153]" add further commands that may be used
  65. 255 print" by the program.
  66. 260 [153]"   atnfter you enter all the data, you
  67. 262 print" can save or print out a template for
  68. 264 [153]" the len-64 ascunction (NULL)eys, as well as"
  69. 266 [153]" an optional column of other program"
  70. 268 [153]" commands.  (NULL)he  printing will take two"
  71. 270 [153]" passes; first for the function keys,"
  72. 272 [153]" then you will be prompted to re-align"
  73. 274 [153]" your paper, after which your other"
  74. 276 [153]" commands or comments will be printed."
  75. 278 [153]" (NULL)nce the template has been printed,"
  76. 280 [153]" cut out the center and place it over"
  77. 282 [153]" the 'asc' (NULL)eys.
  78. 284 print"               [208]ress a key.
  79. 288 [151]198,0
  80. 290 [161]a$:[139]a$[178]""[167]290
  81. 292 [137]11
  82. 300 [143]:**** data input f-keys ****
  83. 305 [129]i[178]1[164]8:f$(i)[178]" ":[130]
  84. 308 [153]"load don't use shifted characters.
  85. 310 print"[144] enter program name: ";:l9%=18:gosub50000:p$=q9$
  86. 315 print""
  87. 320 fori=1to8
  88. 330 print"[144] enter f"chr$(i+48)" label: ";:l9%=10:gosub50000:f$(i)=q9$
  89. 340 print:next
  90. 400 rem:**** data input addition ****
  91. 405 fori=1to20:a$(i)=" ":next
  92. 410 print"[147][151] [197]nter your additional commands. [213]se
  93. 412 [153]" upper or lowercase. (NULL)ress asc1 when the
  94. 414 print" box is just as you want it.
  95. 420 [153]"ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^
  96. 422 fori=0to19:print"[221]"tab(38)"[221]":next
  97. 424 print"[173][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][189]"
  98. 450 syste,1,4,37,23,0,1
  99. 452 fori=0to2:poke781,i:sys59903:next
  100. 454 print"[144]    [202]ust a sec. [195]reating strings..."
  101. 460 open1,3,1:fori=1to20:poke214,i+2:print:print"";
  102. 468 forj=0to36
  103. 470 get#1,a$:ifa$(i)="      "thena$(i)=" ":j=36:goto480
  104. 474 a$(i)=a$(i)+a$
  105. 480 next:poke214,1:print:printtab(i)".":next:close1:poke186,dv
  106. 492 goto900
  107. 500 print"[147][144]"
  108. 510 sys828
  109. 520 print"  [208]ress a key."
  110. 530 poke198,0
  111. 540 geta$:ifa$=""then540
  112. 550 return
  113. 900 print"[147]  1[144]. [208]rint the template
  114. 902 [153]"  2stop. (NULL)ave the template to disk
  115. 904 print"  3[144]. [211]ee directory
  116. 906 [153]"  4stop. chr$o to first menu
  117. 928 poke198,0
  118. 930 getpq$:ifpq$=""then930
  119. 940 ifpq$="1"then1000
  120. 950 ifpq$="2"then970
  121. 952 ifpq$="3"thengosub500:goto900
  122. 960 ifpq$="4"then11
  123. 962 goto930
  124. 970 print"[144] [208]ut disk in drive"dv"[144]and press [211][208][193][195][197].
  125. 974 [153]" (NULL)ress asc1 for menu."
  126. 976 [151]198,0
  127. 978 [161]a$:[139]a$[178]""[167]978
  128. 980 [139]a$[178][199](133)[167]490
  129. 981 [139]a$[179][177]" "[167]978
  130. 982 q$[178][200]("ff."[170]p$,16)
  131. 983 [159]15,dv,15,"s0:"[170]q$:[160]15
  132. 984 [159]2,dv,2,q$[170]",p,w"
  133. 985 [152]2,p$
  134. 986 [129]i[178]1[164]8:[152]2,f$(i):[130]
  135. 988 [129]i[178]1[164]20:[152]2,[199](34);:[152]2,a$(i):[130]
  136. 990 [160]2
  137. 992 [137]490
  138. 1000 [159]4,4
  139. 1010 [157] 4
  140. 1020 [153]e$
  141. 1030 [153]"      "p$"                       additional commands"
  142. 1040 [153]e$
  143. 1050 [153]":-----:           :------------
  144. 1070 print":  1  :-----------:1 "f$(1)
  145. 1080 print":.....:           :............
  146. 1082 [153]":     :           :
  147. 1090 print":  2  :           :2 "f$(2)
  148. 1110 print":-----:           :------------
  149. 1120 [153]":  3  :   c u t   :3 "f$(3)
  150. 1130 [153]":.....:           :............
  151. 1132 print":     :           :
  152. 1140 [153]":  4  :   o u t   :4 "f$(4)
  153. 1160 [153]":-----:           :------------
  154. 1170 print":  5  :           :5 "f$(5)
  155. 1180 print":.....:  t h i s  :............
  156. 1182 [153]":     :           :
  157. 1190 print":  6  :           :6 "f$(6)
  158. 1210 print":-----:  a r e a  :------------
  159. 1220 [153]":  7  :           :7 "f$(7)
  160. 1230 [153]":.....:           :............
  161. 1232 print":     :           :
  162. 1240 [153]":  8  :-----------:8 "f$(8)
  163. 1260 [153]":-----:           :------------
  164. 1270 fori=1to5
  165. 1280 print":     :           :           :":next
  166. 1290 printe$
  167. 1292 printtab(18)"the loadstar f-key template"
  168. 1295 printe$
  169. 1297 print#4
  170. 1298 close 4
  171. 1300 print" [215]hen printing stops, realign your
  172. 1310 [153]" paper so the print head is just below
  173. 1320 print" the template title bar.  [212]hen press
  174. 1330 [153]" any key to print the additional
  175. 1340 print" program commands.
  176. 1350 [161] sc$:[139] sc$[178]"" [167] 1350
  177. 1400 [159] 4,4,7
  178. 1410 [157] 4
  179. 1420 [129]i[178]1[164]20:[153][163]35)a$(i):[130]
  180. 1480 [152]4
  181. 1490 [160] 4
  182. 1492 [151]186,dv
  183. 1500 [137]900
  184. 2000 [131]169,36,133,251,169,251,133,187,169,0,133,188,169,1,133,183,169,8
  185. 2010 [131]133,186,169,96,133,185,32,213,243,165,186,32,180,255,165,185,32,150
  186. 2015 [131]255,169,0,133,144
  187. 2020 [131]160,3,132,251,32,165,255,133,252,164,144,208,47,32,165,255
  188. 2025 [131]164,144,208,40,164,251,136,208,233,166,252
  189. 2030 [131]32,205,189,169,32,32,210,255,32,165,255,166,144,208,18,170,240,6
  190. 2040 [131]32,210,255,184,80,240,169,13,32,210,255,160,2,208,198,32,66,246,96,-1
  191. 3000 [135]a:[139]a[179][177][171]1[167][151]828[170]i,a:i[178]i[170]1:[137]12
  192. 10000 d[178][194](186):n$[178]"b.friend":[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]
  193. 40000 [129]i[178]0[164]21:[151]828[170]i,8[170]i:[130]
  194. 40010 [139]dv[179]8[176]dv[177]29[176]dv[178]8[167]40030
  195. 40020 a[178][194](828):b[178][194](828[170]dv[171]8):[151]828,b:[151]828[170]dv[171]8,a
  196. 40030 a$[178]"presenter":[141]40040:a$[178]"hello connect"
  197. 40040 [129]j[178]8[164]29:i[178][194](828[170]j[171]8):[139]i[178]14[167][130]
  198. 40050 [160]2:[159]2,i,2:[160]2:[139]st[167]40070
  199. 40060 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40090
  200. 40070 [130]:[139]a$[178]"presenter"[167][142]
  201. 40080 [153]"load":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
  202. 40090 a$[178]"hello connect":q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  203. 40100 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  204. 40110 [153]"p(NULL)53272,23:run:":[151]631,13:[151]632,13:[151]198,2:[128]
  205. 50000 q9$[178]"":u9[178]53280:[151]198,0
  206. 50010 [161]a$
  207. 50020 [151]646,[187](1)[172]15[170]1:[153]"tocmd";:[139]a$[178]""[167]50010
  208. 50030 [139]a$[178][199](13)[167][153]" poke":[142]
  209. 50040 [139](a$[178][199](20)[175][195](q9$))[167]q9$[178][200](q9$,[195](q9$)[171]1):[137]50080
  210. 50050 [139][195](q9$)[177][178]l9%[167]t9%[178][194](u9):[151]u9,1:[151]u9,t9%:[137]50010
  211. 50060 [139]a$[179]" "[176](a$[177][199](127)[175]a$[179][199](160))[176]a$[178][199](34)[167]50010
  212. 50070 q9$[178]q9$[170]a$
  213. 50080 [153]""a$;:[137]50010
  214. 60000 [153]"load":z$[178]" print#                                      ":[151]214,10:[153]
  215. 60010 [153]" listusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr":[129]i[178]0[164]10:[153]z$:[130]
  216. 60020 [153]" pokeandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandprint#"
  217. 60030 z$(0)[178]"asc - (NULL) val (NULL)   asc (NULL) right$ val (NULL) str$":z$(1)[178]"by (NULL)obert str$allmann"
  218. 60040 z$(3)[178]"(len) 1996 by mid$ & asc (NULL)ublishing, right$nc.
  219. 60050 z$(5)="[212]his program is not shareware
  220. 60070 z$(6)[178]"or in the public domain."
  221. 60090 z$(8)[178]"1-800-594-3370 or 1-318-221-8718.":[151]214,12:[153]
  222. 60100 [129]i[178]0[164]8:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]
  223. 60110 [142]
  224.