home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 39 / 039.d81 / connections.64 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  85 lines
  1. 20 rem roll the credits
  2. 30 poke 53280,0:poke 53281,0:dim c$(150)
  3. 40 gosub 60000
  4. 100 print"[147]"
  5. 101 print"   enter the credits to be scrolled,
  6. 102 [153]"   you may enter up to 100 credits.
  7. 103 print" when ready to continue, press return
  8. 120 [153]
  9. 130 [129] n[178]1 [164] 100
  10. 140 [153]n"cmd:";:[141]61000:c$(n)[178]b$:
  11. 150 [139] c$(n)[177]"" [167] [130]
  12. 160 :
  13. 200 [153]"how many blank lines between credits":[153]"do you wish :";:[141]61000
  14. 205 s[178][197](b$)
  15. 210 [153]"delay between lines (1-500) :";:[141]61000:d[178][197](b$)
  16. 215 [139] d[177]500 [176] d[179]1 [167] [153]"onon":[137]210
  17. 220 [153]"do you want the credits centered y/n":
  18. 221 [161]c$:[139]c$[178]""[167] 221
  19. 222 [139]c$[178]"y"[176]c$[178]"n"[167] 230
  20. 223 [137] 221
  21. 230 c[178]c$[178]"y"
  22. 240 [153]"press any key to quit"
  23. 250 [129] i[178]1 [164] 24:[153]:[130]
  24. 260 :
  25. 300 [129] i[178]0 [164] n[170]24[173](s[170]1)
  26. 310 t[178]c[172]([195](c$(i))[173]2[171]20):ss[178]s
  27. 320 [153] [163]t) c$(i)
  28. 330 :
  29. 340 [129] j[178]1 [164] d:[130]
  30. 350 [161] a$:[139] a$[177]"" [167] 400
  31. 360 [139] ss [167] ss[178]ss[171]1:[153]:[137]340
  32. 370 [130]
  33. 380 :
  34. 400 [153]"load do you wish to scroll some more credits"
  35. 401 [153]"              y)es or n)o"
  36. 405 [161]a$:[139]a$[178]""[167]405
  37. 406 [139]a$[178]"y"[167] 100
  38. 407 [139]a$[178]"n"[167] 415
  39. 409 [137] 405
  40. 415 [153]" are you sure you want to quit (y/n) ?"
  41. 416 [161]a$:[139]a$[178]""[167]416
  42. 417 [139]a$[178]"y"[167] 450
  43. 418 [139]a$[178]"n"[167] 100
  44. 419 [137] 416
  45. 450 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  46. 455 [139]er[179][177]63 [167] [153]"load":[128]
  47. 460 [147]"hello connect",8
  48. 60000 [143]
  49. 60010 [153]"load"
  50. 60020 [153]
  51. 60030 [153]
  52. 60040 [153]
  53. 60050 [153]"   or^ U{$60}{$60}IU{$60}{$60}Ior{$60}{$60}IU{$60}^or{$60}{$60}^U{$60}{$60}Ior{$60}{$60}I"
  54. 60060 [153]"   {$7d}{$7d} {$7d}UI{$7d}{$7d}UI{$7d}{$7d}orI{$7d}{$7d}Uexp/^orexp{$7d}UI{$7d}{$7d}orI{$7d}"
  55. 60070 [153]"   {$7d}{$7d} {$7d}{$7d}{$7d}{$7d}{$7d}JK{$7d}{$7d}{$7d}{$7d}{$7d}{$7d}/I {$7d}{$7d} {$7d}JK{$7d}{$7d}/K{$7d}"
  56. 60080 [153]"   {$7d}{$7d} {$7d}{$7d}{$7d}{$7d}{$7d}or^{$7d}{$7d}{$7d}{$7d}{$7d}J^{$7d} {$7d}{$7d} {$7d}or^{$7d}{$7d}or=K"
  57. 60090 [153]"   {$7d}/^{$7d}JK{$7d}{$7d}{$7d}{$7d}{$7d}{$7d}/K{$7d}orexp{$7d} {$7d}{$7d} {$7d}{$7d}{$7d}{$7d}{$7d}{$7d}-^"
  58. 60100 [153]"   /{$60}expJ{$60}{$60}K/exp/exp/{$60}{$60}K/{$60}K /exp /exp/exp/exp/exp"
  59. 60110 [153]
  60. 60120 [153]"             listpresents"
  61. 60130 [153]
  62. 60140 [153]"    c foro defn sysn printe c opent conti o clrn verifys list- print#6 4"
  63. 60150 [153]
  64. 60160 [153]
  65. 60170 [153]"        contwritten by ian adams"
  66. 60180 [153]
  67. 60190 [153]
  68. 60200 [153]"           opencopyright 1987"
  69. 60210 [153]
  70. 60220 [153]
  71. 60230 [153]
  72. 60240 [153]"            printpress (space)"
  73. 60250 [153]"";
  74. 60300 [161]a$:[139]a$[178]" "[167] [142]
  75. 60301 [137] 60300
  76. 61000 b$[178]"":[153]"to";:[129]a[178]1[164]45
  77. 61005 [161]a$:[139]a$[178]""[167]61005
  78. 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
  79. 61015 [139]a$[178][199](20)[167]61005
  80. 61020 [139]a$[178][199](13) [167]  [153]"cmd ":[142]
  81. 61030 [139]a$[179]" "[176]a$[177]"(NULL)"[167]    61005
  82. 61035 [139]a$[177]"z"[167]    61005
  83. 61040 [139]a[177]40 [167] 61005
  84. 61050 b$[178]b$[170]a$:[153]"cmd"a$;:[153]"to";:[130]
  85.