home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 16 / Commodore_Disc_16_19xx_-_de.d64 / goldfever (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  151 lines
  1. 0 rem *****************************
  2. 1 rem *                           *
  3. 2 rem *    g o l d f e v e r      *
  4. 3 rem *                           *
  5. 4 rem *       (c) 1987 by         *
  6. 5 rem *                           *
  7. 6 rem *       harald furth        *
  8. 7 rem *                           *
  9. 8 rem *****************************
  10. 9 :
  11. 10 poke55,.:poke56,114:poke53280,.:poke53281,.:poke53265,11:w=peek(186)
  12. 20 ifo=.theno=1:load"gf/m",w,1
  13. 22 ifo=1theno=2:load"gf/t",w,1
  14. 30 sys29258:mu=.:di=1
  15. 35 rem---------------------------------
  16. 36 rem geschwindigkeit der aufzuege
  17. 37 rem---------------------------------
  18. 38 l1=1:l2=2:l3=3:l4=4:l5=5:l6=5:l7=5:l8=5
  19. 39 rem---------------------------------
  20. 40 onl1gosub3000,3002,3004,3006,3008
  21. 41 onl2gosub3500,3502,3504,3506,3508
  22. 42 onl3gosub4000,4002,4004,4006,4008
  23. 43 onl4gosub4500,4502,4504,4506,4508
  24. 44 onl5gosub5000,5002,5004,5006,5008
  25. 45 onl6gosub5500,5502,5504,5506,5508
  26. 46 onl7gosub6000,6002,6004,6006,6008
  27. 47 onl8gosub6500,6502,6504,6506,6508
  28. 50 fori=1to5:hf$=right$("000000"+mid$(str$(1200-i*200),2),6)
  29. 60 n$(i)=hf$+"hfs       ":next
  30. 160 ifpeek(186)=1then310
  31. 190 open1,8,15:open2,8,2,"gf/score,s,r":input#1,a,b$,c,d:ifa<>.then280
  32. 220 fori=1to5:input#2,n$(i):next
  33. 280 close1:close2
  34. 310 gosub1780
  35. 340 poke49236,.:poke49237,.
  36. 350 poke49238,1:poke53265,11:print"[147]":fa=6:fb=14:gosub2000:poke211,6:poke214,3
  37. 354 sys58640:print"[158][192][193][194][201][202][203][166]  [192][187][188][217][193][219][217][193][219][166] [167][217][193][219][192][193][218]";
  38. 355 printspc(13)"[195][196][197][195] [214][195]  [195][189][190][220][221] [220][221] [168][169][170][220][221] [220][223][174]";
  39. 356 printspc(13)"[198][199][200][163][164][165][198][199][161][198][191]@[146][207]  [255][199][161][171][172][173][255][199][161][207][175][176]";
  40. 358 printspc(13)"written 1987 by harald furth";
  41. 360 printspc(13)"[177][178][179]     start";
  42. 361 printspc(27)"[180][181][182]";
  43. 362 printspc(37)"[177][178][183]     pause";
  44. 363 printspc(27)"[180][181][184]";
  45. 364 printspc(37)"[177][178][185]     music on-off";
  46. 365 printspc(20)"[180][181][184]";
  47. 390 poke53265,27:poke49235,.
  48. 400 forze=.to1000:ifpeek(197)=4then430
  49. 410 next:goto1180
  50. 430 poke49158,1:poke49238,.:poke53278,.
  51. 460 poke49170,.:wait49170,10
  52. 490 s=.:fori=.to5:s=s+peek(49157-i)*10^i:next
  53. 520 s$=right$("000000"+mid$(str$(s),2),6)
  54. 550 ifs$=>n$(5)thendi=.:poke49238,1:goto610
  55. 580 ifpeek(49235)=.then350
  56. 590 goto340
  57. 610 print"[147][159]        please enter your name"
  58. 620 poke211,14:poke214,15:sys58640:fort=.to9:poke55950+t,4:next
  59. 640 print"----------"
  60. 670 print
  61. 700 printtab(14)"----------"
  62. 730 print"[158]     abcdefghijklmnopqrstuvwxyz. r e"
  63. 760 b1=35470:b2=5:b3=35661:b1$="<[157]>[145][145][145]":b2$=" [157] [145][145][145]"
  64. 790 print"[145][145]"tab(b2)b1$:poke53265,27
  65. 820 j=peek(56320):ifj=111andb2=35then1000
  66. 850 ifj=111andb2=33andb1>35470thenpokeb1-1,32:b1=b1-1:gosub1600
  67. 880 ifj=111andb2<32thenpokeb1,peek(b3):b1=b1+1:gosub1600
  68. 910 ifj=123andb2>5thenprinttab(b2)b2$:b2=b2-1:gosub1660
  69. 940 ifj=119andb2<35thenprinttab(b2)b2$:b2=b2+1:gosub1690
  70. 970 ifb1<35480then820
  71. 1000 n$="":fori=.to9:x=peek(35470+i)+64
  72. 1030 ifx=>96thenx=x-64
  73. 1060 n$=n$+chr$(x):next
  74. 1090 n$(.)=s$+n$
  75. 1120 fori=1to5:ifn$(.)<n$(i)thennext
  76. 1150 forz=6toi+1step-1:n$(z)=n$(z-1):next:n$(i)=n$(.)
  77. 1180 poke53265,11:print"[147]":fa=2:fb=10:gosub2000:poke211,9:poke214,3:sys58640
  78. 1190 print"[159]bcd[146][201][202][203][192][193]a[146] [217][193][219][166][166] [167][217][193][219]";
  79. 1192 printspc(20)" [195] [195] [214][220][199][200] [220][221] [195][168][169][170][220][221]";
  80. 1194 printspc(21)" [207] [163][164][165][207]   [207]  [207][171][172][173][255][199][161]"
  81. 1210 print:fori=1to5
  82. 1240 print"[158]"i".   "right$(n$(i),10)"[156]  "left$(n$(i),6):next
  83. 1270 poke53265,27
  84. 1360 ifpeek(186)=1ordi=1then1540
  85. 1390 ifpeek(49235)=.thenpoke49235,1:poke54290,16:mu=1
  86. 1420 open2,8,2,"@:gf/score,s,w"
  87. 1450 fori=1to5:print#2,n$(i):next
  88. 1480 close2:di=1:ifmu=1thenpoke49235,.:mu=.:goto1540
  89. 1510 forx=49236to49237:pokex,.:next
  90. 1540 gosub1780:forze=.to1000:ifpeek(197)=4then430
  91. 1550 next:goto350
  92. 1600 poke54276,.:poke54278,.:poke54273,200:poke54277,7:poke54276,33
  93. 1630 foru=.to300:next:return
  94. 1660 gosub1720:printtab(b2)b1$:b3=b3-1:return
  95. 1690 gosub1720:printtab(b2)b1$:b3=b3+1:return
  96. 1720 poke54276,.:poke54278,.:poke54273,5:poke54277,7:poke54276,17:return
  97. 1780 fori=1to6:q$=mid$(n$(1),i,1):q=val(q$):poke49251+i,q:next:return
  98. 2000 poke53270,216:poke53282,fa:poke53283,fb:poke646,10
  99. 2002 print"[][][][][][][][][][][][][][][][][][][][]";
  100. 2010 forx=.to9:print"[                                      ]";
  101. 2012 print"]                                      [";:next
  102. 2020 print"[][][][][][][][][][][][][][][][][][][][]":return
  103. 3000 v1=3:u1=.:goto3010
  104. 3002 v1=2:u1=.:goto3010
  105. 3004 v1=1:u1=.:goto3010
  106. 3006 v1=.:u1=.:goto3010
  107. 3008 v1=.:u1=1
  108. 3010 poke29424,u1:poke32133,v1:return
  109. 3500 v2=3:u2=.:goto3510
  110. 3502 v2=2:u1=.:goto3510
  111. 3504 v2=1:u2=.:goto3510
  112. 3506 v2=.:u2=.:goto3510
  113. 3508 v2=.:u2=1
  114. 3510 poke32708,u2:poke49862,v2:return
  115. 4000 v3=3:u3=.:goto4010
  116. 4002 v3=2:u3=.:goto4010
  117. 4004 v3=1:u3=.:goto4010
  118. 4006 v3=.:u3=.:goto4010
  119. 4008 v3=.:u3=1
  120. 4010 poke32709,u3:poke49863,v3:return
  121. 4500 v4=3:u4=.:goto4510
  122. 4502 v4=2:u4=.:goto4510
  123. 4504 v4=1:u4=.:goto4510
  124. 4506 v4=.:u4=.:goto4510
  125. 4508 v4=.:u4=1
  126. 4510 poke32710,u4:poke49864,v4:return
  127. 5000 v5=3:u5=.:goto5010
  128. 5002 v5=2:u5=.:goto5010
  129. 5004 v5=1:u5=.:goto5010
  130. 5006 v5=.:u5=.:goto5010
  131. 5008 v5=.:u5=1
  132. 5010 poke32711,u5:poke49865,v5:return
  133. 5500 v6=3:u6=.:goto5510
  134. 5502 v6=2:u6=.:goto5510
  135. 5504 v6=1:u6=.:goto5510
  136. 5506 v6=.:u6=.:goto5510
  137. 5508 v6=.:u6=1
  138. 5510 poke32712,u6:poke49866,v6:return
  139. 6000 v7=3:u7=.:goto6010
  140. 6002 v7=2:u7=.:goto6010
  141. 6004 v7=1:u7=.:goto6010
  142. 6006 v7=.:u7=.:goto6010
  143. 6008 v7=.:u7=1
  144. 6010 poke32713,u7:poke49867,v7:return
  145. 6500 v8=3:u8=.:goto6510
  146. 6502 v8=2:u8=.:goto6510
  147. 6504 v8=1:u8=.:goto6510
  148. 6506 v8=.:u8=.:goto6510
  149. 6508 v8=.:u8=1
  150. 6510 poke32714,u8:poke49868,v8:return
  151.