home *** CD-ROM | disk | FTP | other *** search
- 2 REM R2DIVISION BY R.KEAYS MAY1983
- 3 PRINTCHR$(5):REM TURN ON WHITE
- 4 POKE53280,5:REM GREEN BORDER
- 11 GOSUB45498:PRINT"R2DIVISION":GOSUB46100
- 12 FORD=1TO200:NEXTD:GOSUB48100:PRINT"[147]";
- 13 PRINT"[147]"
- 14 PRINT" ------------MENU-----------":PRINT:PRINT
- 15 PRINT" 1. INSTRUCTIONS TO STUDENTS":PRINT
- 16 PRINT" 2. INSTRUCTIONS TO TEACHERS":PRINT
- 17 PRINT" 3. BEGIN PROGRAM.":PRINT
- 18 PRINT" 4. END THE PROGRAM.":PRINT:PRINT
- 19 PRINT"TYPE THE NUMBER OF YOUR CHOICE."
- 20 GETZ$:IFZ$=""THEN20
- 21 IFZ$<"1"ORZ$>"4"THEN19
- 22 ONVAL(Z$)GOTO15000,16000,30,9100
- 23 CP=0:REM*** POD COUNTER ***
- 24 :
- 25 SQ=0:REM*** CHOOSE SOUND ***
- 26 :
- 27 UN=0:REM*** THE UNIVERSE ***
- 28 :
- 30 GOSUB3770:REM*** R2D2 WALKS ***
- 50 PRINT"[147]";
- 70 GOSUB3350:REM** ESTABLISH PROBLEM **
- 72 GOSUB48005
- 76 PRINT"[147]"
- 77 GOSUB47000:REM*** R2D2 FRONT VIEW ***
- 80 PRINT"HERE'S THE STAR FLEET.":GOSUB9840:GOSUB48000
- 110 GOSUB4770:REM*** PODS ***
- 112 :
- 115 GOSUB47000:REM*** R2D2 FRONT VIEW **
- 116 FORK=1TO1000:NEXTK
- 150 PRINT"HOW MANY POD COMMANDERS "
- 152 PRINT"WILL WE NEED?":GOSUB9840:GOSUB18000
- 153 INPUT"TYPE THE NUMBER";CO$
- 154 IFCO$<>"5"THEN190
- 155 PRINT"[147]":GOSUB47000
- 156 PRINT"THAT'S RIGHT ";NA$;"!":GOSUB9820:FORD=1TO2000
- 157 PRINT"":GOSUB18100:GOTO248
- 190 PRINT"[147]";:GOSUB4770
- 248 FORD=1TO1000:NEXTD:PRINT"[147]":GOSUB50000
- 250 PRINT"[147]NOW LET'S TRY TO SOLVE THE PROBLEM WITHOUT USING A PICTURE."
- 252 PRINT
- 270 PRINT"WE WRITE THE PROBLEM THIS WAY."
- 290 PRINT""
- 310 PRINT" [164][164][164][164][164]"
- 330 PRINT" 31)155"
- 350 FORK=1TO5000:NEXTK
- 370 PRINT" "
- 390 PRINT" ^"
- 410 PRINT
- 430 PRINT" THIS MEANS:"
- 450 PRINT
- 470 PRINT"HOW MANY GROUPS OF 31 ARE IN 155?":FORK=1TO2000:NEXTK
- 474 PRINT"OR HOW MANY PODS OF 31 ARE IN 155 SHIPS?":FORK=1TO2000:NEXTK
- 476 GOSUB18000:REM *** FIDDLEPROOFING**
- 510 GOSUB48005:REM *** SPACE BAR ***
- 590 PRINT"[147]";:PRINT""
- 610 PRINT" [164][164][164][164][164]"
- 630 PRINT" 31)155 "
- 650 PRINT:FORK=1TO2000:NEXTK:POKE1352,177
- 670 PRINT"NOW WE ASK:"
- 690 PRINT"HOW MANY GROUPS OF 31 ARE IN 1?":FORK=1TO200:NEXTK
- 710 PRINT""
- 720 GOSUB18000:REM***FIDDLEPROOFING***
- 730 FORK=1TO1000:NEXTK:PRINT""
- 731 INPUT"TYPE THE NUMBER";A
- 733 IFA<>0THENGOTO755
- 737 GOSUB47000
- 738 PRINTTAB(8);"THAT'S RIGHT ";NA$;".":GOSUB9820:FORK=1TO1000:NEXTK
- 740 GOTO830
- 755 GOSUB47000
- 760 PRINT"YOU CAN'T GET A GROUP OF 31 FROM 1.":GOSUB9840
- 764 FORD=1TO2000:NEXTD:GOSUB18000:GOSUB48005
- 830 PRINT"[147]"
- 850 PRINT" "
- 870 PRINT" [164][164][164][164][164]"
- 890 PRINT" 31)155"
- 910 FORK=1TO1000:NEXTK
- 930 PRINT"THERE ARE NO GROUPS 0F 31 IN 1.":FORK=1TO3000:NEXTK
- 950 PRINT"";TAB(7);0
- 970 PRINT" "
- 990 FORK=1TO1000:NEXTK:POKE1352,177:POKE1353,181
- 1010 PRINT"NOW WE ASK:":PRINT
- 1030 PRINT"HOW MANY GROUPS OF 31 ARE IN 15?"
- 1050 FORK=1TO1000:NEXTK:PRINT""
- 1070 PRINT""
- 1090 PRINT:FORK=1TO2000:NEXTK
- 1100 GOSUB18000:REM***FIDDLEPROOFING**
- 1110 INPUT"TYPE THE NUMBER";B
- 1112 IFB<>0THENGOTO1175
- 1116 GOSUB47000:REM** R2D2 FRONT VIEW **
- 1118 PRINTTAB(8);"THAT'S RIGHT ";NA$;".":GOSUB9820:FORK=1TO1000:NEXTK
- 1120 GOTO1190
- 1175 GOSUB47000
- 1177 PRINT" YOU CAN'T GET A GROUP OF 31 FROM 15.":GOSUB9840
- 1178 FORD=1TO2000:NEXTD:GOSUB18000:GOSUB48005
- 1190 PRINT"[147]":PRINT
- 1210 PRINT"";TAB(8);"0"
- 1230 PRINT" [164][164][164][164][164]"
- 1250 PRINT" 31)155 "
- 1270 FORK=1TO1000:NEXTK
- 1290 PRINT"THERE ARE NO GROUPS OF 31 IN 15.":FORK=1TO6000:NEXTK
- 1310 PRINT"";TAB(8);"00"
- 1330 PRINT" "
- 1350 FORK=1TO1000:NEXTK
- 1370 PRINT"NOW WE ASK:":PRINT
- 1390 PRINT"HOW MANY GROUPS OF 31 ARE IN 155?":FORK=1TO3000:NEXTK
- 1410 PRINT""
- 1450 PRINT""
- 1470 PRINT"HINT-FLASHING NUMBERS[146]"
- 1510 FORK=1TO1000:NEXTK
- 1515 GOSUB17600:REM** FLASHING NUMBER **
- 1520 GOSUB18000:REM***FIDDLEPROOFING**
- 1530 PRINT:INPUT"SO HOW MANY 31'S ARE IN 155";C
- 1534 IFC<>5THENGOTO1555
- 1540 GOSUB47000
- 1542 PRINT"THAT'S RIGHT ";NA$;".":GOSUB9820:FORK=1TO1000:NEXTK
- 1544 GOTO1630
- 1555 GOSUB47000
- 1560 PRINT"SORRY ";NA$;".":GOSUB9840:PRINT
- 1565 PRINTTAB(6);"3 + 3 + 3 + 3 + 3 = 15":FORD=1TO3000:NEXTD:PRINT
- 1566 PRINT"THERE ARE FIVE 3'S IN 15.":GOSUB9840
- 1567 FORK=1TO3000:NEXTK:GOSUB18000
- 1568 GOSUB48005:REM*** SPACE BAR ***
- 1630 PRINT"[147]":PRINT
- 1650 PRINT"";TAB(8);"00"
- 1670 PRINT" [164][164][164][164][164]"
- 1690 PRINT" 31)155":FORK=1TO2000:NEXTK
- 1710 PRINT"THERE ARE FIVE 3'S IN 15."
- 1730 PRINT" SO"
- 1750 PRINT" THERE ARE PROBABLY FIVE 31'S IN 155.":GOSUB18000:GOSUB48005
- 1760 GOSUB16100
- 1770 PRINT"";TAB(8);"00"
- 1790 PRINT" "
- 1810 PRINT" "
- 1812 FORFI=0TO6:REM** DROP A FIVE **
- 1813 POKE1034+(FI*40),53
- 1814 IFFI>0THENGOSUB9924:FORD=1TO300:NEXTD:GOTO1816
- 1815 GOSUB9920:FORD=1TO300:NEXTD
- 1816 POKE1034+(FI*40),32:NEXTFI
- 1817 POKE1274,53
- 1830 FORK=1TO500:NEXTK
- 1850 PRINT""
- 1870 PRINT"NOW WE MULTIPLY 5*31 AND PUT "
- 1890 PRINT"THE PRODUCT IN THE CORRECT PLACE.":FORK=1TO2000:NEXTK
- 1891 GOSUB17800:FORD=1TO1000:NEXTD:REM****** FLASHING ARROW *****
- 1899 :
- 1900 GOSUB18000:REM*** FIDDLEPROOFING *
- 1901 :
- 1910 GOSUB48005:REM*** SPACE BAR ***
- 1911 :
- 1990 PRINT"[147]":PRINT
- 2010 PRINT"";TAB(8);"005"
- 2030 PRINT" [164][164][164][164][164]"
- 2050 PRINT" 31)155":FORK=1TO1000:NEXTK
- 2070 PRINT"5*31 IS 155.":FORK=1TO3000:NEXTK
- 2090 PRINT"";TAB(7);155
- 2110 PRINTTAB(8);"[163][163][163]"
- 2130 PRINT" "
- 2150 FORK=1TO1000:NEXTK
- 2830 PRINT" SUBTRACT."
- 2850 FORK=1TO2000:NEXTK:GOSUB18000
- 2869 :
- 2870 GOSUB48005:REM*** SPACE BAR ***
- 2871 :
- 2950 PRINT"[147]":PRINT
- 2970 PRINT"";TAB(8);"005"
- 2990 PRINT" [164][164][164][164][164]"
- 3010 PRINT" 31)155 "
- 3030 PRINTTAB(8);"155"
- 3050 PRINTTAB(8);"[163][163][163]"
- 3070 PRINTTAB(8);"000":FORD=1TO2000:NEXTD:PRINT:PRINT:PRINT:PRINT
- 3078 :
- 3080 GOSUB18100:REM*** 5 COMMANDERS ***
- 3082 :
- 3083 FORK=1TO500:NEXTK
- 3090 :
- 3091 REM***** COMMANDER LABEL ******
- 3092 GOSUB18200:FORD=1TO3000:NEXTD
- 3093 :
- 3095 PRINT"[147]":FORD=1TO100:NEXTD
- 3096 :
- 3310 PRINT"[147]RIGHT ON ";NA$;"!":GOSUB31200
- 3311 GOSUB48100:REM*** CANTINA BAND ***
- 3312 GOSUB31200
- 3320 PRINT"[147]"
- 3325 :
- 3330 GOTO7900:REM** TO DECISION LINE **
- 3335 :
- 3350 GOSUB47000
- 3494 PRINT:PRINT:PRINT
- 3545 PRINTTAB(13);" I AM R2D2.":GOSUB9840:FORD=1TO1000:NEXTD
- 3550 PRINT"[145] ":GOSUB18000
- 3551 PRINT"WHAT IS YOUR NAME ?":GOSUB9840:PRINT"[145]";TAB(23):INPUTNA$
- 3552 PRINT"[145] "
- 3553 PRINT"[145]THAT'S A FUNNY NAME. ":GOSUB9820:FORD=1TO2000:NEXTD
- 3554 PRINT"[147]":REM**** STARSHIPS *****
- 3561 GOSUB20000
- 3564 GOSUB40000
- 3566 GOSUB42000
- 3567 GOSUB44000
- 3568 FORK=1TO100:NEXTK
- 3569 :
- 3570 GOSUB50000:REM** SCREEN BLANKING **
- 3572 :
- 3590 GOSUB47000:REM**** R2D2 ****
- 3591 :
- 3592 PRINT:PRINTTAB(10);"THAT WAS A STARSHIP!":GOSUB9820:FORD=1TO2000:NEXTD
- 3610 PRINT"[145] I AM ABOUT TO LEAVE FOR THE GALAXY ":PRINT
- 3630 PRINT" DIVISO WITH A STAR FLEET OF 155 SHIPS.":PRINT
- 3640 PRINT" WE WILL FLY IN A POD FORMATION." :FORK=1TO2:GOSUB9840:NEXTK
- 3650 :
- 3651 GOSUB18000:REM** FIDDLEPROOFING **
- 3652 GOSUB48005:REM** SPACE BAR ****
- 3657 GOSUB33000:GOSUB5595
- 3665 GOSUB47000:REM*** R2D2 ***
- 3667 FORK=1TO1000:NEXTK
- 3670 PRINT:PRINT" EACH POD IS TO HAVE 31 STARSHIPS.":PRINT
- 3690 PRINT"I NEED TO KNOW HOW MANY POD COMMANDERS ":PRINT
- 3710 PRINT"TO CALL UP. HELP ME FIGURE IT OUT.":GOSUB9840:FORK=1TO1200:NEXTK
- 3740 GOSUB18000
- 3750 RETURN
- 3760 :
- 3761 REM**** R2D2 WALKS ****
- 3770 PRINT"[147]"
- 3790 FORX=0TO15
- 3810 PRINT"[147]";TAB(X);" [206][163][163][163][163][205] "
- 3830 PRINTTAB(X);" [206] [205] . [165] "
- 3850 PRINTTAB(X);"[206] [205] [165] "
- 3870 PRINTTAB(X);"[205] [167] .[205][206] "
- 3890 PRINTTAB(X);" [205] [167] [206] "
- 3910 PRINTTAB(X);" [205][167] [206] "
- 3930 PRINTTAB(X);" [167][167][206] "
- 3950 PRINTTAB(X);" [167][167] "
- 3970 PRINTTAB(X);" [167] [205] "
- 3990 PRINTTAB(X);" [163][163] "
- 4010 FORT=0TO100:NEXTT
- 4030 NEXTX
- 4050 RETURN
- 4768 :
- 4769 REM***** PODS *****
- 4770 PRINT"[147]"TAB(1);"POD1 "
- 4771 FORX=6TO36
- 4772 PRINT"[145]";TAB(X);"*":FORD=1TO100:NEXTD:NEXTX:PRINT
- 4790 FORK=1TO500:NEXTK
- 4810 PRINT"
- 4830 [153][163]1);"POD2 ******************************* ":[153]
- 4850 [129]K[178]1[164]500:[130]K
- 4870 [153]"
- 4890 PRINTTAB(1);"POD3 ******************************* ":PRINT
- 4910 FORK=1TO500:NEXTK
- 4930 PRINT"
- 4950 [153][163]1);"POD4 ******************************* ":[153]
- 4970 [129]K[178]1[164]500:[130]K
- 4990 [153]"
- 5189 PRINTTAB(1);"POD5 ******************************* ":FORK=1TO500:NEXTK
- 5190 PRINT
- 5191 CP=CP+1
- 5192 IFCP=2THENGOTO5200
- 5193 FORX=1TO31:REM HORIZONTAL COUNTER
- 5194 PRINT"[145]";TAB(X+4);X:FORK=1TO100:NEXTK
- 5196 NEXTX:GOSUB48000
- 5198 IFCP=1THEN5220
- 5200 PRINT"WE NEED FIVE POD COMMANDERS.":FORD=1TO2000:NEXTD:PRINT
- 5205 :
- 5210 GOSUB18100:RETURN
- 5220 GOSUB18000:GOSUB48000
- 5230 RETURN
- 5497 :
- 5498 REM****** STAR GENERATOR ******
- 5595 PRINT""
- 6000 PRINT" [164][164][164][164][164][164][164][164][164][164][164][164][164]
- 6010 [153]" THEN (null)
- 6020 PRINT" [167] DIVISO [205]
- 6030 [153]" THEN 1 000 000 KM (null)
- 6040 PRINT" [167][164][164][164][164][164][164][164][164][164][164][164][164][164][206]
- 6050 [153]"
- 6052 GOSUB48100:REM UP UP AND AWAY
- 6055 GOSUB51000:REM*** POD ACTION ***
- 6060 FORK=1TO2000:NEXT
- 6070 RETURN
- 7898 :
- 7899 :
- 7900 PRINT"[147] CHOOSE A NUMBER.":PRINT:PRINT
- 7902 PRINT" 1. DO A REVIEW QUESTION.":PRINT
- 7904 PRINT" 2. DO A HARDER QUESTION.":PRINT
- 7906 PRINT" 3. DO A TEST QUESTION.":PRINT
- 7908 PRINT" 4. END THE PROGRAM."
- 7912 GETZ$:IFZ$=""THEN7912
- 7914 IFZ$<"1"ORZ$>"4"THEN7900
- 7916 ONVAL(Z$)GOTO9200,8000,8093,9100
- 7997 :
- 7998 :
- 7999 REM**** HARDER WORK BEGINS ****
- 8000 PRINT"[147]";:GOSUB47000
- 8002 PRINT:PRINT"SOMETIMES THE 'HINT' DOESN'T WORK.":GOSUB9820:PRINT
- 8004 PRINT" WATCH THIS.":FORD=1TO1000:NEXTD
- 8006 GOSUB18000:GOSUB48000
- 8010 PRINT"[147]"
- 8012 PRINT" 0
- 8014 [153]" TOTOTOTOTO
- 8016 PRINT" 24)192
- 8018 [129]K[178]1[164]1000:[130]K
- 8020 [153]"LOAD"
- 8022 [153]" 00
- 8024 PRINT" [164][164][164][164][164]
- 8026 [153]" 24)192
- 8029 FORK=1TO1000:NEXTK
- 8030 PRINT"NOW WE ASK:":PRINT
- 8032 PRINT"HOW MANY GROUPS OF 24 ARE IN 192?":FORK=1TO4000:NEXTK
- 8041 FORK=1TO1000:NEXTK:GOSUB17700:REM ***** FLASHING NUMBER *****
- 8042 GOSUB18000:REM** FIDDLEPROOFING ***
- 8043 PRINT:INPUT"SO HOW MANY 24'S ARE IN 192";C
- 8044 IFC<>9THENGOTO8056
- 8048 GOSUB47000:REM R2D2 FRONT VIEW
- 8049 PRINT"THAT LOOKS LIKE THE CORRECT ANSWER......"
- 8050 PRINT"BUT LET'S SEE.": GOSUB9820:GOSUB18000:GOSUB48005:GOSUB16100
- 8051 REM** GET MORE ROOM ***
- 8052 GOSUB11630:GOTO58094
- 8056 GOSUB47000
- 8058 PRINT
- 8060 PRINTTAB(10);"2+2+2+2+2+2+2+2+2+1=19":FORD=1TO1000:NEXTD:PRINT
- 8080 PRINT"THERE ARE NINE 2'S IN 19.":GOSUB9840
- 8081 FORK=1TO1000:NEXTK:GOSUB18000
- 8082 GOSUB48005
- 8083 :
- 8084 GOSUB11630:REM*** GET MORE ROOM ***
- 8085 GOTO58094:REM HARDER TEST QUESTION
- 8086 :
- 8092 :
- 8093 REM: EASY TEST QUESTION BEGINS
- 8094 PRINT"[147]"TAB(11);"[164][164][164][164][164]"
- 8095 PRINTTAB(9);"83)249"
- 8096 PRINT"NOW WRITE THIS PROBLEM DOWN ON A PIECE OF PAPER.":PRINT
- 8097 PRINTTAB(1);"SEE IF YOU CAN SOLVE IT.":FORK=1TO3000:NEXTK:GOSUB18000
- 8098 PRINT""TAB(4);"PRESS SPACE BAR[146] TO SEE THE ANSWER."
- 8100 GETM$
- 8105 IFM$=""THEN8100
- 8106 M=ASC(M$)
- 8107 IFM<>160ANDM<>32THEN8100
- 9003 PRINT"[147]"
- 9004 PRINT" [164][164][164][164][164]
- 9005 [153]" 83)249
- 9006 FORK=1TO2000:NEXTK
- 9010 PRINT"[147]"
- 9012 PRINT" 0
- 9014 [153]" TOTOTOTOTO
- 9016 PRINT" 83)249
- 9018 [129]K[178]1[164]1000:[130]K
- 9020 [153]"LOAD"
- 9022 [153]" 00
- 9024 PRINT" [164][164][164][164][164]
- 9026 [153]" 83)249
- 9028 FORK=1TO1000:NEXTK
- 9030 PRINT"[147]"
- 9032 PRINT" 003
- 9034 [153]" TOTOTOTOTO
- 9036 PRINT" 83)249
- 9038 [129]K[178]1[164]1000:[130]K
- 9040 [153]"LOAD"
- 9042 [153]" 003
- 9044 PRINT" [164][164][164][164][164]
- 9046 [153]" 83)249
- 9048 PRINT" 249
- 9050 [129]K[178]1[164]1000:[130]K
- 9060 [153]"LOAD"
- 9062 [153]" 003
- 9064 PRINT" [164][164][164][164][164]
- 9066 [153]" 83)249
- 9068 PRINT" 249
- 9070 [153]" TAB(TAB(TAB(
- 9080 FORK=1TO1000:NEXTK
- 9082 PRINT"[147]"
- 9084 PRINT" 003
- 9086 [153]" TOTOTOTOTO
- 9088 PRINT" 83)249
- 9089 [153]" 249
- 9090 PRINT" [163][163][163]
- 9092 [153]" 000
- 9094 FORK=1TO3000:NEXTK:GOSUB9600:FORD=1TO1000:NEXTD:REM**** WIPEOUT ****
- 9095 GOSUB3770:GOSUB47000:REM R2D2 TALK
- 9096 PRINT"SO LONG ";NA$;"."
- 9097 GOSUB9840:RESTORE:FORD=1TO1000:NEXTD:PRINT"[147]":GOSUB45498
- 9098 GOSUB48100:REM*** STAR WAR THEME
- 9099 PRINT"[147]":GOSUB9600
- 9100 PRINT"[147]";:END
- 9101 :
- 9102 REM**** REVIEW QUESTION *****
- 9200 PRINT"[147]";:PRINT""
- 9202 PRINT" [164][164][164][164][164]"
- 9204 PRINT" 41)246 "
- 9206 PRINT:FORK=1TO2000:NEXTK:POKE1352,178
- 9208 PRINT"NOW WE ASK:"
- 9210 PRINT"HOW MANY GROUPS OF 41 ARE IN 2?":FORK=1TO200:NEXTK
- 9212 PRINT""
- 9214 FORK=1TO1000:NEXTK:PRINT"":GOSUB18000
- 9216 INPUT"TYPE THE NUMBER";A
- 9218 IFA<>0THEN9230
- 9222 GOSUB47000
- 9224 PRINTTAB(8);"THAT'S RIGHT ";NA$;".":GOSUB9820:FORD=1TO1000:NEXTD
- 9226 GOTO9236
- 9230 GOSUB47000
- 9232 PRINT"YOU CAN'T GET A GROUP OF 41 FROM 2.":GOSUB9840
- 9233 FORD=1TO1000:NEXTD:GOSUB18000:GOSUB48005
- 9236 PRINT"[147]"
- 9240 PRINT" "
- 9242 PRINT" [164][164][164][164][164]"
- 9244 PRINT" 41)246"
- 9246 FORK=1TO1000:NEXTK
- 9248 PRINT"THERE ARE NO GROUPS 0F 41 IN 2.":FORK=1TO3000:NEXTK
- 9250 PRINT"";TAB(7);0
- 9252 PRINT" "
- 9254 FORK=1TO2000:NEXTK:POKE1352,178:POKE1353,180
- 9256 PRINT"NOW WE ASK:":PRINT
- 9258 PRINT"HOW MANY GROUPS OF 41 ARE IN 24?"
- 9260 FORK=1TO1000:NEXTK:PRINT""
- 9262 PRINT""
- 9264 PRINT:FORK=1TO1000:NEXTK:GOSUB18000
- 9266 INPUT"TYPE THE NUMBER";B
- 9268 IFB<>0THEN9280
- 9272 GOSUB47000
- 9274 PRINTTAB(8);"THAT'S RIGHT ";NA$;".":FORK=1TO500:NEXTK:GOSUB9820
- 9276 GOTO9283
- 9280 GOSUB47000
- 9282 PRINT" YOU CAN'T GET A GROUP OF 41 FROM 24.":GOSUB9840
- 9283 FORD=1TO1000:NEXTD:GOSUB18000:GOSUB48005
- 9286 PRINT"[147]":PRINT
- 9288 PRINT"";TAB(8);"0"
- 9290 PRINT" [164][164][164][164][164]"
- 9292 PRINT" 41)246 "
- 9294 FORK=1TO2000:NEXTK
- 9296 PRINT"THERE ARE NO GROUPS OF 41 IN 24.":FORK=1TO6000:NEXTK
- 9298 PRINT"";TAB(8);"00"
- 9300 PRINT" "
- 9304 FORK=1TO3000:NEXTK
- 9306 PRINT"NOW WE ASK:":PRINT
- 9308 PRINT"HOW MANY GROUPS OF 41 ARE IN 246?":FORK=1TO3000:NEXTK
- 9310 PRINT""
- 9314 PRINT""
- 9318 PRINT"HINT-FLASHING NUMBERS[146]"
- 9321 FORK=1TO1000:NEXTK
- 9322 GOSUB17500:REM*** FLASHING NUMBER
- 9323 GOSUB18000:REM*** FIDDLEPROOFING
- 9325 PRINT:INPUT"SO HOW MANY 41'S ARE IN 246";C
- 9328 IFC=6THENGOTO9354
- 9338 GOSUB47000
- 9340 PRINTTAB(12);"SORRY ";NA$;".":GOSUB9840:PRINT
- 9342 PRINTTAB(6);"4 + 4 + 4 + 4 + 4 + 4 = 24":FORD=1TO1000:NEXTD:PRINT
- 9343 PRINT"THERE ARE SIX 4'S IN 24.":GOSUB9840
- 9344 FORK=1TO1000:NEXTK:GOSUB18000:GOSUB48005
- 9354 PRINT"[147]":PRINT
- 9356 PRINT"";TAB(8);"00"
- 9358 PRINT" [164][164][164][164][164]"
- 9360 PRINT" 41)246":FORK=1TO2000:NEXTK
- 9362 PRINT"THERE ARE SIX 4'S IN 24."
- 9364 PRINT" SO"
- 9368 PRINT" THERE ARE PROBABLY SIX 41'S IN 246.":GOSUB18000:GOSUB48005
- 9369 GOSUB16100
- 9370 PRINT"";TAB(8);"00"
- 9372 PRINT" "
- 9373 PRINT" "
- 9374 FORSI=0TO6:REM*** DROP IN A SIX **
- 9375 POKE1034+(SI*40),54
- 9376 IFSI>0THENGOSUB9924:FORD=1TO300:NEXTD:GOTO9378
- 9377 GOSUB9920:FORD=1TO300:NEXTD
- 9378 POKE1034+(SI*40),32:NEXTSI
- 9379 POKE1274,54:FORD=1TO500:NEXTD
- 9380 PRINT""
- 9381 PRINT"NOW WE MULTIPLY 6*41 AND PUT "
- 9382 PRINT"THE PRODUCT IN THE CORRECT PLACE.":FORK=1TO2000:NEXTK
- 9383 GOSUB17800:FORD=1TO1000:NEXTD:GOSUB18000:REM*** FIDDLEPROOFING ***
- 9384 GOSUB48005:REM*** SPACE BAR ***
- 9392 PRINT"[147]":PRINT
- 9394 PRINT"";TAB(8);"006"
- 9396 PRINT" [164][164][164][164][164]"
- 9398 PRINT" 41)246":FORK=1TO1000:NEXTK
- 9400 PRINT"6*41 IS 246.":FORK=1TO3000:NEXTK
- 9402 PRINT"";TAB(8);"246"
- 9404 PRINTTAB(8);"[163][163][163]"
- 9406 PRINT" "
- 9408 FORK=1TO1000:NEXTK
- 9410 PRINT" SUBTRACT."
- 9412 FORK=1TO1000:NEXTK:GOSUB18000
- 9414 GOSUB48005:REM*** SPACE BAR ***
- 9422 PRINT"[147]":PRINT
- 9424 PRINT"";TAB(8);"006"
- 9426 PRINT" [164][164][164][164][164]"
- 9428 PRINT" 41)246 "
- 9430 PRINTTAB(8);"246"
- 9432 PRINTTAB(8);"[163][163][163]"
- 9434 PRINTTAB(8);"000"
- 9440 FORK=1TO2000:NEXTK
- 9450 GOSUB9600:REM*** WIPEOUT ***
- 9478 GOTO7900
- 9479 :
- 9599 :
- 9600 S=1184:F=1184+35:REM*** WIPEOUT **
- 9610 FORX=STOF
- 9620 POKEX,45
- 9630 NEXTX
- 9640 FORX=STOF
- 9650 POKEX,32
- 9660 NEXTX
- 9670 S=S+41:F=F+39
- 9680 IFS<FTHEN9610
- 9690 RETURN
- 9799 :
- 9819 :
- 9820 REM***** R2D2 SHORT TALK HI ****
- 9821 S=54272:DR=16
- 9822 FORL=STOS+24:POKEL,0:NEXT
- 9823 POKES+5,9:POKES+6,0
- 9824 POKES+24,5
- 9825 FORK=1TO10
- 9827 POKES+1,34:POKES,75
- 9828 POKES+4,33
- 9829 FORT=1TODR:NEXT
- 9830 POKES+4,32:FORT=1TO50:NEXT
- 9831 POKES+1,43:POKES,52
- 9832 POKES+4,33
- 9833 POKE1163,160:FORD=1TO20:NEXT:POKE1163,32
- 9834 POKES+4,32:FORT=1TO50:NEXTT:NEXTK
- 9835 POKES+24,0
- 9836 RETURN
- 9837 :
- 9839 :
- 9840 REM***** R2D2 SHORT TALK LOW ****
- 9842 S=54272:DR=16
- 9843 FORL=STOS+24:POKEL,0:NEXT
- 9844 POKES+5,9:POKES+6,0
- 9845 POKES+24,5
- 9846 FORK=1TO10
- 9847 POKES+1,17:POKES,37
- 9848 POKES+4,33
- 9849 FORT=1TODR:NEXT
- 9850 POKES+4,32:FORT=1TO50:NEXT
- 9851 POKES+1,21:POKES,154
- 9852 POKES+4,33
- 9853 POKE1163,160:FORD=1TO20:NEXT:POKE1163,32
- 9854 POKES+4,32:FORT=1TO50:NEXTT:NEXTK
- 9855 POKES+24,0
- 9856 RETURN
- 9857 :
- 9919 REM*** DROPPING TONES ***
- 9920 S=54272:DP=0:DR=64
- 9921 FORL=STOS+24:POKEL,0:NEXT
- 9922 POKES+5,9:POKES+6,0:REM ADSR
- 9923 POKES+24,5:REM SET VOLUME
- 9924 DP=DP+1:ONDPGOTO9925,9926,9927,9928,9929,9930,9931
- 9925 POKES+1,28:POKES,214:GOTO9935
- 9926 POKES+1,25:POKES,177:GOTO9935
- 9927 POKES+1,22:POKES,227:GOTO9935
- 9928 POKES+1,21:POKES,154:GOTO9935
- 9929 POKES+1,19:POKES,63:GOTO9935
- 9930 POKES+1,17:POKES,37:GOTO9935
- 9931 POKES+1,15:POKES,70:GOTO9935
- 9935 POKES+4,33:REM GATE SAWTOOTH WAVEFORM
- 9937 FORT=1TODR:NEXTT
- 9940 POKES+4,32:FORT=1TO50:NEXTT:REM RELEASE S W
- 9942 IFDP<7THENRETURN
- 9944 POKES+24,0:REM TURN OFF VOLUME
- 9945 RETURN
- 11627 :
- 11628 REM**** CONTINUE HARDER WORK ****
- 11629 :
- 11630 PRINT"[147]":PRINT
- 11650 PRINT"";TAB(8);"00"
- 11670 PRINT" [164][164][164][164][164]"
- 11690 PRINT" 24)192":FORK=1TO2000:NEXTK
- 11710 PRINT"THERE ARE NINE 2'S IN 19."
- 11730 PRINT" SO"
- 11750 PRINT" THERE ARE PROBABLY NINE 24'S IN 192.":GOSUB18000:GOSUB48005
- 11760 GOSUB16100
- 11770 PRINT"";TAB(8);"00"
- 11790 PRINT" "
- 11810 PRINT" "
- 11812 FORNI=0TO6:REM*** DROP IN A NINE
- 11813 POKE1034+(NI*40),57
- 11814 IFNI>0THENGOSUB9924:FORD=1TO300:NEXTD:GOTO11816
- 11815 GOSUB9920:FORD=1TO300:NEXTD
- 11816 POKE1034+(NI*40),32:NEXTNI
- 11819 POKE1274,57
- 11830 FORK=1TO500:NEXTK
- 11850 PRINT""
- 11870 PRINT"NOW WE MULTIPLY 9*24 AND PUT "
- 11890 PRINT"THE PRODUCT IN THE CORRECT PLACE.":FORK=1TO2000:NEXTK
- 11900 GOSUB17800:FORD=1TO1000:NEXTD:GOSUB18000
- 11910 GOSUB48005
- 11990 PRINT"[147]":PRINT
- 12010 PRINT"";TAB(8);"009"
- 12030 PRINT" [164][164][164][164][164]"
- 12050 PRINT" 24)192":FORK=1TO1000:NEXTK
- 12070 PRINT"9*24 IS 216.":FORK=1TO4000:NEXTK
- 12090 PRINT"";TAB(7);216
- 12110 PRINTTAB(8);"[163][163][163] "
- 12130 PRINT" "
- 12150 FORK=1TO2000:NEXTK
- 12170 PRINT"WE SEE THAT 216 CAN'T BE SUBTRACTED "
- 12190 PRINT" SO WE WILL TRY A SMALLER NUMBER.":FORD=1TO4500:NEXTD
- 12194 GOSUB47300:FORD=1TO2000:NEXTD:GOSUB18000
- 12195 PRINT:INPUT"WHAT NUMBER SHOULD WE TRY";NU
- 12196 IFNU<>8THENPRINT"THE NUMBER TO TRY IS 8.":GOSUB48000
- 12430 PRINT"[147]";TAB(8);"00"
- 12450 PRINT" [164][164][164][164][164]"
- 12470 PRINT" 24)192":FORD=1TO1000:NEXTD
- 12472 FOREI=0TO6:REM DROP IN AN 8
- 12473 POKE1034+(EI*40),56
- 12474 IFEI>0THENGOSUB9924:FORD=1TO300:NEXTD:GOTO12476
- 12475 GOSUB9920:FORD=1TO300:NEXTD
- 12476 POKE1034+(EI*40),32:NEXTEI
- 12477 POKE1274,56:FORD=1TO500:NEXTD
- 12490 PRINT"NOW WE MULTIPLY 8*24 AND PUT THE "
- 12510 PRINT"PRODUCT IN THE CORRECT PLACE.":FORD=1TO2000:NEXTD
- 12520 GOSUB17800:FORD=1TO1000:NEXTD:GOSUB18000
- 12530 GOSUB48005:REM*** SPACE BAR ***
- 12630 PRINT"[147]";TAB(8);"008"
- 12650 PRINT" [164][164][164][164][164]"
- 12670 PRINT" 24)192"
- 12690 FORD=1TO1000:NEXTD
- 12710 PRINT"8*24 IS 192."
- 12730 FORD=1TO3000:NEXTD
- 12750 PRINT"";TAB(8);"192"
- 12770 PRINT" "
- 12790 FORD=1TO1000:NEXTD
- 12810 PRINT"";TAB(8);"[163][163][163]":FORD=1TO2000:NEXTD
- 12830 PRINT" SUBTRACT."
- 12850 FORK=1TO1000:NEXTK:GOSUB18000
- 12870 GOSUB48005:REM*** SPACE BAR ***
- 12950 PRINT"[147]":PRINT
- 12970 PRINT"";TAB(8);"008"
- 12990 PRINT" [164][164][164][164][164]"
- 13010 PRINT" 24)192 "
- 13030 PRINTTAB(8);"192"
- 13050 PRINTTAB(8);"[163][163][163]"
- 13070 PRINTTAB(8);"000"
- 13090 FORK=1TO3000:NEXTK
- 13095 GOSUB9600:REM**** WIPEOUT ****
- 13096 RETURN:REM*** TO LINE 8052 ***
- 14997 :
- 14998 :
- 14999 REM**** STUDENT INSTRUCTIONS ****
- 15000 PRINT"[147]":PRINT:PRINT
- 15005 PRINT" HERE ARE TWO THINGS TO REMEMBER "
- 15010 PRINT" WHEN YOU WORK ON THIS PROGRAM.":PRINT:PRINT
- 15015 FORD=1TO3000:NEXTD
- 15020 PRINT" FIRST[146] WHEN YOU SEE THE FLASHING "
- 15025 PRINT" SQUARE YOU ARE TO TYPE IN SOME- "
- 15030 PRINT" THING.THEN PRESS THE RETURN[146] KEY.":FORD=1TO8000:NEXTD
- 15035 PRINT:PRINT" SECOND[146] THE LONG BAR ON THE KEY-"
- 15040 PRINT" BOARD IS THE SPACE BAR[146].PRESS IT "
- 15042 PRINT" ONLY WHEN I TELL YOU.":FORD=1TO4000:NEXTD:GOSUB18000
- 15043 PRINT"LIKE RIGHT NOW!"
- 15046 GOSUB48005
- 15050 PRINT"[147] THIS PROGRAM IS TO SHOW YOU HOW":PRINT
- 15055 PRINT" TO SOLVE PROBLEMS.FIRST WE WILL SOLVE":PRINT
- 15060 PRINT" A SIMPLE PROBLEM BY LOOKING AT SOME":PRINT
- 15065 PRINT" PICTURES.THEN I WILL SHOW YOU HOW ":PRINT
- 15070 PRINT" YOU CAN DO IT WITH SIMPLE MATH.":PRINT:PRINT:FORD=1TO4000:NEXTD
- 15071 PRINT"THERE IS A QUIZ AT THE END OF THE PROGRAM."
- 15072 FORD=1TO2000:NEXTD
- 15075 GOSUB18000:GOSUB48005:REM*** SPACE BAR ***
- 15085 GOTO13
- 15998 :
- 15999 :
- 16000 REM*** TEACHER INSTRUCTIONS ***
- 16010 PRINT"[147]TEACHER INSTRUCTIONS":PRINT:PRINT
- 16020 PRINT" THIS PROGRAM REVIEWS THE GENERAL"
- 16030 PRINT" CONCEPT OF DIVISION.":PRINT
- 16040 PRINT" THE PROGRAM SUPPORTS THE TEACHING "
- 16050 PRINT" OF DIVISION (2 DIGIT DIVISORS).":PRINT
- 16052 PRINT" THE INPUT TECHNIQUES AND PACE ARE "
- 16054 PRINT" DESIGNED FOR A GRADE 5 READING LEVEL.":PRINT
- 16055 PRINT" THE STUDENT CAN CHOOSE THE LEVEL "
- 16060 PRINT" OF DIFFICULTY.":PRINT
- 16061 PRINT" THE PROGRAM CONTAINS SOUND."
- 16064 :
- 16065 GOSUB48005:REM*** SPACE BAR ***
- 16075 GOTO13
- 16100 PRINT" ":RETURN
- 17498 :
- 17499 REM**** FLASHING NUMBERS ****
- 17500 FORX=1TO40
- 17502 POKE1349,180:POKE1352,178:POKE1353,180:FORD=1TO90:NEXTD
- 17504 POKE1349,52:POKE1352,50:POKE1353,52:FORD=1TO90:NEXTD:NEXTX
- 17506 RETURN
- 17598 :
- 17599 REM**** FLASHING NUMBERS ****
- 17600 FORX=1TO40
- 17602 POKE1349,179:POKE1352,177:POKE1353,181:FORD=1TO90:NEXTD
- 17604 POKE1349,51:POKE1352,49:POKE1353,53:FORD=1TO90:NEXTD:NEXTX
- 17606 RETURN
- 17698 :
- 17699 REM***** FLASHING NUMBERS *****
- 17700 FORX=1TO40
- 17702 POKE1349,178:POKE1352,177:POKE1353,185:FORD=1TO90:NEXTD
- 17704 POKE1349,50:POKE1352,49:POKE1353,57:FORD=1TO90:NEXTD:NEXTX
- 17706 RETURN
- 17800 FORX=1TO15:POKE1396,31:FORD=1TO90:NEXTD:REM*** FLASHING ARROW ***
- 17810 POKE1396,159:FORD=1TO90:NEXTD:NEXTX
- 17820 RETURN
- 17998 :
- 17999 REM**** FIDDLEPROOFING ****
- 18000 FORD=1TO20:GETZ$:NEXTD:RETURN
- 18004 :
- 18099 :
- 18100 PRINT" O[175][180] O[175][180] O[175][180] O[175][180] O[175][180]
- 18110 [153]" (null)U /U (null)U (null)U (null)U FN(null) FN(null) FN(null) FN(null) FN(null)
- 18120 PRINT" [167] [165] [167] [165] [167] [165] [167] [165] [167] [165]
- 18130 [153]" THEN FN THEN FN THEN FN THEN FN THEN FN
- 18135 RETURN
- 18198 :
- 18199 REM***** COMMANDER LABEL *****
- 18200 POKE1277,3:POKE1278,15:POKE1279,13:POKE1280,13:POKE1281,1:POKE1282,14
- 18210 POKE1283,4:POKE1284,5:POKE1285,18:POKE1286,19
- 18220 RETURN
- 19998 :
- 19999 :
- 20000 PRINT"[147]":REM*** STAR TRAIL ***
- 20010 POKE1224+35,42:GOSUB30000
- 20020 POKE1224+35,32:GOSUB30000
- 20030 POKE1344+30,42:GOSUB30000
- 20040 POKE1344+30,32:GOSUB30000
- 20050 POKE1464+27,42:GOSUB30000
- 20060 POKE1464+27,32:GOSUB30000
- 20070 POKE1584+22,42:GOSUB30000
- 20080 POKE1584+22,32:GOSUB30000
- 20090 POKE1504+14,42:GOSUB30000
- 20100 POKE1504+14,32:GOSUB30000
- 20110 POKE1384+6,42:GOSUB30000
- 20120 POKE1384+6,32:GOSUB30000
- 30000 FORD=1TO100:NEXTD:RETURN
- 31200 V=1307:E=0
- 31202 FORG=1TO7:F=42
- 31205 IFE=1ORE=3ORE=5ORE=7THENF=32
- 31210 FORP=VTOV+25:POKEP,F:NEXTP
- 31220 FORP=V+25TOV+105STEP40:POKEP,F:NEXTP
- 31230 FORP=V+105TOV+80STEP-1:POKEP,F:NEXTP
- 31240 FORP=V+80TOVSTEP-40:POKEP,F:NEXTP
- 31245 E=E+1
- 31248 NEXTG
- 31250 RETURN
- 33000 PRINT"[147]":REM++++UNIVERSE++++
- 33010 X=10:Y=2:GOSUB60000:PRINT" . ."
- 33020 X=20:Y=4:GOSUB60000:PRINT" . ."
- 33030 X=5:Y=6:GOSUB60000:PRINT" ."
- 33040 X=15:Y=8:GOSUB60000:PRINT" ."
- 33050 X=20:Y=10:GOSUB60000:PRINT" ."
- 33060 X=5:Y=11:GOSUB60000:PRINT" ."
- 33070 X=10:Y=15:GOSUB60000:PRINT" ."
- 33080 X=20:Y=16:GOSUB60000:PRINT" . "
- 33090 X=15:Y=18:GOSUB60000:PRINT" . "
- 34000 RETURN
- 39998 :
- 39999 REM**** STARSHIPS ****
- 40000 PRINT"[147]";:PRINT""
- 40001 PRINT" [205] [206]
- 40010 [153]" LEN WAITLEN
- 40020 PRINT" [206] [205]
- 40025 [129]K[178]1[164]200:[130]K
- 40030 [142]
- 42000 [153]"LOAD"
- 42001 [153]" (null) (null)
- 42002 PRINT" [205] [206]
- 42003 [153]" (null) (null)
- 42004 PRINT" [146]
- 42005 [153]"LENLENLENLENLENLEN ..WAITLENLENLENLENLEN"
- 42006 [153]" WAIT
- 42007 PRINT" [206] [205]
- 42008 [153]" (null) (null)
- 42009 PRINT" [206] [205]
- 42010 [129]K[178]1[164]200:[130]K
- 42020 [142]
- 44000 [153]"LOAD"
- 44010 [153]" (null) (null)
- 44020 PRINT" [205] [206]
- 44030 [153]" (null) (null)
- 44040 PRINT" [205] [206]
- 44050 [153]" (null) (null)
- 44060 PRINT" [169] [223][146]
- 44070 [153]" WAIT
- 44080 PRINT" [195][195][195][195][195][195][195][195][195][195][195] [188] [190] [146][195][195][195][195][195][195][195][195][195]"
- 44090 PRINT" [146]
- 44100 [153]" (null) WAITSTEP
- 44110 PRINT" [206] [205]
- 44120 [153]" (null) (null)
- 44130 PRINT" [206] [205]
- 44140 [153]" (null) (null)
- 44150 PRINT" [206] [205]
- 44160 [153]"LOAD"
- 44170 [142]
- 45498 [143]****** STAR GENERATOR ******
- 45500 [153]"LOAD";
- 45502 Z[178]0
- 45510 [129]K[178]1[164]10:[130]K:[153]""
- 45520 [129]D[178]1[164][181](22[172][187](TI))
- 45530 [153]"";:[130]D
- 45540 [129]R[178]1[164][181](40[172][187](1))
- 45550 [153]"";:[130]R
- 45560 [153]".":Z[178]Z[170]1
- 45570 [129]T[178]1[164]5:[130]T
- 45572 [139]Z[178]30[167][142]
- 45573 [137]45510
- 45999 :
- 46000 S[178]1024:F[178]1024[170]35:[143]** WIPEOUT **
- 46010 [129]X[178]S[164]F
- 46020 [151]X,45
- 46030 [130]X
- 46040 [129]X[178]S[164]F
- 46050 [151]X,32
- 46060 [130]X
- 46070 S[178]S[170]41:F[178]F[170]39
- 46080 [139]S[179]F[167]46010
- 46090 [142]
- 46100 [129]L[178]1189[164]1219:[151]L,160:[130]L
- 46110 [129]L[178]1829[164]1859:[151]L,160:[130]L
- 46120 [129]L[178]1189[164]1829[169]40:[151]L,160:[130]L
- 46130 [129]L[178]1219[164]1859[169]40:[151]L,160:[130]
- 46140 [142]
- 46999 :
- 47000 [153]"LOAD";
- 47010 [153]" (null)TAB(TAB((null)
- 47011 PRINT" [165][163][163][167]
- 47012 [153]" (null)FN.TOTHEN(null)
- 47013 PRINT" [165][165] [167] [165]
- 47014 [153]" FNFN.TAB(THEN FN
- 47015 PRINT" [165][165] [167] [165]
- 47016 [153]" (null)(null)TAB(TAB(TAB(TAB((null)(null)
- 47017 PRINT" [163] [163]
- 47050 [142]
- 47298 :
- 47299 [143]*** CROSS OUT WRONG ANSWER ***
- 47300 [151]1271,77:[151]1276,78
- 47310 [151]1312,77:[151]1315,78
- 47320 [151]1432,78:[151]1435,77
- 47330 [151]1471,78:[151]1476,77
- 47340 [151]1353,77:[151]1354,78
- 47345 [151]1393,78:[151]1394,77
- 47350 [142]
- 47999 :
- 48000 [143]*** BULLETPROOF SPACE BAR ***
- 48005 [153]"PRESS SPACE BARWAIT."
- 48010 [161]Z$:[139]Z$[178]""[167]48010
- 48020 Z[178][198](Z$)
- 48030 [139]Z[179][177]160[175]Z[179][177]32[167]48010
- 48040 [142]
- 48098 :
- 48099 :
- 48100 [143]*** MUSIC GENERATOR ****
- 48105 S[178]54272:SQ[178]SQ[170]1
- 48110 [129]L[178]S[164]S[170]24:[151]L,0:[130]
- 48115 [139]SQ[178]1[176]SQ[178]4[167][151]S[170]5,88:[151]S[170]6,89:[137]48130
- 48120 [151]S[170]5,9:[151]S[170]6,0
- 48125 [139]SQ[178]2[176]SQ[178]3[167][151]S[170]24,8:[137]48140
- 48130 [141]59100:[143]** SET VOLUME ***
- 48140 [135]HF,LF,DR
- 48150 [139]HF[179]0[167][141]59200:[142]:[143]***TURN OFF VOLUME***
- 48160 [151]S[170]1,HF:[151]S,LF
- 48170 [151]S[170]4,33
- 48180 [129]T[178]1[164]DR:[130]
- 48190 [151]S[170]4,32:[129]T[178]1[164]50:[130]
- 48192 [137]48140
- 48194 :
- 48198 :
- 48199 [143]**** STAR WARS ****
- 48200 [131]9,159,128,9,159,128,9,159,128
- 48205 [131]12,216,512,19,63,512,17,37,128
- 48210 [131]16,47,128,14,107,128,25,177,512
- 48215 [131]19,63,256
- 48220 [131]17,37,128,16,47,128,14,107,128
- 48225 [131]25,177,512,19,63,256
- 48230 [131]17,37,128,16,47,128,17,37,128
- 48240 [131]14,107,512,9,159,128,9,159,128
- 48245 [131]12,216,512,19,63,512
- 48250 [131]17,37,128,16,47,128,14,107,128
- 48255 [131]25,177,512,19,63,256
- 48260 [131]17,37,128,16,47,128,14,107,128
- 48265 [131]25,177,512,19,63,256
- 48270 [131]17,37,128,16,47,128,17,37,128
- 48275 [131]14,107,1024,-1,-1,-1
- 48276 :
- 48299 [143]**** UP UP AND AWAY ****
- 48300 [131]19,63,256,19,63,128,25,177,384
- 48305 [131]28,214,128,32,94,768
- 48310 [131]32,94,128,32,94,128,32,94,128
- 48315 [131]34,75,256,28,214,384
- 48320 [131]25,177,128,28,214,896,-1,-1,-1
- 48398 :
- 48498 :
- 48499 [143]*** CANTINA BAND ****
- 48500 [131]14,107,128,19,63,128,14,107,128
- 48505 [131]19,63,128
- 48508 [131]14,107,64,19,63,128,14,107,128
- 48510 [131]13,156,64,14,107,128
- 48512 [131]14,107,64,13,156,64,14,107,64
- 48515 [131]12,216,128
- 48517 [131]12,32,64,12,216,64,12,32,64
- 48520 [131]11,114,256,9,159,256
- 48522 [131]14,107,128,19,63,128,14,107,128
- 48525 [131]19,63,128
- 48527 [131]14,107,64,19,63,128,14,107,64
- 48535 [131]12,216,128,12,216,192,12,32,64
- 48540 [131]12,216,128
- 48542 [131]17,37,128,15,70,128,14,107,128
- 48545 [131]12,216,128
- 48547 [131]14,107,128,19,63,128,14,107,128
- 48550 [131]19,63,128
- 48552 [131]14,107,64,19,63,128,14,107,128
- 48555 [131]13,156,64,14,107,128
- 48557 [131]17,37,128,17,37,192
- 48560 [131]14,107,64,12,216,128
- 48562 [131]11,114,256,9,159,256
- 48565 [131]9,159,256,11,114,256
- 48567 [131]14,107,256,17,37,256
- 48570 [131]20,100,128,19,63,128,13,156,64
- 48572 [131]14,107,192,11,114,512
- 48575 [131]-1,-1,-1
- 49998 :
- 49999 [143]**** SCREEN BLANKING ****
- 50000 [129]K[178]1[164]50:[151]53265,[194](53265)[175]235:[151]53265,[194](53265)[176]16:[130]K
- 50005 [129]D[178]1[164]500:[130]D
- 50010 [142]
- 50998 :
- 50999 [143]***** POD ACTION *****
- 51000 POD[178]1030:SR[178]0
- 51002 [151]POD,42:SR[178]SR[170]1:POD[178]POD[170]41
- 51003 [129]D[178]1[164]50:[130]D
- 51004 [139]SR[177]5[167][151]POD[171](6[172]41),32:[129]D[178]1[164]50:[130]D
- 51005 [139][194](2014)[178]42[167][151]1850,32:[151]1891,32:[151]1932,32:[151]1973,32
- 51006 [151]2014,32:[139]POD[177]2014[167]51030
- 51007 [137]51002
- 51030 [129]X[178]1504[164]1510[169]2:[151]X,42:[141]51100:[130]X
- 51040 [151]1504,32:X[178]1504
- 51050 [151]X[170]8,42:[141]51100
- 51060 [151]X[170]2,32:X[178]X[170]2
- 51065 [139][194](1542)[178]42[167]51080
- 51070 [137]51050
- 51080 [129]Y[178]1538[164]1543:[151]Y,32:[141]51100:[130]Y
- 51082 S[178]1504:F[178]1543
- 51084 [129]X[178]S[164]F:[151]X,42:[129]D[178]1[164]50:[130]D:[151]X,32:[130]X
- 51100 [129]D[178]1[164]70:[130]D:[142]
- 58091 :
- 58092 :
- 58093 [143]**** HARD TEST QUESTION ****
- 58094 [153]"LOAD"[163]11);"TOTOTOTOTO"
- 58095 [153][163]9);"27)189"
- 58096 [153]"NOW WRITE THIS PROBLEM DOWN ON A PIECE OF PAPER.":[153]
- 58097 [153][163]1);"SEE IF YOU CAN SOLVE IT.":[129]K[178]1[164]3000:[130]K:[141]18000
- 58098 [153]""[163]4);"PRESS SPACE BARWAIT TO SEE THE ANSWER."
- 58100 [161]M$:[139]M$[178]""[167]58100
- 58102 M[178][198](M$)
- 58104 [139]M[179][177]160[175]M[179][177]32[167]58100
- 59003 [153]"LOAD"
- 59004 [153]" TOTOTOTOTO
- 59005 PRINT" 27)189
- 59006 [129]K[178]1[164]2000:[130]K
- 59010 [153]"LOAD"
- 59012 [153]" 0
- 59014 PRINT" [164][164][164][164][164]
- 59016 [153]" 27)189
- 59018 FORK=1TO1000:NEXTK
- 59020 PRINT"[147]"
- 59022 PRINT" 00
- 59024 [153]" TOTOTOTOTO
- 59026 PRINT" 27)189
- 59028 [129]K[178]1[164]1000:[130]K
- 59030 [153]"LOAD"
- 59032 [153]" 007
- 59034 PRINT" [164][164][164][164][164]
- 59036 [153]" 27)189
- 59038 FORK=1TO1000:NEXTK
- 59040 PRINT"[147]"
- 59042 PRINT" 007
- 59044 [153]" TOTOTOTOTO
- 59046 PRINT" 27)189
- 59048 [153]" 189
- 59050 FORK=1TO1000:NEXTK
- 59060 PRINT"[147]"
- 59062 PRINT" 007
- 59064 [153]" TOTOTOTOTO
- 59066 PRINT" 27)189
- 59068 [153]" 189
- 59070 PRINT" [163][163][163]
- 59080 [129]K[178]1[164]1000:[130]K
- 59082 [153]"LOAD"
- 59084 [153]" 007
- 59086 PRINT" [164][164][164][164][164]
- 59088 [153]" 27)189
- 59089 PRINT" 189
- 59090 [153]" TAB(TAB(TAB(
- 59092 PRINT" 000
- 59094 [129]K[178]1[164]3000:[130]K:[141]9600:[129]D[178]1[164]1000:[130]D:[137]9095
- 59100 [129]SV[178]1[164]15[169]5:[151]S[170]24,SV:[129]D[178]1[164]10:[130]D:[130]SV:[142]
- 59200 [129]SV[178]15[164]1[169][171]5:[151]S[170]24,SV:[129]D[178]1[164]10:[130]D:[130]SV:[142]
- 60000 [153]"";
- 60010 [139]Y[179][177]0[167][151]214,Y[171]1:[153]
- 60020 [151]211,X
- 60030 [142]
-