home *** CD-ROM | disk | FTP | other *** search
Wrap
1 GOTO910 2 REM ** ML STOP KEY DISABLE ** 3 PRINT"x[169]=[141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 4 [153]"xhhh+hNOThhhhhhhPRINT#HRUNHX`111" 5 [153]"hhhhhhh`1" 6 [143] ** 4 - POP ML SUBROUTINE ** 10 [143] **GENERAL INPUT ROUTINE ** 15 : 30 : 35 [143] +++ INPUT SECTION +++ 40 [151]UO,0:UR$[178]"":UI$[178]"" 42 [139]UL[178]0[167]UL[178]80 45 [153]" CMDCMD";:[151]UC,0 50 [161]UI$:[139]UI$[178]""[167]50 55 [139]UI$[178][199](13)[175][195](UR$)[177][178]1[167][151]UC,1:[153]" CMD";:[137]85 60 [139]UI$[178][199](20)[167]105 62 [139] [195](UR$)[178][177]UL[167]50 65 [141]120:[143] CHECK FOR VALID CHARACTER 70 UR$[178]UR$[170]UI$ 75 [153]UI$; 80 [137]50 85 [143] +++ CHECK FOR HELP REQUEST +++ 90 [139]UR$[178]UX$[167]195:[143] EXIT TO HELP ROUTINE 95 [139]UF[178]1[167][141]240 100 UF[178]0:[153]:[142] 102 [143] ++ CHECK DELETE ++ 105 [139][195](UR$)[179]1[167]50 110 UR$[178][200](UR$,[195](UR$)[171]1) 115 [153]"CMD CMDCMD";:[137]50 120 [143] ++ CHECK FOR VALID CHARACTERS ++ 125 [139][195](US$)[178]0[167]150 130 [129]US[178]1[164][195](US$) 135 [139]UI$[178][202](US$,US,1)[167][142] 140 [130] 145 UI$[178]"":[142] 150 [143] ** STANDARD INPUT ** 152 [139][198](UI$)[178]46[167][142] 155 [139]UI$[178][199](32)[167][142] 160 [139][198](UI$)[179]48[176][198](UI$)[177]57[167]170 165 [142] 170 [139][198](UI$)[179]65[176][198](UI$)[177]90[167]180 175 [142] 180 [139][198](UI$)[179]193[176][198](UI$)[177]218[167]UI$[178]"":[142] 185 [139][194](UT)[178]UU%[167]UI$[178][199]([198](UI$)[171]128):[142] 187 [142] 190 UI$[178]"":[142] 195 UF[178]1:[143] +++ HELP ROUTINE EXIT +++ 197 [141]250 200 [141]245 205 [129]UQ[178]UB[164](U2%[172]256[170]U1%[170]U3%[171]2) 210 UQ%(UQ[171]UB)[178][194](UQ):[130]:[153]"LOAD" 215 UZ[178]1:UV%[178][194](UT) 216 [137]300 217 UZ[178]0:US$[178]UJ$:UG$[178]UK$:UP[178]UJ:UL[178]UK 218 [139][194](50003)[178]0[167][151]53281,1:[153]"LOAD";:[151]53281,6:[151]53280,14:[137]220 219 [153]"LOAD"; 220 UT$[178]UL$:[151]UT,UV%:[129]UQ[178]UB[164](U2%[172]256[170]U1%[170]U3%[171]3) 225 [151]UQ,UQ%(UQ[171]UB):[130] 230 [151]U1,U1% 232 [151]U2,U2% 233 [151]U4,U4% 234 [151]U3,U3%[171]1 235 [137]35 240 UD%[178]((U2%[172]256[170]U1%[170]U3%)[171]UB)[173]40:[153][200](UD$,UD%[170]1):[142] 245 [153][200](UD$,24);" HELP COMING WAIT ":[142] 250 U1%[178][194](U1):U2%[178][194](U2):U3%[178][194](U3):U4%[178][194](U4) 251 UJ$[178]US$:UK$[178]UG$:UL$[178]UT$:UJ[178]UP:UK[178]UL 255 [142] 300 [143] ** MENU ** 301 : 302 [153]"LOAD":[151]UT,UU%:[139][194](50003)[178]0[167][151]53281,9:[151]53280,8 303 : 305 [153]" MENU" 310 [153]" --------------------------------------" 315 [153]" 1. BEGIN GUESS A NUMBER" 320 [153]" 2. STUDENT INSTRUCTIONS" 325 [153]" 3. TEACHER INSTRUCTIONS" 330 [153]" 4. MODIFICATION OF PROGRAM" 335 [153]" 5. QUIT" 340 [153]" --------------------------------------" 345 [153]" PRESS A NUMBER KEY (1-5) "; 350 UL[178]1:US$[178]"12345":[141]35:[143] INPUT ROUTINE 351 [139][195](UR$)[177]1[167]300 352 US$[178]"" 355 [145][197](UR$)[141]1000,400,500,600,396 360 [137]300 395 [143] ** RE-ENABLE STOP KEY AND END ** 396 [139][194](50003)[179][177]1[175][194](50003)[179][177]160[175][194](50003)[179][177]0[167]399 397 [158]UU[170]71:[139][194](50003)[178]0[167][151]53281,6:[151]53280,14 398 [153]"CONTLOAD":[128] 399 [141]875:[142] 400 [143] ** STUDENT INSTRUCTIONS ** 405 [153]"LOAD":[151]UT,UL%:[139][194](50003)[178]0[167][151]53281,0:[151]53280,0 406 PU$[178]UG$:PU[178]UP:UP[178]1 410 UP[178]0:UG$[178]"(null)TUDENT RIGHT$NST":[141]850 412 [153]" (null)ELCOME TO CHR$(null)VAL(null)(null)-ATN-(null)(null)(null)PEEKVAL(null)WAIT! RIGHT$N THIS" 413 [153]" GAME YOU ARE SHOWN A NUMBER LINE AND " 414 [153]" YOU ARE ASKED TO GUESS A NUMBER BETWEEN" 416 [153]" ZERO(0) AND NINE(9). (null)HE COMPUTER WILL" 417 [153]" GIVE YOU CLUES TO FIND THE NUMBER." 420 [153]" CHR$(null)(null)STR$CLOSE(null)(null)LEN(null)!!!" 455 [141] 835:UP[178]2:[141]850 460 [153]"(null)OTE:(null)O ADVANCE FROM ONE QUESTION" 470 [153]"TO THE NEXT PRESS THE (null)(null)ATNLENVAL BAR." 475 [153]"RIGHT$F AT ANY TIME YOU WISH TO RETURN" 480 [153]"TO THE (null)VAL(null)(null) PRESS H (null)VAL(null)(null)(null)(null)." 485 [141]835 490 [139]UZ[178]1[167][158]UP%:[137]217 498 UG$[178]PU$:UP[178]PU 499 [142] 500 [143] ** TEACHER INSTRUCTIONS ** 501 [153]"LOAD":[151]UT,UL%:[139][194](50003)[178]0[167][151]53281,2:[151]53280,10 502 UP[178]0:UG$[178]"(null)EACHER RIGHT$NST":[141]850 503 [153]" (null)O THE BEST OF OUR KNOWLEDGE," 504 [153]" THIS PROGRAM IS IN THE PUBLIC" 505 [153]" DOMAIN. RIGHT$F THIS IS NOT THE CASE" 506 [153]" PLEASE CONTACT:" 507 [153]" LENOMMODORE PEEKUSINESS (null)ACHINES" 508 [153]" 3370 (null)HARMACY ATNVE. 509 PRINT" [193]GINCOURT, [207]NTARIO" 510 PRINT" [195]ANADA [205]1[215] 2[203]4" 511 PRINT" (416) 499-4292" 512 UP=1:GOSUB 835:GOSUB 850: 513 PRINT" [208]ROGRAM [206]AME: [199]UESS [193] [206]UMBER" 514 PRINT" [215]RITTEN [194]Y : [195]. [197]DWARDS 515 [153]" (null)PGRADED PEEKY : 516 PRINT" [212]HIS PROGRAM WILL RUN ON ANY 519 [153]" (null)VAL(null) 64 LEN(null)(null)(null)(null)(null)VAL(null) 520 PRINT" [195][207][205][205][207][196][207][210][197] 64 [195][207][205][208][213][212][197][210] 521 [141]835 585 [142] 590 [139]UZ[178]1[167][158]UP%:[137]217 598 UG$[178]PU$:UP[178]PU 599 [142] 600 [143] ** PROGRAM MODIFICATION INST ** 601 [153]"LOAD":[151]UT,UL%:[139][194](50003)[178]0[167][151]53281,9:[151]53280,9 602 PU$[178]UG$:PU[178]UP 605 UP[178]0:UG$[178]"(null)ROGRAM (null)OD":[141]850 610 [153]" (null)HE MODIFCATION AVAILABLE FOR THIS " 612 [153]" PROGRAM CONCERNS THE HINTS THAT THE" 613 [153]" COMPUTER OFFERS AFTER EACH GUESS. ATNT" 614 [153]" PRESENT THESE HINTS ARE SET AS :" 615 [153]" '(null)(null)(null)CLOSE(null)(null)ATN(null)(null). (null)(null)(null)CLOSEATNCLOSEPEEKRIGHT$CHR$CHR$VAL(null)CLOSE(null)(null)(null)PEEKVAL(null)!'" 616 [153]" '(null)(null)(null)CLOSEPEEKRIGHT$CHR$. (null)(null)(null)CLOSEATNCLOSE(null)(null)ATN(null)(null)VAL(null)CLOSE(null)(null)(null)PEEKVAL(null)!'" 617 [153]" (null)(null)(null)VAL: (null)HESE HINTS ARE PERMENANT PARTS OF THE PROGRAM AND EVEN "; 618 [153]"AFTER MODIFICA- TION THEY WILL BE REACTIVATED WHENEVER THE "; 619 [153]"PROGRAM IS LOADED." 660 [141]835 661 UP[178]2:[141]850 663 [153]" (null)O CHANGE THE HINTS THAT ARE GIVEN TO THE STUDENTS TYPE :" 664 [153]" 1465 (null)(null)RIGHT$(null)(null)'******' <(null)VAL(null)(null)(null)(null)>" 665 [153]" (null)(null)" 667 [153]" 1475 (null)(null)RIGHT$(null)(null)'******' <(null)VAL(null)(null)(null)(null)>" 668 [153]" RIGHT$NSERT THE HINT YOU DESIRE IN PLACE OF THE ******"; 669 [153]" BEFORE RUNNING THE PROGRAM," 670 [153]" BUT TAKE CARE THAT THE PROPER HINT IS IN THE RIGHT LINE." 685 [141]835 690 [139]UZ[178]1[167][158]UP%:[137]217 698 UG$[178]PU$:UP[178]PU 699 [142] 700 [143] ** TO USE 8032 LOAD CBM4032 ** 710 [153]"LOADBEFORE RUNNING THIS PROGRAM ON AN 8032 720 PRINT" LOAD THE 'CBM 4032' PROGRAM" 730 SYSUU+71 740 END 797 REM ** TO USE 8032 LOAD CBM4032 ** 798 PRINT"[147]BEFORE RUNNING THIS PROGRAM ON AN 8032 LOAD CBM 4032 PROGRAM" 799 SYS1093:END 800 REM ** T I T L E P A G E ** 802 PRINT"[147]";:POKEUT,UU%:IFPEEK(50003)=0THENPOKE53280,14:POKE53281,6 804 FORI=1TO38:PRINT"[166][146]";:NEXT 806 FORI=1TO22:PRINT"[157][166][146]";:NEXT 808 FORI=1TO37:PRINT"[157][157][166][146]";:NEXT 810 FORI=1TO22:PRINT"[145][157][166][146]";:NEXT 812 PRINT"[169] [146] 814 [153]" WAIT WAITSTEP 816 PRINT" [146] [163][223] 818 [153]"(null) WAIT 820 PRINT"C O M M O D O R E 822 [153]"EDUCATIONAL 824 PRINT"SOFTWARE 826 [143] ** COMMODORE LOGO ** 827 [153][200](UD$,24);"PRESS SPACE BAR OR WAITWAIT":I[178]0 828 [161]A$:[139]A$[179][177]" "[167]I[178]I[170]1:[139]I[179]250[167]828 830 T1$[178]"":T2$[178]"":T3$[178]"":T4$[178]"":I[178]0 832 [137]300 835 [143] ** SPACE BAR PRESS ** 840 [151]UO,0:[153][200](UD$,24);"PRESS SPACE BAR TO CONTINUEWAIT" 844 [161]UI$:[139]UI$[179][177]" "[167]844 846 [142] 850 [143] ** PAGE DESIGN ROUTINE ** 852 UP[178]UP[170]1 855 [153]"LOAD"[200](UT$[170]UP$,21);[201](UP$[170]UG$,18) 860 [153]" --------------------------------------" 864 [139]UH[179][177]0[167]870 865 [153][200](UD$,24);[200](UP$,7);"HELP - PRESS H <RETURN>" 870 UH[178]0:[153]"":[142] 875 [143] ** PLEASE WAIT REMARK ** 880 [153][200](UD$,24);" ONE MOMENT PLEASE... " 885 [142] 900 [143] ** SET UP VARIABLES ** 901 UX$[178]"H":[134]UQ%(1000):UB[178]32768:U1[178]196:U2[178]197:U3[178]198:U4[178]216:UC[178]167:UU[178]1024 902 UT[178]59468:UU%[178]12:UL%[178]14:UP%[178]1146:UM[178]32768:UO[178]158:[151] 50003,0 903 [139][194](50003)[178]0[167]UB[178]1024:U1[178]209:U2[178]210:U3[178]211:U4[178]214:UC[178]204:UU[178]2048 904 [139][194](50003)[178]0[167]UT[178]53272:UU%[178]21:UL%[178]23:UP%[178]2139:UM[178]1024:UO[178]198 905 UD$[178]"" 906 UP$[178]" " 907 UT$[178]" CHR$(null)VAL(null)(null) ATN (null)(null)(null)PEEKVAL(null)CLOSECLOSECLOSECLOSE":[143] PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!*** 908 [142] 910 [143] ** SET VARIABLES ** 915 [141]900 916 : 917 : 920 [143] ** CHECK FOR 8032 ** 925 [153]"LOAD":[153]"CLOSE":[143] SHIFTED SPACE 930 [139][194](UB[170]40)[179][177]96[167][141]700 931 [143] ** MEMORY CHECK ** 932 [139] [184](0)[177]2000[167]937 933 [153]"LOADTHIS MACHINE DOES NOT HAVE ENOUGH" 934 [153]"MEMORY TO RUN THIS PROGRAM !" 935 [158]UU[170]71 936 [128] 937 [153]"LOAD":[139][194](50003)[178]0[167]962 940 [143] ** BASIC 2.0 OR 4.0 OR C-64 SETUP ** 941 [151]1075,133:[151]1076,144:[151]1077,234:[151]1079,4:[151]1080,133:[151]1081,145 942 [151]1091,155:[151]1098,133:[151]1099,144:[151]1100,234:[151]1103,133 943 [151]1104,145:[151]1105,234:[151]1082,234 945 [139][194](50003)[179][177]160[167]955 950 [151]1093,88:[151]1094,228:[151]1097,85:[151]1102,228:[137]965 955 [139][194](50003)[179][177]1[167]990 960 [151]1093,49:[151]1094,230:[151]1097,46:[151]1102,230:[137]965 962 [151]2099,141:[151]2100,20:[151]2101,3:[151]2103,8:[151]2104,141:[151]2105,21 963 [151]2106,3:[151]2115,145:[151]2117,52:[151]2118,234:[151]2121,49:[151]2122,141 964 [151]2123,20:[151]2124,3:[151]2126,234:[151]2127,141:[151]2128,21:[151]2129,3 965 [158]UU[170]48:[143] DISABLE STOP KEY 970 [141]800:[143] TITLE 980 [137]300:[143] MENU 990 [153]"LOADTHE PGM WILL NOT WORK ON THIS MACHINE!":[128] 1000 [139]UZ[178]1[167][158]UP%:[158]UP%:UZ[178]0:[143] ** PROGRAM STARTS HERE ** 1001 [153]"LOAD";:[140]:[139][194](50003)[178]0[167][151]53281,6:[151]53280,14 1020 [143] 1030 [143] GUESS-A-NUMBER APRIL 1981 1040 [143] 1050 [143] PRIMARY GRADE STUDENT GUESSES 1060 [143] A NUMBER FROM 0 - 9 1070 [143] 1080 [143] 8K P.E.T. 1090 [143] 1100 [143] 1110 [143] CHRIS EDWARDS 1120 UT$[178]" GUESS A NUMBER":UG$[178]"":UP[178]0 1130 [143] 1140 [143]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^ (null)CLOSE SAN MATEO COUNTY CLOSE(null) 1150 REM"[221] OFFICE OF EDUCATION [221] [221] & [221] 1160 [143]"(null) COMPUTER-USING EDUCATORS (null) (null) SOFTSWAP (null) 1170 REM"[221] [221] [221] [221] 1180 [143]"(null)333 MAIN STREET, REDWOOD CITY(null) (null)CA 94063 (415)364-5600 EX4401(null) 1190 REM"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174] 1200 [143]"(null) PROGRAMS MAY BE COPIED FOR (null) (null) EDUCATIONAL USE ONLY AND (null) 1210 REM"[221] ARE NOT TO BE SOLD. [221] [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] 1212 : 1215 [143] MODIFIED FOR EXPERIENCE '82 BY RAFFAELO D'ALESSANDRO AND 1216 [143] KEITH D'SOUSA,SARNIA. 1217 : 1220 [153]"LOAD":[151]UT,UU% 1230 [137]1630 1240 K[178]0:[153]"NUMBER LINEWAITONCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDTOTOTOTOTOTOTOTOTOTOTO" 1250 [129]Z[178]1[164]3 1260 B[178]176 1270 [129] Z1[178]UM[170]241 [164] UM[170]277 [169] 4 1280 [151]Z1,B 1290 [129]Z2[178]1[164]20:[130]Z2 1300 [151]Z1,(B[171]128) 1310 B[178]B[170]1 1320 [130]Z1 1330 [130]Z 1340 [142] 1350 [141] 1760 1360 R[178][181]([187](X)[172]10) 1370 [153]"WHAT IS YOUR GUESS? "; 1380 [141]1930 1390 [141]1760 1400 [139] [198](AA$)[177]47[175] [198](AA$)[179]58 [167] 1430 1405 [139]AA$[178]"H"[167]195:[137]1420 1410 [153]"COME ON NOW!" 1420 [137]1370 1430 N[178][197](AA$) 1440 [141]1810 1450 [139] N[178]R [167] 1480 1455 [139]N[177]R[167]1470 1460 [153]""; 1465 [153]"TOO SMALL. TRY A BIGGER NUMBER!" 1467 [137]1370 1470 [153]""; 1475 [153]"TOO BIG. TRY A SMALLER NUMBER!" 1477 [137]1370 1480 [153]"" 1490 [129]Z2[178]1[164]750:[130]Z2 1500 [129]Z[178]1[164] 2:[129]Z1[178]1[164]23 1510 [153][163]23[171]Z1)"YOU WON!WAIT"; 1520 [153][163]Z1) "YOU WON!WAIT" 1530 [130]Z1:[139]Z[178]2[167]1580 1540 [129]Z1[178]23 [164] 1 [169] [171]1 1550 [153][163]23[171]Z1)"YOU WON!WAIT"; 1560 [153][163]Z1) "YOU WON!WAIT" 1570 [130]Z1 1580 [130]Z 1590 [153]"WOULD YOU LIKE TO PLAY AGAIN (Y/N) ?"; 1600 US$[178]"YN":UL[178]1:[141]35:AA$[178]UR$:[139] AA$[178]"Y"[167] Z[178]1:UP[178]UP[170]1:[137]1220 1605 [139]AA$[178]"H"[167]195:[137]300 1610 [139]AA$[178]"N" [167] [153]"LOAD":[141]300 1620 [137]1600 1630 UH[178]1:UG$[178]"":[141]850:[153]"" 1640 [153]"(null)---(null)---(null)---(null)---(null)---(null)---(null)---(null)---(null)---(null)" 1650 [153]"0 1 2 3 4 5 6 7 8 9" 1655 [139] K[178]25 [167] K[178]0:[137]1360 1660 [139]Z[178]1 [167]Z[178]0:[137]1360 1670 [141]1240 1680 [153]"HELLO THERE!" 1690 [129]Z1[178]1[164]500:[130]Z1 1700 [153]"I WANT TO PLAY A GAME WITH YOU." 1710 [153]"I WILL THINK OF A NUMBER AND HIDE" 1720 [153]"IT ON THE LINE. YOU GUESS THE NUMBER." 1725 [141] 835:K[178]25:[137] 1630 1730 [137] 1360 1740 [139] A$[178]"Y" [167] 1350 1750 [153]"LOADBYE NOW...":[141]300 1760 [153]"" 1770 [129]A[178]1[164]16 1780 [153]" " 1790 [130] A 1800 [142] 1810 [153]""; 1820 [129]I1[178]1[164] (N[172]4)[170]1 1830 [153]""; 1840 [130] I1 1850 [129]Z1[178]1[164]5 1860 [153][202](" CMD(null)CMD",(K[170]1)[172]2[171]1,2);:K[178][171]1[172](K[178]0) 1870 [129]Z2[178]1[164]50:[130]Z2 1880 [130]Z1 1890 [153]"CMD";N;"WAIT"; 1900 [139] [195](A1$)[178]2 [167] [153]"CMDCMDCMDCMD ":[137]1920 1910 [153]"CMDCMDCMD " 1920 [142] 1930 US$[178]"0123456789":UL[178]1:[141]35:AA$[178]UR$ 1940 [153][202](" CMD CMD",(K[170]1)[172]2[171]1,2);:K[178][171]1[172](K[178]0):[139]AA$[178]""[167]1930 1950 [142]