home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 54 / 054.d81 / vcr library (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  11.7 KB  |  415 lines
  1. 20 rem poke788,52:rem disable run/stop
  2. 30 rem trasmart software
  3. 40 rem vcr library
  4. 50 gosub3830:goto620
  5. 60 rem --------------------------- bell
  6. 70 s=54272:pokes+1,112:pokes+5,10:pokes+6,9:pokes+24,15:pokes+4,17:pokes+4,16
  7. 80 return
  8. 90 rem ------------------ title screen
  9. 100 l=len(k$):m=38-l/2:fori=1tolen(k$)-19
  10. 110 printl$spc(m)left$(k$,i)right$(k$,l-(l-i)):m=m-1:next:return
  11. 120 rem ---------------------- directory
  12. 130 sys49152
  13. 140 print"[147]     [158]q to quit  [158]p to pause / resume"
  14. 150 open8,8,0,"$0:*=r"
  15. 160 get#8,a$,b$:n$=chr$(0)
  16. 170 get#8,a$,b$:ifb$=""then260
  17. 180 get#8,a$,b$:a=asc(a$+n$):b=asc(b$+n$)
  18. 190 c$=mid$(str$(a+256*b),2)+chr$(32)
  19. 200 print"       ";
  20. 210 printc$;:get#8,c$:ifc$<>""then210
  21. 220 print:getk$:ifk$="p"ork$="q"then240
  22. 230 getk$
  23. 240 ifk$="p"thenwait197,1:goto230
  24. 250 ifk$<>"q"then170
  25. 260 close8
  26. 270 print"[156]press space to continue[146]"
  27. 280 s=54272:pokes+1,112:pokes+5,10:pokes+6,9:pokes+24,15:pokes+4,17:pokes+4,16
  28. 290 ifpeek(203)<>60then290
  29. 300 goto780
  30. 310 rem -------------------- input data
  31. 320 poke198,0:y$="":z$=""
  32. 330 print"[156]_[157][146]";
  33. 340 forn=1to75 :getz$:ifz$<>""then380
  34. 342 next
  35. 350 print"_[157]";
  36. 360 forn=1to75 :getz$:ifz$<>""then380
  37. 362 next
  38. 370 getz$:ifz$=""then330
  39. 380 l=len(y$)
  40. 390 ifz$=chr$(13)andre=1thenprint"[156][157] ":return
  41. 400 ifz$=chr$(13)thenprint"[157] ":return
  42. 410 ifz$=chr$(20)andlandre=1thenprint"[156] [157][157]";:y$=left$(y$,l-1):goto330
  43. 420 ifz$=chr$(20)andlthenprint" [157][157]";:y$=left$(y$,l-1):goto330
  44. 430 ifhl=2orhl=19thenif(z$<"a"orz$>"z")andz$<>" "and(z$<"0"orz$>"9")then330
  45. 440 ifhl=1orhl=3orhl=4thenif(z$<"0"orz$>"9")andz$<>" "then330
  46. 450 ifl>=hlthen330
  47. 460 ifre=1thenprint"[156]";z$;:y$=y$+z$:goto330
  48. 470 printz$;:y$=y$+z$
  49. 480 goto330
  50. 490 rem --------------------- error chk
  51. 500 input#15,e,e$,a,b
  52. 510 ife=0ore=73thenreturn
  53. 520 ife=50thenreturn
  54. 530 print"there is an i/o problem"
  55. 540 print"error # is";e;" ";e$
  56. 550 print"track";a;"; sector";b
  57. 560 close8:close15
  58. 570 print"[156]press space to continue[146][145][145]";
  59. 580 ifpeek(203)=64then580
  60. 590 ifpeek(203)<>60then580
  61. 600 goto780
  62. 610 close8:close15:end
  63. 620 rem ------------------------ start
  64. 630 h=0
  65. 640 sp$="                                       "
  66. 650 open15,8,15,"i0":close15
  67. 660 gosub3100
  68. 670 ll$=chr$(13)
  69. 680 ln=40
  70. 690 open15,8,15
  71. 700 gosub490
  72. 710 close8:close15
  73. 720 k$="[152][221]        instructions (y/n)        [221]":l$=l$+"":gosub100
  74. 730 poke198,0
  75. 740 ifpeek(203)=64then740
  76. 750 ifpeek(203)=39then780
  77. 760 ifpeek(203)=25thenis=1:gosub2760:goto780
  78. 770 goto730
  79. 780 sys49152
  80. 790 print"[147][156][213][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][201]";
  81. 800 print"[221] r[156]ead a tape";
  82. 810 print"  w[156]rite a tape";
  83. 820 print"  e[156]dit tape [221]";
  84. 830 print"[171][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][179]";
  85. 840 print"[221] p[156]rint label";
  86. 850 print"  c[156]reate file";
  87. 860 print"   d[156]irectory [221]";
  88. 870 print"[171][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][179]";
  89. 880 print"[221] h[156]elp screen";
  90. 890 print"  s[156]ee all files";
  91. 900 print" l[156]oadstar  [221]";
  92. 910 print"[202][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][203][146]";
  93. 920 poke198,0
  94. 930 geta$:ifa$=""ora$=" "then930
  95. 940 gosub70
  96. 950 ifa$=chr$(80)ora$=chr$(87)ora$=chr$(82)then1020
  97. 960 ifa$=chr$(67)ora$=chr$(69)then1020
  98. 970 ifa$=chr$(76)then2400:rem l
  99. 980 ifa$=chr$(68)then120:rem d
  100. 990 ifa$=chr$(83)then3230:rem s
  101. 1000 ifa$=chr$(72)thenh=1:goto2760:rem h
  102. 1010 goto780
  103. 1020 print"[145][156][171][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][179][146]"
  104. 1030 print"[145][156][221]what tape number to                   [221][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"
  105. 1040 print"[156][202][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][203][146]"
  106. 1050 print"[145][145][145]"spc(21);
  107. 1060 ifa$=chr$(80)thenprint"print ";
  108. 1070 ifa$=chr$(87)thenprint"write ";
  109. 1080 ifa$=chr$(82)thenprint"read ";
  110. 1090 ifa$=chr$(67)thenprint"create ";
  111. 1100 ifa$=chr$(69)thenprint"edit ";
  112. 1110 ifa$<chr$(65)ora$>chr$(90)then790
  113. 1120 re=1:hl=3:gosub320:v$=y$:re=0
  114. 1130 gosub70
  115. 1140 ifval(v$)<1thenprint"file # must be greater than 0"
  116. 1150 ifval(v$)>200thenprint"file # must be less than 200"
  117. 1160 ifval(v$)<1orval(v$)>200thenprint"[156]press space to continue[146]"
  118. 1170 ifval(v$)<1orval(v$)>200thenwait197,4:a$="":goto780
  119. 1180 vw=0
  120. 1190 ifa$=chr$(80)then2470:rem p
  121. 1200 ifa$=chr$(82)then1260:rem r
  122. 1210 ifa$=chr$(87)then1550:rem w
  123. 1220 ifa$=chr$(67)then1780:rem c
  124. 1230 ifa$=chr$(69)then1950:rem e
  125. 1240 goto780
  126. 1250 :
  127. 1260 rem -------------------------- read
  128. 1270 open15,8,15
  129. 1280 gosub490
  130. 1285 print#15,"r0:"+v$+"="+v$:input#15,er
  131. 1286 if er<>63 then printspc(13)"file is empty [156]":rn=8:goto1450
  132. 1290 open8,8,8,"0:"+(v$)+",l,"+chr$(ln)
  133. 1300 gosub490
  134. 1310 rn=1
  135. 1320 rem return here for line 2 - 7
  136. 1330 gosub2460
  137. 1340 print#15,"p"+chr$(96+8)+chr$(rl)+chr$(rh)+chr$(1)
  138. 1350 gosub490
  139. 1360 input#8,aa$,bb$,cc$,dd$,ee$
  140. 1370 gosub490
  141. 1380 ifaa$="[255]"andrn=1thenprintspc(13)"file is empty [156]":rn=8:goto1450
  142. 1390 ifaa$="[255]"thenrn=8:goto1450
  143. 1400 ifcc$=""thencc$="      deleted[152]"
  144. 1410 ifrn=1thenprint"[156][221]       tape number ";v$;" contains "
  145. 1420 ifrn=1thenprint"[156][202][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][203][146]";
  146. 1430 ifrn=1thenprint"     title           rated  from  to[152]"
  147. 1440 printaa$+". "tab(3)cc$tab(23)bb$tab(28)dd$tab(33)ee$
  148. 1450 ifrn>=8andvw=1thenclose8:close15:return
  149. 1460 ifrn>=8thenprint"[156]press space to continue[146]"
  150. 1470 ifrn>=8thenclose8:close15
  151. 1480 ifrn>=8thengosub70
  152. 1490 ifrn>=8thenifpeek(203)<>60then1490
  153. 1500 ifrn>=8then1530
  154. 1510 rn=rn+1
  155. 1520 goto1320
  156. 1530 goto780
  157. 1540 :
  158. 1550 rem ------------------------ write
  159. 1560 open15,8,15
  160. 1570 gosub490
  161. 1580 open8,8,8,"0:"+(v$)+",l,"+chr$(ln)
  162. 1590 gosub490
  163. 1600 print"ready to write tape #";v$
  164. 1610 print"line# (1  chr max) ";:hl=1:gosub320:aa$=y$
  165. 1620 ifaa$=""thenprint"cancelled":forpa=1to800:nextpa:goto1760
  166. 1630 rn=val(aa$)
  167. 1640 ifrn>=8thenclose8:close15:goto780
  168. 1650 print"rated (2  chr max) ";:hl=2:gosub320:bb$=y$
  169. 1660 print"title (19 chr max) ";:hl=19:gosub320:cc$=y$
  170. 1670 print"from  (4  chr max) ";:hl=4:gosub320:dd$=y$
  171. 1680 print"to    (4  chr max) ";:hl=4:gosub320:ee$=y$
  172. 1690 rc$=aa$+ll$+bb$+ll$+cc$+ll$+dd$+ll$+ee$
  173. 1700 gosub2460
  174. 1710 print#15,"p"+chr$(96+8)+chr$(rl)+chr$(rh)+chr$(1)
  175. 1720 gosub490
  176. 1730 if e=50 thenprint"the dos will expand the file now"
  177. 1740 print#8,rc$
  178. 1750 gosub490
  179. 1760 close8:close15:goto780
  180. 1770 :
  181. 1780 rem ------------------ create file
  182. 1790 print""
  183. 1800 print"setting up file...wait one moment"
  184. 1810 open15,8,15,"ui"
  185. 1820 gosub490
  186. 1830 open8,8,8,"0:"+(v$)+",l,"+chr$(ln)
  187. 1840 gosub490
  188. 1850 print""
  189. 1860 rn=7
  190. 1870 gosub2460
  191. 1880 print#15,"p"+chr$(96+8)+chr$(rl)+chr$(rh)+chr$(1)
  192. 1890 gosub490
  193. 1900 if e<>50thenprint"file "v$" exists"
  194. 1910 if e=50 thenprint"writing blank file to disk now"
  195. 1920 print#8,chr$(255)
  196. 1930 gosub490
  197. 1940 close8:close15:goto780
  198. 1950 rem ------------------------- edit
  199. 1960 vw=1:gosub1260:vw=0
  200. 1970 open15,8,15
  201. 1980 gosub490
  202. 1990 open8,8,8,"0:"+(v$)+",l,"+chr$(ln)
  203. 2000 gosub490
  204. 2010 print"ready to edit tape #";v$
  205. 2020 gosub70
  206. 2030 print"line# (1  chr max) ";:hl=1:gosub320:aa$=y$
  207. 2040 ifaa$=""thenprint"cancelled":forpa=1to999:nextpa:goto2170
  208. 2050 rn=val(aa$)
  209. 2060 ifrn>=8thenclose8:close15:goto780
  210. 2070 print"rated (2  chr max) ";:hl=2:gosub320:bb$=y$
  211. 2080 print"title (19 chr max) ";:hl=19:gosub320:cc$=y$
  212. 2090 print"from  (4  chr max) ";:hl=4:gosub320:dd$=y$
  213. 2100 print"to    (4  chr max) ";:hl=4:gosub320:ee$=y$
  214. 2110 rc$=aa$+ll$+bb$+ll$+cc$+ll$+dd$+ll$+ee$
  215. 2120 gosub2460
  216. 2130 print#15,"p"+chr$(96+8)+chr$(rl)+chr$(rh)+chr$(1)
  217. 2140 gosub490
  218. 2150 print#8,rc$
  219. 2160 gosub490
  220. 2170 print""
  221. 2180 printsp$
  222. 2190 printsp$
  223. 2200 printsp$
  224. 2210 printsp$
  225. 2220 printsp$
  226. 2230 printsp$
  227. 2240 printsp$
  228. 2250 printsp$
  229. 2260 printsp$
  230. 2270 printsp$
  231. 2280 printsp$
  232. 2290 printsp$
  233. 2300 printsp$
  234. 2310 printsp$
  235. 2320 printsp$;
  236. 2330 print""
  237. 2340 close8:close15:vw=1:gosub1260:vw=0
  238. 2350 print"[156]press space to continue[146]"
  239. 2360 gosub70
  240. 2370 ifpeek(203)<>60then2370
  241. 2380 goto780
  242. 2390 :
  243. 2400 close3:close8:close15
  244. 2410 rem ------------------------- quit
  245. 2420 open15,8,15,"r0:hello connect=hello connect":input#15,er%:close15
  246. 2430 ifer%<>63thenprint"[147]you made a boo-boo":end
  247. 2440 load"hello connect",8
  248. 2450 end
  249. 2460 rh=int(rn/256):rl=rn-(256*rh):return
  250. 2470 rem ------------------ print label
  251. 2480 open3,4,0:close3
  252. 2490 ifst<>0thenprint"printer not detected":goto2350
  253. 2500 open15,8,15
  254. 2510 gosub490
  255. 2520 open8,8,8,"0:"+(v$)+",l,"+chr$(ln)
  256. 2530 gosub490
  257. 2540 open3,4
  258. 2550 rn=1
  259. 2560 rem return here for line 2 & up
  260. 2570 gosub2460
  261. 2580 print#15,"p"+chr$(96+8)+chr$(rl)+chr$(rh)+chr$(1)
  262. 2590 gosub490
  263. 2600 input#8,aa$,bb$,cc$,dd$,ee$:sq$="                                       "
  264. 2601 cc$=left$(cc$+sq$,20):dd$=right$(sp$+dd$,4):ee$=right$(sp$+ee$,4)
  265. 2610 gosub490
  266. 2615 ifrn=1thenprint#3,"*************************************"
  267. 2620 iflen(bb$)=1thenbb$=bb$+" "
  268. 2630 ifbb$=""then goto2690
  269. 2640 ifaa$="[255]"thenrn=8:goto2690
  270. 2650 ifrn=1thenprint#3,spc(10);"tape number ";v$
  271. 2670 ifrn=1thenprint#3,spc(5);"title";spc(12);"rtd";spc(2);"from";spc(3);"to"
  272. 2680 print#3,aa$;" ";cc$;bb$;"   ";dd$;"  ";ee$
  273. 2690 rn=rn+1
  274. 2700 ifrn>=8thenprint#3,"*************************************"
  275. 2710 ifrn>=8thenprint"file "v$" has been printed":close8:close15:close3
  276. 2720 ifrn>=8thenforpa=1to999:nextpa:goto2740
  277. 2730 goto2560
  278. 2740 goto780
  279. 2750 rem ------------------------ help
  280. 2760 print"[147][156]video cassette library"
  281. 2770 print"[156]enter first letter of option"
  282. 2780 print"this program has a maximum capacity of  200 tapes with 7 lines ";
  283. 2790 print"of information   per tape. (7 entries per tape)."
  284. 2800 print"[159]read a tape: read tape (x)."
  285. 2810 print"[159]write a tape: write tape (x) line (y)."
  286. 2820 print"hit return alone at line # to cancel."
  287. 2830 print"[159]create file: you must create file (x)   before writing to it. ";
  288. 2840 print"it will not erase an existing file."
  289. 2850 print"[159]edit a tape: use to update or delete    line (y) on tape (x). ";
  290. 2860 print"hit return alone  at line # to cancel or enter line # thenhit ";
  291. 2870 print"return alone for title, rating and  tape counts to delete that line."
  292. 2880 print"[156]press space to continue[146]"
  293. 2890 gosub70
  294. 2900 ifpeek(203)<>60then2900
  295. 2910 print"[147][159]directory: view disk directory"
  296. 2920 print"[159]help screen: these two screens"
  297. 2930 print"[159]see all files: view all records on disk"
  298. 2940 print"[159]print label: print cassette label"
  299. 2950 print"[159]loadstar: return to loadstar"
  300. 2960 print"            [156]---- sample ----"
  301. 2970 print"tape # 1            rated  from   to "
  302. 2980 print"1. jaws               pg   0000  1234"
  303. 2990 print"2. jaws ii            pg   1235  2394"
  304. 3000 print"3. beverly hills cop  r    2395  3173"
  305. 3010 print"4. 48 hours           r    3174  4285"
  306. 3020 print"5. short circuit      g    4286  4921"
  307. 3030 print"6. snow white         g    4922  5491"
  308. 3040 print"7. jungle book        g    5492  6000"
  309. 3050 print"[156]press space to continue[146][145][145]"
  310. 3060 gosub70
  311. 3070 ifpeek(203)<>60then3070
  312. 3080 ifis=1thenis=0:return
  313. 3090 h=0:goto780
  314. 3100 a=49152:x=0
  315. 3110 forj=atoa+107:readb:pokej,b:x=x+b:nextj
  316. 3120 ifx<>17061thenprint"error in data...":end
  317. 3130 data169,20,133,250,169,0,162,4,160,216,133,251
  318. 3140 data133,253,134,252,132,254,162,24,160,38,177,251
  319. 3150 data200,145,251,136,177,253,200,145,253,136,136,192
  320. 3160 data20,176,239,160,20,169,32,145,251,160,1,177
  321. 3170 data251,136,145,251,200,177,253,136,145,253,200,200
  322. 3180 data192,21,144,239,160,19,169,32,145,251,165,251
  323. 3190 data24,105,40,133,251,144,2,230,252,165,253,24
  324. 3200 data105,40,133,253,144,2,230,254,202,16,181,160
  325. 3210 data10,202,208,253,136,208,250,198,250,208,153,96
  326. 3220 return
  327. 3230 rem ------------- see all records
  328. 3240 print"[145][156][171][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][179][146]"
  329. 3250 v$="1":v=1
  330. 3260 open15,8,15
  331. 3265 print#15,"r0:"v$"="v$:input#15,er
  332. 3266 ifer<>63 then printspc(8)"that file is empty ("v$")":goto3460
  333. 3270 gosub490
  334. 3280 open8,8,8,"0:"+(v$)+",l,"+chr$(ln)
  335. 3290 gosub490
  336. 3300 rn=1
  337. 3310 rem return here for 2-7
  338. 3320 gosub2460
  339. 3330 print#15,"p"+chr$(96+8)+chr$(rl)+chr$(rh)+chr$(1)
  340. 3340 gosub490
  341. 3350 input#8,aa$,bb$,cc$,dd$,ee$
  342. 3360 gosub490
  343. 3370 ifrn=1thenprint"[156][221]       tape number ";v$;" contains         [221][157][157]"
  344. 3380 ifrn=1thenprint"[156][202][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][203][146]";
  345. 3390 ifaa$="[255]"andrn=1thenprintspc(8)"that file is empty ("v$")":goto3460
  346. 3400 ifaa$="[255]"thenrn=8:goto3460
  347. 3410 ifcc$=""thencc$="     deleted[152]"
  348. 3420 ifrn=1thenprintspc(5);"title";spc(11);"rated";spc(2);"from";spc(2);"to[152]"
  349. 3430 printaa$+". "tab(3)cc$tab(23)bb$tab(28)dd$tab(33)ee$
  350. 3440 rn=rn+1
  351. 3450 goto3310
  352. 3460 close8
  353. 3470 print"[156]enter +[156] for next file or -[156] for previous"
  354. 3480 print"q[156] to quit"
  355. 3490 gosub70
  356. 3500 poke198,0
  357. 3510 getch$:ifch$=""then3510
  358. 3520 ifch$=chr$(81)thenclose8:close15:goto780
  359. 3530 ifch$<>chr$(43)andch$<>chr$(45)then3510
  360. 3540 ifch$=chr$(43)thenv=v+1
  361. 3550 ifch$=chr$(45)thenv=v-1
  362. 3560 ifv=0thenclose8:close15:goto3810
  363. 3570 ifv>=201thenclose8:close15:goto3810
  364. 3580 v$=str$(v)
  365. 3590 ifv<=9thenv$=right$(v$,1)
  366. 3600 ifv>=10andv<=99thenv$=right$(v$,2)
  367. 3610 ifv>=100andv<=200thenv$=right$(v$,3)
  368. 3620 print""
  369. 3630 printsp$
  370. 3640 printsp$
  371. 3650 printsp$
  372. 3660 printsp$
  373. 3670 printsp$
  374. 3680 printsp$
  375. 3690 printsp$
  376. 3700 printsp$
  377. 3710 printsp$
  378. 3720 printsp$
  379. 3730 printsp$
  380. 3740 printsp$
  381. 3750 printsp$
  382. 3760 printsp$
  383. 3770 printsp$;
  384. 3780 print""
  385. 3790 close8:close15
  386. 3800 goto3260
  387. 3810 goto780
  388. 3820 rem ------------------------ title
  389. 3830 poke53280,.:poke53281,.:poke198,0:printchr$(142):print"[147]"
  390. 3840 k$="[158][213][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][201]":l$="":gosub100
  391. 3850 k$="[158][221]         loadstar presents        [221]":l$="":gosub100
  392. 3860 k$="[158][202][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][203]":l$="":gosub100
  393. 3870 k$="[156][213][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][201]":l$="":gosub100
  394. 3880 k$="[156][221]            vcr library           [221]":l$="":gosub100
  395. 3890 k$="[156][202][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][203]":l$="":gosub100
  396. 3900 k$="[151][213][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][201]":l$=l$+"":gosub100
  397. 3910 k$="[151][221]      (c) 1988 by ted atwood      [221]":l$=l$+"":gosub100
  398. 3920 k$="[151][221]        tra[211]smart software        [221]":l$=l$+"":gosub100
  399. 3930 k$="[151][202][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][203]":l$=l$+"":gosub100
  400. 3940 print" [152][213][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][201]"
  401. 3950 print" [152][221]                                  [221]"
  402. 3960 print" [152][221]                                  [221]"
  403. 3970 print" [152][221]    [146]                              [221]"
  404. 3980 print" [152][221]    [146]                              [221]"
  405. 3990 print" [152][221]    [146]          [146][144]            [146]   [152]     [221]"
  406. 4000 print" [152][221]    [146]          [146][144]            [146]   [152]     [221]"
  407. 4010 print" [152][221]    [146]          [146][144]            [146]   [152]     [221]"
  408. 4020 print" [152][221]    [146]          [146][144]            [146]   [152]     [221]"
  409. 4030 print" [152][221]    [146]          [146][144]            [146]   [152]     [221]"
  410. 4040 print" [152][221]    [146]          [146][144]            [146]   [152]     [221]"
  411. 4050 print" [152][221]    [146]                              [221]"
  412. 4060 print" [152][221]    [146]                              [221]"
  413. 4070 print" [152][202][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][203]";
  414. 4080 return
  415.