home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 32 / 032.d81 / bingo (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  64 lines
  1. 0 poke53280,.:poke53281,.:print"[147]"chr$(8)
  2. 1 dimvt$(24),ht$(40):vt$(1)="":ht$(1)=""
  3. 2 fori=2to24:vt$(i)=vt$(i-1)+"":next
  4. 3 fori=2to40:ht$(i)=ht$(i-1)+"":next
  5. 10 remtext
  6. 13 printchr$(147);
  7. 40 goto100
  8. 70 printht$(int((42-len(a$))/2));
  9. 73 printa$
  10. 76 return
  11. 100 rem
  12. 130 a$="[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][174]"
  13. 133 printvt$(1);
  14. 136 gosub70
  15. 137 a$="[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][189]"
  16. 139 printvt$(7);
  17. 142 gosub70
  18. 160 a$="[221]                        [221]"
  19. 163 printvt$(2);
  20. 166 gosub70
  21. 169 printvt$(4);
  22. 172 gosub70
  23. 175 printvt$(6);
  24. 178 gosub70
  25. 181 printvt$(5);
  26. 184 a$="[221] (c) 1985 [194].[202]. [198]ontenot [221]"
  27. 187 gosub70
  28. 190 printvt$(3);
  29. 193 a$="[221] [194]ingo [195]onstruction [211]et [221]"
  30. 196 gosub70:print"[149]";
  31. 220 a$="[204]oadstar is not public domain"
  32. 223 printvt$(10);
  33. 226 gosub70
  34. 229 a$=" [208]lease respect the author's rights"
  35. 232 print
  36. 235 gosub70
  37. 250 printvt$(16);
  38. 280 printht$(5);
  39. 283 print"[159]1 - [159][194]ingo card printer"
  40. 286 print
  41. 289 printht$(5);
  42. 292 print"[159]2 - [159][194]ingo caller"
  43. 295 print
  44. 298 printht$(5);
  45. 301 print"[159]3 - [159][194]ack to [204]oadstar"
  46. 304 print
  47. 307 print
  48. 310 printht$(5);
  49. 313 print"[159][211]elect a number -> ";
  50. 316 poke198,0:wait198,1:geta$
  51. 322 a=val(a$)
  52. 325 ifa<1ora>3thengoto316
  53. 330 printa$
  54. 340 ifa=1thenf$="b2"
  55. 370 ifa=2thenf$="b3"
  56. 400 ifa=3then500
  57. 405 print"[147]            [144][204]oading ..."
  58. 410 print"[155]l[207]"chr$(34)f$chr$(34)",8"
  59. 420 print"run";
  60. 430 poke631,13:poke632,13:poke198,2:end
  61. 500 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  62. 510 ifer<>63thenend
  63. 520 print"[147]";:load"hello connect",8
  64.