home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / ADD-EM-SQUARES (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.6 KB  |  85 lines
  1. 0 ::::::::::::            ::::::::::::     :::::::::::: (null) TO 10 ::::::::::::
  2. 1 "[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]"    "[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]"
  3. 2 "[184]" AN OLD PUBLIC DOMAIN PROGRAM "[184]"    "[184]"   FROM THE EARLY EIGHTIES.   "[184]"
  4. 3 "[184]" IT HAS BEEN UPDATED WITH NEW "[184]"    "[184]" GRAPHICS AND SOUND. THE GAME "[184]"
  5. 4 "[184]" IS NOT VERY CHALLENGING BUT  "[184]"    "[184]" IT LOOKS (null)OD. MIGHT BE OK   "[184]"
  6. 5 "[184]"     FOR YOUNGSTERS JUST      "[184]"    "[184]"   LEARNING ABOUT NUMBERS.    "[184]"
  7. 6 "[184]"  JIM GREEN DID THIS UPDATE,  "[184]"    "[184]" [HE'S NOT VERY SMART, AS YOU "[184]"
  8. 7 "[184]"        YOU CAN TELL].        "[184]"    "[184]"                              "[184]"
  9. 8 "[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]"    "[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]" .
  10. 10 POKE53280,15:POKE53281,15:POKE53265,11
  11. 15 PRINT"[147][142][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187][146]";
  12. 20 PRINT"[161] [146][208]  [146][205]  [146][205] ' [146][208][188] [146][208][208]   [146][208]  [146][208]  [146][167]  [146][208]  [146][208]  [146][208]  [146][208][161][146]";
  13. 25 PRINT"[161][153] [146][186]  [146][167]  [146][167]   [146][192]  [146][167][167]  [223][223][146]  [146][167]  [146][170]  [146][186]  [146][186]  [146][192] [223][223][146][161][146]";
  14. 30 PRINT"[161] [146][170]  [146][186]  [146][186]   [146][186]  [146][167][167]  [204] [146]  [146][186][187] [146][186]  [146][167]  [146][205]  [146][186] [204] [146][161][146]";
  15. 35 PRINT"[188][146][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][190][146]";:POKE53265,27:IFW=1THEN90
  16. 40 PRINT"[151]            INSTRUCTIONS Y/N ":L=6:GOSUB500
  17. 42 GETG$:IFG$<>"Y"ANDG$<>"N"THEN42
  18. 44 IFG$="N"THEN90
  19. 46 POKE53265,11:PRINT"[151]   THE NUMBERS MUST BE ADDED UP TO A
  20. 48 [153]"   COMMON TOTAL ALONG THE HORIZONTAL,
  21. 50 PRINT"      VERTICAL AND DIAGONAL LINES.    "
  22. 52 PRINT" HERE IS THE START AND END OF A GAME [192]
  23. 54 [153]"     13   2   0"[163]24)"13   2  12
  24. 56 PRINT"      0   0  10"TAB(24)" 8   9  10
  25. 58 [153]"      6  16   0"[163]24)" 6  16   5
  26. 60 PRINT"      THE NUMBERS ALL ADD UP TO 27.
  27. 62 [153]"      PRESS <SPACE> TO CONTINUE":[151]53265,27
  28. 64 [161]G$:[139]G$[179][177]" "[167]64
  29. 66 [129]T[178]6[164]23:[151]781,T:[158]59903:[130]:L[178]2:[141]500:[151]53265,11
  30. 68 [153]"ZEROS ARE USED TO FILL IN FOR THE BLANKS";
  31. 70 [153]"BUT MAY ALSO BE PART OF THE NUMBER.
  32. 72 PRINT"NEGATIVE NUMBERS WILL ALSO SHOW UP IN
  33. 74 [153]"THE PUZZLE AND SOLUTION, LIKE  -8, ETC.
  34. 76 PRINT"     THERE ARE THREE LEVELS 1 - 3.
  35. 78 [153]"   LEVEL 1 IS EASY, LEVEL 3 IS HARDER.
  36. 80 PRINT"      PRESS <SPACE> TO CONTINUE":POKE53265,27
  37. 82 GETG$:IFG$<>" "THEN82
  38. 84 L=4:GOSUB500:W=1:GOTO15
  39. 90 FORT=6TO23:POKE781,T:SYS59903:NEXT:L=2:GOSUB500
  40. 92 PRINT"            LEVEL 1 - 2 - 3
  41. 94 [161]G$:[139]G$[179][177]"1"[175]G$[179][177]"2"[175]G$[179][177]"3"[167]94
  42. 96 [139]G$[178]"1"[167]R[178]5
  43. 98 [139]G$[178]"2"[167]R[178]7
  44. 100 [139]G$[178]"3"[167]R[178]9
  45. 102 [129]T[178]6[164]23:[151]781,T:[158]59903:[130]:L[178]2:[141]500
  46. 108 [141]310:[151]53265,11:                       [143]    *** PROGRAM BEGINS
  47. 110 [153]"";:[129]T[178]1[164]9:[153]" WAIT"[166]26)" WAIT";:[130]
  48. 120 J[178]J[170]1:[153]:[153]"PRINT#"[163]12)"ORTANTANTANTAN=TANTANTANTAN=TANTANTANTAN^":M[178]0
  49. 130 [129]Z[178]1[164]9
  50. 140 [139]B(Z)[177]9[167][153][163]13)"CMD(null)SYS"B(Z)"PRINT#(null)";:[137]180
  51. 150 [139]B(Z)[179][171]9[167][153][163]13)"CMD(null)DEF"B(Z)"PRINT#(null)";:[137]180
  52. 160 [139]B(Z)[179]0[167][153][163]13)"CMD(null)"B(Z)"PRINT# (null)";:[137]180
  53. 170 [153][163]13)"CMD(null)POKE"B(Z)"PRINT# (null)";
  54. 180 [139]Z[178]3[176]Z[178]6[167][153]:[153][163]12)"-TANTANTANTAN(null)TANTANTANTAN(null)TANTANTANTAN<"
  55. 190 [139]Z[178]9[167][153]:[153][163]12)"/TANTANTANTAN>TANTANTANTAN>TANTANTANTANEXP"
  56. 200 [139]B(Z)[178]A(Z)[167]M[178]M[170]1
  57. 210 [130]
  58. 220 [129]T[178]1[164]9:[153]" PRINT                                     PRINT " :[130]
  59. 225 [151]53265,27
  60. 230 [139]M[178]9[167][141]380:[128]
  61. 240 [153]" PRINT         THIS IS GUESS NUMBER"J
  62. 250 [153]" PRINT           YOU HAVE"M"RIGHT":L[178]2:[141]500
  63. 260 [133]" PRINT          ENTER YOUR GUESS";X$:X[178][197](X$)
  64. 270 [129]Z[178]1[164]9:[139]B(Z)[178]0[175]A(Z)[178]X[167]B(Z)[178]X
  65. 280 [130]:[137]120
  66. 290 [128]
  67. 300 [143]   ***
  68. 310 [134]A(9),B(9):A[178][187]([171]TI):A[178][181]([187](1)[172]R)[170]1
  69. 320 B[178][181]([187](1)[172]R)[170]1:C[178][181]([187](1)[172]R)[170]1:D[178][181]([187](1)[172]R)[170]1
  70. 330 [139]A[178]B[176]B[178]C[176]A[178]C[176]A[178]D[176]B[178]D[176]C[178]D[167]320
  71. 340 A(1)[178]A[170]B:A(2)[178]A[171](B[170]C):A(3)[178]A[170]C:A(4)[178]A[171]B[170]C:A(5)[178]A:A(6)[178]A[170]B[171]C:A(7)[178]A[171]C
  72. 350 A(8)[178]A[170]B[170]C:A(9)[178]A[171]B:[129]Q[178]1[164]9:B(Q)[178]A(Q):[130]:B(A)[178]0:B(B)[178]0:B(C)[178]0:B(D)[178]0:J[178]0
  73. 370 [142]
  74. 380 [153]" PRINT          YOU'VE SOLVED IT!"
  75. 390 [153]" PRINT          IN JUST"J[171]1"GUESSES!":L[178]8:[141]500
  76. 400 [153]" PRINT            PLAY AGAIN Y/N
  77. 410 GETG$:IFG$<>"Y"ANDG$<>"N"THEN410
  78. 420 IFG$="Y"THENCLR:W=1:GOTO10
  79. 430 FORT=1TO36:PRINT:NEXT:POKE53280,14:POKE53281,6:PRINT"[147][154]":END
  80. 500 S=54272:POKES+24,15:POKES+5,9:FORTY=1TOL
  81. 510 POKES+1,INT(RND(1)*10)+35
  82. 520 POKES+4,33:FORD=1TO100:NEXT
  83. 530 POKES+4,32:FORD=1TO10:NEXT:NEXT
  84. 540 FORTY=STOS+23:POKETY,0:NEXT:RETURN
  85.