home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh3x / sh37d.d64 / hp.roulette (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  20KB  |  572 lines
  1. 1 POKE45,PEEK(174):POKE46,PEEK(175):CLR
  2. 12 POKE781,23:SYS59903:POKE781,24:SYS59903
  3. 14 POKE211,2:POKE214,23:SYS58640:PRINT"[144]BITTE WARTEN SIE NOCH 15 SEKUNDEN!"
  4. 20 Z=20:S=29:DIMC(Z,S),N$(Z,S),F%(Z,S),F1%(36),M$(5,10)
  5. 22 P=3:A=20:DIMZ%(P,A),S%(P,A),B(P,A),V(P),P$(P),A%(P)
  6. 25 FORI=0TOP:V(I)=1000:NEXTI:F2%(0)=1:F2%(1)=7:F2%(2)=2:F2%(3)=6
  7. 30 FORZ=0TO20:FORS=0TO29:READH$
  8. 31 IFH$="*"THENREADH,H$:FORI=STOS+H:N$(Z,I)=H$:NEXT:S=S+H:GOTO33
  9. 32 N$(Z,S)=H$
  10. 33 NEXT:NEXT
  11. 34 FORZ=0TO20:FORS=0TO29:READH
  12. 35 IFH<0THENREADH1:FORI=STOS-H:C(Z,I)=H1:NEXT:S=S-H:GOTO37
  13. 36 C(Z,S)=H
  14. 37 NEXT:NEXT
  15. 38 FORZ=8TO12STEP2:FORS=3TO25STEP2:READF%(Z,S):NEXT:NEXT
  16. 39 FORI=1TO36:READF1%(I):NEXT:FORI=0TO5:FORJ=0TO10:READM$(I,J):NEXT:NEXT
  17. 40 POKE781,23:SYS59903:POKE781,24:SYS59903
  18. 42 POKE211,31:POKE214,20:SYS58640:PRINT"      ":GOSUB60000
  19. 50 POKE211,0:POKE214,23:SYS58640:PRINT"[144]WIEVIELE SPIELER SPIELEN MIT (1-4) ?"
  20. 52 Z=23:S=37:M=1:L=1:I$="":GOSUB60200
  21. 54 AP=VAL(I$)-1:IFAP<0ORAP>3GOTO52
  22. 56 FORI=0TOAP:POKE211,0:POKE214,24:SYS58640:PRINT"[144]NAME VON SPIELER"I+1"?";
  23. 57 Z=24:S=21:M=0:L=8:I$="":GOSUB60200
  24. 58 IFLEN(I$)<8THENFORJ=LEN(I$)TO7:I$=I$+" ":NEXTJ
  25. 59 P$(I)=I$:NEXTI
  26. 60 GOSUB60100:GOSUB60400
  27. 69 FORP=0TOAP:GOSUB41000:NEXT
  28. 70 AN=RND(-TI):AN=INT(RND(1)*37):RN=1:GOSUB60800
  29. 72 GOSUB60900
  30. 80 POKE53242,27:POKE53289,6:POKE53264,0:POKE53252,30:POKE53253,30:POKE53269,4
  31. 81 POKE53243,27:POKE53244,27:POKE53245,27:POKE53246,27:POKE53247,27
  32. 100 GOSUB60000
  33. 101 POKE214,20:POKE211,31:SYS58640:PRINT"MEN[186]    "
  34. 105 Z=7:S=6:M=0:GOSUB42000
  35. 150 Z=8:S=11:L=9:M=1:GOSUB60500
  36. 160 ONMGOTO1000,2000,3000,4000,5000,6000,8000,9000,10000
  37. 1000 POKE214,20:POKE211,31:SYS58640:PRINT"SETZEN"
  38. 1010 GOSUB40000
  39. 1030 M=1:S=19:Z=13:L=AP+2:GOSUB60500
  40. 1040 IFM-2=APGOTO101
  41. 1045 P=M-1:IFA%(P)=20GOTO101
  42. 1050 POKE211,18:POKE214,15+P:SYS58640:PRINT"[178][184][184][184][184][184][184][184][179]"
  43. 1052 POKE211,18:POKE214,16+P:SYS58640:PRINT"[182]BETRAG?[183]"
  44. 1054 POKE211,18:POKE214,17+P:SYS58640:PRINT"[182][192][192][192][192][192][192][192][183]"
  45. 1056 POKE211,18:POKE214,18+P:SYS58640:PRINT"[144][182]0000000[144][183]"
  46. 1058 POKE211,18:POKE214,19+P:SYS58640:PRINT"[180][185][185][185][185][185][185][185][181]"
  47. 1060 FORI=0TO6:B%(I)=0:NEXT:M=0:L=6:S=25:Z=18+P:POKE646,1:GOSUB60600
  48. 1070 B=0:FORI=0TO6:B=B+B%(I)*10^I:NEXT:B=INT(B+.1)
  49. 1080 IFB=0GOTO101
  50. 1085 IFB>V(P)+.5GOTO1056
  51. 1100 GOSUB60100:POKE214,20:POKE211,31:SYS58640:PRINT"SETZEN"
  52. 1105 POKE211,31:POKE214,17:SYS58640:PRINTRIGHT$(STR$(B),INT(LOG(B)/LOG(10)+1))
  53. 1106 POKE53255,240:POKE53290,6:H=60+72*P:IFH>255THENH=H-255:POKE53264,8
  54. 1107 POKE53254,H:POKE53269,12
  55. 1109 S=27:Z=10
  56. 1110 M=0:GOSUB50000
  57. 1120 IFN$(Z,S)="EXIT"THENGOSUB60100:POKE53269,4:POKE53264,0:GOTO101
  58. 1125 IFN$(Z,S)="---"GOTO1110
  59. 1130 V(P)=INT(V(P)-B+.5):B(P,A%(P))=B:Z%(P,A%(P))=Z:S%(P,A%(P))=S:A%(P)=A%(P)+1
  60. 1140 FORI=11TO20STEP3:POKE214,I:POKE211,31:SYS58640:PRINT"        ":NEXT
  61. 1150 GOSUB41000
  62. 1160 POKE53269,4:POKE53264,0:GOTO100
  63. 2000 POKE214,20:POKE211,31:SYS58640:PRINT"KORREKT."
  64. 2010 GOSUB40000
  65. 2030 M=1:S=19:Z=13:L=AP+2:GOSUB60500
  66. 2040 IFM-2=APGOTO101
  67. 2045 P=M-1
  68. 2050 IFA%(P)=0GOTO101
  69. 2052 GOSUB60100
  70. 2055 S=27:Z=10
  71. 2060 FORI=0TOA%(P)-1:POKE211,S%(P,I):POKE214,Z%(P,I)+2:SYS58640:PRINT"[208][146]":NEXT
  72. 2070 POKE53255,240:POKE53290,6:H=60+72*P:IFH>255THENH=H-255:POKE53264,8
  73. 2072 POKE53254,H:POKE53269,12
  74. 2075 GOSUB50000
  75. 2077 IFN$(Z,S)="EXIT"THENGOSUB60100:POKE53269,4:POKE53264,0:GOTO101
  76. 2080 IFPEEK(52304+40*Z+S)<>208GOTO2075
  77. 2090 FORI=0TOA%(P)-1:IFZ%(P,I)=ZANDS%(P,I)=STHENH2=I:I=A%(P)-1
  78. 2095 NEXTI
  79. 2097 B=B(P,H2):POKE646,1
  80. 2100 POKE211,31:POKE214,17:SYS58640:PRINTRIGHT$(STR$(B),INT(LOG(B)/LOG(10)+1))
  81. 2110 POKE214,22:POKE211,0:SYS58640:PRINT"[144]NEHMEN? JA  NEIN     "
  82. 2120 H1=0:POKE53252,140:POKE53253,230
  83. 2125 H=PEEK(56321):IFH=255GOTO2125
  84. 2130 IFH=247THENPOKE53252,140:H1=0:GOTO2125
  85. 2135 IFH=251THENPOKE53252,95:H1=1:GOTO2125
  86. 2140 IFH<>239GOTO2125
  87. 2145 POKE214,17:POKE211,31:SYS58640:PRINT"        "
  88. 2150 IFH1=0THENPOKE781,22:SYS59903:GOTO2070
  89. 2160 V(P)=V(P)+B:A%(P)=A%(P)-1
  90. 2170 FORI=H2TOA%(P):B(P,I)=B(P,I+1):S%(P,I)=S%(P,I+1):Z%(P,I)=Z%(P,I+1):NEXT
  91. 2200 GOSUB60100
  92. 2205 GOSUB41000
  93. 2220 POKE53269,4:POKE53264,0:GOTO100
  94. 3000 GOSUB60100:POKE211,31:POKE214,20:SYS58640:PRINT"ANZEIGEN"
  95. 3005 S=27:Z=10
  96. 3010 FORP=0TOAP:IFA%(P)=0GOTO3029
  97. 3020 FORI=0TOA%(P)-1:POKE211,S%(P,I):POKE214,Z%(P,I)+2:SYS58640:POKE646,F2%(P)
  98. 3022 IFPEEK(52304+Z%(P,I)*40+S%(P,I))=208THENPOKE646,0
  99. 3024 PRINT"[208][146]":NEXT
  100. 3029 POKE53290+P,F2%(P)
  101. 3030 POKE53255+P*2,240:H=60+72*P:IFH>255THENH=H-255:POKE53264,64
  102. 3032 POKE53254+P*2,H:POKE53269,PEEK(53269)+2^(3+P)
  103. 3040 NEXTP
  104. 3050 GOSUB50000
  105. 3060 IFN$(Z,S)="EXIT"THENPOKE53269,4:POKE53264,0:GOSUB60100:GOTO101
  106. 3065 IFPEEK(52304+Z*40+S)<>208GOTO3050
  107. 3075 P=0
  108. 3080 FORJ=PTOAP:FORI=0TOA%(J)-1:IFZ%(J,I)=ZANDS%(J,I)=STHENH2=I:I=25:P=J:J=5
  109. 3090 NEXT:NEXT
  110. 3097 B=B(P,H2):POKE646,1
  111. 3100 POKE211,31:POKE214,17:SYS58640:PRINTRIGHT$(STR$(B),INT(LOG(B)/LOG(10)+1))
  112. 3105 POKE55974,F2%(P):POKE52902,208
  113. 3107 H3=PEEK(53269):POKE53269,4+2^(P+3)
  114. 3110 POKE214,22:POKE211,0:SYS58640:GOSUB43500
  115. 3125 POKE781,22:SYS59903:POKE52902,32:POKE53269,H3
  116. 3127 POKE214,17:POKE211,31:SYS58640:PRINT"        "
  117. 3130 IF((PEEK(55376+Z*40+S)AND15)=0)ANDP<APTHENP=P+1:GOTO3080
  118. 3140 GOTO3050
  119. 4000 GOSUB60100:POKE214,20:POKE211,31:SYS58640:PRINT"R.N.V.P."
  120. 4010 Z=5:S=5:M=1:GOSUB42000
  121. 4100 N=INT(RND(1)*37)
  122. 4190 H1=0:H=20-38-N
  123. 4200 FORI=0TO36:H=H+1:POKE211,24:POKE214,10:SYS58640:PRINTI;
  124. 4205 FORJ=1TOSGN(H)*H^2:NEXT
  125. 4210 H1=H1+1:IFH1=38+NTHENI=36:H1=38
  126. 4220 NEXT:IFH1<38THENPRINT"[157][157][157]  ":GOTO4200
  127. 4222 AN=N
  128. 4225 GOSUB60900
  129. 4240 POKE211,6:POKE214,11:SYS58640:PRINT"[144]DIE ZAHL:";
  130. 4242 IFF1%(N)=1THENPRINTN;"[144](SCHW.)"
  131. 4244 IFF1%(N)=2THENPRINTN;"(ROT)"
  132. 4246 IFF1%(N)=0THENPRINT" 0 (NULL)"
  133. 4248 POKE214,14:POKE211,6:SYS58640:PRINT"WEITER":M=14:GOSUB43000
  134. 4250 POKE214,14:POKE211,6:SYS58640:PRINT"[144]EINEN MOMENT BITTE..."
  135. 4260 IFN=0GOTO4510
  136. 4270 FORP=0TOAP:H=0:G=0:FORI=0TOA%(P)-1
  137. 4280 S=S%(P,I):Z=Z%(P,I):B=B(P,I)
  138. 4300 H2=((S-2)/2)*3:H3=((S-3)/2)*3:H4=((S-4)/2)*3
  139. 4305 H5=(14-Z)/2:H6=(13-Z)/2:H7=(15-Z)/2
  140. 4310 IFZ<2ORZ>6GOTO4320
  141. 4312 IFS>2ANDS<10ANDN<19GOTO4500
  142. 4314 IFS>10ANDS<18ANDN/2<>INT(N/2)GOTO4500
  143. 4316 IFS>18ANDS<26ANDF1%(N)=2GOTO4500
  144. 4320 IFZ<14ORZ>18GOTO4330
  145. 4322 IFS>2ANDS<10ANDN>18GOTO4500
  146. 4324 IFS>10ANDS<18ANDN/2=INT(N/2)GOTO4500
  147. 4326 IFS>18ANDS<26ANDF1%(N)=1GOTO4500
  148. 4330 IF(Z=8ORZ=10ORZ=12)ANDS=27AND((Z-8)/2+N)/3=INT(((Z-8)/2+N)/3)GOTO4500
  149. 4335 IFNOT((Z=9ORZ=11)ANDS=27)GOTO4340
  150. 4337 IF((Z-9)/2+N)/3=INT(((Z-9)/2+N)/3)GOTO4500
  151. 4338 IF((Z-7)/2+N)/3=INT(((Z-7)/2+N)/3)GOTO4500
  152. 4340 IF(Z=2ORZ=18)ANDS=26ANDN<13GOTO4500
  153. 4342 IF(Z=4ORZ=16)AND(S=26ORS=27)ANDN>12ANDN<25GOTO4500
  154. 4344 IF(Z=6ORZ=14)ANDS=27ANDN>24GOTO4500
  155. 4346 IF(Z=3ORZ=17)AND(S=26ORS=27)ANDN<25GOTO4500
  156. 4348 IF(Z=5ORZ=15)AND(S=26ORS=27)ANDN>12GOTO4500
  157. 4350 IFS=2AND(Z=7ORZ=13)AND(N=1ORN=2ORN=3)GOTO4500
  158. 4352 IFS=2AND(Z=8ORZ=10ORZ=12)ANDN=H5GOTO4500
  159. 4354 IFS=2AND(Z=9ORZ=11)AND(N=H6ORN=H7)GOTO4500
  160. 4360 IFNOT((Z=7ORZ=13)ANDS>3ANDS<25ANDS/2=INT(S/2))GOTO4370
  161. 4365 IFH2+1=NORH2+2=NORH2+3=NORH4+1=NORH4+2=NORH3+4=NGOTO4500
  162. 4370 IFNOT((Z=7ORZ=13)ANDS>2ANDS<26ANDS/2<>INT(S/2))GOTO4380
  163. 4375 IFH3+1=NORH3+2=NORH3+3=NGOTO4500
  164. 4380 IFNOT((Z=9ORZ=11)ANDS>3ANDS<25ANDS/2=INT(S/2))GOTO4390
  165. 4385 IFH6+H4=NORH6+H2=NORH7+H4=NORH7+H2=NGOTO4500
  166. 4390 IF(Z=9ORZ=11)ANDS>2ANDS<26ANDS/2<>INT(S/2)AND(H6+H3=NORH7+S3=N)GOTO4500
  167. 4400 IFNOT((Z=8ORZ=10ORZ=12)ANDS>3ANDS<25ANDS/2=INT(S/2))GOTO4410
  168. 4405 IFH5+H4=NORH5+H2=NGOTO4500
  169. 4410 IF(Z=8ORZ=10ORZ=12)ANDS>2ANDS<26ANDS/2<>INT(S/2)ANDH5+H3=NGOTO4500
  170. 4450 H=H+B:NEXTI:GOTO4600
  171. 4500 G=G+B*C(Z,S):GOTO4450
  172. 4510 FORP=0TOAP:H=0:G=0:FORI=0TOA%(P)-1
  173. 4515 S=S%(P,I):Z=Z%(P,I):B=B(P,I)
  174. 4520 IFS=1GOTO4590
  175. 4525 IFS=2AND(Z=7ORZ=13)GOTO4590
  176. 4527 IFS=2AND(Z=8ORZ=10ORZ=12)GOTO4590
  177. 4530 IFS=2AND(Z=9ORZ=11)GOTO4590
  178. 4540 IF(Z<7ORZ>13)ANDS<26THENG=G+B*.5
  179. 4550 H=H+B:NEXTI:GOTO4600
  180. 4590 G=G+B*C(Z,S):GOTO4550
  181. 4600 POKE214,6:POKE211,6:SYS58640:PRINT"[144]AUSWERTUNG F[186]R       "
  182. 4605 POKE214,7:POKE211,6:SYS58640:PRINT"SPIELER "P$(P)"     "
  183. 4610 POKE214,9:POKE211,6:SYS58640:PRINT"[144]SIE SETZTEN $        [157][157][157][157][157][157][157][157]";
  184. 4612 G=INT(G+.5):H=INT(H+.1):V(P)=V(P)+G:IFV(P)>9999999GOTO4990
  185. 4615 L=LEN(STR$(H)):PRINTSPC(9-L)RIGHT$(STR$(H),L-1)
  186. 4620 POKE214,10:POKE211,6:SYS58640:PRINT"[144]ZUR[186]CK      $        [157][157][157][157][157][157][157][157]";
  187. 4625 L=LEN(STR$(G)):PRINTSPC(9-L)RIGHT$(STR$(G),L-1)
  188. 4630 POKE214,11:POKE211,6:SYS58640
  189. 4632 IFG-H<0THENPRINT"[144]IHR VERLUST $        [157][157][157][157][157][157][157][157]";
  190. 4634 IFG-H<0THENL=LEN(STR$(H-G)):PRINTSPC(9-L)RIGHT$(STR$(H-G),L-1):GOTO4640
  191. 4636 PRINT"[144]IHR GEWINN  $        [157][157][157][157][157][157][157][157]";
  192. 4638 L=LEN(STR$(G-H)):PRINTSPC(9-L)RIGHT$(STR$(G-H),L-1)
  193. 4640 POKE214,12:POKE211,6:SYS58640:PRINT"[144]IHR KAPITAL $        [157][157][157][157][157][157][157][157]";
  194. 4642 GOSUB44500
  195. 4645 POKE214,13:POKE211,6:SYS58640:PRINT"[144][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  196. 4650 POKE214,14:POKE211,6:SYS58640:PRINT"WEITER               ":M=14
  197. 4660 GOSUB43000
  198. 4700 IFK(P)=0GOTO4800
  199. 4710 POKE214,6:POKE211,6:SYS58640:PRINT"[144]ZINSFORDERUNG AN"
  200. 4712 POKE214,9:POKE211,6:SYS58640:PRINT"DAS BANKHAUS GIER AG "
  201. 4714 POKE214,10:POKE211,6:SYS58640:PRINT"FORDERT F[186]R IHRE     "
  202. 4716 POKE214,11:POKE211,6:SYS58640:PRINT"SCHULDEN ($          [157][157][157][157][157][157][157][157][157][157]"K(P);
  203. 4718 PRINT"[144][157])"
  204. 4720 POKE214,12:POKE211,6:SYS58640:PRINT"                     [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
  205. 4722 PRINT"[157][157][157][157][157]$"INT(K(P)*5/100+.5)"[144]ZINSEN"
  206. 4730 GOSUB43000
  207. 4740 V(P)=V(P)-INT(K(P)*5/100+.5):IFV(P)<0THENK(P)=INT(K(P)-V(P)+.1):V(P)=0
  208. 4750 POKE214,6:POKE211,6:SYS58640:PRINT"[144]TILGUNGSM[GLICHKEIT"
  209. 4752 POKE214,9:POKE211,6:SYS58640:PRINT"IHR KAPITAL $        [157][157][157][157][157][157][157][157]";
  210. 4753 GOSUB44500
  211. 4754 POKE214,10:POKE211,6:SYS58640:PRINT"[144]SCHULDEN    $        [157][157][157][157][157][157][157][157]";
  212. 4755 GOSUB44000
  213. 4756 POKE214,11:POKE211,6:SYS58640:PRINT"[144]WIEVIEL M[CHTEN SIE  "
  214. 4758 POKE214,12:POKE211,6:SYS58640:PRINT"[144]TILGEN ?    $00000000"
  215. 4759 POKE53269,0:POKE214,14:POKE211,6:SYS58640:PRINT"00000000 F[186]R NICHTS"
  216. 4760 FORJ=0TO7:B%(J)=0:NEXT:L=7:Z=12:S=26:M=0:GOSUB60600
  217. 4770 B=0:FORJ=OTO7:B=B+B%(J)*10^J:NEXT
  218. 4775 IFINT(B+.1)>INT(K(P)+.1)ORINT(B+.1)>INT(V(P)+.1)GOTO4758
  219. 4780 V(P)=INT(V(P)-B+.1):K(P)=INT(K(P)-B+.1)
  220. 4800 POKE214,6:POKE211,6:SYS58640:PRINT"[144]KREDITANGEBOT AN   "
  221. 4802 POKE214,9:POKE211,6:SYS58640:PRINT"IHR KAPITAL $        [157][157][157][157][157][157][157][157]";
  222. 4803 GOSUB44500
  223. 4804 POKE214,10:POKE211,6:SYS58640:PRINT"[144]SCHULDEN    $        [157][157][157][157][157][157][157][157]";
  224. 4805 GOSUB44000
  225. 4806 POKE214,11:POKE211,6:SYS58640:PRINT"[144]WIEVIEL M[CHTEN SIE  "
  226. 4808 POKE214,12:POKE211,6:SYS58640:PRINT"AUFNEHMEN (5%)? $0000"
  227. 4809 POKE214,14:POKE211,6:SYS58640:PRINT"0000 F[186]R NICHTS      "
  228. 4810 FORJ=0TO3:B%(J)=0:NEXT:L=3:Z=12:S=26:M=0:GOSUB60600
  229. 4820 B=0:FORJ=OTO3:B=B+B%(J)*10^J:NEXT
  230. 4830 V(P)=INT(V(P)+B+.1):K(P)=INT(K(P)+B+.1)
  231. 4850 POKE214,6:POKE211,6:SYS58640:PRINT"[144]BILANZ F[186]R         "
  232. 4852 POKE214,9:POKE211,6:SYS58640:PRINT"IHR KAPITAL $        [157][157][157][157][157][157][157][157]";
  233. 4853 GOSUB44500
  234. 4854 POKE214,10:POKE211,6:SYS58640:PRINT"[144]-SCHULDEN   $        [157][157][157][157][157][157][157][157]";
  235. 4855 GOSUB44000
  236. 4860 POKE214,11:POKE211,6:SYS58640:PRINT"[144]=IHR SPIELSTAND      "
  237. 4865 POKE214,12:POKE211,6:SYS58640:PRINT"                     [157][157][157][157][157][157][157][157][157][157][157][157][157][157]$";
  238. 4867 PRINTINT(V(P)-K(P))
  239. 4870 POKE214,14:POKE211,6:SYS58640:PRINT"WEITER               ":M=14
  240. 4880 GOSUB43000
  241. 4890 A%(P)=0:B(P,0)=0:NEXTP
  242. 4900 IFAP=0GOTO4950
  243. 4902 POKE214,6:POKE211,6:SYS58640:PRINT"[144]SPIELSTAND           "
  244. 4905 POKE214,7:POKE211,6:SYS58640:PRINT"(KAPITAL - SCHULDEN) "
  245. 4908 FORH=9TO12:POKE214,H:POKE211,6:SYS58640:PRINT"                     ":NEXT
  246. 4910 FORP=0TOAP:POKE214,9+P:POKE211,6:SYS58640:PRINT"[144]"P$(P)"   $";
  247. 4915 L=LEN(STR$(V(P)-K(P))):PRINTSPC(9-L)STR$(V(P)-K(P))
  248. 4920 NEXTP
  249. 4925 IFH8=1THENH8=0:GOTO10100
  250. 4930 GOSUB43000
  251. 4950 GOSUB60100:RN=RN+1:AN=N
  252. 4960 GOSUB60800
  253. 4962 GOSUB60900
  254. 4980 FORP=0TOAP:GOSUB41000:NEXT
  255. 4985 GOTO100
  256. 4990 FORI=2TO24:POKE781,I:SYS59903:NEXT:POKE214,4:POKE211,0:SYS58640
  257. 4992 PRINT"GRATULIERE, SPIELER "P$(P):PRINT"SIE HABEN DIE BANK GEKNACKT!"
  258. 4994 PRINT"MIT EINEM VERM[GEN VON $"V(P):PRINT"SIND SIE DER ROULETTE-K[NIG."
  259. 4996 GOSUB43500:P=AP:H8=1:GOTO4920
  260. 5000 POKE214,20:POKE211,31:SYS58640:PRINT"LADEN"
  261. 5005 FORI=22TO24:POKE781,I:SYS59903:NEXT
  262. 5010 POKE214,22:POKE211,0:SYS58640:PRINT"[144]FILENAME ?"
  263. 5015 M=0:L=10:Z=22:S=11:I$="":GOSUB60200
  264. 5022 IFI$=""THENGOSUB60100:GOTO101
  265. 5025 POKE211,0:POKE214,23:SYS58640:PRINT"[144]BITTE LEGEN SIE DIE DISKETTE EIN!"
  266. 5030 H1=0:GOSUB60700:IFH1=1THENGOSUB60100:GOTO101
  267. 5035 POKE781,23:SYS59903
  268. 5036 POKE781,24:SYS59903
  269. 5037 POKE144,0:OPEN2,8,2:CLOSE2:IFST<>0THENPOKE211,0:POKE214,23:SYS58640
  270. 5038 IFST<>0THENPRINT"[144]BITTE SCHALTEN SIE DAS LAUFWERK EIN!":GOTO5030
  271. 5040 OPEN15,8,15:OPEN2,8,2,"SP."+I$+",S,R"
  272. 5050 INPUT#15,E,E$:POKE211,0:POKE214,23:SYS58640:PRINT"[144]"E;E$
  273. 5055 IFE<>0THENCLOSE2:CLOSE15:GOTO5030
  274. 5060 INPUT#2,AP,AN,RN
  275. 5070 FORI=0TOAP:INPUT#2,P$(I),V(I),K(I)
  276. 5075 INPUT#2,A%(I)
  277. 5080 IFA%(I)>0THENFORJ=0TOA%(I):INPUT#2,B(I,J),S%(I,J),Z%(I,J):NEXT
  278. 5090 NEXT:CLOSE2:CLOSE15
  279. 5095 IFAP<3THENFORI=AP+1TO3:P$(I)="":NEXT
  280. 5100 GOSUB60100:FORI=22TO24:POKE781,I:SYS59903:NEXT
  281. 5102 GOSUB60400
  282. 5110 FORP=0TOAP:GOSUB41000:NEXT:GOSUB60800
  283. 5120 GOTO72
  284. 6000 POKE214,20:POKE211,31:SYS58640:PRINT"SPEICH."
  285. 6005 FORI=22TO24:POKE781,I:SYS59903:NEXT
  286. 6010 POKE214,22:POKE211,0:SYS58640:PRINT"[144]FILENAME ?"
  287. 6015 M=0:L=10:Z=22:S=11:I$="":GOSUB60200
  288. 6022 IFI$=""THENGOSUB60100:GOTO101
  289. 6025 POKE211,0:POKE214,23:SYS58640:PRINT"[144]BITTE LEGEN SIE EINE DISKETTE EIN!"
  290. 6030 H1=0:GOSUB60700:IFH1=1THENGOSUB60100:GOTO101
  291. 6035 POKE781,23:SYS59903
  292. 6036 POKE781,24:SYS59903
  293. 6037 POKE144,0:OPEN2,8,2:CLOSE2:IFST<>0THENPOKE211,0:POKE214,23:SYS58640
  294. 6038 IFST<>0THENPRINT"[144]BITTE SCHALTEN SIE DAS LAUFWERK EIN!":GOTO6030
  295. 6040 OPEN15,8,15:OPEN2,8,2,"SP."+I$+",S,W"
  296. 6050 INPUT#15,E,E$:POKE211,0:POKE214,23:SYS58640:PRINT"[144]"E;E$
  297. 6055 IFE<>0THENCLOSE2:CLOSE15:GOTO6030
  298. 6060 PRINT#2,AP;CHR$(13);AN;CHR$(13);RN;CHR$(13);
  299. 6070 FORI=0TOAP:PRINT#2,P$(I);CHR$(13);V(I);CHR$(13);K(I);CHR$(13);
  300. 6075 PRINT#2,A%(I);CHR$(13);:IFA%(I)=0GOTO6090
  301. 6080 FORJ=0TOA%(I):PRINT#2,B(I,J);CHR$(13);S%(I,J);CHR$(13);Z%(I,J);CHR$(13);
  302. 6085 NEXT
  303. 6090 NEXT:CLOSE2:CLOSE15:GOSUB60100:GOTO101
  304. 8000 POKE214,20:POKE211,31:SYS58640:PRINT"DISKETTE"
  305. 8010 Z=10:S=15:M=2:GOSUB42000
  306. 8030 M=1:S=19:Z=13:L=3:GOSUB60500
  307. 8040 ONMGOTO101,8100,8200
  308. 8100 PRINT"[147][144]":OPEN15,8,15,"I"
  309. 8105 INPUT#15,E,E$:PRINTE,E$:PRINT
  310. 8110 IFE<>0THEN8175
  311. 8115 OPEN2,8,2,"#":H1=18:H2=1:H3=0
  312. 8120 PRINT#15,"U1:";2;0;H1;H2:GET#2,H1$,H2$:H1=ASC(H1$+CHR$(0))
  313. 8125 H2=ASC(H2$+CHR$(0))
  314. 8130 FORI=0TO7:PRINT#15,"B-P:";2;2+32*I:GET#2,H$:IFH$=""THENH$=CHR$(0)
  315. 8135 H=ASC(H$)AND15:IFH=0ORH>4THEN8165
  316. 8145 GET#2,H$,H$
  317. 8150 FORJ=0TO15:GET#2,H$:IFH$=CHR$(160)THENJ=15:GOTO8160
  318. 8155 PRINTH$;
  319. 8160 NEXTJ:PRINT
  320. 8165 H3=H3+1:NEXTI
  321. 8170 IFH1<>0THEN8120
  322. 8175 CLOSE2:CLOSE15:PRINT"":GOSUB43500:GOSUB60100:GOTO101
  323. 8200 Z=15:S=11:M=3:GOSUB42000
  324. 8240 I$="":L=10:Z=18:S=12:M=0:GOSUB60200
  325. 8245 IFI$=""THENGOTO101
  326. 8250 OPEN15,8,15,"S:SP."+I$:CLOSE15
  327. 8500 GOTO101
  328. 9000 POKE214,20:POKE211,31:SYS58640:PRINT"ANLEIT. "
  329. 9010 GOSUB60100:POKE781,23:SYS59903:POKE781,24:SYS59903
  330. 9015 POKE211,0:POKE214,24:SYS58640:PRINT"BITTE DR[186]CKEN SIE DEN FEUERKNOPF";
  331. 9020 Z=8:S=9:H$="ES GEWINNT DIE ZAHL 12.":GOSUB9100
  332. 9021 Z=9:S=9:H$="ES GEWINNEN DIE ZAHLEN 11-12.":GOSUB9100
  333. 9022 Z=7:S=9:H$="ES GEWINNEN DIE ZAHLEN 10,11,12.":GOSUB9100
  334. 9023 Z=9:S=10:H$="ES GEWINNEN DIE ZAHLEN 11,12,14,15.":GOSUB9100
  335. 9024 Z=7:S=2:H$="ES GEWINNEN DIE ZAHLEN 0,1,2,3":GOSUB9100
  336. 9025 Z=7:S=4:H$="ES GEWINNEN DIE ZAHLEN 1,2,3,4,5,6":GOSUB9100
  337. 9026 Z=8:S=27:H$="ES GEWINNEN DIE ZAHLEN DER 3.REIHE":GOSUB9100
  338. 9027 Z=10:S=27:H$="ES GEWINNEN DIE ZAHLEN DER 2.REIHE":GOSUB9100
  339. 9028 Z=12:S=27:H$="ES GEWINNEN DIE ZAHLEN DER 1.REIHE":GOSUB9100
  340. 9029 Z=11:S=27:H$="ES GEWINNEN DIE ZAHLEN DER 1.U.2.REIHE":GOSUB9100
  341. 9030 Z=2:S=26:H$="ES GEWINNEN DIE ZAHLEN 1-12":GOSUB9100
  342. 9031 Z=4:S=27:H$="ES GEWINNEN DIE ZAHLEN 13-24":GOSUB9100
  343. 9032 Z=6:S=27:H$="ES GEWINNEN DIE ZAHLEN 25-36":GOSUB9100
  344. 9033 Z=5:S=27:H$="ES GEWINNEN DIE ZAHLEN 13-36":GOSUB9100
  345. 9034 Z=5:S=16:H$="ES GEWINNEN ALLE UNGERADEN ZAHLEN":GOSUB9100
  346. 9035 Z=18:S=16:H$="ES GEWINNEN ALLE GERADEN ZAHLEN":GOSUB9100
  347. 9036 Z=5:S=22:H$="ES GEWINNEN ALLE ROTEN ZAHLEN":GOSUB9100
  348. 9037 Z=18:S=22:H$="ES GEWINNEN ALLE SCHWARZEN ZAHLEN":GOSUB9100
  349. 9038 Z=5:S=8:H$="ES GEWINNEN ALLE ZAHLEN 1-18":GOSUB9100
  350. 9039 Z=18:S=8:H$="ES GEWINNEN ALLE ZAHLEN 19-36":GOSUB9100
  351. 9050 GOSUB60100:GOTO101
  352. 9100 POKE53252,S*8+28:POKE53253,Z*8+70
  353. 9110 POKE214,11:POKE211,31:SYS58640:PRINT"        [157][157][157][157][157][157][157][157]"N$(Z,S);
  354. 9120 IFF%(Z,S)=1THENPRINT" [144]SCHW."
  355. 9130 IFF%(Z,S)=2THENPRINT"   ROT"
  356. 9140 POKE214,14:POKE211,31:SYS58640:PRINT"*"C(Z,S)"[157]  "
  357. 9150 POKE781,23:SYS59903
  358. 9160 POKE211,0:POKE214,23:SYS58640:PRINT"[144]"H$
  359. 9200 IFPEEK(56321)<>239GOTO9200
  360. 9210 RETURN
  361. 10000 POKE214,20:POKE211,31:SYS58640:PRINT"ENDE  "
  362. 10010 Z=10:S=15:M=4:GOSUB42000
  363. 10030 M=1:S=19:Z=13:L=3:GOSUB60500
  364. 10040 ONMGOTO101,10100,10200
  365. 10100 FORI=0TO3:P$(I)="":A%(I)=0:V(I)=1000:K(I)=0:NEXT:GOSUB60100:GOTO40
  366. 10200 GOSUB60100:Z=6:S=5:M=5:GOSUB42000
  367. 10225 H=0:POKE198,0:FORI=1TO150:IFPEEK(198)<>0THENH=1:I=150
  368. 10226 NEXTI
  369. 10228 IFH=1GOTO101
  370. 10230 SYS64738
  371. 40000 POKE214,10:POKE211,15:SYS58640:PRINT"[144][178][184][184][184][184][184][184][184][184][179]"
  372. 40005 POKE214,11:POKE211,15:SYS58640:PRINT"[182]SPIELER?[183]"
  373. 40010 POKE214,12:POKE211,15:SYS58640:PRINT"[182][192][192][192][192][192][192][192][192][183]"
  374. 40015 FORI=0TOAP:POKE214,13+I:POKE211,15:SYS58640:PRINT"[182]"P$(I)"[144][183]":NEXT
  375. 40020 POKE214,14+AP:POKE211,15:SYS58640:PRINT"[182]KEINER  [144][183]"
  376. 40030 POKE214,15+AP:POKE211,15:SYS58640:PRINT"[180][185][185][185][185][185][185][185][185][181]":RETURN
  377. 41000 POKE214,24:POKE211,3+P*9:SYS58640:PRINT"        ";:POKE214,24
  378. 41010 POKE211,(P+1)*9-INT(ABS(LOG(V(P)+.5)/LOG(10))):SYS58640:PRINTV(P);:RETURN
  379. 42000 FORI=0TO10:IFM$(M,I)=""THENI=11:GOTO42020
  380. 42010 POKE214,Z+I:POKE211,S:SYS58640:PRINTM$(M,I)
  381. 42020 NEXT:RETURN
  382. 43000 POKE53252,90:POKE53253,53+M*8:POKE53269,4
  383. 43010 IFPEEK(56321)<>239GOTO43010
  384. 43020 POKE53269,0:RETURN
  385. 43500 PRINT"BITTE DR[186]CKEN SIE DEN FEUERKNOPF!"
  386. 43510 IFPEEK(56321)<>239GOTO43510
  387. 43520 RETURN
  388. 44000 L=LEN(STR$(K(P))):PRINTSPC(9-L)RIGHT$(STR$(K(P)),L-1):RETURN
  389. 44500 L=LEN(STR$(V(P))):PRINTSPC(9-L)RIGHT$(STR$(V(P)),L-1):RETURN
  390. 50000 IFS<0THENS=28
  391. 50005 IFS>28THENS=0
  392. 50010 IFZ<0THENZ=20
  393. 50015 IFZ>20THENZ=0
  394. 50020 POKE53252,S*8+28:POKE53253,Z*8+70
  395. 50030 POKE214,11:POKE211,31:SYS58640:PRINT"        [157][157][157][157][157][157][157][157]"N$(Z,S);
  396. 50031 IFF%(Z,S)=1THENPRINT" [144]SCHW.":GOTO50035
  397. 50032 IFF%(Z,S)=2THENPRINT"   ROT"
  398. 50035 POKE214,14:POKE211,31:SYS58640:PRINT"*"C(Z,S)"[157]  "
  399. 50050 H=PEEK(56321):IFH=255GOTO50050
  400. 50060 IFH=254THENZ=Z-1:GOTO50010
  401. 50065 IFH=253THENZ=Z+1:GOTO50010
  402. 50070 IFH=251THENS=S-1:GOTO50000
  403. 50075 IFH=247THENS=S+1:GOTO50000
  404. 50080 IFH=239THENRETURN
  405. 50090 GOTO50050
  406. 60000 POKE781,204:POKE780,0:POKE91,207:POKE90,232:POKE89,7:POKE88,232:SYS50856
  407. 60005 POKE781,216:POKE780,0:POKE91,219:POKE90,232:POKE89,203:POKE88,232:SYS50856
  408. 60010 RETURN
  409. 60100 POKE781,4:POKE780,0:POKE91,7:POKE90,232:POKE89,207:POKE88,232:SYS50856
  410. 60105 POKE781,200:POKE780,0:POKE91,203:POKE90,232:POKE89,219:POKE88,232:SYS50856
  411. 60110 RETURN
  412. 60200 POKE198,0:SP=LEN(I$):POKE211,S:POKE214,Z:SYS58640
  413. 60202 FORJ=0TOL:PRINT" ";:NEXTJ:POKE214,Z:POKE211,S:SYS58640
  414. 60204 PRINTI$" [146]";
  415. 60220 GETG$:IFG$=""THEN60220
  416. 60230 A=ASC(G$):IFM=0AND((A>31ANDA<94)ORA=160ORA=186)GOTO60300
  417. 60235 IFM=1AND(A>47ANDA<58)GOTO60300
  418. 60240 IFA=13THENPRINT"[157] ";:RETURN
  419. 60245 IFA=20THENSP=0:I$="":GOTO60200
  420. 60250 GOTO60220
  421. 60300 SP=SP+1:IFSP>LTHENSP=L:GOTO60220
  422. 60305 I$=I$+G$:PRINT"[157]"G$" [146]";:GOTO60220
  423. 60400 POKE211,0:POKE214,23:SYS58640
  424. 60405 FORI=0TO3:PRINT"[144]"TAB(I*9+2)"[167]"P$(I);:NEXT:PRINTTAB(38)"[167]"
  425. 60410 FORI=0TO4:PRINTTAB(I*9+2)"[167]";:NEXT:RETURN
  426. 60500 POKE53269,4
  427. 60501 IFM<1THENM=1
  428. 60502 IFM>LTHENM=L
  429. 60510 POKE53252,S*8+28:POKE53253,(Z+M)*8+46
  430. 60520 H=PEEK(56321):IFH=255GOTO60520
  431. 60522 IFH=254THENM=M-1:GOTO60501
  432. 60524 IFH=253THENM=M+1:GOTO60501
  433. 60528 IFH=239THENRETURN
  434. 60530 GOTO60520
  435. 60600 IFB%(M)<0THENB%(M)=9
  436. 60602 IFB%(M)>9THENB%(M)=0
  437. 60605 IFM>LTHENM=L
  438. 60607 IFM<0THENM=0
  439. 60610 POKE214,Z:POKE211,S-M:SYS58640:PRINT""RIGHT$(STR$(B%(M)),1)"[146]"
  440. 60620 H=PEEK(56321):IFH=255GOTO60620
  441. 60630 IFH=254THENB%(M)=B%(M)+1:GOTO60600
  442. 60632 IFH=253THENB%(M)=B%(M)-1:GOTO60600
  443. 60634 IFH=251THENPOKE52224+Z*40+S-M,PEEK(52224+Z*40+S-M)-128:M=M+1:GOTO60605
  444. 60636 IFH=247THENPOKE52224+Z*40+S-M,PEEK(52224+Z*40+S-M)-128:M=M-1:GOTO60605
  445. 60638 IFH=239THENPOKE52224+Z*40+S-M,PEEK(52224+Z*40+S-M)-128:RETURN
  446. 60640 GOTO60620
  447. 60700 POKE211,0:POKE214,24:SYS58640:PRINT"WEITER  MEN[186]";
  448. 60705 POKE53252,45:POKE53253,242
  449. 60710 H=PEEK(56321):IFH=255GOTO60710
  450. 60715 IFH=251THENPOKE53252,45:H1=0:GOTO60710
  451. 60720 IFH=247THENPOKE53252,100:H1=1:GOTO60710
  452. 60725 IFH=239THENRETURN
  453. 60730 GOTO60710
  454. 60800 POKE211,34:POKE214,5:SYS58640:PRINT"     [157][157][157][157][157]"RN:RETURN
  455. 60900 POKE214,8:POKE211,37:SYS58640:PRINT"  [157][157][157][157][157][157][157][157]"RIGHT$(STR$(AN),1-(AN>9));
  456. 60910 IFF1%(AN)=2THENPRINT"   ROT"
  457. 60920 IFF1%(AN)=1THENPRINT" [144]SCHW."
  458. 60930 IFF1%(AN)=0THENPRINT"       "
  459. 60940 RETURN
  460. 61000 DATA *,29,EXIT,*,2,EXIT,*,24,---,*,1,EXIT
  461. 61001 DATA *,2,EXIT,---,*,5,MANQUE,---,*,6,IMPAIR,---,*,5,ROT
  462. 61002 DATA ---,P12,---,*,1,EXIT,*,2,EXIT,*,6,MANQUE,---,*,6,IMPAIR
  463. 61003 DATA ---,*,6,ROT,*,1,M12/P12,*,1,EXIT,*,2,EXIT,*,6,MANQUE
  464. 61004 DATA ---,*,6,IMPAIR,---,*,6,ROT,*,1,M12,*,1,EXIT
  465. 61005 DATA *,2,EXIT,*,6,MANQUE,---,*,6,IMPAIR,---,*,6,ROT
  466. 61006 DATA *,1,D12/M12,*,1,EXIT,*,1,EXIT,---,*,6,MANQUE,---
  467. 61007 DATA *,6,IMPAIR,---,*,6,ROT,---,D12,---,EXIT
  468. 61008 DATA *,1,---,4ER,3ER,6ER,3ER,6ER,3ER,6ER
  469. 61009 DATA 3ER,6ER,3ER,6ER,3ER,6ER,3ER,6ER,3ER,6ER
  470. 61010 DATA 3ER,6ER,3ER,6ER,3ER,6ER,3ER,*,2,---,EXIT
  471. 61011 DATA ---,NULL,2ER,3,2ER,6,2ER,9,2ER,12,2ER,15
  472. 61012 DATA 2ER,18,2ER,21,2ER,24,2ER,27,2ER,30,2ER
  473. 61013 DATA 33,2ER,36,---,3.KOL.,---,EXIT
  474. 61014 DATA ---,NULL,3ER,2ER,4ER,2ER,4ER,2ER,4ER,2ER
  475. 61015 DATA 4ER,2ER,4ER,2ER,4ER,2ER,4ER,2ER,4ER,2ER
  476. 61016 DATA 4ER,2ER,4ER,2ER,4ER,2ER,---,2./3.KOL,---,EXIT
  477. 61017 DATA ---,NULL,2ER,2,2ER,5,2ER,8,2ER,11,2ER,14,2ER
  478. 61018 DATA 17,2ER,20,2ER,23,2ER,26,2ER,29,2ER,32,2ER,35
  479. 61019 DATA ---,2.KOL.,---,EXIT
  480. 61020 DATA ---,NULL,3ER,2ER,4ER,2ER,4ER,2ER,4ER,2ER,4ER
  481. 61021 DATA 2ER,4ER,2ER,4ER,2ER,4ER,2ER,4ER,2ER,4ER
  482. 61022 DATA 2ER,4ER,2ER,4ER,2ER,---,1./2.KOL,---,EXIT
  483. 61023 DATA ---,NULL,2ER,1,2ER,4,2ER,7,2ER,10,2ER,13
  484. 61024 DATA 2ER,16,2ER,19,2ER,22,2ER,25,2ER,28,2ER
  485. 61025 DATA 31,2ER,34,---,1.KOL.,---,EXIT
  486. 61026 DATA *,1,---,4ER,3ER,6ER,3ER,6ER,3ER,6ER,3ER
  487. 61027 DATA 6ER,3ER,6ER,3ER,6ER,3ER,6ER,3ER,6ER,3ER
  488. 61028 DATA 6ER,3ER,6ER,3ER,6ER,3ER,*,2,---,EXIT
  489. 61029 DATA *,1,EXIT,---,*,6,PASSE,---,*,6,PAIR,---
  490. 61030 DATA *,6,SCHWARZ,---,D12,---,EXIT
  491. 61031 DATA *,2,EXIT,*,6,PASSE,---,*,6,PAIR,---,*,6,SCHWARZ
  492. 61032 DATA *,1,D12/M12,*,1,EXIT,*,2,EXIT,*,6,PASSE,---,*,6,PAIR
  493. 61033 DATA ---,*,6,SCHWARZ,*,1,M12,*,1,EXIT
  494. 61034 DATA *,2,EXIT,*,6,PASSE,---,*,6,PAIR,---,*,6,SCHWARZ
  495. 61035 DATA *,1,M12/P12,*,1,EXIT,*,2,EXIT,---,*,5,PASSE
  496. 61036 DATA ---,*,6,PAIR,---,*,5,SCHWARZ,---,P12,---,*,1,EXIT
  497. 61037 DATA *,2,EXIT,*,24,---,*,1,EXIT,*,29,EXIT
  498. 61050 DATA -29,0,-29,0,-3,0,-5,2,0,-6,2,0,-5,2,0,3,-2,0
  499. 61051 DATA -2,0,-6,2,0,-6,2,0,-6,2,-1,1.5,-1,0
  500. 61052 DATA -2,0,-6,2,0,-6,2,0,-6,2,-1,3,-1,0
  501. 61053 DATA -2,0,-6,2,0,-6,2,0,-6,2,-1,1.5,-1,0
  502. 61054 DATA -2,0,-6,2,0,-6,2,0,-6,2,0,3,-1,0
  503. 61055 DATA -1,0,9,12,6,12,6,12,6,12,6,12,6,12,6,12,6,12,6,12,6,12,6,12,6,12,-3,0
  504. 61056 DATA 0,36,18,36,18,36,18,36,18,36,18,36,18,36,18,36,18,36,18,36,18,36,18
  505. 61057 DATA 36,18,36,0,3,-1,0
  506. 61058 DATA 0,36,12,18,9,18,9,18,9,18,9,18,9,18,9,18,9,18,9,18,9,18,9,18,9
  507. 61059 DATA 18,0,1.5,-1,0
  508. 61060 DATA 0,36,18,36,18,36,18,36,18,36,18,36,18,36,18,36,18,36,18,36,18
  509. 61061 DATA 36,18,36,18,36,0,3,-1,0
  510. 61062 DATA 0,36,12,18,9,18,9,18,9,18,9,18,9,18,9,18,9,18,9,18,9
  511. 61063 DATA 18,9,18,9,18,0,1.5,-1,0
  512. 61064 DATA 0,36,18,36,18,36,18,36,18,36,18,36,18,36,18,36,18,36,18,36,18
  513. 61065 DATA 36,18,36,18,36,0,3,-1,0
  514. 61066 DATA -1,0,9,12,6,12,6,12,6,12,6,12,6,12,6,12,6,12,6,12,6,12,6,12,6,12,-3,0
  515. 61067 DATA -2,0,-6,2,0,-6,2,0,-6,2,0,3,-1,0
  516. 61068 DATA -2,0,-6,2,0,-6,2,0,-6,2,-1,1.5,-1,0
  517. 61069 DATA -2,0,-6,2,0,-6,2,0,-6,2,-1,3,-1,0
  518. 61070 DATA -2,0,-6,2,0,-6,2,0,-6,2,-1,1.5,-1,0
  519. 61071 DATA -3,0,-5,2,0,-6,2,0,-5,2,0,3,-2,0,-29,0,-29,0
  520. 61080 DATA 2,1,2,2,1,2,2,1,2,2,1,2
  521. 61081 DATA 1,2,1,1,2,1,1,2,1,1,2,1
  522. 61082 DATA 2,1,2,1,1,2,2,1,2,1,1,2
  523. 61090 DATA 2,1,2,1,2,1,2,1,2,1,1,2,1,2,1,2,1,2,2,1,2,1,2,1,2,1,2,1,1,2,1,2,1
  524. 61091 DATA 2,1,2
  525. 61100 DATA"[144][178][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][179]"
  526. 61101 DATA"[182]SETZEN         [144][183]"
  527. 61102 DATA"[182]KORREKTUR      [144][183]"
  528. 61103 DATA"[182]ANZEIGEN       [144][183]"
  529. 61104 DATA"[182]RIEN NE VA PLUS[144][183]"
  530. 61105 DATA"[182]SPIEL LADEN    [144][183]"
  531. 61106 DATA"[182]SPIEL SPEICHERN[144][183]"
  532. 61108 DATA"[182]DISKETTE       [144][183]"
  533. 61109 DATA"[182]ANLEITUNG      [144][183]"
  534. 61110 DATA"[182]ENDE           [144][183]"
  535. 61111 DATA"[180][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][181]"
  536. 61113 DATA"[144][178][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][179]"
  537. 61114 DATA"[182]  NICHTS GEHT MEHR   [183]"
  538. 61115 DATA"[182]  -RIEN NE VA PLUS   [183]"
  539. 61116 DATA"[182][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][183]"
  540. 61117 DATA"[182]                     [183]"
  541. 61118 DATA"[182]DIE KUGEL ROLLT...   [183]"
  542. 61119 DATA"[182]                     [183]"
  543. 61120 DATA"[182]                     [183]"
  544. 61121 DATA"[182][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][183]"
  545. 61122 DATA"[182]                     [183]"
  546. 61123 DATA"[180][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][181]"
  547. 61140 DATA"[144][178][184][184][184][184][184][184][184][184][184][184][179]"
  548. 61141 DATA"[182]DISKETTE  [183]"
  549. 61142 DATA"[182][192][192][192][192][192][192][192][192][192][192][183]"
  550. 61143 DATA"[182]MEN[186]      [144][183]"
  551. 61144 DATA"[182]DIRECTORY [144][183]"
  552. 61145 DATA"[182]SPIELSTAND[144][183]"
  553. 61146 DATA"[182]   L[SCHEN[144][183]"
  554. 61147 DATA"[180][185][185][185][185][185][185][185][185][185][185][181]","","",""
  555. 61150 DATA"[144][178][184][184][184][184][184][184][184][184][184][184][184][179]"
  556. 61151 DATA"[182]NAME       [183]"
  557. 61152 DATA"[182][192][192][192][192][192][192][192][192][192][192][192][183]"
  558. 61153 DATA"[182]           [183]"
  559. 61154 DATA"[180][185][185][185][185][185][185][185][185][185][185][185][181]","","","","","",""
  560. 61160 DATA"[144][178][184][184][184][184][184][184][184][184][184][179]"
  561. 61161 DATA"[182]ENDE     [183]"
  562. 61162 DATA"[182][192][192][192][192][192][192][192][192][192][183]"
  563. 61163 DATA"[182]MEN[186]     [144][183]"
  564. 61164 DATA"[182]NEUSTART [144][183]"
  565. 61165 DATA"[182]RESET    [144][183]"
  566. 61166 DATA"[180][185][185][185][185][185][185][185][185][185][181]","","","",""
  567. 61170 DATA"[144][178][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][179]"
  568. 61171 DATA"[182]      ROULETTE[144]         [183]"
  569. 61172 DATA"[182]WRITTEN BY J.WELLHAUSEN[144][183]"
  570. 61173 DATA"[182]    AND M.RADETZKI     [144][183]"
  571. 61174 DATA"[180][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][181]","","","","","",""
  572.