home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / COMMODOR / MAN.SDA / MODULE2 (.txt) < prev    next >
Commodore BASIC  |  2000-06-30  |  2KB  |  38 lines

  1. 10 REM MENSCH AERGERE DICH NICHT TEIL II
  2. 100 POKE53280,0:POKE53281,0:POKE774,226:POKE775,225
  3. 110 POKE774,226:POKE775,225
  4. 120 PRINT"[147]":POKE211,14:POKE214,24:SYS58640
  5. 130 PRINT"[155]INSTRUCTION"
  6. 140 PRINT"[192][192][192][192][192][192][192][192][192][192][192]"
  7. 150 PRINT"* MENSCH AERGERE DICH NICHT IS PLAYED BY 2-4 PLAYERS OR AGAINST";
  8. 155 PRINT" THE COMPUTER BY ONE OR MORE PLAYERS."
  9. 160 PRINT"EACH PLAYER GETS 4 PAWNS OF ONE COLOR."
  10. 165 PRINT"OBJECTIVE IS TO GET ALL 4 PAWNS ";
  11. 170 PRINT"TO HOME BASE."
  12. 180 PRINT"HOME BASE ARE THE INNER CIRCLES OF THE SAME COLOR AS THE PAWNS."
  13. 190 PRINT"TO START YOU WILL HAVE TO THROW A '6'.IF NONE OF YOUR PAWNS IS ON";
  14. 200 PRINT" THE BOARD YOU HAVE '3' THROWS UNTIL A '6' IS THROWN."
  15. 210 PRINT"ONCE A '6' IS THROWN YOU START AT THE   ARROW OF YOUR COLOR."
  16. 220 PRINT"EACH '6' ALLOWS AN OTHER THROW."
  17. 225 POKE198,0:WAIT198,1
  18. 230 PRINT"YOU WILL HAVE TO MOVE FROM YOUR STARTING ARROW AND MOVE YOUR";
  19. 240 PRINT" PAWN,UNLESS IT IS YOUR LAST ONE."
  20. 250 PRINT"IF YOU HAVE MORE THEN ONE PAWN ON THE BOARD YOU CAN CHOOSE WHICH";
  21. 260 PRINT" ONE YOU WANT TO MOVE BY USING THE SPACEBAR AND RETURN."
  22. 265 PRINT"IF YOU CAN LAND ON YOUR OPPONENT YOU THROW HIM'OFF'THE BOARD"
  23. 280 PRINT"A PAWN THUS'THROWN OFF'HAS TO START ALL OVER AGAIN."
  24. 290 PRINT"WHEN A PAWN HAS REACHED HOME BASE HE IS SAVE AND CAN NOT BE THROWN OFF
  25. 300 [153]"THE PLAYER GETTING HIS 4 PAWNS FIRST INTO HOME BASE IS THE WINNER."
  26. 330 [153]
  27. 340 [153]"HAVE FUN AND DON'T GET MAD!"
  28. 360 [151]198,0:[146]198,1
  29. 370 [153]"LOADWANT TO READ AGAIN? (Y/N)
  30. 380 GETA$:IFA$=""THEN380
  31. 390 IFA$="N"THEN420
  32. 400 IFA$="Y"THENRUN
  33. 410 GOTO380
  34. 420 PRINT"[147]PLEASE WAIT"
  35. 430 PRINT"[144]LOAD";CHR$(34);"MODULE3";CHR$(34);","PEEK(186)
  36. 440 PRINT"RUN"
  37. 450 POKE198,5:POKE631,19:POKE632,13:POKE633,13:POKE634,13:POKE635,0:NEW
  38.