Herramientas de usuario

Herramientas del sitio


es:backgammon

Diferencias

Muestra las diferencias entre dos versiones de la página.

Enlace a la vista de comparación

Ambos lados, revisión anteriorRevisión previa
Próxima revisión
Revisión previa
es:backgammon [2017/02/08 14:08] – [Listado] jevicaces:backgammon [2022/06/29 02:11] (actual) – [Extras] jevicac
Línea 1: Línea 1:
 ====== BACKGAMMON ====== ====== BACKGAMMON ======
- 
-===== Ficha ===== 
  
 {{:otros:Backgammon_p1.jpg?690|}} {{:otros:Backgammon_p1.jpg?690|}}
 +
 +===== Ficha =====
 ^ Autor | Ralf Thelen      | ^ Autor | Ralf Thelen      |
 ^ Compatibilidad | Amstrad PCW 8256 / 8512 / 9512 | ^ Compatibilidad | Amstrad PCW 8256 / 8512 / 9512 |
Línea 52: Línea 52:
 230 GOTO 120 230 GOTO 120
 240 ' 240 '
-250 ' Maschinencoda+250 ' Maschinencode
 260 DATA &H01,&H09,&HF5 260 DATA &H01,&H09,&HF5
 270 DATA &HCD,&H5A,&HFC 270 DATA &HCD,&H5A,&HFC
Línea 154: Línea 154:
 1250 PRINT "Der Computer stellt Sie am rechten Rand dar !" 1250 PRINT "Der Computer stellt Sie am rechten Rand dar !"
 1260 PRINT "Sie Züge müßen entsprechend der Augenzahl ausgeführt werden!" 1260 PRINT "Sie Züge müßen entsprechend der Augenzahl ausgeführt werden!"
-1270 PRINT "Dabel kann man nur auf Felder setzen die entweder schon von eigenen Steinen"+1270 PRINT "Dabei kann man nur auf Felder setzen die entweder schon von eigenen Steinen"
 1280 PRINT "besetzt, frei oder von maximal einem gegnerischen Stein besetzt sind"  1280 PRINT "besetzt, frei oder von maximal einem gegnerischen Stein besetzt sind" 
 1290 PRINT "Im letzten Fall wird der gegnerische Stein geschlagen, und muß beim nächsten" 1290 PRINT "Im letzten Fall wird der gegnerische Stein geschlagen, und muß beim nächsten"
Línea 161: Línea 161:
 1320 PRINT "gesetzt. (Für SIE Felder 19-24)" 1320 PRINT "gesetzt. (Für SIE Felder 19-24)"
 1330 PRINT "Sind die Felder schon besetzt, so kannder Zug nicht ausgeführt werden und" 1330 PRINT "Sind die Felder schon besetzt, so kannder Zug nicht ausgeführt werden und"
-1340 PRINT "der Gegner 1st an der Reihe !"+1340 PRINT "der Gegner ist an der Reihe !"
 1350 GOSUB 1580 1350 GOSUB 1580
 1360 PRINT "Werden zwei gleiche Zahlen gewürfelt (Pasch), so kann man die entsprechende" 1360 PRINT "Werden zwei gleiche Zahlen gewürfelt (Pasch), so kann man die entsprechende"
Línea 167: Línea 167:
 1380 PRINT:PRINT "Ist es einem Spieler gelungen alle 15 Steine in die letzten 6 Felder zu" 1380 PRINT:PRINT "Ist es einem Spieler gelungen alle 15 Steine in die letzten 6 Felder zu"
 1390 PRINT "bringen, so kann er mit dem rauswürfeln beginnen!" 1390 PRINT "bringen, so kann er mit dem rauswürfeln beginnen!"
-1400 PRINT "Dabei muB er die richtige Augenzahl werfen."+1400 PRINT "Dabei muß er die richtige Augenzahl werfen."
 1410 PRINT "Der Stein auf diesem Feld wird dann ausdem Spiel genommen." 1410 PRINT "Der Stein auf diesem Feld wird dann ausdem Spiel genommen."
 1420 PRINT "Sieger ist er als erster keine Steine mehr hat !" 1420 PRINT "Sieger ist er als erster keine Steine mehr hat !"
