home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 32 / 032.d81 / b2 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  120 lines
  1. 0 n$="":sp$="         "
  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. 15 printchr$(147);
  7. 40 d$=chr$(4)
  8. 70 printvt$(2);
  9. 100 printht$(9);
  10. 130 printchr$(18);
  11. 160 print": [194]ingo card printer :"
  12. 190 printchr$(146);
  13. 220 print
  14. 250 printht$(2);
  15. 280 remprint"(for the [199]emini 10x & first cousins)"
  16. 310 print
  17. 315 print
  18. 340 printht$(6);
  19. 370 print"(c) 1985  [194]arney [202]. [198]ontenot"
  20. 400 print
  21. 405 print
  22. 430 print"[155]  [212]his program prints out sets of 3 "
  23. 460 print"  different bingo cards on a standard"
  24. 490 print"  11 x 8.5 sheet of printer paper."
  25. 520 print
  26. 550 print"  [208]lease hit 'q' to quit now; any other"
  27. 580 print"  key to boldly go where no bingo cards"
  28. 610 print"  have gone before... (whoosh!) -> ";
  29. 640 poke198,0:wait198,1:getit$
  30. 645 printit$
  31. 670 ifit$="q"then3070
  32. 700 remprinterstuffbelow
  33. 850 h1=10
  34. 880 h2=15
  35. 910 h3=20
  36. 940 h4=25
  37. 970 h5=30
  38. 1000 x1=1
  39. 1005 x2=1
  40. 1010 x3=1
  41. 1015 x4=1
  42. 1020 x5=1
  43. 1030 rem
  44. 1060 dimd(75),b(15),ii(15),n(15),g(15),o(15)
  45. 1120 printvt$(20);
  46. 1150 printht$(10);
  47. 1180 print": [211]huffling 'em up :"
  48. 1210 remrandomize
  49. 1240 num=rnd(peek(160))
  50. 1330 fori=1to75:d(i)=i:next
  51. 1345 k=0
  52. 1360 fori=1to75
  53. 1390 j=int(rnd(.)*75)+1
  54. 1395 t=d(i):d(i)=d(j):d(j)=t
  55. 1425 next
  56. 1450 printvt$(20);
  57. 1480 printht$(10);
  58. 1510 remcall-868
  59. 1540 print": [208]icking 'em  out :[146]"
  60. 1600 fornn=1to75
  61. 1630 ifd(nn)<16thenb(x1)=d(nn):x1=x1+1:goto1780
  62. 1660 ifd(nn)>15andd(nn)<31thenii(x2)=d(nn):x2=x2+1:goto1780
  63. 1690 ifd(nn)>30andd(nn)<46thenn(x3)=d(nn):x3=x3+1:goto1780
  64. 1720 ifd(nn)>45andd(nn)<61theng(x4)=d(nn):x4=x4+1:goto1780
  65. 1750 ifd(nn)>60theno(x5)=d(nn):x5=x5+1
  66. 1780 nextnn
  67. 1785 printvt$(20)"     [211]et print head at top of page"
  68. 1786 printvt$(21)"'[209]' quits now.  [193]ny other key continues.";
  69. 1787 poke198,0:wait198,1:getp$:ifp$="q"then3070
  70. 1788 printvt$(19)"                                       "
  71. 1789 printvt$(20)"                                        ";
  72. 1790 printvt$(21)"          :     [208]rinting     :[146]          "
  73. 1795 printvt$(22)"                                        "
  74. 1810 open15,4,15:close15:ifst=.then1840
  75. 1820 print"[197][210][210][207][210]: [208]rinter [206]ot [207]nline."
  76. 1825 fora=1to2000:next
  77. 1830 print"[145]                          "
  78. 1835 goto1785
  79. 1840 open4,4,7
  80. 1850 print#4
  81. 1870 foruu=0to10step5
  82. 1905 print#4,n$sp$"  [194]  ";
  83. 1935 print#4,n$" [201]  ";
  84. 1965 print#4,n$"[160][206]  ";
  85. 1995 print#4,n$" [199]  ";
  86. 2025 print#4,n$" [207]"
  87. 2110 print#4:print#4
  88. 2140 form=1to5
  89. 2170 u=uu+m
  90. 2200 printht$(1);
  91. 2230 ifb(u)<10thenprint#4,n$" ";
  92. 2260 print#4,n$sp$b(u);
  93. 2290 printht$(2);
  94. 2320 print#4,n$ii(u);
  95. 2350 printht$(3);
  96. 2380 ifu=3oru=8oru=13thenprint#4,n$" ** ";:goto2440
  97. 2410 print#4,n$n(u);
  98. 2440 printht$(4);
  99. 2470 print#4,n$g(u);
  100. 2500 printht$(5);
  101. 2530 print#4,n$o(u)
  102. 2560 print#4
  103. 2590 print#4
  104. 2620 nextm
  105. 2650 print#4
  106. 2680 print#4
  107. 2710 print#4
  108. 2740 nextuu
  109. 2770 print#4
  110. 2775 print#4
  111. 2830 close4
  112. 2860 printchr$(147);
  113. 2890 printvt$(5);
  114. 2920 print"[215]ould you like to run off another set? ";
  115. 2950 poke198,0:wait198,1:getit$
  116. 2980 ifit$="y"thenrun
  117. 3010 ifit$="n"then3070
  118. 3040 goto2950
  119. 3070 clr:load"bingo",8
  120.