home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 49 / 049.d81 / template (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  115 lines
  1. 10 dimzz$(12),b$(12):a$=":":e=6:f=13:g=20:h=27:m=8:print"[147]":d1$=""
  2. 20 poke53280,13:poke 53281,13:d2$=d1$+d1$+d1$:gosub600:rem draw template
  3. 25 print"       enter [144]l to return to loadstar"
  4. 30 print"[144] for 64[146] or 128[146] computer:";
  5. 31 le=3:al=.:nu=1:gosub60500:aa$=c$:ifaa$="l"then5000
  6. 35 rem which computer is the template for - not which mode are you in.
  7. 40 if aa$<>"128" then m=12:rem 64=wider
  8. 50 print"[145] using which printer (mps[146]/dps[146]):";
  9. 51 al=1:nu=.:gosub60500:pr$=c$:ifaa$="l"then5000
  10. 60 if pr$="mps"then m=m-2:a$="[221]"
  11. 70 print"[145] ready the printer, then press *[146]      "
  12. 80 get c$:if c$<>"*"then 80
  13. 90 for k=1824 to 1863:poke k,32:next
  14. 100 open4,4:for a=1 to 12:read zz$(a):next:a=0
  15. 110 print""d2$:a=a+1
  16. 120 b$(a)="":print"  [144]  key  [146]";zz$(a):print"";
  17. 125 nu=1:al=1:le=7:gosub60500:b$(a)=c$:gosub690
  18. 130 onagoto140,150,160,170,180,190,200,210,220,230,240,250
  19. 140 print""tab(e)d1$b$(a):goto260
  20. 150 print""tab(e)d1$b$(a):goto260
  21. 160 print""tab(f)d1$b$(a):goto260
  22. 170 print""tab(f)d1$b$(a):goto260
  23. 180 print""tab(g)d1$b$(a):goto260
  24. 190 print""tab(g)d1$b$(a):goto260
  25. 200 print""tab(h)d1$b$(a):goto260
  26. 210 print""tab(h)d1$b$(a):goto260
  27. 220 print""tab(e)d2$b$(a):goto260
  28. 230 print""tab(f)d2$b$(a):goto260
  29. 240 print""tab(g)d2$b$(a):goto260
  30. 250 print""tab(h)d2$b$(a):goto260
  31. 260 for k=1864 to 1903:poke k,32:next
  32. 270 if a<12 then 110
  33. 280 print"[144] any changes to be made?  (y/n)"
  34. 285 getan$:ifan$<>"y"andan$<>"n"then285
  35. 290 if an$<>"n"then gosub1000:goto 110
  36. 300 if pr$="mps"then goto 490
  37. 301 open15,4,7:close15:ifst=.then310
  38. 302 print"        printer not ready..."
  39. 303 fora=.to1000:next:print"[145]                              [145][145]":goto285
  40. 310 open10,4,10:print#10:close10:gosub 440:gosub 460:gosub 460
  41. 320 print#4,chr$(27)+chr$(68),a$;spc(6)b$(1);b$(3);b$(5);b$(7);spc(7)a$
  42. 325 gosub460
  43. 330 print#4,chr$(27)+chr$(68),a$;spc(6)b$(2);b$(4);b$(6);b$(8);spc(7)a$
  44. 335 gosub460
  45. 340 gosub 470:for x=1 to m
  46. 350 print#4,chr$(27)+chr$(68),a$;spc(5);a$;spc(28);a$;spc(6);a$:next
  47. 360 gosub 470:gosub 460
  48. 370 print#4,chr$(27)+chr$(68),a$;spc(6)b$(9);b$(10);b$(11);b$(12);spc(7)a$
  49. 380 gosub 460:gosub 440:close 4
  50. 390 print"[145] want another printed?  (y/n)"
  51. 395 ifan$="y"thenan$="yes"
  52. 396 ifan$="n"thenan$="no"
  53. 400 if an$<>"yes"then print"[147]":end
  54. 410 if an$="yes" thengosub1100
  55. 420 if an$<>"yes" then run
  56. 430 if an$="yes" then open4,4:goto 300
  57. 440 print#4,chr$(27)+chr$(68),"--------------------";
  58. 445 print#4,"-----------------------"
  59. 450 return
  60. 460 print#4,chr$(27)+chr$(68),a$,spc(21),a$:return
  61. 470 print#4,chr$(27)+chr$(68),a$;spc(5);"---------------";
  62. 475 print#4,"------------------------------";spc(6);a$
  63. 480 return
  64. 490 open10,4,10:print#10:close10:open6,4,6:print#6,chr$(21):close6
  65. 500 print#4,"[176][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][192][174]":gosub 560
  66. 510 gosub 560:print#4,a$;spc(6)b$(1);b$(3);b$(5);b$(7);spc(7)a$:gosub 560
  67. 520 print#4,a$;spc(6)b$(2);b$(4);b$(6);b$(8);spc(7)a$:gosub 560:gosub 570
  68. 530 for x=1 to m:gosub 580:next:gosub 590:gosub 560:gosub 560
  69. 540 print#4,a$;spc(6)b$(9);b$(10);b$(11);b$(12);spc(7)a$:gosub 560
  70. 550 print#4,"[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][192][192][192][192][189]":close 4:goto 390
  71. 560 print#4,a$,spc(21),a$:return
  72. 570 print#4,a$;spc(5);"[176][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][174]";spc(6)a$:return
  73. 580 print#4,a$;spc(5);a$;spc(28);a$;spc(6);a$:return
  74. 590 print#4,a$;spc(5);"[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][189]";spc(6);a$:return
  75. 600 print"[147][144] template maker - by jerome e. reuter  ":print:print
  76. 610 forx=1to5:gosub680:next
  77. 620 print"      [146][144][213][192][192][192][192][192][201][213][192][192][192][192][192][201][213][192][192][192][192][192][201][213][192][192][192][192][192][201]     "
  78. 630 print"      [146][144][221] f/1 [221][221] f/3 [221][221] f/5 [221][221] f/7 [221]     "
  79. 640 forx=1to2:print"      [146][144][221]     [221][221]     [221][221]     [221][221]     [221]     ":next
  80. 650 print"      [146][144][221] f/2 [221][221] f/4 [221][221] f/6 [221][221] f/8 [221]     "
  81. 660 print"      [146][144][202][192][192][192][192][192][203][202][192][192][192][192][192][203][202][192][192][192][192][192][203][202][192][192][192][192][192][203]     "
  82. 670 forx=1to3:gosub680:next:return
  83. 680 print"                                       ":return
  84. 690 if len(b$(a))>7 then b$(a)=left$(b$(a),7):return
  85. 700 if len(b$(a))<7 then b$(a)=b$(a)+"-"
  86. 710 if len(b$(a))<7 then b$(a)="-"+b$(a)
  87. 720 if len(b$(a))<7 then 700
  88. 730 return
  89. 740 data" f1 (top line)"," f1 (bot line)"
  90. 745 data" f3 (top line)"," f3 (bot line)"
  91. 750 data" f5 (top line)"," f5 (bot line)"
  92. 755 data" f7 (top line)"," f7 (bot line)"
  93. 760 data" f2 ( 1 liner )"," f4 ( 1 liner )"
  94. 765 data" f6 ( 1 liner )"," f8 ( 1 liner )"
  95. 1000 for k=1824 to 1863:poke k,32:next:print"[145][145][145]":a=0:return
  96. 1100 print"[145]using the same labels?  (y/n)"
  97. 1110 getan$:ifan$<>"y"andan$<>"n"then1110
  98. 1111 ifan$="y"thenan$="yes"
  99. 1115 ifan$="n"thenan$="no"
  100. 1120 return
  101. 5000 open15,8,15,"r0:hello connect=hello connect":input#15,er%:close15
  102. 5010 ifer%<>63thenend
  103. 5020 load"hello connect",8
  104. 60500 c$="":poke198,.:print"[164]";
  105. 60510 forz=1tole+1
  106. 60520 getz$:ifz$=""then60520
  107. 60530 ifz$=chr$(13)thenprint"[157] ":return
  108. 60540 ifz$=chr$(20)andz>1thenprint"[157][157]  [157][157][164]";:z=z-1:c$=left$(c$,z-1):goto60520
  109. 60550 if(z=le+1)then60520
  110. 60560 if(nu)and((z$>="0")and(z$<="9"))or(z$="l")then60595
  111. 60570 if(al)and((z$>=" "andz$<="/")or(z$>=":"andz$<="z"))then60595
  112. 60580 if(al)thenif(z$>="[193]"andz$<="[218]")then60595
  113. 60590 goto60520
  114. 60595 print"[157]"z$;:poke212,.:print"[164]";:c$=c$+z$:next
  115.