home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 217 / 217.d81 / b.metatactoe (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  11KB  |  335 lines
  1. 0 rema$="metatactoe":open15,9,15,"s0:"+a$:savea$,9:verifya$,9:close15
  2. 1 rema$="metatactoe.125":savea$,8:verifya$,8
  3. 40 rem dims n stuff
  4. 44 dim  p$(20),xo$(1,9),gw$(1,9):p=0
  5. 100 goto60000
  6. 1000 rem copyright 2002, 2003 noesis0 & j&f publishing all rights reserved
  7. 1002 poke53281,0:poke53280,0
  8. 1004 fori=1to9:u(i)=0:nexti
  9. 1010 print"[147][206]oesis  [195]reation":print
  10. 1020 print"[154]and":print
  11. 1030 print"[202] & [198] [208]ublishing":print:print
  12. 1040 print"[208]resent":print:print
  13. 1050 print" [205]eta [212]ac [212]oe!":print
  14. 1060 for l=0 to 128:poke646,l
  15. 1070 print" [205]eta [212]ac [212]oe!"
  16. 1080 next l
  17. 1090 print"[147][145] [205]eta [212]ac [212]oe!":print
  18. 1092 forl=0to6:print:nextl
  19. 1097 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  20. 1098 print"[155][199]ame [195]oncept:      [194]rian [204]. [195]rosthwaite"
  21. 1100 print"[155][199]ame [208]rogramming:  [194]rian [204]. [195]rosthwaite"
  22. 1110 print"[155][199]ame [196]esign:       [194]rian [204]. [195]rosthwaite"
  23. 1112 print"[146][152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  24. 1120 print""
  25. 1200 fori=0 to 1000:nexti
  26. 1400 print"[147]"chr$(142);
  27. 2000 rem
  28. 2010 print"
  29. 2020 [153]" ortan=tan=tan^(NULL)ortan=tan=tan^(NULL)ortan=tan=tan^
  30. 2022 print" [221] [221] [221] [221][221][221] [221] [221] [221][221][221] [221] [221] [221]
  31. 2030 [153]" -tan(NULL)tan(NULL)tan<(NULL)-tan(NULL)tan(NULL)tan<(NULL)-tan(NULL)tan(NULL)tan<  (NULL)tanright$(NULL)tanright$(NULL)tanright$(NULL)tanright$
  32. 2032 print" [221] [221]7[221] [221][221][221] [221]8[221] [221][221][221] [221]9[221] [221]  [221]7[221][221]8[221][221]9[221][221]f[221]
  33. 2040 [153]" -tan(NULL)tan(NULL)tan<(NULL)-tan(NULL)tan(NULL)tan<(NULL)-tan(NULL)tan(NULL)tan<  mid$tan(NULL)mid$tan(NULL)mid$tan(NULL)mid$tan(NULL)
  34. 2042 print" [221] [221] [221] [221][221][221] [221] [221] [221][221][221] [221] [221] [221]  [213][192][201][213][192][201][213][192][201][213][192][201]
  35. 2050 [153]" /tan>tan>tanexp(NULL)/tan>tan>tanexp(NULL)/tan>tan>tanexp  (NULL)4(NULL)(NULL)5(NULL)(NULL)6(NULL)(NULL)e(NULL)
  36. 2055 print" [192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192]  [202][192][203][202][192][203][202][192][203][202][192][203]
  37. 2060 [153]" ortan=tan=tan^(NULL)ortan=tan=tan^(NULL)ortan=tan=tan^  (NULL)tanright$(NULL)tanright$(NULL)tanright$(NULL)tanright$
  38. 2062 print" [221] [221] [221] [221][221][221] [221] [221] [221][221][221] [221] [221] [221]  [221]1[221][221]2[221][221]3[221][221] [221]
  39. 2064 [153]" -tan(NULL)tan(NULL)tan<(NULL)-tan(NULL)tan(NULL)tan<(NULL)-tan(NULL)tan(NULL)tan<  mid$tan(NULL)mid$tan(NULL)mid$tan(NULL)(NULL) (NULL)
  40. 2066 print" [221] [221]4[221] [221][221][221] [221]5[221] [221][221][221] [221]6[221] [221]  [213][192][192][192][192][201][213][192][201][221]d[221]
  41. 2068 [153]" -tan(NULL)tan(NULL)tan<(NULL)-tan(NULL)tan(NULL)tan<(NULL)-tan(NULL)tan(NULL)tan<  (NULL)  0 (NULL)(NULL)b(NULL)(NULL) (NULL)
  42. 2070 print" [221] [221] [221] [221][221][221] [221] [221] [221][221][221] [221] [221] [221]  [202][192][192][192][192][203][202][192][203][202][192][203]
  43. 2072 [153]" /tan>tan>tanexp(NULL)/tan>tan>tanexp(NULL)/tan>tan>tanexp
  44. 2076 print" [192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192]
  45. 2080 [153]" ortan=tan=tan^(NULL)ortan=tan=tan^(NULL)ortan=tan=tan^ print(NULL)tantantantantantantantantantantantanright$"
  46. 2082 [153]" (NULL) (NULL) (NULL) (NULL)(NULL)(NULL) (NULL) (NULL) (NULL)(NULL)(NULL) (NULL) (NULL) (NULL) print(NULL)            (NULL)
  47. 2084 print" [171][192][219][192][219][192][179][221][171][192][219][192][219][192][179][221][171][192][219][192][219][192][179] [153][221]            [221]
  48. 2086 [153]" (NULL) (NULL)1(NULL) (NULL)(NULL)(NULL) (NULL)2(NULL) (NULL)(NULL)(NULL) (NULL)3(NULL) (NULL) print(NULL)            (NULL)
  49. 2088 print" [171][192][219][192][219][192][179][221][171][192][219][192][219][192][179][221][171][192][219][192][219][192][179] [153][221]            [221]
  50. 2090 [153]" (NULL) (NULL) (NULL) (NULL)(NULL)(NULL) (NULL) (NULL) (NULL)(NULL)(NULL) (NULL) (NULL) (NULL) printmid$tantantantantantantantantantantantan(NULL)
  51. 2092 print" [173][192][177][192][177][192][189][221][173][192][177][192][177][192][189][221][173][192][177][192][177][192][189]
  52. 2999 [142]
  53. 3000 [143] clear grid defs
  54. 3010 g$(3,1)[178]"ortan=tan=tan^"
  55. 3012 g$(2,1)[178]"7tan8tan9tanf"
  56. 3020 g$(3,2)[178]"(NULL) (NULL) (NULL) (NULL)"
  57. 3022 g$(2,2)[178]"(NULL) (NULL) (NULL) (NULL)"
  58. 3030 g$(3,3)[178]"-tan(NULL)tan(NULL)tan<"
  59. 3032 g$(2,3)[178]"4tan5tan6tane"
  60. 3040 g$(3,4)[178]"(NULL) (NULL) (NULL) (NULL)"
  61. 3042 g$(2,4)[178]"(NULL) (NULL) (NULL) (NULL)"
  62. 3050 g$(3,5)[178]"-tan(NULL)tan(NULL)tan<"
  63. 3052 g$(2,5)[178]"1tan2tan3tand"
  64. 3060 g$(3,6)[178]"(NULL) (NULL) (NULL) (NULL)"
  65. 3062 g$(2,6)[178]"(NULL) (NULL) (NULL) (NULL)"
  66. 3070 g$(3,7)[178]"/tan>tan>tanexp"
  67. 3072 g$(2,7)[178]"0tanatanbtanc"
  68. 3090 p$(0)[178]""
  69. 3092 cl$(0)[178]"           "
  70. 3094 cl$(1)[178]"           "
  71. 3110 gy$(1)[178]""
  72. 3120 gx$(1)[178]""
  73. 3130 gy$(2)[178]""
  74. 3140 gx$(2)[178]""
  75. 3150 gy$(3)[178]""
  76. 3160 gx$(3)[178]""
  77. 3200 [143] output crsr movement text
  78. 3210 ow$(1)[178]""
  79. 3220 ow$(2)[178]""
  80. 3230 ow$(3)[178]ow$(2)
  81. 3240 ga$(0)[178]"clr("
  82. 3241 ga$(1)[178]"1, "
  83. 3242 ga$(2)[178]"2, "
  84. 3243 ga$(3)[178]"3, "
  85. 3244 ga$(4)[178]"4,"
  86. 3245 ga$(5)[178]" 5, "
  87. 3246 ga$(6)[178]"6, "
  88. 3247 ga$(7)[178]"7, "
  89. 3248 ga$(8)[178]"8,"
  90. 3249 ga$(9)[178]"9clr)"
  91. 3300 [143] play movement :rem  01234567
  92. 3310 px$[178]"":py$[178]""   :[143] 0
  93. 3320 p$(0)[178]""  :[143] 1 7 8 9 f 0
  94. 3321 p$(1)[178]""    :[143] 2         1
  95. 3322 p$(2)[178]""  :[143] 3 4 5 6 e 2
  96. 3323 p$(3)[178]"":[143] 4         3
  97. 3324 p$(4)[178]""      :[143] 5 1 2 3 d 4
  98. 3325 p$(5)[178]""    :[143] 6         5
  99. 3326 p$(6)[178]""  :[143] 7 0 a b c 6
  100. 3327 p$(7)[178]""        :[143]           7
  101. 3328 p$(8)[178]""      :[143]           8
  102. 3329 p$(9)[178]""    :[143]           9
  103. 3330 p$(10)[178]""    :[143] a
  104. 3331 p$(11)[178]""  :[143] b
  105. 3332 p$(12)[178]"":[143] c
  106. 3333 p$(13)[178]""  :[143] d
  107. 3334 p$(14)[178]""    :[143] e
  108. 3335 p$(15)[178]""      :[143] f
  109. 3400 [143] home each subgrid
  110. 3410 ph$(1)[178]""
  111. 3420 ph$(2)[178]""
  112. 3430 ph$(3)[178]""
  113. 3440 ph$(4)[178]""
  114. 3450 ph$(5)[178]""
  115. 3460 ph$(6)[178]""
  116. 3470 ph$(7)[178]""
  117. 3480 ph$(8)[178]""
  118. 3490 ph$(9)[178]""
  119. 3500 [143] cm crsr mvmnt 4 acquire -                use w/ph
  120. 3510 cm$(1)[178]"sys tan(NULL)cmdcmdcmd 1(NULL)cmdcmdcmd   oncmdcmd"
  121. 3520 cm$(2)[178]"sys(NULL)tan(NULL)cmdcmdcmd(NULL)2(NULL)cmdcmdcmd   oncmdcmd"
  122. 3530 cm$(3)[178]"sys(NULL)tan cmdcmdcmd(NULL)3 cmdcmdcmd   oncmdcmd"
  123. 3540 cm$(4)[178]"sys tan(NULL)cmdcmdcmd 4(NULL)cmdcmdcmd tan(NULL)oncmdcmd"
  124. 3550 cm$(5)[178]"sys(NULL)tan(NULL)cmdcmdcmd(NULL)5(NULL)cmdcmdcmd(NULL)tan(NULL)oncmdcmd"
  125. 3560 cm$(6)[178]"sys(NULL)tan cmdcmdcmd(NULL)6 cmdcmdcmd(NULL)tan oncmdcmd"
  126. 3570 cm$(7)[178]"sys   cmdcmdcmd 7(NULL)cmdcmdcmd tan(NULL)oncmdcmd"
  127. 3580 cm$(8)[178]"sys   cmdcmdcmd(NULL)8(NULL)cmdcmdcmd(NULL)tan(NULL)oncmdcmd"
  128. 3590 cm$(9)[178]"sys   cmdcmdcmd(NULL)9 cmdcmdcmd(NULL)tan oncmdcmd"
  129. 3604 pl$(0)[178]"openx"
  130. 3608 pl$(1)[178]"clro"
  131. 3610 [143]  gosub20000
  132. 3710 g$(0,1)[178]"ortan=tan=tan^"
  133. 3720 g$(0,2)[178]"(NULL)open(NULL)(NULL) (NULL)open(NULL)(NULL)"
  134. 3730 g$(0,