No Fragments Archive 10: Diskmags/nf_archive_10.iso/MAGS/ST_USER/1990/USERJL90.MSA/LISTINGS.ARC/SOLITAIR.BAS

Atari STOS Basic | 1990-05-16 | 38KB | 267 lines

1 REM ________VARIABLES_______________________________________________________
10 REM  board$=the playing area_______________________________________________
10000 STOP
11 REM  O1/O2=x/y position of ball first selcted______________________________
12 REM  O3/O4=x/y position of ball that is jumped over________________________
13 REM  O5/O6=x/y final position ball,the hole its jumped into________________
1310 GOTO
14 REM  SET..sets the first position or final position values into O1/O2..O5/O6 depending on SET=0 or SET=1
197 REM
198 UNKNOWN OP: 0x5F
199 REM
2 REM
200 VARNAME
210 GOSUB
220 SCREEN$
230 SCREEN$
240 SCREEN$
244 REM _________________jump sound__________________________________________
245 VOLUME
250 GOTO
3 REM   X=pixel number from left to right on screen___________________________
30 REM _______________________________________________________________________
31 REM
32 REM     COMPUTER SOLITAIRE vers.2
33 REM
34 REM      by OSCAR W LOCK
35 REM
36 REM       October 1989
37 REM
377 REM
378 REM ________________MOVE TO ANOTHER SCREEN_______________________________
379 REM
38 REM   written in STOS BASIC
380 IF
384 REM ________________goto new screen______________________________________
385 IF
389 REM ____________if clicked on cross..goto reset board____________________
39 REM
390 IF
391 REM ______________if clicked on skull then exit back to STOS___________
395 IF
398 REM
4 REM   Y=pixel number from top to bottom of screen___________________________
40 REM _______________________________________________________________________
400 REM _________GET BACK LAST MOVE________________________________________
401 REM ___________first check for invalid moves__________________________
402 IF
403 IF
404 IF
405 IF
406 IF
407 REM ____________get back last move_____________________________________
408 SCREEN$
410 SCREEN$
412 SCREEN$
413 REM _______________jump sound__________________________________________
414 VOLUME
416 GOTO
449 REM
450 REM ___________RESET BOARD TO PLAY AGAIN_______________________________
451 REM
452 SCREEN$
454 VOLUME
49997 REM
49998 REM _________________________SPRITE/SCREEN DATA__________________________
49999 REM
5 REM   Z=holds the zone number clicked on with the mouse_____________________
50 MODE
50000 RESTORE
50001 RESTORE
50002 NEXT
50005 DATA
50010 DATA
50011 DATA
50012 DATA
50013 DATA
50014 DATA
50015 DATA
50016 DATA
50017 DATA
50018 DATA
50019 DATA
50020 DATA
50021 DATA
50022 DATA
50035 DATA
50036 DATA
50037 DATA
50038 DATA
50039 DATA
50040 DATA
50041 DATA
50042 DATA
50043 DATA
50044 DATA
50045 DATA
50046 DATA
50047 DATA
50060 DATA
50061 DATA
50062 DATA
50063 DATA
50064 DATA
50065 DATA
50066 DATA
50067 DATA
50068 DATA
50069 DATA
50070 DATA
50071 DATA
50072 DATA
50085 DATA
50086 DATA
50087 DATA
50088 DATA
50089 DATA
50090 DATA
50091 DATA
50092 DATA
50093 DATA
50094 DATA
50095 DATA
50096 DATA
50097 DATA
50110 DATA
50111 DATA
50112 DATA
50113 DATA
50114 DATA
50115 DATA
50116 DATA
50117 DATA
50118 DATA
50119 DATA
50120 DATA
50121 DATA
50122 DATA
50135 DATA
50136 DATA
50137 DATA
50138 DATA
50139 DATA
50140 DATA
50141 DATA
50142 DATA
50143 DATA
50144 DATA
50145 DATA
50146 DATA
50147 DATA
50160 DATA
50161 DATA
50162 DATA
50163 DATA
50164 DATA
50165 DATA
50166 DATA
50167 DATA
50168 DATA
50169 DATA
50170 DATA
50171 DATA
50172 DATA
50185 DATA
50186 DATA
50187 DATA
50188 DATA
50189 DATA
50190 DATA
50191 DATA
50192 DATA
50193 DATA
50194 DATA
50195 DATA
50196 DATA
50197 DATA
51 LIMIT MOUSE
528 REM
529 REM _______________CHECK FOR INVALID MOVES_____________________________
530 REM
531 IF
532 IF
533 IF
534 IF
535 IF
536 IF
537 IF
550 RETURN
59 REM ________________________SET 110 ZONES___________________________________
59997 REM
59998 REM _______________ZONE CO-ORDINATES____________________________________
59999 REM
60 RESTORE
60000 DATA
60001 DATA
60002 DATA
60003 DATA
60004 DATA
60005 DATA
60006 DATA
60007 DATA
60008 DATA
60009 DATA
60010 DATA
60011 DATA
60012 DATA
697 REM
698 REM _____________________SET X/Y PRINT POSITIONS_________________________
699 REM _______________Z=zone clicked on with mouse__________________________
70 VARNAME
700 IF
701 IF
702 IF
703 IF
704 IF
705 IF
706 IF
707 IF
708 IF
709 IF
71 REM ________set 16 colours with palette_____________________________________
710 VARNAME
711 GOTO
713 REM
714 REM ________________SCREEN BLOCKS___HOLE/BALL_____________________________
715 REM
716 VARNAME
717 VARNAME
718 RETURN
72 PALETTE
74 REM ______________________reserve screens___________________________________
75 RESERVE
76 RESERVE
77 GOTO
78 VARNAME
79 REM ____________copy visible screen to back screen__________________________
797 REM
799 REM ______________CALCULATE CO-ORDINATES OF JUMPED OVER BALL______________
8 REM   ball$=the ball________________________________________________________
80 HIDE
800 IF
801 IF
805 IF
806 IF
81 SCREEN COPY
810 IF
815 IF
816 IF
82 SHOW
820 IF
821 IF
825 IF
83 HIDE
830 IF
84 REM _________playing area into a$___________________________________________
840 IF
85 VARNAME
86 SCREEN COPY
87 SHOW
88 VOLUME
9 REM   hole$=the hole________________________________________________________
90 REM ___________________WAIT FOR MOUSE______________________________________
900 GOTO
91 SHOW
92 VARNAME
96 IF