home *** CD-ROM | disk | FTP | other *** search
- 0 REM FLASH CARDS
- 10 PRINT"[147]":PRINT:PRINT:D=13
- 20 REM WRITTEN BY ROGER BOYER.
- 50 PRINT
- 60 PRINT:PRINT" THIS PROGRAM TEST SKILLS OF STUDENT IN ADDITION";
- 70 PRINT" SUBTRATION, MULTIPLICATION AND DIVISION":MM=0:N=1
- 80 PRINT:PRINT
- 90 PRINT:PRINT" A) ADDITION
- 130 [153]:[153]" B) SUBTRATION
- 140 PRINT:PRINT" C) MULTIPLICATION
- 150 [153]:[153]" D) DIVISION
- 155 PRINT:PRINT" E) END
- 160 [153]:[133]" WHAT DO YOU WANT";E$
- 161 [139] E$[178]"E" [167] [153]"LOAD":[153]:[153]:[153]" HAVE A NICE DAY!":[128]
- 170 [153]"LOAD":[153]:[153]
- 180 [153]:[153]" A) HARD
- 190 PRINT:PRINT" B) EASY
- 195 [153]:[153]" (TYPE A OR B)":[153]:[153]
- 200 [133]" DO YOU WANT THE PROBLEMS TO BE HARD OR EASY";R$
- 210 [139] E$[178]"A" [167] 260
- 220 [139] E$[178]"B" [167] 260
- 230 [139] E$[178]"C" [167] 260
- 240 [139] E$[178]"D" [167] 260
- 250 [153]"LOAD":[153]:[153]:[137] 60
- 260 [153]"LOAD":[153]:[153]:[139] R$[178]"A" [167] [153]" DO YOU WANT THE NUMBERS"
- 270 [139] R$[178]"A" [167] [153]" OVER 50 OR UNDER 50":[153]
- 280 [139] R$[178]"A" [167] [153]" A) OVER 50":[153]
- 290 [139] R$[178]"A" [167] [153]" B) UNDER 50"
- 300 [139] R$[178]"A" [167] [133]A$
- 310 [139] A$[178]"A" [167] D[178]101
- 320 [139] A$[178]"B" [167] D[178]50
- 330 [139] E$[178]"B" [167] [153]"LOAD":[153]:[153]" QUESTION 1":[153]:[153]:[137] 850
- 340 [139] E$[178]"C" [167] [153]"LOAD":[153]:[153]" QUESTION 1":[153]:[153]:[137] 2000
- 350 [139] E$[178]"D" [167] [153]"LOAD":[153]:[153]" QUESTION 1":[153]:[153]:[137] 3000
- 370 [153]"LOAD":[153]:[153]" QUESTION 1":[153]:[153]:[137] 590
- 400 [153]"LOAD":N[178]N[171]1
- 401 [139] P[178]30 [167] [153]" PERFECT"
- 402 [139] P[179]2 [167] [153]" YOU FAILED"
- 403 [139] P[179]10[167] [153]" BAD ";
- 410 [139] P[179]20 [167] [153]" NOVICE"
- 420 [139] P[177]25 [167] [153]" MASTER "
- 430 [139] P[177]20 [167] [153] " GOOD!"
- 440 [153]:[153] " THE NUMBER OF QUESTIONS TOTAL IS ";N
- 450 [153]:[153] " THE QUIZ IS OVER."
- 451 [153]:[153] " TOTAL NUMBER OF RIGHT ANSWERS ARE ";P
- 460 [153]:[153] " THE NUMBER WRONG IS ";W
- 471 [153]:[133]" DO YOU WANT TO START OVER AGAIN";E$:[153]"LOAD"
- 472 [139] E$[178]"YES" [167] [138]
- 473 [139] E$[178]"Y" [167] [138]
- 474 [139] E$[178]"N" [167] 477
- 475 [139] E$[178]"NO"[167] E$[178]"N":[137] 474
- 476 [137]471
- 477 [153]:[133]" DO YOU WANT TO PRINT OUT YOUR LAST TEST SCORE";E$:[153]"LOAD"
- 478 [139] E$[178]"YES" [167] 4000
- 479 [139] E$[178]"Y" [167] 4000
- 480 [139] E$[178]"N" [167] [153]"LOAD":[153]" HAVE A GOOD DAY!":[128]
- 481 [139] E$[178]"NO" [167] E$[178]"N":[137] 480
- 485 [153]"LOAD":[153]" HAVE A NICE DAY!":[128]
- 580 D[178]13
- 590 X[178][181](D[172][187](1)):Y[178][181](D[172][187](1))
- 591 N[178]N[170]1:J[178]J[170]1
- 592 [139] X[179]10 [167] L[178]1:[139] Y[177]10 [167] 810
- 593 [139] X[179]10 [167] L[178]1:[139] Y[179]10 [167]610
- 601 [139] X[177]9 [167] 605
- 604 [139] Y[179]10 [167] 607
- 605 [139] Y[179]10 [167] 780
- 606 [137] 610
- 607 [139] X[179]10 [167] 810
- 610 [153]" ";X;" ";X;"+";Y;"= YOUR ANSWER"
- 620 [153]" +";Y
- 630 [153]" USRUSRUSRUSRUSR"
- 640 T[178]X[170]Y
- 650 [153]:[133]" WHAT IS YOUR ANSWER";A
- 651 [153]
- 670 [139] A[178]T [167] [153]" CORRECT!":P[178]P[170]1:[153]:[137]690
- 680 [153]:[153]" WRONG":W[178]W[170]1
- 681 [153]:[153]
- 690 [153]" ";X;" ";X;"+";Y;"= ";T
- 700 [153]" +";Y
- 710 [153]" USRUSRUSRUSRUSR"
- 720 [153]" ";T
- 730 CT[178]0
- 740 CT[178]CT[170]1
- 750 [139] CT[178]300 [137] 770
- 760 [137] 740
- 770 [139] J[178]30 [167] MM[178]1:[137] 400
- 775 [153]"LOAD":[153]
- 776 [153]" QUESTION NUMBER";N;" RIGHT";P;" WRONG";W:[153]:[153]
- 778 [137] 590
- 780 [153]" ";X;" ";X;"+";Y;"= YOUR ANSWER"
- 790 [153]" + ";Y
- 800 [153]" USRUSRUSRUSRUSR":T[178]X[170]Y
- 805 [137] 650
- 810 [153]" ";X;" ";X;"+";Y;"= YOUR ANSWER"
- 820 [153]" +";Y
- 830 [153]" USRUSRUSRUSRUSR"
- 831 T[178]X[170]Y
- 840 [137] 650
- 849 D[178]13
- 850 X[178][181](D[172][187](1)):Y[178][181](D[172][187](1))
- 851 [139] X[179]Y [167] 850
- 852 [139] X[178]Y [167] R[178]R[170]1
- 853 [139] R[177]2 [167] R[178]0:[137] 850
- 854 [139] Y[178]0 [167] R[178]R[170]1
- 855 [139] D[177]15 [167] L[178]1:[139] X[178]Y [167] 850
- 856 [139] D[177]15 [167] L[178]1:[139] X[178]Y[170]1 [167] 850
- 857 [139] D[177]15 [167] L[178]1:[139] Y[178]0 [167] 850
- 858 [139] D[177]15 [167] L[178]1:[139] Y[178]1 [167] 850
- 859 [139] D[177]15 [167] L[178]1:[139] Y[178]2 [167] 850
- 860 N[178]N[170]1:J[178]J[170]1
- 870 [139] X[179]10 [167] L[178]1:[139] Y[177]10 [167] 1000
- 880 [139] X[179]10 [167] L[178]1:[139] Y[179]10 [167] 920
- 890 [139] X[177]9 [167] L[178]1:[139] Y[177]10 [167] 920
- 910 [139] X[177]9 [167] L[178]1:[139] Y[179]10 [167] 960
- 911 [137] 920
- 912 [139] Y[179]10 [167] 915
- 920 [153]" ";X;" ";X;"-";Y;"= YOUR ANSWER"
- 930 [153]" -";Y
- 940 [153]" USRUSRUSRUSRUSR":T[178]X[171]Y
- 950 [137] 1040
- 960 [153]" ";X;" ";X;"-";Y;"= YOUR ANSWER"
- 970 [153]" - ";Y
- 980 [153]" USRUSRUSRUSRUSR":T[178]X[171]Y
- 990 [137] 1040
- 1000 [153]" ";X;" ";X;"-";Y;"= YOUR ANSWER"
- 1010 [153]" -";Y
- 1020 [153]" USRUSRUSRUSRUSR"
- 1030 T[178]X[171]Y
- 1040 [153]:[133]" WHAT IS YOUR ANSWER";A
- 1050 [153]
- 1060 [139] A[178]T [167] [153]" CORRECT!":P[178]P[170]1:[153]:[137] 1085
- 1070 [153]:[153]" WRONG":W[178]W[170]1
- 1080 [153]:[153]
- 1085 [139] X[179]10 [167] L[178]1:[139] Y[179]10 [167] 1090
- 1086 [139] X[177]9 [167] L[178]1:[139] Y[179]10 [167] 1130
- 1090 [153]" ";X;" ";X;"-";Y;"= ";T
- 1100 [153]" -";Y
- 1110 [153]" USRUSRUSRUSRUSR"
- 1120 [153]" ";T
- 1121 [137] 1210
- 1130 [153]" ";X;" ";X;"-";Y;"= ";T
- 1140 [153]" -";Y
- 1150 [153]" USRUSRUSRUSRUSR"
- 1160 [153]" ";T
- 1161 [137] 1210
- 1170 [153]" ";X;" ";X;"-";Y;"= ";T
- 1180 [153]" -";Y
- 1190 [153]" USRUSRUSRUSRUSR"
- 1200 [153]" ";T
- 1210 CT[178]0
- 1220 CT[178]CT[170]1
- 1230 [139] CT[178]300 [137] 1250
- 1240 [137] 1220
- 1250 [139] J[178]30 [167] MM[178]2:[137] 400
- 1260 [153]"LOAD":[153]
- 1270 [153]" QUESTION NUMBER";N;" RIGHT";P;" WRONG";W:[153]:[153]
- 1280 [137] 850
- 2000 X[178][181](D[172][187](1)):Y[178][181](D[172][187](1))
- 2010 [139] X[179]Y [167] 2000
- 2020 [139] X[178]Y [167] R[178]R[170]1
- 2030 [139] R[177]2 [167] R[178]0:[137] 2000
- 2040 [139] Y[178]0 [167] R[178]R[170]1
- 2050 N[178]N[170]1:J[178]J[170]1
- 2060 [139] X[179]10 [167] L[178]1:[139] Y[177]10 [167] 2180
- 2070 [139] X[179]10 [167] L[178]1:[139] Y[179]10 [167] 2100
- 2080 [139] X[177]9 [167] L[178]1:[139] Y[177]10 [167] 2100
- 2090 [139] X[177]9 [167] L[178]1:[139] Y[179]10 [167] 2140
- 2100 [153]" ";X;" ";X;"*";Y;"= YOUR ANSWER"
- 2110 [153]" *";Y
- 2120 [153]" USRUSRUSRUSRUSR":T[178]X[172]Y
- 2130 [137] 2240
- 2140 [153]" ";X;" ";X;"*";Y;"= YOUR ANSWER"
- 2150 [153]" *";Y
- 2160 [153]" USRUSRUSRUSRUSR":T[178]X[172]Y
- 2170 [137] 2240
- 2180 [153]" ";X;" ";X;"*";Y;"= YOUR ANSWER"
- 2190 [153]" *";Y
- 2200 [153]" USRUSRUSRUSRUSR"
- 2210 T[178]X[172]Y
- 2240 [153]:[133]" WHAT IS YOUR ANSWER";A
- 2250 [153]
- 2260 [139] A[178]T [167] [153]" CORRECT!":P[178]P[170]1:[153]:[137] 2285
- 2270 [153]:[153]" WRONG":W[178]W[170]1
- 2280 [153]:[153]
- 2285 [139] X[179]10 [167] L[178]1:[139] Y[179]10 [167] 2290
- 2286 [139] X[177]9 [167] L[178]1:[139] Y[179]10 [167] 2330
- 2290 [153]" ";X;" ";X;"*";Y;"= ";T
- 2300 [153]" *";Y
- 2310 [153]" USRUSRUSRUSRUSR"
- 2320 [153]" ";T
- 2321 [137] 2410
- 2330 [153]" ";X;" ";X;"*";Y;"= ";T
- 2340 [153]" *";Y
- 2350 [153]" USRUSRUSRUSRUSR"
- 2360 [153]" ";T
- 2361 [137] 2410
- 2370 [153]" ";X;" ";X;"*";Y;"= ";T
- 2380 [153]" *";Y
- 2390 [153]" USRUSRUSRUSRUSR"
- 2400 [153]" ";T
- 2410 CT[178]0
- 2420 CT[178]CT[170]1
- 2430 [139] CT[178]300 [137] 2450
- 2440 [137] 2420
- 2450 [139] J[178]30 [167] MM[178]3:[137] 400
- 2460 [153]"LOAD":[153]
- 2470 [153]" QUESTION NUMBER";N;" RIGHT";P;" WRONG";W:[153]:[153]
- 2480 [137] 2000
- 3000 X[178][181](D[172][187](1)):Y[178][181](D[172][187](1))
- 3010 [139] X[179]Y [167] 3000
- 3020 [139] X[178]Y [167] R[178]R[170]1
- 3030 [139] R[177]2 [167] R[178]0:[137] 3000
- 3031 [139] X[178]Y [167] Z[178]Z[170]1:[139] D[177]15 [167] 3000
- 3032 [139] Z[177]2 [167] Z[178]0:[137] 3000
- 3033 [139] Y[178]1 [167] L[178]1:[139] D[177]15 [167] 3000
- 3040 [139] Y[178]0 [167] 3000
- 3041 E[178]X[173]Y
- 3042 EE[178][181](E)
- 3043 [139] EE[178]E [167] 3045
- 3044 [137] 3000
- 3045 [143]
- 3050 N[178]N[170]1:J[178]J[170]1
- 3060 [139] X[179]10 [167] L[178]1:[139] Y[177]10 [167] 3180
- 3070 [139] X[179]10 [167] L[178]1:[139] Y[179]10 [167] 3100
- 3080 [139] X[177]9 [167] L[178]1:[139] Y[177]10 [167] 3100
- 3090 [139] X[177]9 [167] L[178]1:[139] Y[179]10 [167] 3140
- 3100 [153]" ";X;" ";X;"/";Y;"= YOUR ANSWER"
- 3110 [153]" /";Y
- 3120 [153]" USRUSRUSRUSRUSR":T[178]X[173]Y
- 3130 [137] 3240
- 3140 [153]" ";X;" ";X;"/";Y;"= YOUR ANSWER"
- 3150 [153]" /";Y
- 3160 [153]" USRUSRUSRUSRUSR":T[178]X[173]Y
- 3170 [137] 3240
- 3180 [153]" ";X;" ";X;"/";Y;"= YOUR ANSWER"
- 3190 [153]" /";Y
- 3200 [153]" USRUSRUSRUSRUSR"
- 3210 T[178]X[173]Y
- 3240 [153]:[133]" WHAT IS YOUR ANSWER";A
- 3250 [153]
- 3260 [139] A[178]T [167] [153]" CORRECT!":P[178]P[170]1:[153]:[137] 3285
- 3270 [153]:[153]" WRONG":W[178]W[170]1
- 3280 [153]:[153]
- 3285 [139] X[179]10 [167] L[178]1:[139] Y[179]10 [167] 3290
- 3286 [139] X[177]9 [167] L[178]1:[139] Y[179]10 [167] 3330
- 3290 [153]" ";X;" ";X;"/";Y;"= ";T
- 3300 [153]" /";Y
- 3310 [153]" USRUSRUSRUSRUSR"
- 3320 [153]" ";T
- 3321 [137] 3410
- 3330 [153]" ";X;" ";X;"/";Y;"= ";T
- 3340 [153]" /";Y
- 3350 [153]" USRUSRUSRUSRUSR"
- 3360 [153]" ";T
- 3361 [137] 3410
- 3370 [153]" ";X;" ";X;"/";Y;"= ";T
- 3380 [153]" /";Y
- 3390 [153]" USRUSRUSRUSRUSR"
- 3400 [153]" ";T
- 3410 CT[178]0
- 3420 CT[178]CT[170]1
- 3430 [139] CT[178]300 [167] MM[178]4:[137] 3450
- 3440 [137] 3420
- 3450 [139] J[178]30 [137] 400
- 3460 [153]"LOAD":[153]
- 3470 [153]" QUESTION NUMBER";N;" RIGHT";P;" WRONG";W:[153]:[153]
- 3480 [137] 3000
- 4000 [143]
- 4001 [153]"LOAD":[153]:[153]
- 4002 [133]" WHAT IS YOUR FIRST NAME";G$
- 4003 [153]:[153]:[133]" WHAT IS YOUR LAST NAME";L$
- 4004 [159] 3,4:[152]3,"CLOSE":[152]3," "
- 4010 [139] P[178]30 [167] [152]3," PERFECT"
- 4011 [139] MM[178]1 [167] [152]3," FOR THE ADDITION TEST"
- 4012 [139] MM[178]2 [167] [152]3," FOR THE SUBTRACTION TEST"
- 4013 [139] MM[178]3 [167] [152]3," FOR THE MULTIPLICATION TEST"
- 4014 [139] MM[178]4 [167] [152]3," FOR THE DIVISION TEST"
- 4020 [139] P[179]2 [167] [152]3," YOU FAILED"
- 4030 [139] P[179]10[167] [152]3," BAD ";
- 4100 [139] P[179]20 [167] [152]3," NOVICE"
- 4104 [152]3," THE TOTAL FOR ";G$;" ";L$;" IS...."
- 4200 [139] P[177]25 [167] [152]3," MASTER "
- 4300 [139] P[177]20 [167] [152]3," GOOD!"
- 4400 [152]3," THE NUMBER OF QUESTIONS TOTAL IS ";N
- 4500 [152]3," THE QUIZ IS OVER. YOUR TOTAL NUMBER RIGHT IS ";P
- 4600 [152]3," THE NUMBER WRONG IS ";W
- 4601 [152]3," HAVE A NICE DAY!"
- 4602 [152]3," "
- 4603 [152]3," "
- 4610 [160] 3,4
- 4620 [138]
-