home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1990 November
/
1990-11.d64
/
times.tutor
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2022-09-20
|
3KB
|
102 lines
10 rem copyright 1990 compute publications, intl - all rights reserved
100 co$="[151][155][149][129][154][150]"
110 poke53280,0:poke53281,0:print""
120 gosub10000
1000 print"[147]"spc(14)"[156][176][192][192][192][192][192][192][192][192][192][192][174]"
1010 forx=0to6:printspc(14)"[221] [221]":next
1020 printspc(14)"[173][192][192][192][192][192][192][192][192][192][192][189]"
1030 print""spc(15)"[155]";
1040 forx=0to2:print"[176][178][174][157][157][221][157][177]";:next
1050 print"[145][145][145][145][145][157][157][157][157]imes[157][157]able[157][157]utor"
1060 printtab(13)"[158][195]opyright 1990"
1061 printtab(7)"[195]ompute [208]ublications, [201]ntl"
1062 printtab(11)"[193]ll [210]ights [210]eserved"
1100 printtab(14)"[195]hoose [207]ne:"
1110 p$="[198]1-[197]ntire [211]et":gosub40000:p$="[198]3-[211]ingle [211]et":gosub40000
1120 p$="[198]5-[209]uit":gosub40000
1150 getx$:ifx$<"[133]"orx$>"[135]"then1150
1160 gosub16000
1170 ifx$="[135]"then6000
1180 ifx$="[133]"then2000
1190 goto3000
2000 gosub5000
2010 forx=0to1:n(x)=int(rnd(1)*10):next:gosub4000
2020 ifethene=0:goto1000
2030 goto2010
3000 print"[147]":p$="[211]ingle [211]et":gosub40000ady.
3010 gosub30000:print"[215]hich [211]et? (0-9) ";
3020 getx$:t=val(x$):ifx$<>"0"andt=0then3020
3030 print"[147]"chr$(142):gosub30000:print"the "n$(t)"[146]set!"
3040 forx=0to800:next:gosub5000
3050 n(0)=t:forx=0to9:d(x)=0:next:r=0
3060 x=int(rnd(1)*10):ifd(x)then3060
3070 n(1)=x:gosub4000:ifethene=0:goto1000
3080 ifw=0thenr=r+1:d(n(1))=1:ifr=10then3100
3090 goto3060
3100 print"[147]":p$="you've completed the"+str$(t)+" set!":gosub40000
3110 gosub30000:print"practice"t"set again? (y/n)"
3120 getx$:ifx$<>"y"andx$<>"n"then3120
3130 ifx$="n"then1000
3140 gosub5000:goto3050
4000 print"";
4010 forx=0to6:print" ";:next
4020 print"";
4030 gosub30000:printn$(n(0));
4040 gosub30000:print"[145][145][145][145][146]"m$;
4050 gosub30000:print"[145][145][145][145][145][146]"n$(n(1));
4060 gosub30000:print"[145][145][145][145][146]"e$"[145][145][145][145][146]";:a$=""
4070 getx$:ifx$=""then4070
4080 ifx$="_"thene=1:return
4090 ifx$="0"orval(x$)>0theniflen(a$)<2then4130
4100 ifx$=chr$(20)andlen(a$)then4140
4110 ifx$=chr$(13)andlen(a$)then4160
4120 goto4070
4130 gosub30000:printn$(val(x$))"[145][145][145][145][145][145][146]";:a$=a$+x$:goto4070
4140 a$=left$(a$,len(a$)-1):print"[157][157][157][157][157][157][145]";
4150 forx=0to6:print" [157][157][157][157][157]";:next:print"[145][145][145][145][145][145][146]";:c=c-1:goto4070
4160 a=n(0)*n(1):print"":ifval(a$)=athen4190
4170 w=1:p$="sorry!":gosub40000:print"[155] the correct answer is"a"[155][157]. "
4180 gosub15000:forx=0to2500:next:goto4200
4190 w=0:p$="correct!":gosub40000:gosub16000
4200 forx=0to500:next:print""
4210 forx=0to4:print" ":next:return
4999 print:return
5000 print"[147]"chr$(142)"[155][175][175][175][175][175][175][175][175][175][175][175][175]":print"[152] [_] exits. "
5010 print"[151][183][183][183][183][183][183][183][183][183][183][183][183]"
5020 print"[213]";:forx=0to37:print"[192]";:next
5030 print"[201]";:forx=0to6:print"[157][221]";:next
5040 print"[157][203]";:forx=0to38:print"[157][157][192]";:next
5050 print"[157][202]";:forx=0to6:print"[157][145][221]";:next:return
6000 print"[147]":p$="[209]uit":gosub40000
6010 print"[158][193]re [217]ou [211]ure? ([217]/[206])"
6020 getx$:ifx$<>"y"andx$<>"n"then6020
6030 ifx$="n"then1000
6040 print"[147][158]"chr$(142);:end
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] "
10005 n$(0)=n$(0)+"[157][157][157][157][157][146][223][183][183][183][146][169]"
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]"
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]"
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]"
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] "
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]"
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]"
10065 n$(6)=n$(6)+"[146][223][183][183][183][146][169]"
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]"
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] "
10085 n$(8)=n$(8)+"[157][157][157][157][157] [157][157][157][157][157][146][223][183][183][183][146][169]"
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] "
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]"
10110 e$=" [157][157][157][157][157] "
10120 s=54272:forx=0to24:pokes+x,0:next
10130 pokes+24,15:pokes+5,17:pokes+12,17:pokes+6,234:pokes+13,234
10140 pokes+1,16:pokes+8,24:return
15000 pokes+4,17:forx=16to4step-1:pokes+1,x:fory=0to30:next:next
15010 pokes+4,16:return
16000 pokes+11,17:pokes+11,16:return
30000 c=c+1:ifc=10thenc=1
30010 c$=right$(left$(co$,c),1):printc$;:return
40000 p$=" "+p$+" ":z=len(p$)
40010 x=20-(z/2)
40020 printspc(x);:gosub30000:print"[172]";:fory=1toz-1:print"[162]";:next:print"[187][157][190][145]"
40030 printspc(x);:gosub30000:print""p$:return