home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 118 / 118.d81 / egyptian (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1994-01-01  |  6.5 KB  |  178 lines
  1. 10 poke 56,56:clr:f%=0:d=33:dcol=30:ml=49152
  2. 20 print"":poke 53280,0:poke 53281,0
  3. 30 dv=peek(186):ifdv<8thendv=8
  4. 40 rem"***** load modules ***************
  5. 50 [158] 57812"egypt.font",dv,0:[151] 780,0:[151] 781,0:[151] 782,56:[158] 65493
  6. 60 [158] 57812"egypt.ml",dv,0:[151] 780,0:[151] 781,0:[151] 782,192:[158] 65493
  7. 70 [158] 57812"egypt.pics",dv,0:[151] 780,0:[151] 781,0:[151] 782,80:[158] 65493
  8. 90 [143]"***** done loading **************
  9. 100 hieroglyphic=ml:setup=ml+3:above=ml+6:hres=ml+9:text=ml+12:ran=ml+15
  10. 110 blank=ml+18:cursr=ml+21:bar=ml+24:choice=ml+27:sup=ml+30
  11. 120 sdown=ml+33:sstash=ml+36:previous=ml+39
  12. 130 w1ave=54276:w2ave=54283
  13. 140 print"[147]":poke 53282,10:poke 53283,6:sys setup
  14. 150 sys hres
  15. 160 gosub 2000:rem" make screen
  16. 190 [143]"*** read data ******************
  17. 200 dim x(54),ad(1,54),n$(54)
  18. 210 for i=1 to 54:read x(i),ad(1,i),ad(0,i),a$,b$
  19. 220 n$(i)="[159]"+a$+right$("@@@@@@@@@@@@@@@@@@@",12-len(a$))+b$
  20. 230 next
  21. 290 rem"*** first list *****************
  22. 300 [158] ran:right[178]0:gm[178]0:[151] 198,0
  23. 400 [158] blank:[158] cursr,13,7
  24. 410 n[178]49:[129] f[178]1 [164] 11:n[178]n[170]1
  25. 420 [153] [163]7);:[141] 1200:[130]:x[178]1:[158] bar
  26. 430 [139] ga [167] [158] hieroglyphic,x(ad(al,x))
  27. 440 [158] text                                        
  28. 490 [143]"*** get input ******************
  29. 500 if ga or f%=4 then 600
  30. 510 gm=gm+1:ge=peek(827+gm)
  31. 520 sys cursr,17,1:print""right
  32. 530 sys cursr,20,1:print gm-1
  33. 540 if gm>54 then gm=0:gosub 1800:gosub 2300:goto 300
  34. 550 sys hieroglyphic,x(ge)
  35. 600 sys choice
  36. 610 rem" adhlq[up][down][ret]yn
  37. 620 [145] f% [137] 900,700,1400,800,1600,1100,1000,1300,600,600
  38. 690 [143]"*** exit game ******************
  39. 700 if ga then ga=0:gosub 2300:goto 300
  40. 710 ga=1:sys cursr,17,0:for l=1 to 4:print tab(1) "[129]zzz":next
  41. 720 goto 430
  42. 790 rem"*** re-alphabetize *************
  43. 800 al[178]1[171]al:[137] 400
  44. 890 [143]"*** display alphabet ***********
  45. 900 sys hres
  46. 910 poke 198,0:wait 198,1:get a$
  47. 920 sys text
  48. 930 goto 600
  49. 990 rem"*** go down ********************
  50. 1000 [158] sup:n[178]x[170]6
  51. 1010 x[178]x[170]1:[139] x[178]55 [167] x[178]1
  52. 1020 [141] 1200
  53. 1030 [139] ga [167] [158] hieroglyphic,x(ad(al,x))
  54. 1040 [137] 600
  55. 1090 [143]"*** go up **********************
  56. 1100 sys sdown:n=x-6
  57. 1110 x=x-1:if x=0 then x=54
  58. 1120 gosub 1200
  59. 1130 if ga then sys hieroglyphic,x(ad(al,x))
  60. 1140 goto 600
  61. 1190 rem"** print-word sub *************
  62. 1200 n[178]n[170]54[172](n[177]54)[171]54[172](n[179]1)
  63. 1210 [153] n$(ad(al,n))"on":[153] [163]17)[199](dcol)[199](d)"open":d[178]68[171]d:dcol[178]58[171]dcol
  64. 1220 [142]
  65. 1290 [143]"** check answer ***************
  66. 1300 if ga=1 then600
  67. 1310 if ge<>ad(al,x)then poke w2ave,33:for t=1to80:next:poke w2ave,32:goto 510
  68. 1320 poke w1ave,21
  69. 1330 right=right+1:sys cursr,17,1:print""right
  70. 1340 fort=1 to 30:next:poke w1ave,20:goto 510
  71. 1390 rem"** help screen ****************
  72. 1400 [158] sstash
  73. 1410 [158] cursr,6,6
  74. 1420 [153]"verify(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)"
  75. 1430 [153] [163]6)"verifyasc@@@@@@@wait_elp@@window@@@@@@@@waitverifyleft$"
  76. 1440 [153] [163]6)"verifyasc@@@@@@@@@@@@@@@@@@@@@@@@@@@waitverifyleft$"
  77. 1450 [153] [163]6)"verifyasc@@wait_@this@wait_elp@window@@@@@@@waitverifyleft$
  78. 1460 print tab(6)"[149][198]@@[146]<@display@[146]<lphabet@@@@@@@[146][149][200]
  79. 1470 [153] [163]6)"verifyasc@@wait;@alphabetize@wait;ist@by@@@@waitverifyleft$
  80. 1480 print tab(6)"[149][198]@@@[146]^nglish@or@[146]^gyptian@@@@@[146][149][200]
  81. 1490 [153] [163]6)"verifyasc@@wait=@wait=uit@to@wait;oadstar@@@@@@@waitverifyleft$"
  82. 1500 [153] [163]6)"verifyasc@@wait>@turn@game@off@and@@@@@@waitverifyleft$"
  83. 1510 [153] [163]6)"verifyasc@@@wait>isplay@wait_ieroglyphics@@@waitverifyleft$
  84. 1520 print tab(6)"[149][198]@@@@@@@@@@@@@@@@@@@@@@@@@@@[146][149][200]"
  85. 1530 print tab(6)"[149][198]@[159]use@cursor@keys@to@scroll@[146][149][200]
  86. 1540 [153] [163]6)"verifyasc@openthen@press@return@to@see@@waitverifyleft$
  87. 1550 print tab(6)"[149][198]@[159]@if@you@are@right@@@@@@@@@[146][149][200]
  88. 1560 [153] [163]6)"verify(NULL)peekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeek(NULL)open"
  89. 1570 [158] choice:[158] previous:[139] f%[178]3 [176] f%[178]8 [167] [137] 600
  90. 1580 [137] 620
  91. 1590 [143]"*** quit? **********************
  92. 1600 sys sstash
  93. 1610 sys cursr,8,7
  94. 1620 print"[152][210][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][217]"
  95. 1630 print tab(7)"[152][198]                          [152][200]"
  96. 1640 print tab(7)"[152][198]                          [152][200]"
  97. 1650 print tab(7)"[152][198]           *uit?          [152][200]"
  98. 1660 print tab(7)"[152][198]                          [152][200]"
  99. 1670 print tab(7)"[152][198]            y/n           [152][200]"
  100. 1680 print tab(7)"[152][198]                          [152][200]"
  101. 1690 print tab(7)"[152][198]                          [152][200]"
  102. 1700 print tab(7)"[152][214][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][206][159]"
  103. 1710 sys choice:if f%<9 then 1710
  104. 1720 sys previous:on f%-8 goto 50000,600
  105. 1790 rem"*** restart sign **************
  106. 1800 [158] sstash
  107. 1810 [158] cursr,8,7
  108. 1820 [153]"print#(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)"
  109. 1830 [153] [163]7)"print#ascprint@@@@@@@@@@@@@@@@@@@@@@@@@@waitprint#left$"
  110. 1840 [153] [163]7)"print#ascprint@@@@@@@@@@@@@@@@@@@@@@@@@@waitprint#left$"
  111. 1850 [153] [163]7)"print#ascprint@@@@@@@@syswait,estartingprint@@@@@@@@waitprint#left$"
  112. 1860 [153] [163]7)"print#ascprint@@@@@@@@sys@@@wait:ame@@@print@@@@@@@@waitprint#left$"
  113. 1870 [153] [163]7)"print#ascprint@@@@@@@@@@@@@@@@@@@@@@@@@@waitprint#left$"
  114. 1880 [153] [163]7)"print#ascprint@@@@@@@@@@@@@@@@@@@@@@@@@@waitprint#left$"
  115. 1890 [153] [163]7)"print#(NULL)peekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeek(NULL)open"
  116. 1900 [129] t[178]1 [164] 3000:[130]
  117. 1910 [158] previous:[142]
  118. 1980 [143]"*** make screen ***************
  119. 1990 rem"*** print words ***************
  120. 2000 [153] [166]2)"!cmd[cmdgcmdycmdpcmdtcmdicmdacmdncmd#";
  121. 2010 [153] [166]36)"]cmdicmdecmdrcmdocmdgcmdlcmdycmdpcmdhcmdicmdccmds"
  122. 2090 [143]"*** top frame *****************
  123. 2100 print spc(11)"[153][210][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][217]"
  124. 2110 print spc(11)"[153][198][158]@@@@@@@@@@@@@@@[146][153][200]"
  125. 2120 for w=1 to 7:print spc(11)"[153][198][158]@[146]              [153][200]":next
  126. 2130 print spc(11)"[214][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][206]":print
  127. 2140 sys above
  128. 2190 rem"*** bottom frame ***************
  129. 2200 [153] [166]5)"print(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)val"
  130. 2210 [129] w[178]1 [164] 5:[153] [166]5)"printatnopen                           printstr$":[130]
  131. 2220 [153] [166]5)"printatn                           printstr$"
  132. 2230 [129]l[178]1 [164] 5:[153] [166]5)"printatnopen                           printstr$":[130]
  133. 2240 [153] [166]5)"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)len";
  134. 2250 [158] cursr,18,35:[153]"sys ]  "
  135. 2260 [158] cursr,19,35:[153]"]elp"
  136. 2290 [143]"*** out of ********************
  137. 2300 sys cursr,17,1:print" 0 "
  138. 2310 print tab(1)"out
  139. 2320 [153] [163]1)"of "
  140. 2330 [153] [163]1)" 0 "
  141. 2340 [142]
  142. 2390 [143]"** data ***********************
  143. 2400 data 0,2,11,\n,return,186,52,49,athi,prince
  144. 2410 data 572,1,16,\q,enter,726,3,20,qep'g,dance
  145. 2420 data 1201,42,28,g'sar,ring,1605,49,37,temamti,wings
  146. 2430 data 1956,26,14,&emtu,sharp,2287,44,50,tebt,sandals
  147. 2440 data 2639,27,4,%et,woman,2878,45,41,shemi,travel
  148. 2450 data 3184,12,3,ermen,arms,3523,11,51,ennu,look
  149. 2460 data 3810,5,54,she&et,mummy,4130,20,44,%ent,checkers
  150. 2470 data 4475,48,15,%eref,flood,4786,30,32,ua',boat
  151. 2480 data 5160,40,23,sehech,light up,5522,31,19,re&iu,legs
  152. 2490 data 5830,32,47,%et,goose,6060,38,26,$erusatef,candlestick
  153. 2500 data 6413,4,29,%'b,play the flute,6816,50,30,%'q,vegetables
  154. 2510 data 7219,18,18,%ir,giraffe,7613,34,17,%ep,worm
  155. 2520 data 7914,43,35,shep,sphinx,8177,17,12,chachat,harp
  156. 2530 data 8524,51,46,chet,papyrus,8816,47,13,thua,carry
  157. 2540 data 9204,46,36,tekhen,hide,9498,41,31,kerti,horns
  158. 2550 data 9874,21,27,qe$qe$,old,10235,22,33,qema,garden
  159. 2560 data 10531,14,21,shmai,play music,10833,24,2,s\nn,twist
  160. 2570 data 11196,15,42,%eshen,lilly,11541,54,1,%esh,nest
  161. 2580 data 11855,36,5,thuprath,chariot,12132,35,8,qen,warrior
  162. 2590 data 12488,19,48,%nechem,sit,12895,9,7,mu,water
  163. 2600 data 13340,23,39,%ura,drink,13614,39,45,benbenet,pyramid
  164. 2610 data 13868,10,25,seb,stars,14202,25,43,cheb\u,fingers
  165. 2620 data 14549,13,53,che&,speak,14818,33,10,set,mountain
  166. 2630 data 14973,8,34,senti,hair,15243,29,22,$e&e&,scorpion
  167. 2640 data 15555,6,38,beti,barley,15895,7,52,rerem,cry
  168. 2650 data 16251,28,40,sekhet,field,16550,37,6,\bu,wash
  169. 2660 data 16995,53,9,uach,tablet,17255,16,24,%er%er,fight
  170. 49990 rem"****** go to loadstar ********
  171. 50000 [151] 56,160:[156]:[153]"load";:[151] 53272,23:[151] 53270,200
  172. 50010 a$[178]"hello connect":[129] i[178]8[164]9:[160] 2:[159] 2,i,2:[160] 2:[139] st [167] 50030
  173. 50020 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]50040
  174. 50030 [130]:[128]
  175. 50040 [151] 646,[194](53281):[153]"loadload"[199](34)a$[199](34)","i
  176. 50050 [153]"run":[151] 631,13:[151] 632,13:[151] 198,2
  177. 50060 [128]
  178.