home *** CD-ROM | disk | FTP | other *** search
- 40 REM MATH-IS-FUN SHAREWARE COPYRIGHT 1986 BY O FRANK SMITH
- 50 GOTO 160
- 60 GD=0:LY=LEN(R2$):REM EDIT NUMBER
- 70 IF R2$=""THEN 150
- 80 FORCC=1TOLY
- 90 IF MID$(R2$,CC,1)>"9"THENGD=1:GOTO 140
- 100 IFCC<>1THEN 130
- 110 IF MID$(R2$,CC,1)="-"THEN 140
- 120 IF MID$(R2$,CC,1)="+"THEN 140
- 130 IF MID$(R2$,CC,1)<"0"THENGD=1
- 140 NEXT
- 150 RETURN
- 160 TZ=2:TX=TZ-1 :BB=0:BT=1:BM=12:FB=0:FT=1:POKE53280,0:POKE53281,0:PRINT"":
- 170 DS$(1)="[209]":DS$(2)="[218]":DS$(3)="[211]":DS$(4)="[216]":DS$(5)="[193]":DS$(6)="[166]"
- 180 SO=1:REM SOUND ON = 0 FOR NO SOUND =2 FOR SOUND ONLY FOR BAD ANSWERS
- 190 DW$=""
- 200 TT$= "[147] [159]MATH-IS-FUN"
- 210 TT$=TT$+"[158]PRACTICE FOR SUCCESS"
- 220 GOSUB 2050
- 230 TU$= "[147] [159]MATH-IS-FUN"
- 240 TU$=TU$+"[158]@ 1986 O.FRANK SMITH"
- 250 SF=1:GOTO 520:REM SF=SCORE FACTOR
- 260 IF BB<>0THEN 440
- 270 F1=INT(RND(.)*C1)+1:IFC1>9ANDF1<10THEN 270
- 280 IFC1>99ANDF1<100THEN 270
- 290 F2=INT(RND(1)*C1)+1:IFC1>9ANDF2<10THEN 290
- 300 IFC1>99ANDF2<100THEN 290
- 310 F3=INT(RND(1)*C1)+1:IFC1>9ANDF3<10THEN 310
- 320 IFC1>99ANDF3<100THEN 310
- 330 F4=INT(RND(1)*C1)+1:IFC1>9ANDF4<10THEN 330
- 340 IFC1>99ANDF4<100THEN 330
- 350 F5=INT(RND(1)*C2)+1:IFC2>9ANDF5<10THEN 350
- 360 IFC2>99ANDF5<100THEN 350
- 370 F6=INT(RND(1)*C2)+1:IFC2>9ANDF6<10THEN 370
- 380 IFC2>99ANDF6<100THEN 370
- 390 F7=INT(RND(1)*C2)+1:IFC2>9ANDF7<10THEN 390
- 400 IFC2>99ANDF7<100THEN 390
- 410 F8=INT(RND(1)*C2)+1:IFC2>9ANDF8<10THEN 410
- 420 IFC2>99ANDF8<100THEN 410
- 430 GOTO 480
- 440 IF FB>BMTHENFB=BB:FT=FT+1
- 450 IF FT>BMTHENFT=BT:FB=BB
- 460 F1=FT:F2=FT:F3=FT:F4=FT:REM TOP NUMBERS
- 470 F5=FB:F6=FB+1:F7=FB+2:F8=FB+3:FB=FB+4
- 480 T1=TA:T2=TB:T3=TC:T4=TD:T5=TA:T6=TB:T7=TC:T8=TD
- 490 IF SN$="/"THENGOSUB 1900
- 500 GOSUB 2510
- 510 RETURN
- 520 X1=5:Y1=1 :C1=999:C2=999:L$="[183][183][183][183][183]"
- 530 GOSUB 1070
- 540 TA=4:TB=12:TC=22:TD=32:REM TAB SETTINGS
- 550 T1=4:T2=12:T3=22:T4=32:REM TAB SETTINGS
- 560 T5=4:T6=12:T7=22:T8=32:REM TAB SETTINGS
- 570 IF TI$>TL$THENGOSUB 2360
- 580 GOSUB 260
- 590 PRINT"[145]";:IF SN$="+"THENPRINT" ADDITION"
- 600 IF SN$="-"THENPRINT" SUBTRACTION"
- 610 IF SN$="X"THENPRINT" [153]MULTIPLICATION"
- 620 IF SN$="/"THENPRINT" [150]DIVISION"
- 630 PRINTTAB(T1-1);"( 1 )";TAB(T2-1);"( 2 )";TAB(T3-1);"( 3 )" ;TAB(T4-1);"( 4 )
- 640 [153] [163]T1);F1;[163]T2);F2;[163]T3);F3;[163]T4);F4
- 650 [153] [163]T5);F5;[163]T6);F6;[163]T7);F7;[163]T8);F8
- 660 [153] [163]T1[171]1);L$;[163]T2[171]1);L$;[163]T3[171]1);L$;[163]T4[171]1);L$
- 670 [153]"ONON ";SN$
- 680 R1[178]5:R2[178]5:R3[178]5:R4[178]5:DS[178][181]([187](1)[172]6)[170]1:DT$[178]DS$(DS)
- 690 DS[178][181]([187](1)[172]65)[170]1:DS[178]DS[170]65:DT$[178][199](DS)
- 700 [153]"";:[129]DS[178]1[164]39:[153]DT$;:[130]
- 710 [153]:[129]DS[178]1[164]23:[139]DS[178]20[167]:[153]" ":[137] 730
- 720 [153]DT$[170]""[170]DT$
- 730 [130]
- 740 [129]DS[178]1[164]39:[153]DT$;:[130]
- 750 [153]DW$;
- 760 [151]53280,4
- 770 [133]"ON";R2$
- 780 [141] 60:[139]GD[178]1[167] 750
- 790 R1[178][197](R2$)
- 800 [153]DW$;
- 810 [151]53280,5
- 820 [133]"ON ";R2$
- 830 [141] 60:[139]GD[178]1[167] 790
- 840 R2[178][197](R2$)
- 850 [153]DW$;
- 860 [151]53280,6
- 870 [133]"ON ";R2$
- 880 [141] 60:[139]GD[178]1[167] 850
- 890 R3[178][197](R2$)
- 900 [153]DW$;
- 910 [151]53280,8
- 920 [133]"ON ";R2$
- 930 [141] 60:[139]GD[178]1[167] 900
- 940 R4[178][197](R2$)
- 950 [151]53280,0
- 960 [139] R1[178]9999[167] 160
- 970 [141] 1490
- 980 [129] TT[178]1[164]300:[130]
- 990 TM$[178]"TIME="[170][200](TI$,2)[170]" HRS. "
- 1000 TM$[178]TM$[170][202](TI$,3,2)[170]" MIN. "[170] [201](TI$,2)[170]" SEC. "[170]""
- 1010 [139]TX[178]TZ[167][153]TU$:
- 1020 [139]TX[179][177] TZ[167][153]TT$:
- 1030 TX[178]TX[170]1:[153] TM$
- 1040 [153]"SCORE=";SC;" #CORRECT=";S2;"OUT OF";CT::[153]""
- 1050 [139] TX[177]TZ[167]TX[178]0
- 1060 [137] 570
- 1070 [153]TT$
- 1080 [153]"TO BEGIN AGAIN TYPE 9999 AS 1ST ANSWER"
- 1090 C1[178]9:C2[178]9:SN$[178]"+":
- 1100 [153]"0=COMPUTER #S,1-999=# TO BEGIN TEACHING:"
- 1110 R2$[178]"0":BB[178]0
- 1120 [133]"0 OR 1-999:";R2$
- 1130 [141] 60:[139]GD[178]1[167][153]"ONONON":[137] 1120
- 1140 BB[178][197](R2$)
- 1150 BM[178]BB[170]10
- 1160 [139] BB[179][177]0[167]FB[178]BB:[137] 1370
- 1170 R2$[178]"9":C1[178]9
- 1180 [133]"FACTOR 1 SIZE: 9 99 OR 999:";R2$
- 1190 [141] 60:[139]GD[178]1[167][153]"ONONONON":[137] 1180
- 1200 C1[178][197](R2$)
- 1210 [139]C1[178]9[167] 1250
- 1220 [139]C1[178]99[167] 1250
- 1230 [139]C1[178]999[167] 1250
- 1240 C1[178]9
- 1250 [139]C1[178]99[167]SF[178]SF[170]2:
- 1260 [139]C1[178]999[167]SF[178]SF[170]4:
- 1270 R2$[178]"9":C2[178]9
- 1280 [133]"FACTOR 2 SIZE: 9 99 OR 999:";R2$
- 1290 [141] 60:[139]GD[178]1[167][153]"ONONON":[137] 1280
- 1300 C2[178][197](R2$)
- 1310 [139]C2[178]9[167] 1350
- 1320 [139]C2[178]99[167] 1350
- 1330 [139]C2[178]999[167] 1350
- 1340 C2[178]9
- 1350 [139]C2[178]99[167]SF[178]SF[170]2:
- 1360 [139]C2[178]999[167]SF[178]SF[170]4:
- 1370 [133] "EXERCISE : + - X OR / :";SN$
- 1380 [139]SN$[178]"-" [167]SF[178]SF[170]2:
- 1390 [139]SN$[178]"X" [167]SF[178]SF[170]4:
- 1400 [139]SN$[178]"/" [167]SF[178]SF[170]5:
- 1410 [139] SN$[178]"+"[176] SN$[178]"-" [176] SN$[178]"X" [176] SN$[178]"/"[167] 1430
- 1420 [153]"ON";:[137] 1370
- 1430 TI$[178]"000000":
- 1440 TM$[178]"TIME="[170][200](TI$,2)[170]" HRS. "
- 1450 TM$[178]TM$[170][202](TI$,3,2)[170]" MIN. "[170] [201](TI$,2)[170]" SEC. "[170]""
- 1460 [153]TT$:[153] TM$
- 1470 [153]"SCORE=";SC;" #CORRECT=";S2; "OUT OF";CT::[153]""
- 1480 [142]
- 1490 NS[178]S2[170]4:[143] NEW SCORE IF ALL CORRECT
- 1500 [139] SN$ [178]"+"[167] 1540
- 1510 [139] SN$[178]"-"[167] 1590
- 1520 [139] SN$[178]"X"[167] 1640
- 1530 [139] SN$[178]"/"[167] 1690
- 1540 A1[178]F5[170]F1
- 1550 A2[178]F6[170]F2
- 1560 A3[178]F7[170]F3
- 1570 A4[178]F8[170]F4
- 1580 [137] 1770
- 1590 A1[178]F1[171]F5
- 1600 A2[178]F2[171]F6
- 1610 A3[178]F3[171]F7
- 1620 A4[178]F4[171]F8
- 1630 [137] 1770
- 1640 A1[178]F1[172]F5
- 1650 A2[178]F2[172]F6
- 1660 A3[178]F3[172]F7
- 1670 A4[178]F4[172]F8
- 1680 [137] 1770
- 1690 [139] F5[178]0[167] 1710
- 1700 A1[178]F1[173]F5
- 1710 [139] F6[178]0[167] 1730
- 1720 A2[178]F2[173]F6
- 1730 [139] F7[178]0[167] 1750
- 1740 A3[178]F3[173]F7
- 1750 [139] F8[178]0[167] 1770
- 1760 A4[178]F4[173]F8
- 1770 CT[178]CT[170]4
- 1780 [139] R1[178]A1[167]SC[178]SC[170]SF:S2[178]S2[170]1
- 1790 [139] R3[178]A3[167]SC[178]SC[170]SF:S2[178]S2[170]1
- 1800 [139] R3[178]A3[167]SC[178]SC[170]SF:S2[178]S2[170]1
- 1810 [139] R4[178]A4[167]SC[178]SC[170]SF:S2[178]S2[170]1
- 1820 [139] SO[178]1 [175] NS[178]S2[167][141] 2690:[137] 1830
- 1830 [139] NS[178]S2[167][142]
- 1840 [153][163]T1[171]2);A1;[163]T2[171]2);A2;[163]T3[171]2);A3;[163]T4[171]2);A4
- 1850 [139] SO[179][177]0 [167][141] 2690
- 1860 [153]"CLRHIT ANY KEY";"
- 1870 GETA$:IFA$=""THEN 1870
- 1880 RETURN
- 1890 (3 DIGITS) = ANOTHER 3 POINTS
- 1900 MT=INT(RND(.)*10)+1
- 1910 IFBB<>0THENMT=FT
- 1920 F1=F5*MT
- 1930 MT=INT(RND(.)*10)+1
- 1940 IFBB<>0THENMT=FT
- 1950 F2=F6*MT
- 1960 IFBB<>0THENMT=FT
- 1970 MT=INT(RND(.)*10)+1
- 1980 IFBB<>0THENMT=FT
- 1990 F3=F7*MT
- 2000 IFBB<>0THENMT=FT
- 2010 MT=INT(RND(.)*10)+1
- 2020 IFBB<>0THENMT=FT
- 2030 F4=F8*MT
- 2040 RETURN
- 2050 PRINTTT$:
- 2060 PRINT"2+6=8 2-6=-4 6-2=4 2X6=12 6/2=3"
- 2070 PRINT" SCORING IS AS FOLLOWS:"
- 2080 PRINT" [154]NORMAL SCORING IS 1 POINT"
- 2090 PRINT" FOR EACH CORRECT ANSWER"
- 2100 PRINT"[155] 99 (2 DIGITS) = ANOTHER 2 POINTS"
- 2110 PRINT" 999 (3 DIGITS) = ANOTHER 3 POINTS"
- 2120 PRINT" SUBTRACTION = ANOTHER 3 POINTS"
- 2130 PRINT" MULTIPLICATION = ANOTHER 4 POINTS"
- 2140 PRINT" DIVISION = ANOTHER 5 POINTS""
- 2150 [153] "HIT ANY KEY"
- 2160 [161]A$:[139]A$[178]""[167] 2160
- 2170 TI$[178]"000000"
- 2180 [153] TT$
- 2190 [153]"0. NO SOUND EFFECTS"
- 2200 [153]"1. ALWAYS SOUND EFFECTS"
- 2210 [153]"2. SOUND EFFECTS FOR WRONG ANSWER ONLY"
- 2220 R2$[178]"2":SO[178]2
- 2230 [133] "";R2$
- 2240 [141] 60:[139]GD[178]1[167][153]"ONONONON":[137] 2220
- 2250 SO[178][197](R2$):
- 2260 [139] SO [179] 0 [176] SO [177] 2 [167]SO[178]2
- 2270 [153] TT$
- 2280 [153]"HOW LONG DO YOU WANT TO PRACTICE?"
- 2290 [153]" ENTER HHMMSS FOR HOURS MIN. SEC."
- 2300 [133] ": 000500CMDCMDCMDCMDCMDCMDCMDCMD";R2$
- 2310 [141] 60:[139]GD[178]1[167][153]"ONONONON":[137] 2300
- 2320 [139] LY[179][177]6[167][153]"ONONONON":[137] 2300
- 2330 TL$[178]R2$
- 2340 [153] TL$
- 2350 [142]
- 2360 [153]TT$
- 2370 [153]"YOUR SCHEDULED PRACTICE TIME"
- 2380 [153]" IS OVER"
- 2390 [153]" ";TL$
- 2400 [153]"SCORE=";SC;" #CORRECT=";S2;"OUT OF";CT::[153]""
- 2410 [141] 2690
- 2420 [153]"CLRHIT ANY KEY";"
- 2430 GETA$
- 2440 CO=INT(RND(1)*16)+1
- 2450 POKE53280,CO
- 2460 FOR A1=1TO300:NEXT
- 2470 IFA$=""THEN 2430
- 2480 TI$="000000"
- 2490 PRINTTT$
- 2500 RETURN
- 2510 IFF1<10THENT1=TA+2:
- 2520 IFF2<10THENT2=TB+2:
- 2530 IFF3<10THENT3=TC+2:
- 2540 IFF4<10THENT4=TD+2:
- 2550 IFF5<10THENT5=TA+2:
- 2560 IFF6<10THENT6=TB+2:
- 2570 IFF7<10THENT7=TC+2:
- 2580 IFF8<10THENT8=TD+2:
- 2590 IFF1<100ANDF1>9 THENT1=TA+1:
- 2600 IFF2<100ANDF2>9 THENT2=TB+1:
- 2610 IFF3<100ANDF3>9 THENT3=TC+1:
- 2620 IFF4<100ANDF4>9 THENT4=TD+1:
- 2630 IFF5<100ANDF5>9 THENT5=TA+1:
- 2640 IFF6<100ANDF6>9 THENT6=TB+1:
- 2650 IFF7<100ANDF7>9 THENT7=TC+1:
- 2660 IFF8<100ANDF8>9 THENT8=TD+1:
- 2670 RETURN
- 2680 REM SHAREWARE COPYRIGHT 1986 BY O FRANK SMITH-SCHAUMBURG IL
- 2690 REM SOUND21
- 2700 REM
- 2710 OP=INT(RND(1)*21)+1
- 2720 PRINT"";OP:PRINT""
- 2730 REM FOR SOUNDS :GOSUB1200
- 2740 GOTO 3380
- 2750 REM
- 2760 FORL=54272TO54295:POKEL,0:NEXT:POKE54296,15
- 2770 POKE54277,8:POKE54278,255:POKE54276,23
- 2780 FORZ=1TO3:F1=2:REM NO. OF CYCLES
- 2790 FORY=1TO3:F2=8:REM RATIO OF LENGTHS
- 2800 POKE54273,F1:REM MAIN FREQUENCY
- 2810 FORX=1TO5:POKE54287,F2:REM PITCH
- 2820 F2=F2*1.4:NEXTX:F1=F1*1.5:NEXTY:REM PITCH
- 2830 FORW=1TO10:POKE54287,F2:REM W IS TOP PITCH
- 2840 F2=F2*1.05:NEXTW:NEXTZ:POKE54278,15
- 2850 REM LIST
- 2860 GOTO 3370
- 2870 REM
- 2880 FORL=54272TO54295:POKEL,0:NEXT:POKE54296,15:REM CLEAR SOUND CHIP, SET VOLUME
- 2890 POKE54277,8:POKE54278,255:POKE54276,21:REM ENVELOPE AND WAVEFORM
- 2900 POKE54287,40:REM VOICE 3 FREQ. CONTROLS MAIN PITCH
- 2910 FORZ=1TO4:REM Z IS NO. OF CYCLES
- 2920 FORF1=255TO0STEP-6:POKE54273,F1:NEXTF1:REM STEP SIZE CONTROLS DOWN SPEED
- 2930 FORF1=0TO255STEP20:POKE54273,F1:NEXTF1:NEXTZ:REM STEP SIZE CONTROLS UP SPEED
- 2940 POKE54278,15:REM STOPS SOUND
- 2950 REM LIST
- 2960 GOTO 3370
- 2970 REM
- 2980 FORL=54272TO54295:POKEL,0:NEXT:POKE54296,15
- 2990 POKE54277,8:POKE54278,255:POKE54276,23
- 3000 FORZ=1TO3:F1=10:FORY=1TO6:F2=30
- 3010 POKE54273,F1
- 3020 FORX=1TO3:POKE54287,F2:REM RANGE
- 3030 F2=F2/1.2:NEXTX:F1=F1*1.5:NEXTY
- 3040 FORW=1TO8:REM LENGTH OF UP TO DOWN TIME
- 3050 POKE54273,F1
- 3060 POKE54287,5:FORV=1TO5:NEXTV
- 3070 F1=F1/1.5:NEXTW:NEXTZ:POKE54278,15
- 3080 REM LIST
- 3090 GOTO 3370
- 3100 REM
- 3110 FORL=54272TO54295:POKEL,0:NEXT:POKE54296,15
- 3120 POKE54277,8:POKE54278,255:POKE54276,21
- 3130 FORZ=1TO4:F1=20:REM NO. OF CYCLES
- 3140 FORY=1TO3:F2=100:REM NO. OF INCREMENTS
- 3150 POKE54273,F1:REM VOICE ONE FREQUENCY
- 3160 FORX=1TO5:POKE54287,F2:REM SPEED
- 3170 F1=F1*1.05:F2=F2*.1
- 3180 NEXTX:NEXTY:NEXTZ:POKE54278,15
- 3190 REM LIST
- 3200 GOTO 3370
- 3210 REM
- 3220 FORL=54272TO54295:POKEL,0:NEXT:POKE54296,15
- 3230 POKE54277,8:POKE54278,255:POKE54276,21:F2=255
- 3240 FORZ=1TO50:POKE54287,F2:REM NO. OF CYCLES
- 3250 FORF1=255TO0STEP-20:POKE54273,F1:F2=F2-.4:NEXTF1:NEXTZ:POKE54278,15
- 3260 REM LIST
- 3270 GOTO 3370
- 3280 REM
- 3290 FORL=54272TO54295:POKEL,0:NEXT:POKE54296,15:REM CLEAR SOUND CHIP, SET VOLUME
- 3300 POKE54277,8:POKE54278,255:POKE54276,23:REM ENVELOPE AND WAVEFORM
- 3310 POKE54287,40:REM VOICE 3 FREQ. CONTROLS MAIN PITCH
- 3320 FORZ=1TO4:REM Z IS NO. OF CYCLES
- 3330 FORF1=255TO0STEP-6:POKE54273,F1:NEXTF1:REM STEP SIZE CONTROLS DOWN SPEED
- 3340 FORF1=0TO255STEP20:POKE54273,F1:NEXTF1:NEXTZ:REM STEP SIZE CONTROLS UP SPEED
- 3350 POKE54278,15:REM STOPS SOUND
- 3360 REM LIST
- 3370 RETURN
- 3380 SI=54272:W1=SI+4:W3=SI+18:V=SI+24:PW=SI+27:PE=SI+28
- 3390 FORI=SITOPE:POKEI,0:NEXT
- 3400 POKEW1+1,17:POKEW1+2,251:POKEW3+1,187:POKEW3+2,140
- 3410 POKEV,143:POKEW3,17
- 3420 REM POKE214,22:PRINT:POKE211,9 :REM INPUT" TYPE 1-15:";OP
- 3430 IFOP=1THENGOSUB 3680
- 3440 IFOP=2THENGOSUB 3720
- 3450 IFOP=3THENGOSUB 3790
- 3460 IFOP=4THENGOSUB 3850
- 3470 IFOP=5THENGOSUB 3910
- 3480 IFOP=6THENGOSUB 3970
- 3490 IFOP=7THENGOSUB 4020
- 3500 IFOP=8THENGOSUB 4080
- 3510 IFOP=9THENGOSUB 4130
- 3520 IFOP=10THENGOSUB 4170
- 3530 IFOP=11THENGOSUB 4240
- 3540 IFOP=12THENGOSUB 4310
- 3550 IFOP=13THENGOSUB 4380
- 3560 IFOP=14THENGOSUB 4450
- 3570 IFOP=15THENGOSUB 4510
- 3580 IFOP=16THENGOSUB 2750
- 3590 IFOP=17THENGOSUB 2870
- 3600 IFOP=18THENGOSUB 2970
- 3610 IFOP=19THENGOSUB 3100
- 3620 IFOP=20THENGOSUB 3210
- 3630 IFOP=21THENGOSUB 3280
- 3640 POKEV,0:POKEW1,0:POKEW3,0
- 3650 FORI=SITOPE:POKEI,0:NEXT
- 3660 RETURN
- 3670 REM #1 SWEEP
- 3680 POKEW1,17
- 3690 FORI=30TO200STEP3:POKESI+1,I:NEXT
- 3700 RETURN
- 3710 REM #2 WHISTLE
- 3720 POKEW1,17
- 3730 FORI=30TO200STEP3:POKESI+1,I:NEXT
- 3740 POKEW1,0:FORI=1TO150:NEXT:POKEW1,17
- 3750 FORI=30TO120STEP3:POKESI+1,I:NEXT
- 3760 FORI=120TO20STEP-1.5:POKESI+1,I:NEXT
- 3770 RETURN
- 3780 REM #3 ROCKET
- 3790 POKEW1+2,253:POKEW1,129
- 3800 FORI=0TO90:POKESI,0:POKESI+1,I
- 3810 FORJ=1TO254-ISTEPI/2OR1:POKESI,J:NEXTJ,I
- 3820 POKEW1,128:FORI=1TO5000:NEXT
- 3830 RETURN
- 3840 REM #4 RING MODULATION -GONG
- 3850 POKEW1+2,122
- 3860 POKEW1-3,30:POKEW3-3,23
- 3870 FORI=1TO8:POKEW1,21
- 3880 FORJ=1TO200:NEXT:POKEW1,20
- 3890 FORJ=1TO1500:NEXT:NEXT:RETURN
- 3900 REM #5 RING MODULATION - CHIME
- 3910 POKEW1+2,122
- 3920 POKEW1-3,50:POKEW3-3,56
- 3930 FORI=1TO6:POKEW1,21
- 3940 FORJ=1TO200:NEXT:POKEW1,20
- 3950 FORJ=1TO1000:NEXT:NEXT:RETURN
- 3960 REM #6 SYNCHRONIZATION
- 3970 POKEW1-3,31:POKEW1,19
- 3980 FORI=1TO8:POKEW3-3,4+I
- 3990 FORJ=1TO300:NEXT:NEXT
- 4000 RETURN
- 4010 REM #7 SYNCHRONIZATION + WAVER
- 4020 POKEW1-3,31:POKEW1,19
- 4030 FORI=1TO15
- 4040 FORJ=0TO10:POKEW3-3,20+ABS(J-5):NEXT
- 4050 NEXT
- 4060 RETURN
- 4070 REM #8 RING MOD AND SWEEP
- 4080 POKEW1-3,31:POKEW1,21
- 4090 FORI=1TO175STEP.1
- 4100 POKEW3-3,I:NEXT
- 4110 RETURN
- 4120 REM #9 BEATING
- 4130 POKEW1-3,13:POKEW3-3,12:POKEW3-4,225:POKEW1,21
- 4140 FORI=1TO3000:NEXT:POKEW1,20
- 4150 FORI=1TO1500:NEXT:RETURN
- 4160 REM #10 ENVELOPE GENERATOR
- 4170 POKEW1+1,187:POKEW1+2,140:POKEW1,33
- 4180 POKEW3,0:POKEW3,33
- 4190 FORI=1TO150:POKEW1-3,PEEK(PE)/3+10:NEXT
- 4200 POKEW1,32:POKEW3,32
- 4210 FORI=1TO300:POKEW1-3,PEEK(PE)/3+10:NEXT
- 4220 RETURN
- 4230 REM #11 SIREN #1
- 4240 POKEW1+1,224:POKEW1+2,253
- 4250 POKEW3-4,15:POKEW1,33
- 4260 POKEW3,17
- 4270 FORI=1TO500:POKEW1-3,PEEK(PW)/10+25:NEXT:POKEW1,32
- 4280 FORI=1TO500:POKEW1-3,PEEK(PW)/10+25:NEXT
- 4290 RETURN
- 4300 REM #12 SIREN #2
- 4310 POKEW1+1,224:POKEW1+2,253
- 4320 POKEW3-4,15:POKEW1,33
- 4330 POKEW3,33
- 4340 FORI=1TO500:POKEW1-3,PEEK(PW)/10+25:NEXT:POKEW1,32
- 4350 FORI=1TO500:POKEW1-3,PEEK(PW)/10+25:NEXT
- 4360 RETURN
- 4370 REM #13 SIREN #3
- 4380 POKEW1+1,224:POKEW1+2,253
- 4390 POKEW3-4,15:POKEW1,33
- 4400 POKEW3,65:POKEW3-1,8
- 4410 FORI=1TO500:POKEW1-3,PEEK(PW)/10+25:NEXT:POKEW1,32
- 4420 FORI=1TO500:POKEW1-3,PEEK(PW)/10+25:NEXT
- 4430 RETURN
- 4440 REM #14 BUBBLING
- 4450 POKEW3-3,15:POKEW1,17
- 4460 POKEW3,129
- 4470 FORI=1TO300:POKE54273,PEEK(54299)/7+3:NEXT
- 4480 RETURN
- 4490 REM
- 4500 REM #15 SATELLITE
- 4510 POKEW3-3,15:POKEW1,19
- 4520 POKEW3,129
- 4530 FORI=1TO300:POKE54273,PEEK(54299):NEXT
- 4540 RETURN
- 4550 CYP$=CHR$(67)+CHR$(79)+CHR$(80)+CHR$(89)+CHR$(82)+CHR$(73)+CHR$(71)
- 4560 CYP$=CYP$+CHR$(72)+CHR$(84)+CHR$(32)+CHR$(49)+CHR$(57)+CHR$(56)+CHR$(54)
- 4570 NM$=CHR$(79)+CHR$(46)+CHR$(70)+CHR$(82)+CHR$(65)+CHR$(78)+CHR$(75)+CHR$(32)
- 4580 NM$=NM$+CHR$(83)+CHR$(77)+CHR$(73)+CHR$(84)+CHR$(72)
- 4590 PRINT"[147] ";CYP$
- 4600 PRINT" ";NM$
- 4610 GOTO 4610
-