Kleincomputer KC 85/3 Handbuch Seite 95

ERWEITERUNGEN 17
2«« PRINTB$:GOSUB41«:GOTO28«
21« PRINTC$:GOSUB36«:GOTO28«
22« PRINTA$:GOSUB36«:GOTO28«
23« PRINTB$:GOSUB46«:GOTO28«
24« PRINTC$:GOSUB41«:GOTO28«
25« PRINTA$:GOSUB41«:GOTO28«
26« PRINTB$:GOSUB36«:GOTO28«
27« PRINTC$:GOSUB46«
28« COLOR7,1
29« WINDOW25,27,«,39
3«« PRINT"EIN NEUES SPIEL? (J/N)"
31« X$=INKEY$:IFX$=""GOTO31«
32« IFX$="N" THEN WINDOW:CLS:END
33« IFX$="J"GOTO3««
34« C=«:S=«:Ss=" ":X$=" "
35« GOTO2«
36« PRINT
37« PRINT "GRATULIERE! DU HAST GEWONNEN."
38« SP=1:CP=«
39« GOSUB51«
4«« RETURN
41« PRINT
42« PRINT"PECH FUER DICH! ICH HABE GEWONNEN."
43« SP=«:CP=1
44« GOSUB51«
45« RETURN
46« PRINT
47« PRINT"UNENTSCHIEDEN."
48« SP=«:CP=«
49« GOSUB51«
5«« RETURN
51« SSP=SSPÍSP
52« SCP=SCPÍCP
53« COLOR25,6
54« WINDOW21,23, «,39:CLS
55« PRINT"SPIELER","COMPUTER"
56« PRINTSSP,SCP
57« RETURN
93