home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 41 / 041.d81 / banner (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  109 lines
  1. 0 rem * banner (c)1986 *
  2. 1 ifa=0thena=1:load"banner.font",8,1
  3. 3 s$="                                     "
  4. 4 d$=s$+"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"
  5. 5 poke53280,14:poke53281,.
  6. 10 print"[147][153]                                        [146]";
  7. 21 print"               [194] [193][160][206] [206] [197] [210]              [146]";
  8. 22 print"                                        [146]";
  9. 25 print"        [208]rogrammed by [211]hawn [207]rt         [146]";
  10. 30 print"                                        [146]";
  11. 35 print"[154][197]nter the text desired for a banner."
  12. 40 print"[208]ress [210][197][212][213][210][206] when done":print"[150][206][207][212][197]: [205]aximum text = 255 [195]haracters
  13. 41 [153]d$"list>tocmd";:t$[178]"":[129]x[178]1[164]255:
  14. 42 [161]a$:[139]a$[178]""[167]42
  15. 43 [139]a$[178][199](20)[175]x[178]1[167]42
  16. 44 [139]a$[178][199](20) [167][153]a$;:x[178]x[171]1:t$[178][200](t$,x[171]1):[153]"tocmd";:[137]42
  17. 45 [139]a$[178][199](13) [167] [153]" ":[137]51
  18. 46 [139]a$[179]" "[176]a$[177]"(NULL)"[167]42
  19. 47 [139]a$[177]"z"[175]a$[179]"atn" [167] 42
  20. 48 [139]x[178]255 [167]42
  21. 49 [139]a$[178][177]"a"[175]a$[178][179]"z"[167]a$[178][199]([198](a$)[170]128)
  22. 50 t$[178]t$[170]a$:[153]a$;:[151]212,.:[153]"tocmd";:[130]
  23. 51 [139]t$[178]""[167] [141] 450:[153]"onon":[137]41
  24. 52 [153]"cont(NULL)val(NULL)(NULL) print#:";t$:[153]"right$s (NULL)his lenorrect ((NULL)/(NULL))"
  25. 55 [161]a$:[139]a$[178]""[167]55
  26. 60 [139]a$[178]"n"[167]10
  27. 65 [139]a$[179][177]"y"[167]55
  28. 70 :
  29. 75 [153]"  (NULL)ress (NULL)(NULL)atnlenval (NULL)hen (NULL)eady (NULL)o (NULL)rint."
  30. 80 [146]197,32
  31. 81 [159]15,4,15:[160]15:[139]st[179][177]0 [167] 600
  32. 85 [153]"load(NULL)(NULL)right$(NULL)(NULL)right$(NULL)chr$..."
  33. 90 l[178][195](t$):[159]4,4:[152]4,[199](14);
  34. 95 [129] ap[178]1[164] l
  35. 100 qw$[178][202](t$,ap,1):[153]"stop"[199]([198](qw$)[171]128)
  36. 105 x[178][194](1024)
  37. 110 [141]140:[143] * read in chr
  38. 115 [141]260:[143] * print
  39. 120 [130]ap
  40. 125 [152]4,[199](15):[160]4
  41. 135 [129]x[178]0[164]255:[130]x:[137] 10
  42. 140 [143] * place chr in $ a,b,c,d,e,g,h
  43. 145 [143] * place value in x
  44. 150 a$[178]"    ":b$[178]"    ":c$[178]"    ":d$[178]"    ":e$[178]"    ":f$[178]"    "
  45. 155 g$[178]"    ":h$[178]"    "
  46. 160 [129]s[178]12288[170](x[172]8)[170]6[164]12288[170](x[172]8)[169][171]1
  47. 165 p[178][194](s)
  48. 170 [139]p[173]128[177][178]1[167]p[178]p[171]128:h$[178]h$[170]"****":[137]180
  49. 175 h$[178]h$[170]"    "
  50. 180 [139]p[173]64[177][178]1[167]p[178]p[171]64:g$[178]g$[170]"****":[137]190
  51. 185 g$[178]g$[170]"    "
  52. 190 [139]p[173]32[177][178]1[167]p[178]p[171]32:f$[178]f$[170]"****":[137]200
  53. 195 f$[178]f$[170]"    "
  54. 200 [139]p[173]16[177][178]1[167]p[178]p[171]16:e$[178]e$[170]"****":[137]210
  55. 205 e$[178]e$[170]"    "
  56. 210 [139]p[173]8[177][178]1[167]p[178]p[171]8:d$[178]d$[170]"****":[137]220
  57. 215 d$[178]d$[170]"    "
  58. 220 [139]p[173]4[177][178]1[167]p[178]p[171]4:c$[178]c$[170]"****":[137]230
  59. 225 c$[178]c$[170]"    "
  60. 230 [139]p[173]2[177][178]1[167]p[178]p[171]2:b$[178]b$[170]"****":[137]240
  61. 235 b$[178]b$[170]"    "
  62. 240 [139]p[173]1[177][178]1[167]p[178]p[171]1:a$[178]a$[170]"****":[137]250
  63. 245 a$[178]a$[170]"    "
  64. 250 [130]s
  65. 255 [142]
  66. 260 [143] * print
  67. 265 [139]h$[178]""[167]285
  68. 270 [152]4,h$
  69. 275 [152]4,h$
  70. 280 [152]4,h$
  71. 285 [152]4,g$
  72. 290 [152]4,g$
  73. 295 [152]4,g$
  74. 300 [152]4,f$
  75. 305 [152]4,f$
  76. 310 [152]4,f$
  77. 315 [152]4,e$
  78. 320 [152]4,e$
  79. 325 [152]4,e$
  80. 330 [152]4,d$
  81. 335 [152]4,d$
  82. 340 [152]4,d$
  83. 345 [152]4,c$
  84. 350 [152]4,c$
  85. 355 [152]4,c$
  86. 360 [152]4,b$
  87. 365 [152]4,b$
  88. 370 [152]4,b$
  89. 375 [139]a$[178]""[167]395
  90. 380 [152]4,a$
  91. 385 [152]4,a$
  92. 390 [152]4,a$
  93. 395 [142]
  94. 450 [153]"oncont     str$o (NULL)ou (NULL)ish (NULL)o (NULL)uit? ((NULL) (NULL)r (NULL))"
  95. 451 [161]a$:[139]a$[178]""[167]451
  96. 452 [139]a$[178]"y"[176]a$[178]"(NULL)"[167]500
  97. 453 [139]a$[178]"n"[176]a$[178]"(NULL)"[167] [142]
  98. 455 [137] 451
  99. 500 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  100. 510 [139]er[179][177]63 [167] [153]"load":[128]
  101. 515 [147]"hello connect",8,1
  102. 590 :
  103. 600 [153]"load  (NULL)(NULL)right$(NULL)(NULL)val(NULL) (NULL)(NULL)(NULL) str$val(NULL)vallen(NULL)valstr$ --- (NULL)(NULL)val(NULL)(NULL) (NULL)(NULL)atnlenval  "
  104. 601 [153]"  (NULL)(NULL) (NULL)(NULL)val(NULL)(NULL) (NULL)val(NULL)(NULL)(NULL)(NULL) (NULL)(NULL) (NULL)(NULL)right$(NULL) (NULL)(NULL)close(NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)":[151]198,.
  105. 602 [161]a$:[139]a$[178]""[167]602
  106. 603 [139]a$[178]" "[167]     51
  107. 604 [139]a$[178][199](13)[167] [153]"":[141] 450:[137] 81
  108. 605 [137] 602
  109.