home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 September / 1994-09b.d64 / titles (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  4KB  |  113 lines
  1. 1 remtitles
  2. 10 rem  ***********************
  3. 20 rem  *                     *
  4. 30 rem  *  by: david rose     *
  5. 40 rem  *      toronto        *
  6. 50 rem  *      canada         *
  7. 60 rem  *                     *
  8. 65 rem  *      mar 11/91      *
  9. 66 rem  *                     *
  10. 70 rem  ***********************
  11. 73 ifxh=1then100
  12. 74 ifxg=1then390
  13. 75 dimch$(45),pc(45),w$(15),pl(3,18),pa(3,18),co(3,18):sp(1)=1384
  14. 76 sp(2)=1504:sp(3)=1624:cr(1)=55656:cr(2)=55776:cr(3)=55896:f$(1)="bloc"
  15. 77 f$(2)="dana":f$(3)="doll":f$(4)="jess":bo=14:ba=6
  16. 80 print"[147]"tab(12)"title generator":printtab(12)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]
  17. 90 [153]""[163]8)" wait......loading data wait":[137]2000
  18. 100 xh[178]0:[153]"load"[163]12)"title generator":[153][163]12)"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(
  19. 110 r$="":a$="":lr=0
  20. 120 print" enter your title (max. 50 characters)
  21. 130 [153]:[153]" - to";:[141]1000:[139]lr[177]50[167]100
  22. 140 [133]" correct (y/n)";yn$:[139]yn$[178]"n"[167]100
  23. 145 [139]yn$[178]"y"[167]tt$[178]r$:b[178]lr:[153]""[163]14)" parsing... wait":[137]160
  24. 150 [153]"ononon";:[137]140
  25. 160 m[178]1:[129]i[178]1[164]b:l$[178][202](tt$,i,1):[139]l$[179][177]":"[167]w$(m)[178]w$(m)[170]l$:[130]:[137]180
  26. 170 w$(m)[178]w$(m)[170]":":m[178]m[170]1:[130]
  27. 180 c[178]1:l$(c)[178]w$(1):[129]i[178]2[164]m
  28. 190 [139][195](l$(c)[170]w$(i))[179][178]18[167]l$(c)[178]l$(c)[170]w$(i):[130]:[137]210
  29. 200 l$(c)[178][200](l$(c),[195](l$(c))[171]1):c[178]c[170]1:l$(c)[178]w$(i):[130]
  30. 210 [139]c[179][178]3[167]230
  31. 220 [153][163]5)"sorry, your title is too longwait":[129]de[178]1[164]2500:[130]
  32. 225 [129]i[178]1[164]m:w$(i)[178]"":[130]:[129]i[178]1[164]c:l$(i)[178]"":[130]:[137]100
  33. 230 [129]x[178]1[164]c:ll(x)[178][195](l$(x)):[129]y[178]1[164]ll(x)
  34. 235 pl(x,y)[178]sp(x)[170](20[171]ll(x))[170](2[172](y[171]1))
  35. 240 co(x,y)[178]cr(x)[170](20[171]ll(x))[170](2[172](y[171]1))
  36. 250 a$[178][202](l$(x),y,1):[141]2200:[130]:[130]
  37. 255 [139]f$[179][177]""[167][141]1250:[139]yn$[178]"y"[167]390
  38. 260 [151]53272,([194](53272)[175]240)[170]14:[153]"load--fonts--"
  39. 270 [151]1226,49:pl[178]1189:pa[178]53:[141]3000:pl[178]pl[170]2:pa[178]57:[141]3000:pl[178]pl[170]2:pa[178]61
  40. 280 [141]3000:pl[178]pl[170]2:pa[178]65:[141]3000
  41. 290 [151]1346,50:pl[178]1309:pa[178]33:[141]3000:pl[178]pl[170]2:pa[178]37:[141]3000:pl[178]pl[170]2:pa[178]41
  42. 300 [141]3000:pl[178]pl[170]2:pa[178]37:[141]3000
  43. 310 [151]1466,51:pl[178]1429:pa[178]69:[141]3000:pl[178]pl[170]2:pa[178]73:[141]3000:pl[178]pl[170]2:pa[178]77
  44. 320 [141]3000:pl[178]pl[170]2:pa[178]77:[141]3000
  45. 330 [151]1586,52:pl[178]1549:pa[178]81:[141]3000:pl[178]pl[170]2:pa[178]85:[141]3000:pl[178]pl[170]2:pa[178]89
  46. 340 [141]3000:pl[178]pl[170]2:pa[178]89:[141]3000:r$[178]"":lr[178]0
  47. 350 [151]214,18:[153]:[153]"select 1-4 - to";:[141]1150:a[178][197](r$)
  48. 355 [139]f$[178]f$(a)[167]390
  49. 360 [153]"load":[151]53272,21
  50. 370 [153]""[163]12)"title generator":[153][163]12)"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(
  51. 380 print""tab(7)" wait........loading font [146]
  52. 385 xg[178]1:[147]"0:"[170]f$(a)[170]".font",8,1
  53. 390 xg[178]0:[153]"load":[151]53272,([194](53272)[175]240)[170]12
  54. 400 [129]x[178]1[164]c:[129]y[178]1[164]ll(x):pl[178]pl(x,y):pa[178]pa(x,y):[141]3000:[130]:[130]
  55. 410 [161]a$:[139]a$[178]""[167]410
  56. 420 x[178][171](a$[178][199](133))[171]2[172](a$[178][199](134))[171]3[172](a$[178][199](135))[171]4[172](a$[178][199](136))
  57. 430 [145]x[137]450,470,490,520
  58. 440 [137]550
  59. 450 bc[178]bc[170]1:[139]bc[177]15[167]bc[178]0
  60. 460 [151]53280,bc:[137]410
  61. 470 ac[178]ac[170]1:[139]ac[177]15[167]ac[178]0
  62. 480 [151]53281,ac:[137]410
  63. 490 cc[178]cc[170]1:[139]cc[177]15[167]cc[178]0
  64. 500 [129]x[178]1[164]c:[129]y[178]1[164]ll(x):[151]co(x,y),cc:[151]co(x,y)[170]1,cc
  65. 510 [151]co(x,y)[170]40,cc:[151]co(x,y)[170]41,cc:[130]:[130]:[137]410
  66. 520 [153]"load":[151]53272,21:f$[178]f$(a)
  67. 530 [153][199](154):[151]53280,bo:[151]53281,ba
  68. 540 [137]260
  69. 550 [153]"load"[199](154):[151]53272,21:[151]53280,bo:[151]53281,ba
  70. 560 [153][163]12)"title generator":[153][163]12)"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(
  71. 570 input" more titles (y/n)";yn$:ifyn$<>"y"then590
  72. 580 fori=1tom:w$(i)="":next:fori=1toc:l$(i)="":next:f$=f$(a):goto100
  73. 590 ifyn$<>"n"thenprint"":goto570
  74. 600 end
  75. 1000 geta$:ifa$=""then1000
  76. 1010 ifa$=chr$(13)thenprint"[157] ":return
  77. 1020 ifa$=chr$(20)andlr-1<0then1000
  78. 1030 ifa$=chr$(20)thenprint"[157]"a$"[164]";:r$=left$(r$,lr-1):lr=len(r$):goto1000
  79. 1040 ifa$=chr$(39)ora$=chr$(44)ora$=chr$(45)ora$=chr$(46)then1080
  80. 1050 ifa$=chr$(32)thena$=chr$(58):goto1090
  81. 1055 ifa$=chr$(160)thena$=chr$(59):goto1090
  82. 1060 ifa$<chr$(48)ora$>chr$(90)then1000
  83. 1070 ifa$>chr$(57)anda$<chr$(65)then1000
  84. 1080 print"[157]"a$"[164]";:goto1100
  85. 1090 print"[157] [164]";
  86. 1100 r$=r$+a$:lr=len(r$):iflr>50thenprint:goto1120
  87. 1110 goto1000
  88. 1120 printtab(6)"maximum 50 characters, please[146]":forde=1to2500:next:return
  89. 1150 geta$:ifa$=""then1150
  90. 1160 ifa$=chr$(13)andlr=0then1150
  91. 1170 ifa$=chr$(13)thenprint"[157] ":return
  92. 1180 ifa$=chr$(20)andlr-1<0then1150
  93. 1190 ifa$=chr$(20)ora$=chr$(157)thenprint"[157]"chr$(20)"[164]";:r$="":lr=0:goto1150
  94. 1195 iflr=1then1150
  95. 1200 ifa$<chr$(49)ora$>chr$(52)then1150
  96. 1210 print"[157]"a$"[164]";
  97. 1220 r$=r$+a$:lr=1:goto1150
  98. 1250 input"    same font (y/n)";yn$:ifyn$="y"oryn$="n"thenreturn
  99. 1260 print"[145][145][145]";:goto1250
  100. 2000 ch$(1)="'":pc(1)=0:ch$(2)=",":pc(2)=4:ch$(3)="-":pc(3)=8
  101. 2010 ch$(4)=".":pc(4)=12:ch$(15)=":":pc(15)=57:ch$(16)=";":pc(16)=61
  102. 2020 forx=5to8:ch$(x)=chr$(43+x):pc(x)=(x-1)*4:next:forx=9to14:ch$(x)=chr$(43+x)
  103. 2030 pc(x)=x*4-3:next:forx=17to42:ch$(x)=chr$(48+x):pc(x)=x*4-3:next
  104. 2040 xh=1:load"0:menu.font",8,1
  105. 2200 l=1:u=43
  106. 2210 i=int((l+u)/2)
  107. 2220 ifa$=ch$(i)thenpa(x,y)=pc(i):return
  108. 2230 ifa$>ch$(i)then2250
  109. 2240 ifu<>ithenu=i:goto2210
  110. 2250 ifl<>ithenl=i:goto2210
  111. 2999 return
  112. 3000 pokepl,pa:pokepl+1,pa+1:pokepl+40,pa+2:pokepl+41,pa+3:return
  113.