home *** CD-ROM | disk | FTP | other *** search
/ Emulator Universe CD / emulatoruniversecd1998.iso / CPC / ROMs / SMASHTV.DSK / shanghai.bas (.txt) next >
Encoding:
Locomotive BASIC  |  1995-11-13  |  12.6 KB  |  102 lines
  1. SHANGHAIBAS
  2. {f:L~
  3. :L~G>
  4. t=(I2
  5. G+N##
  6. nm!Bw
  7.  !:L~G>
  8. +i= 2:
  9. :L~==2L~
  10. t#^#V
  11.      ###
  12. wh#^#V#
  13. hi!    "
  14. dO>08
  15. <<2L~*M~
  16. #^#V#~
  17. Lj*M~
  18. r+s+"M~
  19. $n.    >    
  20. G+N##~!
  21. !`{#6
  22. :b{<2b{
  23. o:`{!
  24. :b{O:`{
  25. t><=2
  26. $n.    >
  27. (0G!u3
  28. - DRIVE NOT READY -
  29. - FILE NOT FOUND -
  30. you got it
  31. FIRE/COPY TO CONFIRM
  32.  More 
  33.  Cancel 
  34. This programm is
  35.     written by
  36. Detlev  Ahlgrimm
  37. Hauke Ahlgrimm
  38.  - L O C K E D -
  39.                 
  40.                     
  41.  The winner is : 
  42.  Player - 
  43.  No winner ! 
  44.  Define Limit 
  45.   10 Minutes 
  46.   15 Minutes 
  47.   20 Minutes 
  48.    No  Limit 
  49.  Play 
  50.  Cancel 
  51.   10 Seconds 
  52.   15 Seconds 
  53.   20 Seconds 
  54.   30 Seconds 
  55.  The Fabulous Seven 
  56.  Play 
  57.  Cancel 
  58. Your name   
  59. virginal
  60. Tournament
  61. GLOBAL
  62. Tournament
  63. $$$$$$$$$%
  64. """""""
  65. &"""""""'%
  66. """"""" 
  67. $$$$$$$$$$$$$$$$$$$$$%
  68. """""""""""""""""""
  69. """"""""""""""""""" 
  70. $$$$$$$$$$$$$$$$%
  71. """"""""""""""
  72. """""""""""""" 
  73. $$$$$$$$$$%
  74. """"""""
  75. """""""" 
  76.  Open  Tournament 
  77.  OPEN 
  78.  NEW 
  79.  CANCEL 
  80. GAME1   .TNM
  81. GAME1   .TNMSOLIT   .SOL
  82.  NEXT 
  83.         
  84.  CANCEL 
  85. - No more moves -
  86.                  
  87. There are 4 of each tile.
  88. There are 4 of each tile.
  89. Craks
  90. There are 4 of each tile.
  91. Winds
  92. There are 4 of each tile.
  93. Dragons
  94. There are 4 of each tile.
  95. Seasons
  96. There is 1 of each tile.
  97. Suits
  98. There is 1 of each tile.
  99.  !"#'
  100.  !"cg
  101. NALLDATA$$$
  102.