home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1990 November / 1990-11.d64 / times.tutor (.txt) < prev   
Commodore BASIC  |  2022-09-20  |  3KB  |  102 lines
  1. 10 rem copyright 1990 compute publications, intl - all rights reserved
  2. 100 co$="[151][155][149][129][154][150]"
  3. 110 poke53280,0:poke53281,0:print""
  4. 120 gosub10000
  5. 1000 print"[147]"spc(14)"[156][176][192][192][192][192][192][192][192][192][192][192][174]"
  6. 1010 forx=0to6:printspc(14)"[221]          [221]":next
  7. 1020 printspc(14)"[173][192][192][192][192][192][192][192][192][192][192][189]"
  8. 1030 print""spc(15)"[155]";
  9. 1040 forx=0to2:print"[176][178][174][157][157][221][157][177]";:next
  10. 1050 print"[145][145][145][145][145][157][157][157][157]imes[157][157]able[157][157]utor"
  11. 1060 printtab(13)"[158][195]opyright 1990"
  12. 1061 printtab(7)"[195]ompute [208]ublications, [201]ntl"
  13. 1062 printtab(11)"[193]ll [210]ights [210]eserved"
  14. 1100 printtab(14)"[195]hoose [207]ne:"
  15. 1110 p$="[198]1-[197]ntire [211]et":gosub40000:p$="[198]3-[211]ingle [211]et":gosub40000
  16. 1120 p$="[198]5-[209]uit":gosub40000
  17. 1150 getx$:ifx$<"[133]"orx$>"[135]"then1150
  18. 1160 gosub16000
  19. 1170 ifx$="[135]"then6000
  20. 1180 ifx$="[133]"then2000
  21. 1190 goto3000
  22. 2000 gosub5000
  23. 2010 forx=0to1:n(x)=int(rnd(1)*10):next:gosub4000
  24. 2020 ifethene=0:goto1000
  25. 2030 goto2010
  26. 3000 print"[147]":p$="[211]ingle [211]et":gosub40000ady.
  27. 3010 gosub30000:print"[215]hich [211]et? (0-9) ";
  28. 3020 getx$:t=val(x$):ifx$<>"0"andt=0then3020
  29. 3030 print"[147]"chr$(142):gosub30000:print"the "n$(t)"[146]set!"
  30. 3040 forx=0to800:next:gosub5000
  31. 3050 n(0)=t:forx=0to9:d(x)=0:next:r=0
  32. 3060 x=int(rnd(1)*10):ifd(x)then3060
  33. 3070 n(1)=x:gosub4000:ifethene=0:goto1000
  34. 3080 ifw=0thenr=r+1:d(n(1))=1:ifr=10then3100
  35. 3090 goto3060
  36. 3100 print"[147]":p$="you've completed the"+str$(t)+" set!":gosub40000
  37. 3110 gosub30000:print"practice"t"set again? (y/n)"
  38. 3120 getx$:ifx$<>"y"andx$<>"n"then3120
  39. 3130 ifx$="n"then1000
  40. 3140 gosub5000:goto3050
  41. 4000 print"";
  42. 4010 forx=0to6:print"                                      ";:next
  43. 4020 print"";
  44. 4030 gosub30000:printn$(n(0));
  45. 4040 gosub30000:print"[145][145][145][145][146]"m$;
  46. 4050 gosub30000:print"[145][145][145][145][145][146]"n$(n(1));
  47. 4060 gosub30000:print"[145][145][145][145][146]"e$"[145][145][145][145][146]";:a$=""
  48. 4070 getx$:ifx$=""then4070
  49. 4080 ifx$="_"thene=1:return
  50. 4090 ifx$="0"orval(x$)>0theniflen(a$)<2then4130
  51. 4100 ifx$=chr$(20)andlen(a$)then4140
  52. 4110 ifx$=chr$(13)andlen(a$)then4160
  53. 4120 goto4070
  54. 4130 gosub30000:printn$(val(x$))"[145][145][145][145][145][145][146]";:a$=a$+x$:goto4070
  55. 4140 a$=left$(a$,len(a$)-1):print"[157][157][157][157][157][157][145]";
  56. 4150 forx=0to6:print"     [157][157][157][157][157]";:next:print"[145][145][145][145][145][145][146]";:c=c-1:goto4070
  57. 4160 a=n(0)*n(1):print"":ifval(a$)=athen4190
  58. 4170 w=1:p$="sorry!":gosub40000:print"[155]        the correct answer is"a"[155][157]. "
  59. 4180 gosub15000:forx=0to2500:next:goto4200
  60. 4190 w=0:p$="correct!":gosub40000:gosub16000
  61. 4200 forx=0to500:next:print""
  62. 4210 forx=0to4:print"                                 ":next:return
  63. 4999 print:return
  64. 5000 print"[147]"chr$(142)"[155][175][175][175][175][175][175][175][175][175][175][175][175]":print"[152] [_] exits. "
  65. 5010 print"[151][183][183][183][183][183][183][183][183][183][183][183][183]"
  66. 5020 print"[213]";:forx=0to37:print"[192]";:next
  67. 5030 print"[201]";:forx=0to6:print"[157][221]";:next
  68. 5040 print"[157][203]";:forx=0to38:print"[157][157][192]";:next
  69. 5050 print"[157][202]";:forx=0to6:print"[157][145][221]";:next:return
  70. 6000 print"[147]":p$="[209]uit":gosub40000
  71. 6010 print"[158][193]re [217]ou [211]ure? ([217]/[206])"
  72. 6020 getx$:ifx$<>"y"andx$<>"n"then6020
  73. 6030 ifx$="n"then1000
  74. 6040 print"[147][158]"chr$(142);:end
  75. 10000 n$(0)="[169][175][175][175][223][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]  "
  76. 10005 n$(0)=n$(0)+"[157][157][157][157][157][146][223][183][183][183][146][169]"
  77. 10010 n$(1)="[169] [157][157][157][169][146][169] [157][157][157][146][169] [157] [157] [157] [157][157][157][183][183] [183][183]"
  78. 10020 n$(2)="[169][175][175][175][223][157][157][157][157][157]  [157][157][169][146][169][157][157][157][169][146][169][157][157][157][169][146][169][157][157][157][169][146][169][157][157] [183][183][183][183]"
  79. 10030 n$(3)="[169][175][175][175][223][157][157][157][157][157]  [157][157][169][146][169][157][157][157]  [157][146][223][223][157][157][157][157][157]  [157][157][157][157][157][146][223][183][183][183][146][169]"
  80. 10040 n$(4)="[169] [157][157][157][169][146][169] [157][157][157][157][169][146][169] [157][157][157][157][157][169] [183][183] [157] [157] [157] "
  81. 10050 n$(5)=" [175][175][175][175][157][157][157][157][157] [157] [157][175][175][175][175][223][157] [157][157][157][157][157]  [157][157][157][157][157][146][223][183][183][183][146][169]"
  82. 10060 n$(6)="[169][175][175][175][223][157][157][157][157][157]  [157][157][157][157][157] [157] [175][175][175][223][157][157][157][157][157]  [157][157][157][157][157]  [157][157][157][157][157]"
  83. 10065 n$(6)=n$(6)+"[146][223][183][183][183][146][169]"
  84. 10070 n$(7)="[175][175][175][175] [157] [157] [157][157][169][146][169][157][157][157][169][146][169][157][157][157][169][146][169][157][157][157][169][146][169]"
  85. 10080 n$(8)="[169][175][175][175][223][157][157][157][157][157]  [157][157][157][157][157][146][223][185][185][185][169][157][157][157][157][157][169][146][184][184][184][223][157][157][157][157][157]  [157][157][157][157][157]  "
  86. 10085 n$(8)=n$(8)+"[157][157][157][157][157]  [157][157][157][157][157][146][223][183][183][183][146][169]"
  87. 10090 n$(9)="[169][175][175][175][223][157][157][157][157][157]  [157][157][157][157][157]  [157][157][157][157][157][146][223][183][183][183] [157] [157] [157] "
  88. 10100 m$="[223] [223][169] [146][169][157][157][157][157][157][223]  [146][169][157][157][157][157][169]  [223][157][157][157][157][157][169] [146][169][223] [223]"
  89. 10110 e$="     [157][157][157][157][157]     "
  90. 10120 s=54272:forx=0to24:pokes+x,0:next
  91. 10130 pokes+24,15:pokes+5,17:pokes+12,17:pokes+6,234:pokes+13,234
  92. 10140 pokes+1,16:pokes+8,24:return
  93. 15000 pokes+4,17:forx=16to4step-1:pokes+1,x:fory=0to30:next:next
  94. 15010 pokes+4,16:return
  95. 16000 pokes+11,17:pokes+11,16:return
  96. 30000 c=c+1:ifc=10thenc=1
  97. 30010 c$=right$(left$(co$,c),1):printc$;:return
  98. 40000 p$=" "+p$+" ":z=len(p$)
  99. 40010 x=20-(z/2)
  100. 40020 printspc(x);:gosub30000:print"[172]";:fory=1toz-1:print"[162]";:next:print"[187][157][190][145]"
  101. 40030 printspc(x);:gosub30000:print""p$:return
  102.