0 :REM=================================
1 :REM
2 :REM    ZEICHEN TIP, DAS SPIEL FUER
3 :REM    PROFIS
4 :REM
5 :REM
6 :REM=================================
7 :
8 :
9 :
10 :CLR:GOTO1000:
11 :A$="ZEICHEN-TIP":OPEN1,8,15,"S:"+A$:CLOSE1:SAVEA$,8:RETURN
12 :
16 :
17 :
18 :
19 :
20 :REM---SET CRSR
21 :POKE214,P/40:POKE211,P-PEEK(214)*40:SYS58640:RETURN
22 :
30 :REM---GET ZEICHEN
31 :C=FNR(25)+1:C$=CHR$(C+64):I=FNR(NM):IFG$="[133]"THEN:RETURN:
32 :J=I:B=I%(J):IFBTHEN:I=B
33 :IFNM>=.THEN:B=I%(NM):I%(J)=NM:IFBTHEN:I%(J)=B
34 :NM=NM-1:RETURN:
35 :
36 :
40 :REM---GET TASTE
41 :POKE198,.:WAIT198,1:GETA$:RETURN
43 :
60 :REM---STRING-GEN
61 :A$=A$+A$:ON-(LEN(A$)*2<=M)GOTO61:A$=A$+LEFT$(A$,M-LEN(A$)):RETURN:
65 :
80 :REM---FLIMMER
81 :FORI=1TO160:POKE53280,7:A=A:POKE53280,3:A=A:POKE53280,6:NEXT:J=.:RETURN:
82 :
90 :
100 :REM----LISTE SORTIEREN
102 :FORJ=1TOMX:M=J:FORI=JTOMX:IFZ(I)>=Z(M)THEN:M=I
104 :NEXT:A=Z(M):Z(M)=Z(J):Z(J)=A::A$=N$(M):N$(M)=N$(J):N$(J)=A$:NEXT:RETURN:
196 :
197 :
198 :
199 :
200 :REM===============================
201 :REM
202 :REM     SPIEL - UNTER PRG
203 :REM
204 :REM===============================
205 :
210 :PRINT"[147][218]EICHEN-[212]IP[154]":
211 :TI$="000000":R%=-1:NM=919
212 :D1=PEEK(47):D2=PEEK(48):POKE47,PEEK(49):POKE48,PEEK(50):DIMI%(NM)
213 :GOTO230
214 :
220 :REM---ZEICHEN SETZEN
222 :GOSUB30:P=I+40:P0=P:GOSUB20:ON-(FNBC(.)<>32)GOTO230:PRINT""C$"[157]";:
223 :ON-(G$>"[134]")GOTO230:GOSUB40:IFG$="[133]"THEN:PRINT"[146] ";
224 :IFNOT(C$="Z"ORC$="Y")ORDT=1GOTO226
225 :F=-((C$="Z"ANDA$="Y")OR(C$="Y"ANDA$="Z")):ON(1+F)GOTO240,230
226 :IFNOT(A$=C$)GOTO240:
229 :
230 :REM---ANZEIGEN
231 :P=40*24+15:GOSUB20:
232 :PRINT"[146](RICHTIG)";:R%=R%+1
233 :PRINT"[146]"TAB(24)"R:"R%;:
234 :ON-(G$="[133]")GOTO220:IFR%<920THEN:ON-(G$="[147]")GOTO220:FORI=.TO500:NEXT:GOTO220
238 :GOSUB80:
239 :
240 :REM---ENDE
241 :POKE49,PEEK(47):POKE50,PEEK(48):POKE47,D1:POKE48,D2:
242 :P=P0:GOSUB20:PRINT""C$;:POKE212,.:T=TI/60:T=T-(T=.):GOSUB40:POKE19,1:
243 :P=920:GOSUB20:PRINT"[146] [211]IE HABEN "R%"[157][146]  [210]ICHTIGE GESCHAFFT ! [146]"TAB(40);
244 POKE19,.:P=24*40:GOSUB20
245 :POKE19,1:PRINTINT(R%/T*100)/100"[218]EICHEN PRO [211]EKUNDE "TAB(79);:POKE19,.
246 :GOSUB40:J=.:IFR%<Z(MX-1)ORR%=.THEN:RETURN:
247 :
248 :
250 :PRINT"[147][211]IE HABEN EINEN [194]ESTPLATZ ERREICHT"
251 :PRINT"[206]AME:  ";N$;:POKE211,5:INPUTN$:
252 :Z(MX)=R%:N$(MX)=LEFT$(N$,ZM):GOSUB100:FORI=.TO1000:NEXT:J=1:RETURN:
995 :
996 :
997 :
998 :
999 :
1000 :REM==============================
1001 :REM
1002 :REM    VORBEREITUNGEN
1003 :REM
1004 :REM==============================
1005 :
1030 :PRINT"[147] [198]REI-[211]OFT FUER  [211]PIELELIEBHABER"
1031 :PRINT" [198]REE-[211]OFT FOR   [199]AMELOVERS"
1032 :PRINT"[192][219][192][146][196].[194]REITINGER[192][219][192][146] (2002)"
1033 :FORI=1TO3000:NEXT:
1034 :
1035 :
1100 :DIM I,J,R%,A,B,C,A$,C$,G$,N$,T,MX,P,P0,ZM,D1,D2,M1,M2,M,F,DT,A%
1101 :DEFFN P(A)=PEEK(A)+PEEK(A+1)*256
1102 :DEFFN BC(A)=PEEK(PEEK(209)+PEEK(210)*256+POS(.))::BS=1064:FS=55336
1105 :DEFFN R(A)=INT(RND(1)*INT(A+1)):A=RND(-TI):G$="[133]":R$=CHR$(13)
1200 :MX=6:DIM Z(MX),N$(MX)
1201 :ZM=16:M=ZM:A$=".":GOSUB60:L$=A$
1202 :FORI=.TOMX:N$(I)=L$::NEXT
1203 :DT=1:DT$(.)="[196]EUTSCH":DT$(1)="[197]NGLISH":N$="[206]AME............":
1205 :Z$="[154][184][162][184][162][184][162][184][162][184][162][184][162][184][162][184][162][184][162][184][162][184][162][184][162][184][162][184][162][184][162][184][162][184][162][184][162][184][162][184][162]"
1300 :POKE649,1:G$="[133]":J=1
1996 :
1997 :
1998 :
1999 :
2000 :REM==============================
2001 :REM
2002 :REM    TITEL SEITE
2003 :REM
2004 :REM==============================
2005 :
2006 :
2110 :F=53280:POKEF,6:POKEF+1,6:PRINT"[147]";
2111 :PRINT"[146][154][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
2112 :PRINT"[154] [155] [218]EICHEN-[212]IP :[154] "
2113 :PRINT"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
2120 :PRINT"<<<   ( [198]1 )  [211]TANDARD     "TAB(30);"[154][155]HI[146][155]:";M1
2121 :PRINT"<<<   ( [198]3 )  [214]ARIANT      "TAB(30);"[154][155]HI[146][155]:";M2
2122 :PRINT"<<<   ( _  )  [206]EUSTART"
2123 :
2124 :P=10*40:GOSUB20:PRINT" [212]ASTEN( [198]7 )[155]: "DT$(DT):
2125 :PRINT""Z$""
2130 :P=15*40:GOSUB20::PRINT"[194]ESTEN-[204]ISTE":PRINT"------------"
2131 :FORI=1TOMX-1
2132 :PRINTI"[157].";TAB(5)N$(I)TAB(5+ZM)RIGHT$("    "+STR$(Z(I)),5)"  [218]EICHEN"
2133 :NEXT:PRINT""Z$;:::ON(J)GOSUB80
2197 :
2198 :
2199 :
2200 :GOSUB40:REM---WARTEN AUF EINGABE
2201 :IFA$=R$ORA$=" "THEN:A$=G$
2202 :IFA$="[136]"THEN:DT=1-DT:GOTO2124:
2203 :IFA$="[133]"ORA$="[134]"ORA$="[147]"GOTO2300:
2204 :IF(A$="\")THEN:OPEN1,8,15:CLOSE1:ON-(ST=.)GOSUB11:GOTO2000:
2205 :IFA$="_"THEN:RUN1100:
2206 :IFA$="[148]"THEN:PRINT"EDIT";:SYS64789:SYS42107:
2207 :
2210 :GOTO2200:
2300 :REM---SPIEL AUFRUF
2301 :G$=A$:GOSUB200
2302 :IF(G$="[133]"ANDR%>M1)THEN:M1=R%:
2303 :IF(G$="[134]"ANDR%>M2)THEN:M2=R%
2304 :GOTO2110:
2305 :
2306 :