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