home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
s85xx
/
s8503c.d64
/
aergere
(
.txt
)
next >
Wrap
Commodore BASIC
|
1995-03-30
|
2KB
|
46 lines
10 REM *********************************
20 REM * *
30 REM * --MENSCH AERGERE DICH NICHT-- *
40 REM * VON *
50 REM * RALF HAHN *
60 REM * LUISENTHALERSTRASSE 32 *
70 REM * 6623 ALTENKESSEL *
80 REM * *
90 REM *********************************
100 POKE53280,0:POKE53281,0:POKE774,226:POKE775,225
110 REM POKE774,226:POKE775,225 LISTSPERRE
120 PRINT"[147]":POKE211,14:POKE214,24:SYS58640
130 PRINT"[155]ANLEITUNG"
140 PRINT"[192][192][192][192][192][192][192][192][192][192][192]"
150 PRINT"* MENSCH AERGERE DICH NICHT WIRD MIT 2-4 PERSONEN GESPIELT."
160 PRINT"* JEDER SPIELER ERHAELT 4 FIGUREN EINER FARBE."
170 PRINT"* ZIEL DES SPIELES IST ES ALLE 4 FIGUREN IN UHRZEIGERRICHTUNG";
180 PRINT" UM DAS SPIELFELD"
190 PRINT" ZU BEWEGEN UND DIE GLEICHFARBIGEN"
200 PRINT" FELDER IN DER MITTE ZU ERREICHEN.
210 [151]198,0:[146]198,1
220 [153]"* WUERFELT MAN EINE '6' SO DARF MAN EINE NEUE FIGUR 'ANSETZEN'."
230 [153]" DAS HEISST AUF DEN GLEICHFARBIGEN PFEIL IM SPIELFELD STELLEN."
240 [153]" BEFINDEN SICH NOCH FIGUREN IN DEN FELDERN AM SPIELFELDRAND,SO";
250 [153]" MUSS MAN ZUERST DAS'LOCH'-DAS HEISST DEN PFEIL- FREIMACHEN."
260 [153]"* WER EINE '6' WUERFELT, DARF NOCHMAL WUERFELN."
270 [151]198,0:[146]198,1
280 [153]"* TRIFFT EINE FIGUR AUF EIN BESETZTES FELD, SO WIRD DIE DORT";
290 [153]" STEHENDE FIGUR 'HERAUSGEWORFEN' -ZURUECK ZUM START."
300 [153]"* HAT EINE FIGUR DAS AEUSSERE KREUZ VOLLSTAENDIG UMZOGEN,SO";
310 [153]" RUECKT SIE AUF DIE KREISE IHRER FARBE EIN UND DARF NICHT MEHR";
320 [153]" HERAUSGEWORFEN WERDEN."
330 [153]"* KANN EIN SPIELER NICHT ZIEHEN,WEIL ER EINE EIGENE FIGUR ";
340 [153]"SCHLAGEN MUESSTE ODER DIE GEWUERFELTE ZAHL ZU GROSS IST"
350 [153]" -SO IST DER NAECHSTE SPIELER DRAN."
360 [151]198,0:[146]198,1
370 [153]"LOADNOCHMAL? (J/N)"
380 [161] A$:[139]A$[178]""[167]380
390 [139] A$[178]"N"[167] 420
400 [139] A$[178]"J"[167] [138]
410 [137]380
420 [153]"LOADBITTE WARTEN"
430 [153]"STOPLOAD";[199](34);"DICH NICHT";[199](34);","[194](186)
440 [153]"RUN"
450 [151]198,5:[151]631,19:[151]632,13:[151]633,13:[151]634,13:[151]635,0:[162]