home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Video Commodore 64 #2
/
Video_Commodore_64_2_19xx_GEASA.d64
/
sumar
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
3KB
|
87 lines
5 rem sumar y restar - vc64-02
10 gosub3000
100 gosub1000
300 print"[160]"
410 end
1000 rem juego
1010 at$=chr$(17):fort=1to6:at$=at$+at$:nextt:at$=chr$(19)+at$
1020 gosub10000
1030 poke53280,7:poke53281,3:printchr$(147)
1040 sm=0:sc=0
1140 pokeso+4,17:fort=1to40:nextt:pokeso+4,16
1150 print"(s)uma o (r)esta";
1155 inputc$
1160 ifleft$(c$,1)="s"thens$="+":goto1190
1170 ifleft$(c$,1)="r"thens$="-":goto1190
1180 print"[147]":goto1150
1190 print"(u)nidades o (d)ecenas:";
1195 inputm$
1200 ifleft$(m$,1)="u"thenm=10:goto1205
1202 ifleft$(m$,1)="d"thenm=100:goto1205
1203 print"":goto1190
1205 ifs$="-"then1260
1210 r1=int(rnd(0)*m)+1
1215 r2=int(rnd(0)*m)+1
1220 pokeso+4,17:fort=1to40:nextt:pokeso+4,16
1230 ca=r1+r2
1240 printleft$(at$,sm+4)spc(6)r1" ";s$;"[160]"r2;" = ";
1250 goto1310
1260 r1=int(rnd(0)*m)+1
1270 r2=int(rnd(0)*m)+1
1280 ca=r1-r2
1290 printleft$(at$,sm+4)spc(6)r1;" ";s$;"[160]";r2;" = ";
1300 pokeso+4,17:fort=1to40:nextt:pokeso+4,16
1310 inputans
1330 sm=sm+1
1340 ifans=cathen1380
1350 pokeso+4,17:fort=1to40:nextt:pokeso+4,16
1360 printleft$(at$,sm+3)spc(25)"fallaste.es ";ca;
1370 goto1410
1380 pokeso+1,30:pokeso+4,17:fort=1to100:nextt:pokeso+4,16:pokeso+1,20
1390 printleft$(at$,sm+3)spc(25)"acertaste !!!";
1400 sc=sc+1
1410 rem 1410
1420 ifsm=20then1460
1430 printleft$(at$,1)spc(5)"sumas: ";sm;
1440 printleft$(at$,1)spc(17)"puntuacion: ";sc;
1450 goto1205
1460 fordl=1to250:nextdl
1480 print:print"tienes "sc" respuestas correctas"
1490 print:print"de un total de 20 preguntas."
1900 print"quieres intentarlo de nuevo?"
1910 geta$:ifa$=""then1910
1920 ifa$="s"then1030
1930 ifa$="n"then1999
1940 goto1910
1999 return
3000 poke53281,14:poke53280,15:print"[147]";
3010 print"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
3020 print"[180] sumar y restar [170]";
3030 print"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
3040 print"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
3050 print"[180] [170]";
3060 print"[180] [170]";
3070 print"[180] un sencillo juego educativo [170]";
3080 print"[180] para los mas pequenos: [170]";
3090 print"[180] [170]";
3100 print"[180] 'competir' con commodore-64 [170]";
3110 print"[180] en la realizacion de 20 sumas 0 [170]";
3120 print"[180] restas (a elegir). [170]";
3130 print"[180] [170]";
3140 print"[180] puedes elegir suma o resta [170]";
3150 print"[180] y decenas o unidades. [170]";
3160 print"[180] [170]";
3170 print"[180] [170]";
3180 print"[180] [170]";
3190 print"[180] [170]";
3200 print"[180] [170]";
3210 print"[180] [170]";
3220 print"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
3230 print"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
3240 print"[180] pulsa 'space' para continuar [170]";
3250 print"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
3950 geta$:ifa$<>" "then3950
3999 return
10000 so=54272:fort=0to28:pokeso+t,0:next
10010 pokeso+1,20:pokeso+5,9:pokeso+6,240:pokeso+24,15:pokeso+4,16:return