Falcon 030 Power 2

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

/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / STOSBTS2.ARJ / stosbts2.msa / HPS.BAS (.txt) < prev next >

Wrap

Atari STOS Basic | 1987-04-22 | 88KB | 194 lines

10 REM eddies mega fast buffered scroller 100 LOGIC 1000 REM set up the letter data 10000 REM TEXT MESSAGE GOES HERE 10010 VARNAME 10020 FOR 10030 VARNAME 10040 IF 10041 IF 10042 IF 10043 IF 10044 IF 101 VARNAME 1010 VARNAME 10100 MID$ 10110 NEXT 10120 RETURN 102 GOSUB 1020 FOR 103 VARNAME 1030 FOR 104 VARNAME 1040 VARNAME 105 GOSUB 1050 INC 106 VARNAME 1060 NEXT 1061 VARNAME 107 IF 1070 RETURN 108 IF 109 GOSUB 110 REPEAT 120 SCREEN COPY 130 SCREEN COPY 140 SCREEN$ 150 SCREEN COPY 151 INC 153 IF 154 GOSUB 160 SCREEN SWAP 161 IF 162 IF 163 IF 164 SCREEN COPY 166 IF 167 IF 168 IF 169 IF 190 UNTIL 20 REM uses loads of memory but is bloody fast!!! 2000 REM sort out shifter font!! using sprite file! 2030 REM ~~~~~~~~ 2040 FOR 2050 REM first frame 2060 CLS 2070 UPDATE 2080 VARNAME 2090 NEXT 2091 SPRITE 2100 RETURN 30 REM coded 16 July 1991 - THB are the best!!!!! 3000 REM turn sprite bank into a screen 3010 MODE 3020 RESERVE 3030 HIDE 3040 CURS 3050 KEY 3060 CLS 3080 VARNAME 3090 REM ~~~~~~~~~~~~~~~~~~~ 3100 FOR 3110 SPRITE 3120 REDRAW 3130 PUT SPRITE 3140 VARNAME 3150 IF 3160 NEXT 3161 SCREEN COPY 3170 RETURN 3180 REM set up screen and colours 3190 VARNAME 3200 FOR 3210 RETURN 40 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 40000 REM EDDIE HAS AT LAST SUSSED PLATFORMS 40010 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 40030 GET PALETTE 40040 CALL 40050 VARNAME 40051 VARNAME 40060 VARNAME 40061 SCREEN COPY 40070 OFF 40080 REM DRAW ROOM 40090 RESET ZONE 40091 SCREEN COPY 40092 VARNAME 40093 VARNAME 40094 VARNAME 40100 RETURN 40110 REM ~~~~~~~~~~~~~~~~~~~~~~~~~ 40120 REM MOVE SPRITE AROUND 40130 VARNAME 40131 SCREEN COPY 40132 VARNAME 40140 SPRITE 40141 IF 40142 IF 40150 IF 40160 IF 40170 IF 40180 IF 40190 IF 40200 IF 40210 IF 40220 IF 40230 IF 40240 REDRAW 40250 RETURN 40260 REM CHECK FOR MOVING LEFT 40270 VARNAME 40280 VARNAME 40290 VARNAME 40300 VARNAME 40310 VARNAME 40320 VARNAME 40330 VARNAME 40340 IF 40350 VARNAME 40360 RETURN 40370 REM CHECK FOR MOVING RIGHT 40380 VARNAME 40390 VARNAME 40400 VARNAME 40410 VARNAME 40420 IF 40430 VARNAME 40440 VARNAME 40450 IF 40460 VARNAME 40470 RETURN 40480 REM CHECK FOR MOVING DOWN 40490 VARNAME 40500 VARNAME 40510 VARNAME 40520 VARNAME 40530 VARNAME 40540 VARNAME 40550 VARNAME 40560 VARNAME 40570 IF 40580 RETURN 40590 REM CHECK FOR MOVING UP 40600 VARNAME 40610 VARNAME 40620 VARNAME 40630 VARNAME 40640 VARNAME 40650 VARNAME 40660 VARNAME 40670 IF 40680 VARNAME 40690 RETURN 40700 REM DATA FOR 8*8 ROOM 40710 DATA 40720 DATA 40730 DATA 40740 DATA 40750 DATA 40760 DATA 40770 DATA 40780 DATA 45000 REM check to see if there is a door on screen, if so set it up 45005 PEN 45010 VARNAME 45020 IF 45021 SCREEN COPY 45030 RETURN 46000 REM text for each door, one door per screen 46010 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 46011 PEN 46020 VARNAME 46021 VARNAME 46030 RETURN 50 KEY 60 MODE 70 HIDE 80 CURS 81 REM set up screens for font 90 GOSUB 98 DIM 99 DIM