Screenshot 2 Screenshot 3
2bc0 3758 0302 B ... JAZZY
Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß)

  350 DIM Z$(32),A(6),NA$(4),AU(4,23)
  360 Z$(3)=" "
  370 Z$(4)=" 1 I  :         J A Z Z Y"
  380 Z$(5)=" 2 II :       *************"
  390 Z$(6)=" 3 III:"
  400 Z$(7)=" 4 IV :"
  410 Z$(8)=" 5 V  :"
  420 Z$(9)=" 6 VI :"
  430 Z$(10)=" 7 SUM:   "
  440 Z$(11)=" 8 BON:                  "
  450 Z$(12)=" 9 1X2:                  "
  460 Z$(13)="10 2X2:                  "
  470 Z$(14)="11 3X2:                  "
  480 Z$(15)="12 3er:                  "
  490 Z$(16)="13 4er:   "
  500 Z$(17)="14 5er:"
  510 Z$(18)="15 Jaz:      1      2      3"
  520 Z$(19)="16 2X3:"
  530 Z$(20)="17 klW:   "
  540 Z$(21)="18 grW:                  "
  550 Z$(22)="19 Str:                  "
  560 Z$(23)="20 klH:                  "
  570 Z$(24)="21 grH:                  "
  580 Z$(25)="22 Cha:                  "
  590 Z$(26)="23 Jok:   "
  600 Z$(27)=" " 
  610 Z$(28)="             4      5      6"
  620 Z$(29)=" "
  630 Z$(30)=" "
  640 WINDOW:CLS
  650 PRINT
  660 PRINT "    Willkommen beim Jazzy !":PRINT
  670 INPUT "ANZAHL DER SPIELER(max=4):";SP
  680 FOR I=1 TO SP
  690 PRINT
  700 INPUT "SPIELER:";NA$(I)
  710 NEXT I
  720 R=0
  730 FOR K=1 TO 4
  740 FOR I=1 TO 23
  750 AU(K,I)=-1
  760 NEXT I:AU(K,7)=0:AU(K,8)=0
  770 NEXT K
  780 FOR R=1 TO 21
  790 FOR SI=1 TO SP
  800 FOR I=1 TO 6
  810 A(I)=0
  820 NEXT I
  830 V=0
  840 WINDOW:CLS
  850 FOR I=2 TO 30
  860 PRINT Z$(I)
  870 NEXT I
  880 ZE=1:FOR I=1 TO 23
  890 ZE=ZE+1
  900 IF AU(SI,I)>-1 THEN PRINT AT(ZE,6);AU(SI,I)
  910 NEXT I
  920 PRINT AT(5,10);NA$(SI)
  930 PRINT AT(5,20);V+1,".VERSUCH"
  940 PRINT AT(6,20);R,".RUNDE"
  950 FOR I=1 TO 6
  960 IF A(I)=0 THEN A(I)=INT(6*RND(1)+1) 
  970 NEXT I
  980 V=V+1
  990 FOR I=1 TO 6
 1000 IF A(I)=1 THEN RESTORE 1170
 1010 IF A(I)=2 THEN RESTORE 1180
 1020 IF A(I)=3 THEN RESTORE 1190
 1030 IF A(I)=4 THEN RESTORE 1200
 1040 IF A(I)=5 THEN RESTORE 1210
 1050 IF A(I)=6 THEN RESTORE 1220
 1060 IF I=1 THEN X1=11:Y1=13
 1070 IF I=2 THEN X1=11:Y1=20
 1080 IF I=3 THEN X1=11:Y1=27
 1090 IF I=4 THEN X1=21:Y1=13
 1100 IF I=5 THEN X1=21:Y1=20
 1110 IF I=6 THEN X1=21:Y1=27
 1120 FOR L=1 TO A(I)
 1130 READ X,Y,Z
 1140 PRINT AT(X1+X,Y1+Y);CHR$(Z)
 1150 NEXT L
 1160 NEXT I
 1170 DATA 0,0,255  
 1180 DATA 2,-2,255,-2,2,255  
 1190 DATA 2,-2,255,0,0,255,-2,2,255    
 1200 DATA -2,-2,255,-2,2,255,2,-2,255,2,2,255
 1210 DATA -2,-2,255,-2,2,255,2,-2,255,2,2,255,0,0,255
 1220 DATA -2,-2,255,-2,2,255,0,-2,255,0,2,255,2,-2,255,2,2,255
 1230 IF V=3 THEN GOTO 1360
 1240 PRINT AT(28,0);"Welche Wuerfel loeschen?(0=ENDE)"   
 1250 INPUT "EINGABE";W$
 1260 L=LEN (W$)
 1270 FOR I=1 TO L:S$=MID$(W$,I,1)
 1280 K=VAL(S$) 
 1290 IF K>6 THEN GOTO 1250
 1300 NEXT I
 1310 FOR I=1 TO L:S$=MID$(W$,I,1)
 1320 K=VAL(S$)
 1330 IF K=0 THEN GOTO 1360
 1340 A(K)=0:NEXT I
 1350 GOTO 840
 1360 PRINT "EINGABE ZEILE,WERT" 
 1370 INPUT "EINGABE:";ZE,WE 
 1380 IF AU(SI,ZE)>-1 THEN GOTO 1370
 1390 AU(SI,ZE)=WE
 1400 NEXT SI
 1410 NEXT R
 1420 WINDOW:CLS
 1430 PRINT:PRINT
 1440 PRINT "    AUSWERTUNG DES SPIELES"
 1450 PRINT "  **************************"
 1460 PRINT
 1470 K=4
 1480 FOR SI=1 TO SP
 1490 FOR I=1 TO 6:AU(SI,7)=AU(SI,7)+AU(SI,I)
 1500 NEXT I
 1510 IF AU(SI,7)>83 THEN AU(SI,8)=50
 1520 SU=0:FOR I=7 TO 23
 1530 SU=SU+AU(SI,I)
 1540 NEXT I
 1550 K=K+1
 1560 PRINT AT(K,3);NA$(SI)
 1570 PRINT AT(K,18);SU," PUNKTE"
 1580 NEXT SI
 1585 PRINT AT(16,7);"BISHERIGER REKORD"
 1590 PRINT AT(18,13);"491"
 1595 WINDOW 28,31,0,31
 1600 END