home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 39 / 039.d81 / printing lab (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  8.0 KB  |  247 lines
  1. 10 print"[147]"chr$(142):poke53280,0:poke53281,0
  2. 100 gosub 60000
  3. 130 :
  4. 140 :
  5. 150 gosub 63000
  6. 250 geta$:ifa$=""then 250
  7. 251 ifa$<"0"ora$>"9"then250
  8. 252 x=val(a$)
  9. 254 ifx=0 then 1500
  10. 255 gosub 61500
  11. 260 onxgoto270,340,410,450,490,610,980,1180,1300,1500
  12. 265 goto 150
  13. 270 print"[147]":open4,4,0:print#4,chr$(14)+chr$(31)
  14. 280 print#4,"vic chip memory map (40 col.)":print#4,chr$(15)
  15. 285 print#4:gosub1490
  16. 290 print#4,spc(16);"111111111122222222223333333333"
  17. 300 print#4,spc(6);"0123456789012345678901234567890123456789"
  18. 305 print#4:print#4
  19. 310 fori=1024to1984step40
  20. 320 print#4,i;:forx=0to39:print#4,"[207]";:next:print#4,"[199]":printchr$(13):next
  21. 330 forx=0to45:print#4,"[163]";:next:gosub1470:print"[147]":gosub1450:goto140
  22. 340 print"[147]":open4,4,0:print#4,chr$(14)+chr$(31)
  23. 350 print#4,"vic chip color map (40 col.)":print#4,chr$(15)
  24. 355 print#4:gosub1490
  25. 360 print#4,spc(17);"111111111122222222223333333333"
  26. 370 print#4,spc(7);"0123456789012345678901234567890123456789"
  27. 375 print#4:print#4
  28. 380 fori=55296to56256step40
  29. 390 print#4,i;:forx=0to39:print#4,"[207]";:next:print#4,"[199]":printchr$(13):next
  30. 400 forx=0to46:print#4,"[163]";:next:gosub1470:print"[147]":gosub1450:goto140
  31. 410 print"[147]":open4,4,0:forp=1to2:print#4,chr$(14)+chr$(31)
  32. 420 forx=1to2:print#4,"memo[218]memo[218]memo[218]memo  ";:nextx
  33. 425 print#4:print#4,chr$(159)
  34. 430 forl=1to13:print#4,"[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]":print#4
  35. 440 nextl:nextp:print"[147]":gosub1450:goto140
  36. 450 gosub1430:print"[147]":open4,4,0:print#4,chr$(14)+chr$(31):forx=1to4
  37. 460 print#4,"[218]shopping[218]";:next:print#4:forx=1to4
  38. 470 print#4,"[218]  list  [218]";:next:print#4,chr$(159):forl=1to29:forx=1to4
  39. 480 print#4," [164][164][164][164][164][164][164][164] ";:next:print#4:print#4:next:print"[147]"
  40. 485 gosub1450:goto140
  41. 490 print"[147]":open4,4,0:form=1to2:print#4,chr$(31):forx=1to2
  42. 500 print#4,"to [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] from [164][164][164][164][164][164][164][164][164][164][164][164][164][164]  ";:nextx:print#4
  43. 510 print#4,chr$(14)+chr$(31)
  44. 520 print#4,"while you were out! while you were out!"
  45. 525 print#4,chr$(15):forx=1to2
  46. 530 print#4,"m [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] of [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]  ";:nextx
  47. 535 print#4:print#4
  48. 540 forx=1to2:print#4,"ph# [164][164][164][164][164][164][164][164][164][164][164][164][164][164] ext# [164][164][164][164][164][164][164][164][164][164][164][164][164][164]  ";
  49. 545 nextx:print#4
  50. 550 print#4
  51. 560 forx=1to2:print#4,"called  [], urgent [], please call [],  ";
  52. 565 nextx:print#4:print#4
  53. 570 forx=1to2:print#4,"message [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]  ";:nextx
  54. 580 print#4:print#4,chr$(159):forz=1to8
  55. 590 forx=1to2:print#4,"[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]  ";:nextx
  56. 595 print#4
  57. 600 print#4:nextz:print#4:nextm:print"[147]":gosub1450:goto140
  58. 610 print"[147]":open4,4:print#4,chr$(14)+chr$(31):form=1to19
  59. 620 print"[147][159]    printing lab's cover designs ":print
  60. 630 print"[152] a=basketweave ":print" b=hearts      "
  61. 640 print" c=x's and o's ":print" d=diamonds    "
  62. 650 print" e=playing card":print" f=checker brd."
  63. 660 print" g=brick work  ":print" h=mosaic tile "
  64. 670 print" i=geometric   ":print" j=diagonals   "
  65. 680 print" k=deco-art i  ":print" l=deco-art ii "
  66. 685 print"[154]  enter cover  ":print"    design     "
  67. 690 getcv$:ifcv$=""then690
  68. 695 ifasc(cv$)<65orasc(cv$)>76orlen(cv$)=>2thenprint"[145][145]":cv$="":goto690
  69. 700 print:print"   printing...  ":print
  70. 710 ifcv$="a"thena$="[208]":b$="[186]":n=9:print#4,chr$(14):goto830
  71. 720 ifcv$="b"thena$="[211]":b$=" ":n=17:print#4,chr$(15):goto830
  72. 730 ifcv$="c"thena$="x":b$="o":n=9:print#4,chr$(14):goto830
  73. 740 ifcv$="d"thena$="[206]":b$="[205]":n=17:print#4,chr$(15):goto830
  74. 750 ifcv$="e"thena$="[193][211]":b$="[218][216]":n=9:print#4,chr$(15):goto830
  75. 760 ifcv$="f"thena$="[166]":b$=" ":n=17:print#4,chr$(15):goto830
  76. 770 ifcv$="g"thena$="[177]":b$="[178]":n=17:print#4,chr$(15):goto830
  77. 780 ifcv$="h"thena$="[201][213]":b$="[203][202]":n=9:print#4,chr$(15):goto830
  78. 790 ifcv$="i"thena$="[169]":b$="[223]":n=9:print#4,chr$(14):goto830
  79. 800 ifcv$="k"thena$="[214]":b$="[219]":n=9:print#4,chr$(14):goto830
  80. 810 ifcv$="j"thena$="[186]":b$="[207]":n=9:print#4,chr$(14):goto830
  81. 820 ifcv$="l"thena$="[223]":b$="[169]":n=18:print#4,chr$(15):goto830
  82. 830 print#4,chr$(31):form=1to19:forx=1ton:print#4,a$;b$;:next
  83. 835 gosub1490:print#4
  84. 840 forx=1ton:print#4,b$;a$;:next:print#4:next:forx=1to13:print#4:next
  85. 850 print"[154][147]       enter the inside message      "
  86. 855 print"   press return on a separate line"
  87. 856 print"        when ready to continue
  88. 860 ln[178]40:nu[178]0:[141]61000
  89. 870 [139]b$[178]""[167] 930
  90. 880 an$[178]b$
  91. 900 :
  92. 910 [152]4,[199](15):kk[178][181](52[171]([195](an$)[173]2)):[152]4,[166]kk),;an$:[152]4
  93. 920 an$[178]"":a$[178]"":[137]860
  94. 930 [153]"for type a one liner on back ? (y/n) ":[153]
  95. 940 [161]a$:[139]a$[178]""[167]940
  96. 945 [139]a$[178]"n"[176]a$[178]"(NULL)" [167] 960
  97. 946 [139]a$[178]"y"[176]a$[178]"(NULL)" [167] 950
  98. 947 [137] 940
  99. 950 [153]:[153]" what is the credit to print :";:ln[178]19:[141]61000:ff$[178]b$
  100. 951 [152]4,[166]5),;ff$
  101. 955 [152]4
  102. 960 [153]"load":[141]1450:[137]140
  103. 970 :
  104. 980 [153]"load"
  105. 985 [159]4,4,0:[153]"open  custom letterhead mode is now active"
  106. 987 [153]:[153]" e=enhanced, n=normal, q=quit, (e/n/q) "
  107. 990 [153]"    which print mode do you wish ?"
  108. 991 [161]m$:[139]m$[178]""[167]991
  109. 992 [139]m$[178]"e"[176]m$[178]"n"[176]m$[178]"q"[167] 1000
  110. 995 [137] 991
  111. 1000 :
  112. 1010 [139]m$[178]"q"[167]1120
  113. 1025 [139]m$[178]"e"[167][152]4,[199](31)[170][199](14):ln[178]20
  114. 1035 [139]m$[178]"n"[167][152]4,[199](31)[170][199](15):ln[178]59
  115. 1040 an$[178]"":ln[178]20:[139]m$[178]"n"[167]ln[178]60
  116. 1044 [153]"enter text now. up to "ln[171]1" chars long"
  117. 1045 [153]"press return on a seperate line to quit":[153]
  118. 1050 nu[178]0:[141]61000
  119. 1060 [139]b$[178]""[167] 1130
  120. 1070 an$[178]b$
  121. 1100 [139]m$[178]"e"[167]xt[178][181](10[171]([195](an$)[173]2)):[152]4,[166]xt),;an$:[137]1050
  122. 1110 [139]m$[178]"n"[167]xt[178][181](30[171]([195](an$)[173]2)):[152]4,[166]xt),;an$:[137]1050
  123. 1120 [153]"load":[141]1450:[137]140
  124. 1130 [153]"clr should i draw a line across the top,  "
  125. 1140 [153]"clr to separate the letterhead (y/n) close?   "
  126. 1150 [161]a$:[139]a$[178]""[167]1150
  127. 1160 [139]a$[178]"y"[167]1165
  128. 1161 [139]a$[178]"n"[167]1120
  129. 1162 [137] 1150
  130. 1165 [152]4,[199](14)[199](159):[129]x[178]1[164]40:[152]4,"to";:[130]:[137]1120
  131. 1170 [137]1120
  132. 1180 [153]"load":[159]4,4,0:[152]4,[199](31)
  133. 1190 [153]"open typewriter with normal print mode  "
  134. 1200 [153]" is now active. type in up to 80 cols.  "
  135. 1210 [153]"press return on a seperate line to quit":[153]
  136. 1220 an$[178]""
  137. 1230 ln[178]81:nu[178]0:[141]61000
  138. 1240 [139]b$[178]""[167] 1290
  139. 1250 [152]4,b$:[137]1220
  140. 1290 [152]4,[199](15):[153]"load":[141]1450:[137]140
  141. 1300 [153]"load":[159]4,4,0:[152]4,[199](31)[170][199](14)
  142. 1310 [153]"open typewriter with enhanced print mode"
  143. 1320 [153]" is now active. type in up to 40 cols.  "
  144. 1325 [153]"press return on a seperate line to quit":[153]
  145. 1330 ln[178]41
  146. 1340 nu[178]0:[141]61000
  147. 1350 [139]b$[178]""[167] 1400
  148. 1360 [152]4,b$:[137]1330
  149. 1400 [152]4,[199](15):[153]"load":[141]1450:[137]140
  150. 1410 p[178][195](k$):tx[178]40[171]p[173]2:[129]d[178]1[164][195](k$)[171]20
  151. 1420 [153]xr$[166]tx)[200](k$,d)[201](k$,p[171](p[171]d)):tx[178]tx[171]1:[130]:[142]
  152. 1430 :
  153. 1450 [159]10,4,10:[152]10:[160]10:[160]4:x[178]0:i[178]0:p[178]0:l[178]0:z[178]0:m[178]0:n[178]0:kk[178]0
  154. 1460 xt[178]0:a$[178]"":b$[178]"":an$[178]"":ff$[178]"":tx[178]0:cv$[178]"":xr$[178]"":[142]
  155. 1470 [152]4:[152]4,"add the number at the top to the number at the side"
  156. 1480 [152]4:[152]4,"for the proper location on the 40 column screen."
  157. 1485 [142]
  158. 1490 [159]6,4,6:[152]6,[199](22):[160]6:[142]
  159. 1500 [153]""
  160. 1501 [153]"                        wait
  161. 1502 print"  quit : are you sure ? [146]
  162. 1503 [153]"         y)es or n)o    wait
  163. 1504 print"                        [146]
  164. 1510 [161]a$:[139]a$[178]""[167]1510
  165. 1515 [139]a$[178]"y"[167] 1550
  166. 1520 [139]a$[178]"n"[167] 130
  167. 1523 [137] 1510
  168. 1550 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  169. 1555 [139]er[179][177]63 [167] [153]"load":[128]
  170. 1560 [147]"hello connect",8
  171. 60000 :
  172. 60010 [153]"load"
  173. 60012 [153]
  174. 60020 [153]"             l o a d s t a r"
  175. 60030 [153]"             print#tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  176. 60050 [153]"            openproudly presents"
  177. 60060 [153]
  178. 60070 [153]
  179. 60080 [153]"   QQQ  forQQQ  sysQ printQ  Q QQQQQ contQ Q  Q  clrQQ"
  180. 60090 [153]"   Q  Q forQ  Q sysQ printQQ Q   Q   contQ QQ Q clrQ"
  181. 60100 [153]"   QQQ  forQQQ  sysQ printQ QQ   Q   contQ Q QQ clrQ QQ"
  182. 60110 [153]"   Q    forQ Q  sysQ printQ  Q   Q   contQ Q  Q clrQ  Q"
  183. 60120 [153]"   Q    forQ  Q sysQ printQ  Q   Q   contQ Q  Q  clrQQ"
  184. 60130 [153]
  185. 60140 [153]"              Q    QQ  contQQQ"
  186. 60150 [153]"              Q   Q  Q contQ  Q"
  187. 60160 [153]"           close  Q   QQQQ contQQQ"
  188. 60170 [153]"              Q   Q  Q contQ  Q"
  189. 60180 [153]"              QQQ Q  Q contQQQ"
  190. 60190 [153]
  191. 60200 [153]"           listby jerome e. reuter"
  192. 60210 [153]
  193. 60220 [153]"                print#(c) 1987"
  194. 60230 [153]
  195. 60240 [153]"              press (space)"
  196. 60250 [153]"";
  197. 60255 [161]a$:[139]a$[178]" "[167][142]
  198. 60300 [137] 60255
  199. 61000 b$[178]"":[153]"to";:[129]a[178]1[164]100
  200. 61005 [161]a$:[139]a$[178]""[167]61005
  201. 61010 [139]a$[178][199](20) [175]a[177]1 [167] a[178]a[171]1:b$[178][200](b$,a[171]1):[153]"cmdcmd  cmdcmdto";:[137]61005
  202. 61015 [139]a$[178][199](20) [167] 61005
  203. 61020 [139]a$[178][199](13)[167][153]"cmd ":[142]
  204. 61030 [139]a$[179]" "[176]a$[177]"(NULL)"[167] 61005
  205. 61035 [139]a$[177]"z"[167] 61005
  206. 61040 [139]a[177]100 [176]a[177]ln [167] 61005
  207. 61045 [139]  nu[178]1 [175] a$[179]"0"[176]nu[178]1[175] a$[177]"9"[167]61005
  208. 61050 b$[178]b$[170]a$:[153]"cmd"a$;:[153]"to";:[130]
  209. 61500 [159]15,4,15:[160]15:[139]st[178]0 [167] [142]
  210. 61502 [151]53280,1:[151]53280,.
  211. 61504 [153]"                                        ";
  212. 61505 [153]" printer not detected - (space) = abort ";
  213. 61506 [153]"    or press (return) to try again      ";
  214. 61507 [153]"                                        "
  215. 61510 [161]a$:[139]a$[178]""[167]61510
  216. 61515 [139]a$[178]" "[167] 150
  217. 61518 [139]a$[178][199](13) [167] 61500
  218. 61520 [137] 61510
  219. 63000 :
  220. 63010 [153]"loadwait             openprinting lab"
  221. 63020 [153]"             print#tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  222. 63030 [153]" listor{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}^"
  223. 63040 [153]" {$7d}                                    {$7d}"
  224. 63050 [153]" {$7d}  1list)..print the char memory map     list{$7d}"
  225. 63060 [153]" {$7d}                                    {$7d}"
  226. 63070 [153]" {$7d}  for2list)..forprint the color memory map   syscloselist{$7d}"
  227. 63080 [153]" {$7d}                                    {$7d}"
  228. 63090 [153]" {$7d}  sys3list)..sysprint a sheet of memo pads    list{$7d}"
  229. 63100 [153]" {$7d}                                    {$7d}"
  230. 63110 [153]" {$7d}  4list)..print a shopping list         list{$7d}"
  231. 63120 [153]" {$7d}                                    {$7d}"
  232. 63130 [153]" {$7d}  cont5list)..contprint a sheet of phone msgs   list{$7d}"
  233. 63140 [153]" {$7d}                                    {$7d}"
  234. 63150 [153]" {$7d}  clr6list)..clrprint a greeting card         list{$7d}"
  235. 63160 [153]" {$7d}                                    {$7d}"
  236. 63170 [153]" {$7d}  7list)..print a custom letterhead     list{$7d}"
  237. 63180 [153]" {$7d}                                    {$7d}"
  238. 63190 [153]" {$7d}  for8list)..foruse the typewriter (normal)   list{$7d}"
  239. 63200 [153]" {$7d}                                    {$7d}"
  240. 63210 [153]" {$7d}  sys9list)..sysuse the typewriter (enhanced) list{$7d}"
  241. 63220 [153]" {$7d}                                    {$7d}"
  242. 63230 [153]" {$7d}  0list)..quit back to loadstar         list{$7d}"
  243. 63240 [153]" {$7d}                                    {$7d}"
  244. 63250 [153]" /{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}exp";
  245. 63260 [153]"";
  246. 63270 [142]
  247.