Línea 292: Línea 292:
 950 RETURN 950 RETURN
 960 ' 960 '
-970 ' weiBes Feld ohne Steine zeichnen (v.unten)+970 ' weißes Feld ohne Steine zeichnen (v.unten)
 980 PRINT "   "+CHR$(255)"   " 980 PRINT "   "+CHR$(255)"   "
 990 PRINT"   "+CHR$(254)"   " 990 PRINT"   "+CHR$(254)"   "
Línea 332: Línea 332:
 1350 RETURN 1350 RETURN
 1360 ' 1360 '
-1370 ' WeiBes Feld ohne Steine zeichnen (v.oben)+1370 ' Weißes Feld ohne Steine zeichnen (v.oben)
 1380 PRINT CHR$(244)+CHR$(229)+"###"+CHR$(228)+CHR$(245) 1380 PRINT CHR$(244)+CHR$(229)+"###"+CHR$(228)+CHR$(245)
 1390 PRINT CHR$(242)+CHR$(227)+"###"+CHR$(226)+CHR$(243) 1390 PRINT CHR$(242)+CHR$(227)+"###"+CHR$(226)+CHR$(243)
Línea 439: Línea 439:
 2420 NEXT i 2420 NEXT i
 2430 ' 2430 '
-2440 ' WeiBer Stein raus eintragen+2440 ' Weißer Stein raus eintragen
 2450 FOR i=1 TO 24 2450 FOR i=1 TO 24
 2460 IF swneu(i)>0 AND wneu(i)=1 THEN 2490 2460 IF swneu(i)>0 AND wneu(i)=1 THEN 2490
Línea 550: Línea 550:
 3530 RETURN 3530 RETURN
 3540 ' 3540 '
-3550 ' weiBen Stein erst einsetzen !+3550 ' weißen Stein erst einsetzen !
 3560 IF nwpos-nzpos<>0 THEN 3600 3560 IF nwpos-nzpos<>0 THEN 3600
 3570 FOR i=1 TO pasch 3570 FOR i=1 TO pasch
Línea 662: Línea 662:
 4650 NEXT q 4650 NEXT q
 4660 RETURN 4660 RETURN
-4670 ' Ejecutar tren+4670 ' Einen Zug ausführen
 4680 zahl(1)=MAX(zahl(1),zahl(2)) 4680 zahl(1)=MAX(zahl(1),zahl(2))
 4690 IF pasch=4 THEN zahl(1)=ma 4690 IF pasch=4 THEN zahl(1)=ma
Línea 692: Línea 692:
  
 ===== Extras ===== ===== Extras =====
 +
 +  * Listado del programa en una revista de gran tirada de la época
  
 {{:otros:Backgammon_programa_01.jpg?120}} {{:otros:Backgammon_programa_02.jpg?120}} {{:otros:Backgammon_programa_03.jpg?120}} {{:otros:Backgammon_programa_04.jpg?120}} {{:otros:Backgammon_programa_01.jpg?120}} {{:otros:Backgammon_programa_02.jpg?120}} {{:otros:Backgammon_programa_03.jpg?120}} {{:otros:Backgammon_programa_04.jpg?120}}
Línea 701: Línea 703:
   * {{:otros:Backgammon (de) (Basic).zip|Backgammon en Alemán }}(juego en formato dsk, comprimido con zip)   * {{:otros:Backgammon (de) (Basic).zip|Backgammon en Alemán }}(juego en formato dsk, comprimido con zip)
   * {{:otros:Backgammon (sp) (Basic).zip|Backgammon en Español }}(juego en formato dsk, comprimido con zip)   * {{:otros:Backgammon (sp) (Basic).zip|Backgammon en Español }}(juego en formato dsk, comprimido con zip)
-  *   
 ===== Enlaces ===== ===== Enlaces =====
es/backgammon.1486552102.txt.gz · Última modificación: 2017/02/08 14:08 por jevicac