M.u.C.S. Disc 2000

home *** CD-ROM | disk | FTP | other *** search

/ M.u.C.S. Disc 2000 / MUCS2000.iso / spiele / trader2 / stos / trader2.bas (.txt) < prev next >

Wrap

Atari STOS Basic | 1999-03-23 | 55KB | 506 lines

10 MODE 100 REM *** Main Program *** 1000 IF 10000 REM *** Credits screen *** 10010 RESET ZONE 10020 IF 10030 GOTO 1010 IF 1020 IF 1030 IF 1040 IF 105 GOSUB 1050 IF 10500 REM *** Info Screen *** 10510 SPRITE 10520 RESET ZONE 10530 LOCATE 10540 LOCATE 10550 LOCATE 10560 LOCATE 10570 LOCATE 1060 IF 110 RESERVE 120 LOAD 12000 IF 12010 GOTO 12020 IF 12030 IF 125 RETURN 130 SHOW 13000 REM *** Quit *** 13010 RESET ZONE 13020 VARNAME 13030 IF 13040 GOTO 135 CLS 13500 REM *** Bar *** 13510 VARNAME 13520 RESET ZONE 13530 SPRITE 13540 LOCATE 13550 VARNAME 13555 LOCATE 13560 IF 13570 IF 13580 IF 13590 IF 13595 WAIT 13600 GOTO 140 FADE 150 RESET ZONE 155 GOSUB 160 SET ZONE 16000 REM *** Not enough crew *** 16010 VARNAME 16020 SPRITE 16030 VARNAME 16040 LOCATE 16050 VARNAME 16060 GOTO 170 LOCATE 17000 REM *** Not enough money *** 17010 VARNAME 17020 SPRITE 17030 LOCATE 17040 VARNAME 17050 GOTO 175 LOCATE 17500 REM *** Not enough space *** 17510 VARNAME 17520 SPRITE 17530 LOCATE 17540 VARNAME 17550 GOTO 180 LOCATE 1999 GOTO 20 RESERVE 200 VARNAME 2000 REM *** Trade Goods *** 20000 REM *** BATTLES *** 20010 VARNAME 20011 VARNAME 20012 VARNAME 20013 VARNAME 20020 LOCATE 20030 LOCATE 20040 LOCATE 2005 GOSUB 20050 LOCATE 20060 LOCATE 20070 LOCATE 20080 LOCATE 20090 LOCATE 2010 VARNAME 20100 SET ZONE 20110 VARNAME 20111 IF 20120 IF 20125 GOTO 20130 IF 20140 IF 20150 LOCATE 20160 IF 20170 LOCATE 2020 RESET ZONE 20200 VARNAME 20210 IF 20220 GOTO 2030 SET ZONE 20300 IF 20305 VARNAME 20306 VARNAME 20307 VARNAME 20310 VARNAME 20320 SET ZONE 20330 LOCATE 20340 VARNAME 20350 IF 20360 IF 20370 IF 20380 IF 20390 IF 2040 SET ZONE 20400 IF 20410 IF 20420 IF 20430 IF 20450 IF 20499 WAIT 2050 SET ZONE 20500 GOTO 2060 SET ZONE 2070 SET ZONE 2080 SET ZONE 2090 SET ZONE 2095 RETURN 210 IF 2100 LOCATE 2110 LOCATE 2120 LOCATE 2130 LOCATE 2140 LOCATE 215 IF 2150 LOCATE 2160 LOCATE 2170 LOCATE 2180 LOCATE 220 IF 225 IF 226 IF 227 IF 230 IF 2300 VARNAME 2310 VARNAME 2311 IF 2312 IF 2320 IF 2321 IF 2322 IF 2330 IF 2331 IF 2332 IF 2340 IF 2341 IF 2342 IF 2350 IF 2351 IF 2352 IF 2360 IF 2361 IF 2362 IF 2370 IF 2371 IF 2372 IF 2380 LOCATE 240 IF 24449 WAIT KEY 250 IF 25000 VARNAME 25010 LOCATE 25020 LOCATE 260 IF 270 IF 30 LOAD 30000 REM *** Loading *** 30010 CLS 30020 VARNAME 30030 LOCATE 30040 GOSUB 30050 VARNAME 30100 REM *** Saving *** 30110 VARNAME 30120 LOCATE 30130 LOCATE 30135 VARNAME 30140 VARNAME 35000 REM *** Opponents *** 35010 SPRITE 35020 PEN 35030 PEN 35040 IF 35050 IF 35060 IF 35070 PEN 35080 IF 35090 IF 35100 IF 35110 PEN 35120 IF 35130 IF 35140 IF 35150 SET ZONE 35160 VARNAME 35170 IF 35180 GOTO 35200 VARNAME 36000 REM *** Printing *** 36010 SPRITE 36030 SET ZONE 36040 LOCATE 36050 LOCATE 36060 LOCATE 36065 LOCATE 36070 VARNAME 36080 IF 36090 IF 36100 IF 36110 GOTO 37000 LPRINT 37010 LPRINT 37030 LPRINT 37040 LPRINT 37050 LPRINT 37060 LPRINT 37070 LPRINT 37080 LPRINT 37999 VARNAME 38000 REM *** Opponent Print *** 38010 LPRINT 38020 LPRINT 38030 LPRINT 38040 LPRINT 39000 VARNAME 3998 WAIT 3999 GOTO 40 FADE 4000 GOTO 40000 VARNAME 49999 REM *** Screen fade to screen routine *** 50 SCREEN COPY 5000 REM *** Sailing *** 50000 FADE 50010 RETURN 50020 REM *** Pre game variables *** 50025 VARNAME 50030 VARNAME 50040 VARNAME 50050 VARNAME 50060 VARNAME 50070 VARNAME 50080 VARNAME 50090 VARNAME 50100 VARNAME 50110 VARNAME 50120 VARNAME 50130 VARNAME 50140 VARNAME 50150 VARNAME 50160 VARNAME 50170 VARNAME 50180 VARNAME 50190 VARNAME 5020 VARNAME 5030 RESET ZONE 5040 SET ZONE 5050 SET ZONE 5060 SET ZONE 5070 SET ZONE 5080 SET ZONE 5090 SET ZONE 5100 SET ZONE 5105 SET ZONE 5106 IF 5107 IF 5108 IF 5109 IF 5110 VARNAME 5111 IF 5112 IF 5113 IF 5114 IF 5115 IF 5120 IF 5125 IF 5130 IF 5135 IF 5140 IF 5145 IF 5150 IF 5155 IF 5160 IF 5165 IF 5170 IF 5175 IF 5180 IF 5185 IF 5190 IF 5195 IF 5499 GOTO 5500 VARNAME 55000 RETURN 55010 REM *** Post sailing, pre town variables *** 55011 VARNAME 55012 IF 55013 IF 55014 IF 55015 IF 55016 IF 55017 IF 55018 IF 55020 VARNAME 55030 VARNAME 55040 VARNAME 55050 VARNAME 55060 VARNAME 55070 VARNAME 55080 VARNAME 55090 VARNAME 55200 IF 55210 IF 55220 IF 55230 IF 55240 IF 55250 IF 55260 IF 55270 IF 55280 IF 55290 IF 55300 IF 55310 IF 55320 IF 55330 IF 55340 IF 55350 IF 55360 IF 55370 IF 55380 IF 55390 IF 55400 VARNAME 55405 GOSUB 55410 IF 55420 IF 55430 IF 55440 IF 55450 IF 55460 IF 55470 IF 55480 IF 55490 IF 55500 IF 55510 IF 55520 IF 55525 RETURN 55530 IF 55540 IF 55550 IF 55560 IF 55570 IF 55580 IF 55590 IF 55600 IF 55605 GOSUB 55610 VARNAME 55611 IF 55612 VARNAME 55620 VARNAME 55621 IF 55622 VARNAME 55630 VARNAME 55631 IF 55632 VARNAME 55640 VARNAME 55641 IF 55642 VARNAME 55650 VARNAME 55651 IF 55652 VARNAME 55660 VARNAME 55661 IF 55662 VARNAME 55670 VARNAME 55671 IF 55672 VARNAME 55680 VARNAME 55681 IF 55682 VARNAME 55690 VARNAME 55691 IF 55692 VARNAME 55700 VARNAME 55701 IF 55702 VARNAME 55710 VARNAME 55711 IF 55712 VARNAME 55715 RETURN 55720 VARNAME 55730 VARNAME 55740 LOCATE 55750 VARNAME 55751 IF 55752 IF 55753 IF 56000 VARNAME 56010 GOTO 57000 IF 57010 VARNAME 57020 VARNAME 57025 IF 57030 IF 57040 VARNAME 57050 VARNAME 57055 IF 57060 IF 57070 VARNAME 57080 VARNAME 57090 IF 57100 IF 57200 GOSUB 57999 RETURN 58000 REM *** End of year report *** 58010 VARNAME 59000 RETURN 5999 GOTO 59990 VARNAME 59991 VARNAME 59992 VARNAME 59993 VARNAME 59994 VARNAME 59995 VARNAME 59996 VARNAME 59999 RETURN 60 WAIT 6000 REM *** Ship Trading *** 6010 VARNAME 6020 RESET ZONE 6021 LOCATE 6022 LOCATE 6023 LOCATE 6024 LOCATE 6030 VARNAME 6031 LOCATE 6040 IF 6050 IF 6060 IF 6070 IF 6080 IF 6090 IF 6100 IF 6110 IF 6120 IF 6999 WAIT 70 SCREEN COPY 7000 GOTO 80 WAIT 8000 REM *** Weapons Trading *** 8010 VARNAME 8020 RESET ZONE 8030 SET ZONE 8035 LOCATE 8040 LOCATE 8050 LOCATE 8060 LOCATE 8070 LOCATE 8080 LOCATE 8090 VARNAME 8100 IF 8110 IF 8120 IF 8130 IF 8140 IF 8150 IF 8160 IF 8170 IF 8180 IF 8190 IF 8200 IF 8210 IF 8220 IF 880 IF 890 IF 90 ERASE 900 IF 905 IF 910 IF 920 IF 930 IF 940 IF 950 IF 960 IF 970 IF 980 IF 9980 WAIT 9990 GOTO 9999 VARNAME