home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 61 / 061.d81 / pro-companion (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  134 lines
  1. 100 rem  ******************************
  2. 110 rem  * video pro-titler companion *
  3. 120 rem  * font editor  version 2.1   *
  4. 130 rem  * programmed by john allen   *
  5. 140 rem  * fonts & docs  by bill wind *
  6. 150 rem  * m-l code by scott e. resh  *
  7. 160 rem  *                            *
  8. 170 rem  * (c) 1989 by john f. allen  *
  9. 180 rem  *      william c. wind       *
  10. 190 rem  *       scott e. resh        *
  11. 200 rem  ******************************
  12. 210 poke53281,.:print"[147]":gosub1290
  13. 220 poke147,.:sys57812"fe.ml",8,1:sys62631
  14. 230 print"    [208]lease press any key to begin..."
  15. 240 geta$:ifa$=""then240
  16. 250 printchr$(9);chr$(142);chr$(9);
  17. 260 poke56,128:clr:rem do not remove!!
  18. 270 sp$="                                    "
  19. 280 print "[147]";
  20. 290 printtab(22);"draw/erase"
  21. 300 printtab(22)"char  reverse"
  22. 310 printtab(28)"change"
  23. 320 printtab(28)"clear"
  24. 330 printtab(28)"copy"
  25. 340 printtab(22)"paste over"
  26. 350 printtab(28)"with"
  27. 360 printtab(28)"reverse"
  28. 370 printtab(22)"shift up"
  29. 380 printtab(28)"down"
  30. 390 printtab(28)"left"
  31. 400 printtab(28)"right"
  32. 410 printtab(22)"flip  left-right"
  33. 420 printtab(22)"      top-bottom"
  34. 430 printtab(22)"font  load"
  35. 440 printtab(22)"      save"
  36. 450 printtab(22)"exit to loadstar"
  37. 460 printtab(27);"[164][164][164][164][164][164][164][164][164][164][164][164][164]";
  38. 470 print"video pro-titler companion  font editor "
  39. 480 print"[144]  (c) 1989 by john allen and bill wind"
  40. 490 print"   [151]machine language by scott e. resh"
  41. 500 :
  42. 510 print"";
  43. 520 fort=1to16:print" [204][204][204][204][204][204][204][204][204][204][204][204][204][204][204][204][146]":nextt
  44. 530 dimn$(63)
  45. 540 fort=0to62:readn$(t):nextt
  46. 550 ch=0:fe=34500
  47. 560 sysfe+18:rem init sprites
  48. 570 :
  49. 580 print"";:printn$(ch);sp$
  50. 590 sysfe+21:rem call 'wkrp'
  51. 600 onpeek(252)goto640,800,830,1080
  52. 610 :
  53. 620 rem ------ c h a n g e ------------
  54. 630 :
  55. 640 poke53280,(peek(53280)and15)+1
  56. 650 sysfe+9:j=peek(252)
  57. 660 ifj<>4then690
  58. 670 ifch=0then650
  59. 680 ch=ch-1:poke251,ch:sysfe+15:goto750
  60. 690 ifj<>2then720
  61. 700 ifch=62then650
  62. 710 sysfe+12:ch=ch+1:poke251,ch:goto750
  63. 720 ifj<>5then650
  64. 730 poke53280,abs((peek(53280)-1))and15
  65. 740 sysfe+24:poke53269,63:goto580
  66. 750 sysfe+6:print"";:printn$(ch);sp$
  67. 760 goto650
  68. 770 :
  69. 780 rem ----- load & save fonts ------
  70. 790 :
  71. 800 gosub890:ifp=0thengoto580
  72. 810 sysfe:sysfe+6:ch=0:goto580
  73. 820 :
  74. 830 gosub890:ifp=0thengoto580
  75. 840 open15,8,15:print#15,"s0:"+a$
  76. 850 close15:sysfe+3:ch=0:goto580
  77. 860 :
  78. 870 rem-------------------------------
  79. 880 :
  80. 890 print"";sp$
  81. 900 print"[156]";
  82. 910 a$="":poke198,.
  83. 920 getf$:print"[164][157]";
  84. 930 iff$=""then920
  85. 940 iff$=chr$(13)thenprint" ":goto1010
  86. 950 if(f$=chr$(20)andlen(a$))thena$=left$(a$,len(a$)-1):print"[157]  [157][157]";:goto920
  87. 960 iflen(a$)=16then920
  88. 970 iff$=chr$(34)then920
  89. 975 av=asc(f$)
  90. 980 if((av<32)or(av>127))then920
  91. 990 a$=a$+f$:printf$;:goto920
  92. 1000 :
  93. 1010 print"[145]                  ";
  94. 1020 p=len(a$):ifp=0thenreturn
  95. 1030 ifp>16thenp=0:return
  96. 1040 poke252,p:fort=1top:poke679+t,asc(mid$(a$,t,1)):nextt:return
  97. 1050 :
  98. 1060 rem----- return to loadstar ------
  99. 1070 :
  100. 1080 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  101. 1090 ifer<>63thenprint"[147]":end
  102. 1100 a$="hello connect":q$=chr$(34):poke53281,7:poke53280,7:print"[147]"
  103. 1110 print"[158]load"q$a$q$",8"
  104. 1120 print"run":poke631,13:poke632,13:poke198,2:end
  105. 1130 :
  106. 1140 dataa,b,c,d,e,f,g,!,quotes
  107. 1150 datah,i,1,j,k,l,m,n,o,p,q,r,s,t
  108. 1160 datau,v,w,x,y,z,0,2,3,4,5,6,7,8,9
  109. 1170 datacopyright (@),$,dot (%),&
  110. 1180 dataapostrophe,(,),comma,*
  111. 1190 dataunderline,double line (=)
  112. 1200 datadash,period,/,colon,semicolon
  113. 1210 dataleft end of thick line ([)
  114. 1220 dataright end of thick line (])
  115. 1230 dataleft end of underline,space
  116. 1240 datathick line (\),?
  117. 1250 dataright end of double line (>)
  118. 1260 dataleft end of double line (<)
  119. 1270 datacheck mark (#)
  120. 1280 :
  121. 1290 poke214,13:print:print" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
  122. 1300 fori=1to5:print"                                       ":next
  123. 1310 print"        [208]ublished on [204][207][193][196][211][212][193][210] #61      "
  124. 1320 print"      [211]ubscriptions 1-800-831-2694     "
  125. 1330 print"     [195][200][193][206][199][201][206][199][160][212][200][201][211][160][206][207][212][201][195][197][160][201][211][160][201][204][204][197][199][193][204]   "
  126. 1340 print"                                       "
  127. 1350 print" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  128. 1360 au$="[214]ideo [208]ro-[212]itler [195]ompanion":poke214,15
  129. 1370 print:printspc(20-len(au$)/2)"[152]"au$
  130. 1380 au$="[198] [207] [206] [212]   [197] [196] [201] [212] [207] [210]":poke214,16:print
  131. 1390 printspc(20-len(au$)/2)"[152]"au$""
  132. 1400 au$="[194]y [202]ohn [193]llen & [194]ill [215]ind  ([195]) 1989":poke214,18:print
  133. 1410 printspc(20-len(au$)/2)"[152]"au$"":return
  134.