home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
educ
/
prschool.zip
/
MULTIPLY.BAS
< prev
next >
Wrap
BASIC Source File
|
1983-10-26
|
5KB
|
117 lines
10 '******************************************************
20 '****** M U L T I P L Y ************
30 '******************************************************
34 KEY OFF
35 COLOR 0,0:COLOR 7,0
40 CLS:LOCATE 10,20:PRINT"Hit F1 key When Ready"
50 KEY(1) ON:ON KEY(1) GOSUB 70
55 GOSUB 1040
60 R=R+1:GOTO 60
70 RETURN 80
80 RANDOMIZE R:ON KEY(1) GOSUB 240
90 A=INT(RND(R)*10):IF A=0 THEN 90
100 B=INT(RND(R)*10):IF B=0 THEN 100
110 C=A*B
115 FOR LOOP2=1 TO 2:LOOP=5
120 CLS:LOCATE 25,1:PRINT"Press F1 key to exit";
140 COLOR 15,0:L=400
150 NUMBER=A:ROWNUM=LOOP:COLNUM=5:GOSUB 1120:SOUND INT(RND(R)*1000+100),1:GOSUB 220
160 COLOR 7:NUMBER=10:ROWNUM=LOOP:COLNUM=17:GOSUB 1120:SOUND INT(RND(R)*1000+100),2:GOSUB 220
170 COLOR 15:NUMBER=B:ROWNUM=LOOP:COLNUM=29:GOSUB 1120:SOUND INT(RND(R)*1000+100),1:GOSUB 220
180 COLOR 7:NUMBER=11:ROWNUM=LOOP:COLNUM=41:GOSUB 1120:SOUND INT(RND(R)*1000+100),2:L=100:GOSUB 220:SOUND INT(RND(R)*1000+100),1:L=1000:GOSUB 220
190 COLOR 15,0:NUMBER=INT(C/10):IF NUMBER < 1 THEN 195:ELSE ROWNUM=LOOP:COLNUM=53:GOSUB 1120:SOUND INT(RND(R)*1000+100),2:L=10:GOSUB 220
195 COLOR 15,0:NUMBER=C-NUMBER*10:ROWNUM=LOOP:COLNUM=65:GOSUB 1120:SOUND INT(RND(R)*1000+100),2:L=2000:GOSUB 220
200 COLOR 7,0:SWAP A,B:NEXT LOOP2
210 GOSUB 250 'Test Memory
220 FOR L2=1 TO L:NEXT L2:RETURN
230 CLS:LOCATE 25,1:PRINT"Press F1 key to exit";:RETURN 80
240 COLOR 0,0:COLOR 7,0:CLS:END
250 CLS:LOCATE 15,1
260 L=300
265 COLOR 15,0
270 SOUND INT(RND(R)*1000+100),2:PRINT"What ";:GOSUB 220
280 SOUND INT(RND(R)*1000+100),2:PRINT"is ";:GOSUB 220
290 SOUND INT(RND(R)*1000+100),2:PRINT"the ";:GOSUB 220
300 L=100:SOUND INT(RND(R)*1000+100),1:PRINT"pro";:GOSUB 220
310 SOUND INT(RND(R)*1000+100),1:PRINT"duct ";:L=500:GOSUB 220
320 L=400:SOUND INT(RND(R)*1000+100),2:PRINT"of":GOSUB 220
325 COLOR 7,0
330 LOOP=1:I2$=""
340 LOCATE 10,20:L=200
350 COLOR 15,0:NUMBER=A:ROWNUM=LOOP:COLNUM=5:GOSUB 1120:SOUND INT(RND(R)*1000+100),1:GOSUB 220
360 COLOR 7:NUMBER=10:ROWNUM=LOOP:COLNUM=17:GOSUB 1120:SOUND INT(RND(R)*1000+100),2:GOSUB 220
370 COLOR 15:NUMBER=B:ROWNUM=LOOP:COLNUM=29:GOSUB 1120:SOUND INT(RND(R)*1000+100),1:GOSUB 220
380 LOCATE 13,26
390 I$=INKEY$:IF I$="" THEN 390:ELSE NUMBER=VAL(I$):ROWNUM=15:COLNUM=LOOP*10+40:GOSUB 1120
400 I2$=I2$+LEFT$(I$,2):I$=""
410 IF C=VAL(I2$) THEN 480
420 IF (LOOP = 1) AND (VAL(I2$) <> INT(C/10)) THEN GOSUB 450
430 LOOP=LOOP+1:IF LOOP > 2 THEN 450
440 GOTO 390
450 CLS:LOCATE 10,20:PRINT"LET'S TRY AGAIN":PLAY "o3cO2gc":L=1000:GOSUB 220
460 FAKE$=INKEY$:IF FAKE$<>"" THEN I$="":FAKE$=""
470 RETURN 115
480 L=800:GOSUB 220:CLS:LOCATE 10,20:PRINT"YOU'RE CORRECT":PLAY "o2cgo3c":L=1000:GOSUB 220:RETURN 90
490 '******************************************************
500 '****** end M U L T I P L Y ************
510 '******************************************************
1000 '**************************************************
1010 '********** N U M B E R S *****************
1020 '**************************************************
1030 '
1040 FORMAT1$=STRING$(9,219)
1050 FORMAT2$=SPACE$(8)+CHR$(219)
1060 FORMAT3$=CHR$(219)+SPACE$(8)
1070 FORMAT4$=CHR$(219)+SPACE$(7)+CHR$(219)
1080 FORMAT5$=SPACE$(4)+CHR$(219)+SPACE$(4)
1090 FOR N=0 TO 9:FOR N2=1 TO 9
1100 READ NUM(N,N2)
1110 NEXT N2:NEXT N:RETURN
1120 '
1150 ROWNUM=ROWNUM-1
1160 FOR NUMPART=1 TO 9:LOCATE ROWNUM+NUMPART,COLNUM
1164 IF NUMBER=10 THEN ON NUMPART GOSUB 1360,1361,1362,1363,1364,1365,1366,1367,1368:GOTO 1175
1166 IF NUMBER=11 THEN ON NUMPART GOSUB 1370,1371,1372,1373,1374,1375,1376,1377,1378:GOTO 1175
1170 ON NUM(NUMBER,NUMPART) GOSUB 1210,1220,1230,1240,1250
1175 NEXT NUMPART
1180 LOCATE 1,1
1190 RETURN
1210 PRINT FORMAT1$:RETURN
1220 PRINT FORMAT2$:RETURN
1230 PRINT FORMAT3$:RETURN
1240 PRINT FORMAT4$:RETURN
1250 PRINT FORMAT5$:RETURN
1260 DATA 1,4,4,4,4,4,4,4,1
1270 DATA 5,5,5,5,5,5,5,5,5
1280 DATA 1,2,2,2,1,3,3,3,1
1290 DATA 1,2,2,2,1,2,2,2,1
1300 DATA 4,4,4,4,1,2,2,2,2
1310 DATA 1,3,3,3,1,2,2,2,1
1320 DATA 3,3,3,3,1,4,4,4,1
1330 DATA 1,2,2,2,2,2,2,2,2
1340 DATA 1,4,4,4,1,4,4,4,1
1350 DATA 1,4,4,4,1,2,2,2,2
1360 PRINT:RETURN
1361 PRINT" █ █ ":RETURN
1362 PRINT" █ █ ":RETURN
1363 PRINT" █ █ ":RETURN
1364 PRINT" █ ":RETURN
1365 PRINT" █ █ ":RETURN
1366 PRINT" █ █ ":RETURN
1367 PRINT" █ █ ":RETURN
1368 PRINT:RETURN
1370 PRINT:RETURN
1371 PRINT:RETURN
1372 PRINT:RETURN
1373 PRINT" ████████ ":RETURN
1374 PRINT:RETURN
1375 PRINT" ████████ ":RETURN
1376 PRINT:RETURN
1377 PRINT:RETURN
1378 PRINT:RETURN
1380 '******************************************
████████ ":RETURN
1376 PRINT:RETURN
1377 PRINT:RETURN
1378 PRINT:RETURN
1380 '*************************