home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 60 / Tiger_Disk_060_19xx_Tiger-Crew-Disk_de_Side_B.d64 / formel eins (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  186 lines
  1. 30 print"[147] --> moment bitte!"
  2. 40 open1,8,2,"  formel eins 1,s,r"
  3. 50 fori=0to62
  4. 60 input#1,x
  5. 70 poke11*64+i,x:poke15*64+i,x
  6. 80 next:a=13
  7. 90 forj=1to2:fori=0to62
  8. 100 input#1,x
  9. 110 pokea*64+i,x
  10. 120 next:a=a+1:next
  11. 130 close1
  12. 140 s=32768
  13. 150 open1,8,0,"  formel eins 2"
  14. 160 get#1,a$,b$
  15. 170 get#1,a$
  16. 180 ifst=64thenclose1:goto220
  17. 190 ifa$=""thena$=chr$(0)
  18. 200 pokes,asc(a$):s=s+1
  19. 210 goto170
  20. 220 open2,8,2,"0:  formel eins 3,s,r":input#2,a$:input#2,b$
  21. 230 a$=a$+b$:c=1:close2
  22. 240 fori=0to9:i$=""
  23. 250 forj=1to3:i$=i$+mid$(a$,c,1):c=c+1
  24. 260 nextj
  25. 270 n$(i)=i$:b$=""
  26. 280 x$=mid$(a$,c,1):c=c+1
  27. 290 ifx$="/"then310
  28. 300 b$=b$+x$:goto280
  29. 310 sc(i)=val(b$)
  30. 320 nexti
  31. 330 poke53280,0:poke53281,0
  32. 340 t=0:v=0:ext=0
  33. 350 a$(0)="nieder":a$(1)="mittel":a$(2)="  hoch
  34. 360 [151]54272,100:[151]54273,20
  35. 370 [151]54277,0:[151]54278,240:[151]54296,15
  36. 380 [153][199](147);[199](30)
  37. 390 [129]i[178]1[164]20:[153]:[130]
  38. 400 [153] " joystick auf oder ab fuer level-wahl"
  39. 420 [153][163]10)"feuertaste zum start"
  40. 430 [153][199](19);[199](28)
  41. 440 [129]i[178]1[164]5:[153]:[130]
  42. 450 [153]" ************ formel eins  ************"
  43. 460 [153][199](158)
  44. 470 [153]:[153]
  45. 480 [153]" **************************************"
  46. 490 [153][199](155)
  47. 500 [153]:[153]
  48. 510 [153][163]9)"*** level : "a$(t)" ***"
  49. 520 [129]j[178]1[164]200:[130]:[151]54276,0
  50. 530 [139]([194](56320)[175]1)[178]0[167]t[178]t[170]1:[151]54276,17
  51. 540 [139]t[177]2[167]t[178]2
  52. 550 [139]([194](56320)[175]2)[178]0[167]t[178]t[171]1:[151]54276,17
  53. 560 [139]t[179]0[167]t[178]0
  54. 570 [139]([194](56320)[175]16)[178]0[167]600
  55. 580 [153][199](145);[199](145)
  56. 590 [137]510
  57. 600 [151]54276,33
  58. 610 [151]49166,25:km[178]25:[151]53269,15
  59. 620 [139]t[178]0[167][151]53269,7
  60. 630 [139]t[178]1[167][151]49166,10:km[178]10
  61. 640 ci[178]56328
  62. 650 [151]ci[170]7,[194](ci[170]7)[175]127
  63. 660 [151]ci[170]6,[194](ci[170]6)[176] 128
  64. 670 [151]ci[170]3,0:[151]ci[170]2,0:[151]ci[170]1,0
  65. 680 [151]54276,0
  66. 690 [151]49168,2
  67. 700 [153][199](147);[199](28)
  68. 710 [153]"autos"[199](31)"3"[163]33)"km"
  69. 720 [129]k[178]0[164]960[169]40
  70. 730 [151]1032[170]k,160
  71. 740 [151]1033[170]k,160
  72. 750 [151]1054[170]k,160
  73. 760 [151]1055[170]k,160
  74. 770 [151]1060[170]k,160
  75. 780 [151]55304[170]k,13
  76. 790 [151]55305[170]k,13
  77. 800 [151]55326[170]k,13
  78. 810 [151]55327[170]k,13
  79. 820 [151]55312[170]k,1
  80. 830 [151]55319[170]k,1
  81. 840 [130]k
  82. 850 [129]k[178]0[164]km[171]1
  83. 860 [151]55332[170]40[172]k,11
  84. 870 [130]k
  85. 880 [129]k[178]1[164]38
  86. 890 [135]a,b:[151]a,b
  87. 900 [130]k
  88. 910 [131]2040,11,2041,15,2042,15,2043,15
  89. 920 [131] 53249,185,53251,0,53253,0,53255,0
  90. 930 [131]53248,171,53250,171,53252,210,53254,130
  91. 940 [131]53276,15,53285,7,53286,8,53287,2,53288,5,53289,6,53290,7
  92. 950 [131]54277,0,54278,255,54280,5,54284,12,54285,0
  93. 960 [131]54286,140,54287,140,54291,208,54292,240
  94. 970 [131]49167,255,49190,0,49191,0
  95. 980 [131]49153,32,49154,32,49155,66,49156,66,49157,66
  96. 990 [131]165,4,164,36
  97. 1000 [151]ci,0
  98. 1010 [158]32852
  99. 1020 h[178][194](ci[170]3)
  100. 1030 [129]k[178]0[164]3
  101. 1040 [151]53249[170]2[172]k,0
  102. 1050 [130]k
  103. 1060 [151]54276,0
  104. 1070 [139]v[178]1[167]1170
  105. 1080 [139][194](2040)[178]13[176]t[178]0[167]1770
  106. 1090 m[178][194](ci[170]2):s[178][194](ci[170]1):z[178][194](ci)
  107. 1100 z$[178][196](z)
  108. 1110 s$[178][196]([181](s[173]16)[172]10[170]s[171][181](s[173]16)[172]16)
  109. 1120 [139][195](s$)[178]2[167]s$[178]" 0"[170][201](s$,1)
  110. 1130 m$[178][196]([181](m[173]16)[172]10[170]m[171][181](m[173]16)[172]16)
  111. 1140 [139][195](m$)[178]2[167]m$[178]" 0"[170][201](m$,1)
  112. 1150 t$[178][201](m$,2)[170]":"[170][201](s$,2)[170]":"[170][201](z$,1)[170]"0"
  113. 1160 r[178](100[172]([194](49168)[170]1)[170]100[172](t[172]5[171][197](m$))[170](60[171][197](s$)))[172]t
  114. 1170 r[178]r[170](50[172][194](49190)[170]10[172][194](49191))[172]t
  115. 1180 [139][194](49168)[178]2[167]1780
  116. 1190 [129]i[178]0[164]9
  117. 1200 [139]r[177]sc(i)[167]1220
  118. 1210 [130]i:[137]1260
  119. 1220 [129]a[178]9[164]i[170]1[169][171]1
  120. 1230 sc(a)[178]sc(a[171]1):n$(a)[178]n$(a[171]1)
  121. 1240 [130]a
  122. 1250 sc(i)[178]r:n$(i)[178][199](5)[170]"..."
  123. 1260 [153][199](147);[199](28)
  124. 1270 [153]" score "r,"      zeit "t$
  125. 1280 [153][199](158)
  126. 1290 [153]:[153]:[153]
  127. 1300 [153][163]14)"beste fahrer":[153]
  128. 1310 [129]j[178]0[164]9
  129. 1320 [153][199](30);
  130. 1330 [153][163]15)n$(j)"  "sc(j)
  131. 1340 [130]j
  132. 1350 [151]54277,43:[151]54278,0:[151]54296,15
  133. 1360 [129]j[178]1[164]19
  134. 1370 [135]b,c,d
  135. 1380 [151]54276,17:[151]54272,b:[151]54273,c
  136. 1390 [129]e[178]1[164]d:[130]e
  137. 1400 [151]54276,0:[130]j
  138. 1410 [131]103,17,100,103,17,100,103,17,200
  139. 1420 [131]237,21,100,237,21,100,237,21,200
  140. 1430 [131]20,26,100,20,26,100,20,26,300
  141. 1440 [131]20,26,100,207,34,100,219,32,100
  142. 1450 [131]69,29,100,20,26,100,59,23,100
  143. 1460 [131]237,21,100,137,19,100,237,21,100,103,17,900
  144. 1470 [139]r[179]sc(9)[167]1770
  145. 1480 [153][199](31)
  146. 1490 [153]:[153]
  147. 1500 [153] " mit dem joystick buchstaben auswaehlen"
  148. 1510 [153]
  149. 1520 [153][163]8)"feuerknopf = eingabe"
  150. 1530 a[178]1:n$(i)[178]""
  151. 1540 [129]j[178]1[164]3
  152. 1550 [129]b[178]1[164]100:[130]b
  153. 1560 [139]([194](56320)[175]1)[178]0[167]a[178]a[170]1
  154. 1570 [139]a[177]26[167]a[178]26
  155. 1580 [139]([194](56320)[175]2)[178]0[167]a[178]a[171]1
  156. 1590 [139]a[179]1[167]a[178]1
  157. 1600 [139]([194](56320)[175]16)[178]0[167]1620
  158. 1610 [151]1358[170]40[172]i[170]j,a:[137]1550
  159. 1620 n$(i)[178]n$(i)[170][199]([194](1358[170]40[172]i[170]j)[170]64):a[178]1
  160. 1630 [151]54276,33
  161. 1640 [129]b[178]1[164]50:[130]b
  162. 1650 [151]54276,0
  163. 1660 [130]j
  164. 1670 a$[178]"":b$[178]""
  165. 1680 [129]i[178]0[164]4
  166. 1690 a$[178]a$[170]n$(i)[170][196](sc(i))[170]"/"
  167. 1700 [130]
  168. 1710 [129]i[178]5[164]9
  169. 1720 b$[178]b$[170]n$(i)[170][196](sc(i))[170]"/"
  170. 1730 [130]
  171. 1740 [159]15,8,15,"s0:  formel eins 3":[160]15
  172. 1750 [159]2,8,2,"0:  formel eins 3,s,w"
  173. 1760 [152]2,a$:[152]2,b$:[160]2
  174. 1770 [140]:[129]i[178]1[164]2000:[130]i:v[178]0:ext[178]0:[137]360
  175. 1780 ext[178]ext[170]1:[139]ext[178]6[167]1190
  176. 1790 [151]54272,103:[151]54273,9
  177. 1800 [151]54277,45:[151]54278,0:[151]54296,15:[151]54276,17
  178. 1810 [153][199](19)
  179. 1820 [153][163]33)"   "
  180. 1830 [153]:[153]:[153]"extended"
  181. 1840 [153]:[153]" play"ext
  182. 1850 [151]49166,25
  183. 1860 v[178]1
  184. 1870 [129]i[178]1[164]500:[130]i
  185. 1880 [140]:[151]54276,0:[137]880
  186.