Several sample fixes/improvements by Alan Ratliff
**In "Simple Pong" I eliminated the problem of the bouncing ball erasing the bottom wall of the field, created a means of scoring points (when the ball gets past a paddle and hits the "back wall", the other player scores a point -- one point each time the ball gets past the paddle, so that multiple impacts that typically occur don't count a point each), and allowed the possibility of equiangular bouncing off the paddles, instead of always just bouncing straight back along the same trajectory. Also, this game isn't really suited for "paddle"-type control on this platform, as there is typically just one mouse for that purpose, not practical for two players. However, with key-control, the comments cited a problem of needing to be able to handle multiple keystrokes. As it was, when one player pressed a directional key, their paddle would start moving and not stop until it hit its upper/lower limit. It would stop, though, if a non-operational key were pressed, or one of the other player's keys. This latter meant that one player hitting a key to move their paddle would stop the other player's paddle from moving, which was where the real problem occurred. Underlying this was the fact all movement was controlled by the single last key pressed. I changed it by introducing variables to control the movement of each paddle which would be set by the appropriate keystrokes. I also added a specific key for each player to stop their paddle's motion, as well as duplicate directional keys so that each player's key group would be suitable for either the left or right hand: with either hand they could press "down" with the index finger, "stop" with the middle finger, and "up" with the fourth finger. ***With "Hangman", I did the usual random-seeding, avoided the initial-keystroke-termination problem, and simplified the word-choosing algorithm, and set it to go through all words in a difficulty-group, then continue by choosing among the 9 words in that group least-recently used. I also incorporated level-change options in the new-game menu, and I greatly reduced the code for the circle-drawing routine (while still utilizing principles of geometry), and re-organized the parts-drawing routines so the "smiley face" routine could be simplified. ***Next is the "Door Detector" game program. Its problems were subtle ones, principally that it would occasionally crash with an "Illegal quantity error in line 320". This concerned the value of "G" that was assigned as COLOR. This crash was quirky, as the program maintained the value of G between 0 and 15 in some places, but not others, while supposedly the value given to COLOR is not "Illegal" unless it's outside the byte-range 0-255; within that range the value merely has its lower nybble isolated to serve as the COLOR value. I put in a tweak to print the value of G to be used in line 320, and upon a crash it was shown as 50. I'm not sure why it occurred this way, but I figured that a way to be safe would be to just *always* ensure that G is kept in the range 0 to 15. The program also had the "standard" problem that it didn't seed the random-number generator, so it always played an identical "game sequence" every time, instead of different permutaions as you'd normally expect with "random numbers". Another "subtle" shortcoming I noticed concerned the fact that in successive "rooms" within a game, the "Death Zone" is an incrementally "thick" border region around the room, and in any given room the "exit" could be randomly placed right next to the "Death Zone's" edge, and as the player would start the next room where the previous room's exit was, a next-to-Death-Zone exit would mean the player would start the next room IN the Death Zone (its innermost layer). As it happened, in the one game-sequence that occurred, the final room's exit in the first game was along the Death Zone's edge, but as it was the FINAL room anyway, the next-room starting location was not an issue. I figured, though, that with the game properly randomized, the issue COULD come up, so I now use line 50 (commented in 40) to bump the player out of the Death Zone if they're starting a room within the Zone. ***With "Columns" there was the usual lack of random seeding, and again a rather drab color scheme for the lower number of colors. I also reduced the maximum number of colors by one, so that it would never use both of the indistinguishable grays. Also a comment on line 2840 mentioned a "Future animated splash screen", so I created one. ***The primary problem with "Chase" was lack of random seeding, so it always played the same sequence of games, which would wear out quickly. There were also a few duplicate line numbers I eliminated. The game presentation could also be improved by simply VTABbing up to display each new board layout over the old one, rather than scrolling up for new diagrams. Also, I documented in the instructions how a player should expect to encounter impossible situations frequently, and just move on when that happens; and I generally streamlined the code considerably, including cleaning up messy text displays. ***With "Gaussian distribution 2D", trying an example resulted in an "Illegal quantity in line 160". This was caused by the hires X coordinate just exceeding the maximum 279, apparently due to imprecise calculations. Reducing the designated maximum (assigned to 'w') in line 30 to a value of 278 seems to clear this up. I also reduced the maximum Y a bit so the diagram would not butt against the text on screen-line 21. In addition, there were a few (i.e. redundant) explicit expressions of the value of PI, all then multiplied by 2 to obtain 2PI; I replaced these with one derivation of PI/4 via ATN(1), multiplied by 8 to obtain 2PI, and stored it in variable 'p2' (for "PI * 2"). ***With "Original Series Enterprise" I created a much more accurate depiction of said entity. To be honest, it really isn't Gil Keidar's anymore, it's mine... ***Finally, with "Prime Factors", the old version, in a number of cases, did not produce the correct results. I have fixed that problem. I also replaced its series of like multiplications (e.g. 2x2x2x2x2x2) with a base^exponent exprression (2^6).
This commit is contained in:
parent
7a42070bcd
commit
6278f871fb
|
@ -76,6 +76,7 @@ sample.dye Will You Dye (Brett Edwards)
|
||||||
sample.pretzel Pretzel (Zee)
|
sample.pretzel Pretzel (Zee)
|
||||||
sample.3drectangle 3D Rectangle (Tomo Wa)
|
sample.3drectangle 3D Rectangle (Tomo Wa)
|
||||||
sample.enterprise Original Series Enterprise (Gil Keidar)
|
sample.enterprise Original Series Enterprise (Gil Keidar)
|
||||||
|
sample.enterprise2 Original Series Enterprise (Alan Ratliff)
|
||||||
sample.colorrings Colored Rings (Miika Oja)
|
sample.colorrings Colored Rings (Miika Oja)
|
||||||
sample.bite Apple Bite (Michael "Moose" O'Malley)
|
sample.bite Apple Bite (Michael "Moose" O'Malley)
|
||||||
|
|
||||||
|
|
|
@ -1,7 +1,8 @@
|
||||||
5 PR#3 : TEXT : HOME
|
5 PR#3 : TEXT : HOME
|
||||||
|
6 A = RND(-(PEEK(78) + PEEK(79)*256)) : REM Seed PRNG
|
||||||
10 PRINT "(1) GOSUB/RETURN/POP"
|
10 PRINT "(1) GOSUB/RETURN/POP"
|
||||||
15 PRINT "(2) Basic I/O, IF/THEN"
|
15 PRINT "(2) Basic I/O, IF/THEN"
|
||||||
20 PRINT "(3) Fibbonacci Sequence"
|
20 PRINT "(3) Fibonacci Sequence"
|
||||||
25 PRINT "(4) Guess my number"
|
25 PRINT "(4) Guess my number"
|
||||||
30 PRINT "(5) Guess your number"
|
30 PRINT "(5) Guess your number"
|
||||||
35 PRINT "(6) Approximate Pi"
|
35 PRINT "(6) Approximate Pi"
|
||||||
|
@ -20,7 +21,7 @@
|
||||||
92 PRINT "(19) DOS WRITE/APPEND"
|
92 PRINT "(19) DOS WRITE/APPEND"
|
||||||
93 PRINT "(20) ONERR ... RESUME"
|
93 PRINT "(20) ONERR ... RESUME"
|
||||||
94 PRINT "(21) CHR$ Tests"
|
94 PRINT "(21) CHR$ Tests"
|
||||||
95 PRINT: INPUT "Enter option: "; A : PRINT : HOME : ON A GOTO 100,200,300,400,500,600,700,800,1900,1000,1100,1200,2000,2100,2200,2300,2400,2500,2600,2700,2800
|
95 PRINT: INPUT "Enter option: "; A : PRINT : HOME : ON A GOTO 100,200,300,400,500,600,700,800,900,1000,1100,1200,2000,2100,2200,2300,2400,2500,2600,2700,2800
|
||||||
98 HOME
|
98 HOME
|
||||||
99 END
|
99 END
|
||||||
|
|
||||||
|
@ -41,7 +42,7 @@
|
||||||
230 IF (NOT A) THEN PRINT "FALSE"
|
230 IF (NOT A) THEN PRINT "FALSE"
|
||||||
240 PRINT : PRINT "Press any key: " : GET A$ : GOTO 5
|
240 PRINT : PRINT "Press any key: " : GET A$ : GOTO 5
|
||||||
|
|
||||||
300 REM Fibbonacci
|
300 REM Fibonacci
|
||||||
310 LA = 0 : CU = 1
|
310 LA = 0 : CU = 1
|
||||||
320 NX = LA + CU : PRINT NX
|
320 NX = LA + CU : PRINT NX
|
||||||
330 LA = CU : CU = NX
|
330 LA = CU : CU = NX
|
||||||
|
@ -106,7 +107,7 @@
|
||||||
820 PRINT : PRINT "Press any key: " : GET A$ : GOTO 5
|
820 PRINT : PRINT "Press any key: " : GET A$ : GOTO 5
|
||||||
|
|
||||||
900 REM Cellular automata
|
900 REM Cellular automata
|
||||||
901 PRINT "Wolfram's CA rules" : PRINT "Try 110, 111, 118, 121, 126" : PRINT
|
901 PRINT "Wolfram's CA rules" : PRINT "Try 26, 110, 111, 118, 121, 126" : PRINT
|
||||||
902 INPUT "Rule: "; R : PRINT
|
902 INPUT "Rule: "; R : PRINT
|
||||||
904 DIM VT(8) : FOR I = 0 TO 7 : VT(I) = NOT( R / 2 = INT( R / 2 ) ) : R = INT(R / 2) : NEXT
|
904 DIM VT(8) : FOR I = 0 TO 7 : VT(I) = NOT( R / 2 = INT( R / 2 ) ) : R = INT(R / 2) : NEXT
|
||||||
910 S$ = " # "
|
910 S$ = " # "
|
||||||
|
@ -122,13 +123,13 @@
|
||||||
960 GOTO 912
|
960 GOTO 912
|
||||||
|
|
||||||
1000 REM Madlibs
|
1000 REM Madlibs
|
||||||
1010 INPUT "Name: "; N$
|
1010 INPUT "Name: "; NM$
|
||||||
1020 INPUT "Verb: "; V$
|
1020 INPUT "Verb: "; V$
|
||||||
1030 INPUT "Noun: "; NN$
|
1030 INPUT "Noun: "; N$
|
||||||
1040 INPUT "Place: "; P$
|
1040 INPUT "Adjective: ";A$
|
||||||
1050 S$ = "One day, " + N$ + " " + V$ + " to " + P$ + " to see the " + NN$ + "."
|
1050 INPUT "Place: "; P$ : PRINT
|
||||||
1060 PRINT S$ : PRINT
|
1060 PRINT "One day, "; NM$; " will "; V$; " to "; P$; " to see the "; A$; " "; N$; "."
|
||||||
1070 PRINT : PRINT "Press any key: " : GET A$ : GOTO 5
|
1070 PRINT : PRINT : PRINT "Press any key: "; : GET A$ : GOTO 5
|
||||||
|
|
||||||
1100 REM Lissajous Figures
|
1100 REM Lissajous Figures
|
||||||
1105 REM POKE 49168,0 : REM Clear keyboard strobe
|
1105 REM POKE 49168,0 : REM Clear keyboard strobe
|
||||||
|
@ -152,19 +153,6 @@
|
||||||
1250 VTAB 24 : HTAB 10 : PRINT "Press Any Key To Continue"; : GET A$
|
1250 VTAB 24 : HTAB 10 : PRINT "Press Any Key To Continue"; : GET A$
|
||||||
1290 GOTO 5
|
1290 GOTO 5
|
||||||
|
|
||||||
1900 REM Cellular automata
|
|
||||||
1901 HOME
|
|
||||||
1902 PRINT "Wolfram's CA rules" : PRINT "Try 110, 111, 118, 121, 126" : PRINT
|
|
||||||
1903 INPUT "Rule: "; R : PRINT
|
|
||||||
1904 DIM VT(8) : FOR I = 0 TO 7 : VT(I) = NOT( R / 2 = INT( R / 2 ) ) : R = INT(R / 2) : NEXT
|
|
||||||
1910 DIM C(30) : DIM N(30) : N(15) = 1
|
|
||||||
1912 FOR I = 0 TO 30 : C(I) = N(I) : PRINT C(I); : NEXT : PRINT
|
|
||||||
1916 FOR I = 2 TO 30 - 1
|
|
||||||
1918 V = 4 * C(I-1) + 2 * C(I) + 1 * C(I+1)
|
|
||||||
1920 N(I) = VT(V)
|
|
||||||
1930 NEXT I
|
|
||||||
1940 GOTO 1912
|
|
||||||
|
|
||||||
2000 REM DOS Sequential Text File
|
2000 REM DOS Sequential Text File
|
||||||
2005 PRINT "First, knowing it has 4 lines..." : PRINT
|
2005 PRINT "First, knowing it has 4 lines..." : PRINT
|
||||||
2010 PRINT CHR$(4)"OPEN JABBERWOCKY"
|
2010 PRINT CHR$(4)"OPEN JABBERWOCKY"
|
||||||
|
@ -180,16 +168,17 @@
|
||||||
2090 PRINT : PRINT "Press any key to continue: " : GET A$ : GOTO 5
|
2090 PRINT : PRINT "Press any key to continue: " : GET A$ : GOTO 5
|
||||||
|
|
||||||
2100 REM Lores Drawing
|
2100 REM Lores Drawing
|
||||||
2110 GR
|
2110 GR : VTAB 23 : HTAB 15
|
||||||
|
2112 PRINT "Press a key to return to menu";
|
||||||
2115 OX = -1 : OY = -1
|
2115 OX = -1 : OY = -1
|
||||||
2116 C = 0
|
2116 C = 0
|
||||||
2120 X = INT( PDL(0) / 256 * 40 )
|
2120 X = INT( PDL(0) / 256 * 40 )
|
||||||
2130 Y = INT( PDL(1) / 256 * 48 )
|
2130 Y = INT( PDL(1) / 256 * 48 )
|
||||||
2135 HTAB 1 : VTAB 23 : PRINT X ; " " ; Y ; " "
|
2135 HTAB 1 : PRINT X ; TAB(6) ; Y ; TAB(11)
|
||||||
2140 REM IF ( OX <> X OR OY <> Y ) AND OX <> -1 AND OY <> -1 THEN COLOR= 0 : PLOT OX, OY
|
2140 REM IF ( OX <> X OR OY <> Y ) AND OX <> -1 AND OY <> -1 THEN COLOR= 0 : PLOT OX, OY
|
||||||
2150 COLOR= C : PLOT X, Y
|
2150 COLOR= C : PLOT X, Y
|
||||||
2160 OX = X : OY = Y : C = C + 1 : IF C > 15 THEN C = 0
|
2160 OX = X : OY = Y : C = C + 1 : IF C > 15 THEN C = 0
|
||||||
2170 GOTO 2120
|
2170 ON PEEK(49152) < 128 GOTO 2120 : POKE 49168,0 : GOTO 5
|
||||||
|
|
||||||
2200 REM Color Chart
|
2200 REM Color Chart
|
||||||
2210 GR
|
2210 GR
|
||||||
|
|
|
@ -1,111 +1,75 @@
|
||||||
100 PRINT "THIS IS THE GAME OF CHASE"
|
100 PR#0:TEXT:HOME::PRINT "THIS IS THE GAME OF CHASE"
|
||||||
110 PRINT "WANT INSTRUCTIONS";
|
110 PRINT "WANT INSTRUCTIONS";
|
||||||
120 INPUT C$
|
120 INPUT C$
|
||||||
130 IF LEFT$(C$,1)="N" THEN 230
|
130 IF LEFT$(C$,1)="N" THEN VTAB 7:GOTO 280
|
||||||
140 IF LEFT$(C$,1)<>"Y" THEN 110
|
140 IF LEFT$(C$,1)<>"Y" THEN 110
|
||||||
150 PRINT "YOU ARE '*' IN A HIGH VOLTAGE MAZE WITH 5"
|
150 HOME:PRINT "YOU'RE '*' IN A HIGH VOLTAGE MAZE WITH 5";
|
||||||
160 PRINT "SECURITY MACHINES '+' TRYING TO DESTROY YOU"
|
160 PRINT "SECURITY MACHINES '+' TRYING TO DESTROY"
|
||||||
170 PRINT "YOU MUST MANEUVER THE SECURITY MACHINES INTO"
|
170 PRINT "YOU. YOU MUST MANEUVER THE SECURITY"
|
||||||
180 PRINT "THE MAZE 'X' TO SURVIVE. GOOD LUCK !!!"
|
180 PRINT "MACHINES INTO A MAZE 'X' TO SURVIVE."
|
||||||
190 PRINT "MOVES ARE 7,8,9"
|
190 PRINT:PRINT "YOU WILL OFTEN FIND YOURSELF DROPPED"
|
||||||
200 PRINT " 4,5,6"
|
200 PRINT "INTO A GENUINELY IMPOSSIBLE SITUATION."
|
||||||
210 PRINT " 1,2,3 0 TO END THE GAME"
|
210 PRINT "WHEN THAT HAPPENS, JUST QUIT THAT GAME"
|
||||||
220 PRINT
|
220 PRINT "AND TRY ANOTHER. GOOD LUCK !!!"
|
||||||
230 DIM A(10,20),E(21),F(21)
|
280 VTAB 11:HTAB 23:PRINT "MOVES ARE 7,8,9"
|
||||||
240 LET G=0
|
290 HTAB 33:PRINT "4,5,6"
|
||||||
250 FOR B=1 TO 10
|
300 HTAB 33:PRINT "1,2,3":PRINT
|
||||||
260 FOR C=1 TO 20
|
310 HTAB 23:PRINT "0 TO END THE GAME"
|
||||||
270 LET A(B,C)=0
|
320 DIM A(10,20),E(5),F(5)
|
||||||
280 IF B=1 THEN 330
|
330 B=RND(-PEEK(79)*999-PEEK(78))
|
||||||
290 IF B=10 THEN 330
|
340 LET G=0
|
||||||
300 IF C=1 THEN 330
|
350 FOR B=1 TO 10
|
||||||
310 IF C=20 THEN 330
|
360 FOR C=1 TO 20
|
||||||
320 GOTO 340
|
370 LET A(B,C)=B=1 OR B=10 OR C=1 OR C=20
|
||||||
330 LET A(B,C)=1
|
380 NEXT C
|
||||||
340 NEXT C
|
390 NEXT B
|
||||||
350 NEXT B
|
400 VTAB 20:CALL -958:VTAB 11
|
||||||
360 FOR D=1 TO 21
|
410 POKE 33,20:CALL -958:POKE 33,40
|
||||||
370 LET B=INT(RND(1)*8)+2
|
420 FOR D=1 TO 21
|
||||||
380 LET C=INT(RND(1)*18)+2
|
430 LET B=INT(RND(1)*8)+2
|
||||||
390 IF A(B,C)<>0 THEN 370
|
440 LET C=INT(RND(1)*18)+2
|
||||||
400 LET A(B,C)=1
|
450 IF A(B,C) THEN 430
|
||||||
410 IF D<6 THEN 430
|
460 LET A(B,C)=(D<7)*3+SGN(D-6)
|
||||||
420 GOTO 440
|
470 IF D<6 THEN E(D)=B:F(D)=C
|
||||||
430 LET A(B,C)=2
|
480 IF D=6 THEN X=C:Y=B
|
||||||
440 IF D=6 THEN 460
|
490 NEXT D: D=0
|
||||||
450 GOTO 470
|
500 VTAB 10:PRINT
|
||||||
460 LET A(B,C)=3
|
510 FOR B=1 TO 10
|
||||||
470 LET E(D)=B
|
520 FOR C=1 TO 20
|
||||||
480 LET F(D)=C
|
530 PRINT MID$(" X+*",A(B,C)+1,1);
|
||||||
490 NEXT D
|
|
||||||
500 FOR B=1 TO 10
|
|
||||||
510 FOR C=1 TO 20
|
|
||||||
520 IF A(B,C)<>0 THEN 550
|
|
||||||
530 PRINT " ";
|
|
||||||
540 GOTO 630
|
|
||||||
550 IF A(B,C)<>1 THEN 580
|
|
||||||
560 PRINT "X";
|
|
||||||
570 GOTO 630
|
|
||||||
580 IF A(B,C)<>2 THEN 610
|
|
||||||
590 PRINT "+";
|
|
||||||
600 GOTO 630
|
|
||||||
610 IF A(B,C)<>3 THEN 630
|
|
||||||
620 PRINT "*";
|
|
||||||
630 NEXT C
|
630 NEXT C
|
||||||
640 PRINT
|
640 IF B<10 OR D>6 THEN PRINT
|
||||||
650 NEXT B
|
650 NEXT B:ON 9-D GOTO 1080,1100
|
||||||
660 LET B=E(6)
|
680 PRINT " ?";
|
||||||
670 LET C=F(6)
|
690 GET C$: V=VAL(C$): IF C$<>"0" AND NOT V THEN PRINT CHR$(7);:GOTO 690
|
||||||
680 LET A(B,C)=0
|
700 PRINT:ON NOT V GOTO 1040: IF V=5 GOTO 830
|
||||||
690 INPUT Y
|
710 LET A(Y,X)=0
|
||||||
700 ON Y+1 GOTO 1040,730,730,730,740,780,740,710,710,710
|
730 D=INT((6-V)/3)
|
||||||
710 LET B=B-1
|
740 LET Y=Y+D
|
||||||
720 GOTO 740
|
750 LET X=V-(2-D)*3+1+X
|
||||||
730 LET B=B+1
|
780 ON A(Y,X) GOTO 1060,1080
|
||||||
740 ON Y GOTO 750,780,770,750,780,770,750,780,770
|
800 LET A(Y,X)=3
|
||||||
750 LET C=C-1
|
|
||||||
760 GOTO 780
|
|
||||||
770 LET C=C+1
|
|
||||||
780 IF A(B,C)=1 THEN 1060
|
|
||||||
790 IF A(B,C)=2 THEN 1080
|
|
||||||
800 LET A(B,C)=3
|
|
||||||
810 LET E(6)=B
|
|
||||||
820 LET F(6)=C
|
|
||||||
830 FOR D=1 TO 5
|
830 FOR D=1 TO 5
|
||||||
840 IF A(E(D),F(D))<>2 THEN 1020
|
840 IF A(E(D),F(D))<>2 THEN 1030
|
||||||
850 LET A(E(D),F(D))=0
|
850 LET A(E(D),F(D))=0
|
||||||
860 IF E(D)>=B THEN 890
|
870 LET E(D)=SGN(Y-E(D))+E(D)
|
||||||
870 LET E(D)=E(D)+1
|
920 LET F(D)=SGN(X-F(D))+F(D)
|
||||||
880 GOTO 910
|
960 IF A(E(D),F(D))=3 THEN D=7:GOTO 1030
|
||||||
890 IF E(D)=B THEN 910
|
970 IF A(E(D),F(D)) THEN G=G+1:GOTO 1030
|
||||||
900 LET E(D)=E(D)-1
|
980 A(E(D),F(D))=2
|
||||||
910 IF F(D)>=C THEN 940
|
1030 NEXT D: D=(G=5)+D: GOTO 500
|
||||||
920 LET F(D)=F(D)+1
|
1040 PRINT "YOU RESIGNED TO YOUR FATE"
|
||||||
930 GOTO 960
|
|
||||||
940 IF F(D)=C THEN 960
|
|
||||||
950 LET F(D)=F(D)-1
|
|
||||||
960 IF A(E(D),F(D))=3 THEN 1080
|
|
||||||
970 IF A(E(D),F(D))=0 THEN 1000
|
|
||||||
980 LET G=G+1
|
|
||||||
990 GOTO 1010
|
|
||||||
1000 LET A(E(D),F(D))=2
|
|
||||||
1010 IF G=5 THEN 1100
|
|
||||||
1020 NEXT D
|
|
||||||
1030 GOTO 500
|
|
||||||
1040 PRINT "SORRY TO SEE YOU QUIT"
|
|
||||||
1050 GOTO 1110
|
1050 GOTO 1110
|
||||||
1060 PRINT "ZAP!!! YOU TOUCHED THE FENCE !!!!!"
|
1060 PRINT "ZAP!!! YOU TOUCHED THE FENCE !!!!!"
|
||||||
1070 GOTO 1110
|
1070 GOTO 1110
|
||||||
1080 PRINT "** YOU HAVE BEEN DESTROYED BY A LUCKY COMPUTER **"
|
1080 PRINT "** YOU HAVE BEEN DESTROYED BY A LUCKY":PRINT "MACHINE **"
|
||||||
1090 GOTO 1110
|
1090 GOTO 1110
|
||||||
1100 PRINT "YOU ARE LUCKY **YOU DESTROYED ALL THE ENEMY**"
|
1100 PRINT "YOU ARE LUCKY":PRINT "**YOU DESTROYED ALL THE ENEMY**"
|
||||||
1110 PRINT "WANT TO PLAY AGAIN";
|
1110 PRINT "WANT TO PLAY AGAIN";
|
||||||
1120 INPUT C$
|
1120 INPUT C$
|
||||||
1130 IF LEFT$(C$,1)="Y" THEN 240
|
1130 IF LEFT$(C$,1)="Y" THEN 330
|
||||||
1140 IF LEFT$(C$,1)<>"N" THEN 1110
|
1140 IF LEFT$(C$,1)<>"N" THEN VTAB PEEK(37):PRINT CHR$(7);:GOTO 1110
|
||||||
1150 PRINT "HOPE YOU DON'T FEEL FENCED IN."
|
1150 VTAB 21:CALL -958:PRINT
|
||||||
1160 PRINT "TRY AGAIN SOMETIME"
|
1160 PRINT "SORRY TO SEE YOU QUIT"
|
||||||
1170 END
|
1170 PRINT "HOPE YOU DON'T FEEL FENCED IN."
|
||||||
1140 IF LEFT$(C$,1)<>"N" THEN 1110
|
1180 PRINT "TRY AGAIN SOMETIME";
|
||||||
1150 PRINT "HOPE YOU DON'T FEEL FENCED IN."
|
|
||||||
1160 PRINT "TRY AGAIN SOMET
|
|
|
@ -1,12 +1,12 @@
|
||||||
10 rem Columns for Applesoft BASIC
|
10 rem Columns for Applesoft BASIC
|
||||||
20 rem Programed by Arthur Allen
|
20 rem Programmed by Arthur Allen
|
||||||
30 rem Based on Columns by Jay Geertsen
|
30 rem Based on Columns by Jay Geertsen
|
||||||
|
|
||||||
|
50 def fnsym(i) = int (symbols * rnd(1)) + 1 : def fncolr(i) = asc(mid$("@AFDCMKLEBGIHNJO",i + 1,1)) - 64
|
||||||
|
60 dim array(40, 42), erase(25)
|
||||||
|
70 dim shape(2), nshape(3), check(40, 42)
|
||||||
|
|
||||||
60 dim array(50, 50), erase(25)
|
90 gosub 2840: rem Interactive pre-screen
|
||||||
70 dim shape(2), nshape(3), check(50, 50)
|
|
||||||
|
|
||||||
90 gosub 2830: rem Interactive pre-screen
|
|
||||||
|
|
||||||
350 home
|
350 home
|
||||||
360 rem Fill in borders in array
|
360 rem Fill in borders in array
|
||||||
|
@ -22,14 +22,13 @@
|
||||||
450 next fill
|
450 next fill
|
||||||
455 if renew then vtab 21 : htab left + int(width/2) + 1 : print "^" : rem print only if replay selected
|
455 if renew then vtab 21 : htab left + int(width/2) + 1 : print "^" : rem print only if replay selected
|
||||||
|
|
||||||
|
|
||||||
460 rem Prefill board
|
460 rem Prefill board
|
||||||
465 gosub 4320 : rem blank out part of screen above prefill
|
465 gosub 4320 : rem blank out part of screen above prefill
|
||||||
470 guess = 1
|
470 guess = 1
|
||||||
|
|
||||||
480 if rows = 0 goto 720 : rem Skip if rows = 0, otherwise loop will still execute once
|
480 if rows = 0 goto 720 : rem Skip if rows = 0, otherwise loop will still execute once
|
||||||
540 for i = 3 to width + 2
|
540 for i = 3 to width + 2
|
||||||
550 for j = height - rows to height
|
550 for j = height - rows + 1 to height
|
||||||
555 cycle = 0
|
555 cycle = 0
|
||||||
|
|
||||||
570 rem Top of while flag loop
|
570 rem Top of while flag loop
|
||||||
|
@ -38,17 +37,17 @@
|
||||||
585 cycle = cycle + 1
|
585 cycle = cycle + 1
|
||||||
587 if cycle > 10 then guess = guess + 1 : vtab 22 : print "Attempt: "; guess; ", x pos: "; i; " " : i = i - 1 : if i < 3 then i = 3
|
587 if cycle > 10 then guess = guess + 1 : vtab 22 : print "Attempt: "; guess; ", x pos: "; i; " " : i = i - 1 : if i < 3 then i = 3
|
||||||
|
|
||||||
590 candidate = 1 + int (symbols * rnd(sd))
|
590 candidate = fnsym(0)
|
||||||
|
|
||||||
600 rem Proximity checking
|
600 rem Proximity checking
|
||||||
610 if array(i - 1, j) = candidate then if array(i - 2, j) = candidate then flag = 1 : rem same symbol horz left
|
610 if array(i - 1, j) = candidate then if array(i - 2, j) = candidate then flag = 1 : rem same symbol horz left
|
||||||
620 if array(i, j - 1) = candidate then if array(i, j - 2) = candidate then flag = 1 : rem same symbol up
|
620 if array(i, j - 1) = candidate then if array(i, j - 2) = candidate then flag = 1 : rem same symbol up
|
||||||
630 if array(i - 1, j - 1) = candidate then if array(i - 2, j - 2) = candidate then flag = 1 : rem same symbol diag left & up
|
630 if array(i - 1, j - 1) = candidate then if array(i - 2, j - 2) = candidate then flag = 1 : rem same symbol diag left & up
|
||||||
640 if array(i - 1, j + 1) = candidate then if array(i - 2, j + 2) = candidate then flag = 1 : rem same symbol diag left & down
|
640 if array(i - 1, j + 1) = candidate then if array(i - 2, j + 2) = candidate then flag = 1 : rem same symbol diag left & down
|
||||||
660 if flag then goto 570 : rem Back to top of while flag loop
|
660 if flag goto 570 : rem Back to top of while flag loop
|
||||||
|
|
||||||
670 array(i, j) = candidate
|
670 array(i, j) = candidate
|
||||||
680 color= candidate
|
680 color= fncolr(candidate)
|
||||||
690 plot i, j
|
690 plot i, j
|
||||||
700 next j
|
700 next j
|
||||||
710 next i
|
710 next i
|
||||||
|
@ -56,32 +55,28 @@
|
||||||
720 rem Pick piece for initial Next window
|
720 rem Pick piece for initial Next window
|
||||||
730 rem Pick shape
|
730 rem Pick shape
|
||||||
740 for s = 0 to 2
|
740 for s = 0 to 2
|
||||||
750 nshape(s) = 1 + int (symbols * rnd(sd))
|
750 nshape(s) = fnsym(0)
|
||||||
780 next s
|
780 next s
|
||||||
|
|
||||||
790 rem Make turn
|
790 rem Make turn
|
||||||
800 x = 2 + int(width/2)
|
800 x = int(width/2) + 2
|
||||||
810 y = 0
|
810 y = 0
|
||||||
820 rem Copy Next to current shape
|
820 rem Copy Next to current shape, get new Next
|
||||||
830 for s = 0 to 2
|
830 for s = 0 to 2
|
||||||
840 shape(s) = nshape(s)
|
840 shape(s) = nshape(s)
|
||||||
850 next s
|
910 nshape(s) = fnsym(0)
|
||||||
|
920 color= fncolr(nshape(s))
|
||||||
890 rem pick next Next
|
930 plot width + 5, s
|
||||||
900 for s = 0 to 2
|
|
||||||
910 nshape(s) = 1 + int (symbols * rnd(sd))
|
|
||||||
920 color= nshape(s)
|
|
||||||
930 plot width + 5 , y+s
|
|
||||||
940 next s
|
940 next s
|
||||||
|
|
||||||
|
|
||||||
1020 t1 = time
|
1020 t1 = time
|
||||||
1050 bot = 0
|
1050 bot = 0
|
||||||
1060 drop = 0
|
1060 drop = 0
|
||||||
|
|
||||||
1120 rem Check for end of play
|
1120 rem Check for end of play
|
||||||
1130 rem Check for conflict
|
1130 rem Check for conflict
|
||||||
1140 if array(x, y) or array(x, y+1) or array(x, y+3) then goto 90 : rem end of game, go to front end
|
1140 cfl = array(x, y) or array(x, y+1) or array(x, y+2)
|
||||||
|
1145 if cfl then gosub 3000 : goto 350 : rem end of game, go to front end
|
||||||
|
|
||||||
1150 rem Make move loop
|
1150 rem Make move loop
|
||||||
1160 if drop then t1 = 1
|
1160 if drop then t1 = 1
|
||||||
|
@ -89,87 +84,56 @@
|
||||||
1180 if peek (49152) > 127 then gosub 1320 : rem Process input if input detected
|
1180 if peek (49152) > 127 then gosub 1320 : rem Process input if input detected
|
||||||
1190 next clock
|
1190 next clock
|
||||||
|
|
||||||
1200 y1 = y : x1 = x
|
1200 y1 = y : x1 = x
|
||||||
1210 y = y + 1
|
1210 y = y + 1
|
||||||
1220 cfl = 0
|
1220 cfl = 0
|
||||||
1240 if not bot then gosub 1630 : rem Move piece
|
1240 if not bot then gosub 1670 : rem Move piece
|
||||||
1260 if cfl then goto 2060 : rem Add to shape & check for complete three in a row
|
1260 if cfl goto 2060 : rem Add to shape & check for complete three in a row
|
||||||
1270 if not bot then 1150 : rem Back to top of Make move loop, else force to bottom
|
1270 if not bot then 1150 : rem Back to top of Make move loop, else force to bottom
|
||||||
1280 y = y - 1 : xdr = 1
|
1280 y = y - 1 : xdr = 1
|
||||||
1290 gosub 1920 : rem Draw shape (erase)
|
1290 color= 0 : vlin y, y+2 at x : rem Erase shape
|
||||||
1300 y = y + 1 : xdr = 0
|
1300 y = y + 1 : xdr = 0
|
||||||
1310 goto 1530 : rem Send piece to bottom
|
1310 goto 1530 : rem Send piece to bottom
|
||||||
|
|
||||||
|
|
||||||
1320 rem Process input
|
1320 rem Process input
|
||||||
1330 a = PEEK (49152)
|
1330 for s = 0 to 1 : a = PEEK (49152) : s = a > 127 : next
|
||||||
1340 get g$
|
1340 get g$
|
||||||
1350 if g$ = " " then gosub 1960 : return : rem Check for rotate
|
1350 if g$ = " " goto 1970 : rem Check for rotate
|
||||||
1360 if g$ = "J" or a = 136 then gosub 1430 : return : rem Check for move left
|
1360 s = (g$ = "D" or a = 138) * 2 + (g$ = "K" or a = 149) - (g$ = "J" or a = 136)
|
||||||
1370 if g$ = "K" or a = 149 then gosub 1480 : return : rem Check for move right
|
1370 if s goto 1590 : rem move left/right/down
|
||||||
1380 if g$ = "D" or a = 138 then gosub 1580 : return : rem Force down
|
|
||||||
1390 if g$ = "M" then bot = 1 : return : rem Send piece to bottom
|
1390 if g$ = "M" then bot = 1 : return : rem Send piece to bottom
|
||||||
1400 if g$ = "S" then drop = 1 : rem Speed up piece
|
1400 if g$ = "S" then drop = 1 : rem Speed up piece
|
||||||
1410 if g$ = "P" then gosub 2580 : return : rem Pause game
|
1410 if g$ = "P" goto 2580 : rem Pause game
|
||||||
1415 if g$ = "R" then goto 460 : rem restart at prefill
|
1415 if g$ = "R" goto 460 : rem restart at prefill
|
||||||
1420 return
|
1420 return
|
||||||
|
|
||||||
1430 rem Check for move left
|
|
||||||
1440 x1 = x : y1 = y
|
|
||||||
1450 x = x - 1
|
|
||||||
1460 gosub 1630 : rem Move piece
|
|
||||||
1470 return
|
|
||||||
|
|
||||||
1480 rem Check for move right
|
|
||||||
1490 x1 = x : y1 = y
|
|
||||||
1500 x = x + 1
|
|
||||||
1510 gosub 1630 : rem Move piece
|
|
||||||
1520 return
|
|
||||||
|
|
||||||
|
|
||||||
1530 rem Send piece to bottom
|
1530 rem Send piece to bottom
|
||||||
1540 y = y + 1
|
1540 y = y + 1
|
||||||
1545 cfl = 0
|
1545 cfl = 0
|
||||||
1550 if array(x, y+2) then cfl = 1 : rem Check for conflict
|
1550 if array(x, y+2) then cfl = 1 : rem Check for conflict
|
||||||
1560 if cfl then y = y - 1 : gosub 2010 : goto 2060 : rem Draw, then Add to bottom
|
1560 if cfl then y = y - 1 : gosub 2010 : goto 2070 : rem Draw, then Add to bottom
|
||||||
1570 goto 1530
|
1570 goto 1540
|
||||||
|
|
||||||
1580 rem Force piece down
|
|
||||||
1590 y1 = y : x1 = x
|
|
||||||
1600 y = y + 1
|
|
||||||
1610 gosub 1630 : rem Move piece
|
|
||||||
1620 return
|
|
||||||
|
|
||||||
|
1580 rem shift piece left, right, or down
|
||||||
|
1590 y1 = y : x1 = x : s = (s<2) * s
|
||||||
|
1600 x = x + s : y = y + not s
|
||||||
|
|
||||||
1630 rem move piece
|
1630 rem move piece
|
||||||
1670 cfl = 0
|
1670 cfl = 0
|
||||||
1680 if array(x, y) or array(x, y+1) or array(x, y+2) then cfl = 1 : rem Check for conflict
|
1680 if array(x, y) or array(x, y+1) or array(x, y+2) then cfl = 1 : rem Check for conflict
|
||||||
1700 if cfl then gosub 1820 : return : rem Return old values
|
1700 if cfl then x = x1 : y = y1 : return : rem Return old values
|
||||||
1710 color= 0
|
1710 color= 0
|
||||||
1720 vlin y1, y1+2 at x1
|
1720 vlin y1, y1+2 at x1
|
||||||
1730 for s = 0 to 2
|
1730 goto 2010
|
||||||
1740 color= shape(s)
|
|
||||||
1750 plot x, y+s
|
|
||||||
1760 next s
|
|
||||||
1770 return
|
|
||||||
|
|
||||||
1820 rem Return old values
|
|
||||||
1880 x = x1
|
|
||||||
1890 y = y1
|
|
||||||
1910 return
|
|
||||||
|
|
||||||
1920 rem Erase piece
|
|
||||||
1930 color=0
|
|
||||||
1940 vlin y, y+2 at x
|
|
||||||
1950 return
|
|
||||||
|
|
||||||
1960 rem Rotate
|
1960 rem Rotate
|
||||||
1970 swap = shape (2)
|
1970 swap = shape (2)
|
||||||
1980 shape (2) = shape (1)
|
1980 shape (2) = shape (1)
|
||||||
1990 shape (1) = shape (0)
|
1990 shape (1) = shape (0)
|
||||||
2000 shape (0) = swap
|
2000 shape (0) = swap
|
||||||
2010 for s = 0 to 2 : rem Draw shape, called from 1560
|
|
||||||
2020 color= shape(s)
|
2010 for s = 0 to 2 : rem Draw shape, called from 1560 & 1730
|
||||||
|
2020 color= fncolr(shape(s))
|
||||||
2030 plot x, y+s
|
2030 plot x, y+s
|
||||||
2040 next s
|
2040 next s
|
||||||
2050 return
|
2050 return
|
||||||
|
@ -181,7 +145,7 @@
|
||||||
2090 array(x, y + s) = shape(s)
|
2090 array(x, y + s) = shape(s)
|
||||||
2100 next s
|
2100 next s
|
||||||
|
|
||||||
2110 rem While found (contol at line 2340. End of loop at 2560)
|
2110 rem While found (contol at line 2340. End of loop at 2560)
|
||||||
2120 found = 0
|
2120 found = 0
|
||||||
|
|
||||||
2130 rem Initialize array
|
2130 rem Initialize array
|
||||||
|
@ -194,7 +158,7 @@
|
||||||
2190 rem Start checking for three in a row
|
2190 rem Start checking for three in a row
|
||||||
2200 for j = 2 to height
|
2200 for j = 2 to height
|
||||||
2210 for i = 3 to width + 2
|
2210 for i = 3 to width + 2
|
||||||
2220 if array(i, j) = 0 then goto 2310 : rem Skip dead cells
|
2220 if not array(i, j) goto 2320 : rem Skip dead cells
|
||||||
|
|
||||||
2230 rem Check horizontal
|
2230 rem Check horizontal
|
||||||
2240 if array(i, j) = array(i - 1, j) and array(i, j) = array(i + 1, j) then check(i - 1, j) = 1 : check(i, j) = 1 : check(i + 1, j) =1 : found = 1
|
2240 if array(i, j) = array(i - 1, j) and array(i, j) = array(i + 1, j) then check(i - 1, j) = 1 : check(i, j) = 1 : check(i + 1, j) =1 : found = 1
|
||||||
|
@ -202,7 +166,6 @@
|
||||||
2250 rem Check vertical
|
2250 rem Check vertical
|
||||||
2260 if array(i, j) = array(i, j - 1) and array(i, j) = array(i, j + 1) then check(i, j - 1) = 1 : check(i, j) = 1 : check(i, j + 1) = 1 : found = 1 : rem vtab 21 : htab 1 : print "2260 found vertical, j+1 = "; j+1; : rem temp code
|
2260 if array(i, j) = array(i, j - 1) and array(i, j) = array(i, j + 1) then check(i, j - 1) = 1 : check(i, j) = 1 : check(i, j + 1) = 1 : found = 1 : rem vtab 21 : htab 1 : print "2260 found vertical, j+1 = "; j+1; : rem temp code
|
||||||
|
|
||||||
|
|
||||||
2270 rem Check diagonal left
|
2270 rem Check diagonal left
|
||||||
2280 if array(i, j) = array(i - 1, j - 1) and array(i, j) = array(i + 1, j + 1) then check(i - 1, j - 1) = 1 : check(i, j) = 1 : check(i + 1, j + 1) = 1 : found = 1
|
2280 if array(i, j) = array(i - 1, j - 1) and array(i, j) = array(i + 1, j + 1) then check(i - 1, j - 1) = 1 : check(i, j) = 1 : check(i + 1, j + 1) = 1 : found = 1
|
||||||
|
|
||||||
|
@ -213,10 +176,10 @@
|
||||||
2320 next i
|
2320 next i
|
||||||
2330 next j
|
2330 next j
|
||||||
|
|
||||||
2335 gosub 2740 : rem Count cells to be removed.
|
2335 gosub 2740 : rem Count cells to be removed.
|
||||||
|
|
||||||
2357 rem while not found control:
|
2357 rem while not found control:
|
||||||
2340 if not found then goto 790 : rem Goto Make turn
|
2340 if not found goto 800 : rem Goto Make turn
|
||||||
|
|
||||||
2350 rem Flash cells
|
2350 rem Flash cells
|
||||||
2355 rem gosub 2610 : rem Draw parallel field of check cells
|
2355 rem gosub 2610 : rem Draw parallel field of check cells
|
||||||
|
@ -229,30 +192,29 @@
|
||||||
2410 next i
|
2410 next i
|
||||||
2420 next j
|
2420 next j
|
||||||
|
|
||||||
2430 for j = 2 to height
|
2430 for j = 2 to height
|
||||||
2440 for i = 3 to width + 2
|
2440 for i = 3 to width + 2
|
||||||
2450 if check(i, j) then color= array(i, j) : plot i, j
|
2450 if check(i, j) then color= fncolr(array(i, j)) : plot i, j
|
||||||
2460 next i
|
2460 next i
|
||||||
2470 next j
|
2470 next j
|
||||||
2480 next blink
|
2480 next blink
|
||||||
|
|
||||||
2490 rem Remove cells from board
|
2490 rem Remove cells from board
|
||||||
2500 for i = 3 to width + 2
|
2500 for i = 3 to width + 2
|
||||||
2505 offset = 0
|
2505 offset = 0
|
||||||
2510 for j = height to 0 step -1
|
2510 for j = height to 0 step -1
|
||||||
2520 if not check(i,j) then array(i, j + offset) = array(i, j) : color= array(i, j): plot i, j + offset
|
2520 if not check(i,j) then array(i, j + offset) = array(i, j) : color= fncolr(array(i, j)): plot i, j + offset
|
||||||
2530 if check(i, j) then offset = offset + 1
|
2530 if check(i, j) then offset = offset + 1
|
||||||
2540 next j
|
2540 next j
|
||||||
2550 next i
|
2550 next i
|
||||||
|
|
||||||
2555 if renew then if rows > 0 then if check(left + int(width/2) ,height) then goto 460 : rem end of screen, go to prefill board
|
2555 if renew then if rows > 0 then if check(left + int(width/2),height) goto 460 : rem end of screen, go to prefill board
|
||||||
|
|
||||||
|
|
||||||
2560 goto 2110 : rem To top of while found loop
|
2560 goto 2110 : rem To top of while found loop
|
||||||
2570 rem End of Check field subroutine
|
2570 rem End of Check field subroutine
|
||||||
|
|
||||||
2580 rem Pause game
|
2580 rem Pause game
|
||||||
2590 if peek (49152) = 141 then get g$ : null = peek (49168) : return
|
2590 if peek (49152) = 141 then get g$ : return
|
||||||
2600 goto 2580
|
2600 goto 2580
|
||||||
|
|
||||||
2740 rem Count deleted cells
|
2740 rem Count deleted cells
|
||||||
|
@ -262,95 +224,111 @@
|
||||||
2770 if check (i, j) then dead = dead + 1: nowdead = nowdead + 1
|
2770 if check (i, j) then dead = dead + 1: nowdead = nowdead + 1
|
||||||
2780 next i
|
2780 next i
|
||||||
2790 next j
|
2790 next j
|
||||||
2800 vtab 22 : htab 1 : print "Cleared: "; nowdead; " "
|
2800 vtab 22 : htab 1 : print "Cleared: "; nowdead; : call -868
|
||||||
2810 vtab 23 : htab 1 : print "Total: "; dead
|
2810 print : print "Total:" spc(3) dead
|
||||||
2820 return
|
2820 return
|
||||||
|
|
||||||
2830 rem Front end screen
|
2830 rem Front end screen
|
||||||
|
|
||||||
2840 rem gosub ? : rem Future animated splash screen
|
2840 gosub 5000 : rem Show animated splash screen
|
||||||
|
|
||||||
2860 rem setup default values and screen
|
2860 rem setup default values and screen
|
||||||
2870 rows = 20 : rem Prefill rows
|
2870 rows = 20 : rem Prefill rows
|
||||||
2880 width = 6
|
2880 width = 6
|
||||||
2890 symbols = 5
|
2890 symbols = 5
|
||||||
2900 renew = 1 : rem replay value (yes = 1/no = 0)
|
2900 renew = 1 : rem replay value (yes = 1/no = 0)
|
||||||
2905 choice = 21 : rem vtab position of menu choice
|
|
||||||
|
|
||||||
2910 time = 500
|
2920 height = 39 : rem Full GR screen with text window. Cannot be larger than 39
|
||||||
2920 height = 39 : rem Full GR screen with text window. Cannot be larger than 47
|
|
||||||
2930 left = 2
|
2930 left = 2
|
||||||
|
|
||||||
2935 rem End of game gosubs to here, past splash screen and default values
|
2935 rem End of game gosubs to here, past splash screen and default values
|
||||||
|
|
||||||
2940 gr
|
3000 time = 500 : sd=RND(-PEEK(79)*999-PEEK(78))
|
||||||
2950 home
|
3005 gosub 4200 : home : print "--> Replay on cleared cell above ^ "; : gosub 4180 : print
|
||||||
2970 color= 15 : rem Draw white borders
|
3010 htab 5 : print "Width (3 - 34) "; width; tab(24) "[ENTER] to start"
|
||||||
2980 vlin 0, height at left
|
3020 htab 5 : print "Prefill (0 - 30) "; rows
|
||||||
2990 vlin 0, height at left + width + 1
|
3030 htab 5 : print "Colors (3 - 13) "; symbols;
|
||||||
2995 gosub 4240 : rem draw top line to indicate height.
|
3040 if cfl then htab 26 : print "[ESC] to exit"; : htab 1
|
||||||
|
3050 vtab 21 : choice = 21 : rem vtab position of menu choice
|
||||||
3000 vtab 21 : print " Replay on cleared cell above ^ ";
|
|
||||||
3003 if renew then print "YES"
|
|
||||||
3005 if not renew then print "NO "
|
|
||||||
3007 if rows = 0 then vtab 21 : htab 36 : print "N/A"
|
|
||||||
3010 print " Width (3 - 34) "; width; : print " [ENTER] to start"
|
|
||||||
3020 print " Prefill (0 - 30) "; rows
|
|
||||||
3030 print " Colors (3 - 14) "; symbols;
|
|
||||||
3035 vtab choice : htab 1 : print "-->"; : rem draw arrow
|
|
||||||
|
|
||||||
3040 rem Combine the random number seed with a loop that polls for input for game options
|
|
||||||
3050 for sd = 0 to 32767
|
|
||||||
|
|
||||||
3060 if peek (49152) > 127 then goto 4000 : rem Process input if input detected
|
|
||||||
3070 a = rnd (sd * -1) : rem Dummy variable, just used to increment random number
|
|
||||||
|
|
||||||
3080 next sd
|
|
||||||
|
|
||||||
3090 goto 3050 : REM Return to top of sd to begin poll again
|
|
||||||
|
|
||||||
4000 rem Process Input
|
4000 rem Process Input
|
||||||
4010 a = PEEK (49152)
|
4020 for s = 0 to 1 : a = PEEK (49152) : s = a > 127 : next : get g$
|
||||||
4020 get g$
|
|
||||||
|
|
||||||
4030 if g$ = "J" or a = 136 then gosub 4120 : rem left option
|
4050 i = (g$ = "D" or g$ = "M" or a = 138) - (g$ = "I" or a = 139)
|
||||||
4040 if g$ = "K" or a = 149 then gosub 4180: rem right option
|
4060 if i then i = choice + i : htab 1 : print spc(3) : choice = ((i = 20) - (i = 25)) * 4 + i : vtab choice : htab 1 : print "-->"; : goto 4020 : rem up/down
|
||||||
4050 if g$ = "D" or g$ = "M" or a = 138 then choice = choice + 1: rem down
|
|
||||||
4060 if g$ = "I" or a = 139 then choice = choice - 1: rem up
|
|
||||||
4070 if a = 141 then return : rem enter/return to start the game. This is why Process Input is not a subroutine
|
4070 if a = 141 then return : rem enter/return to start the game. This is why Process Input is not a subroutine
|
||||||
|
4075 if cfl and a = 155 then pop : home : print : print "BYE!" : end
|
||||||
|
4080 a = (g$ = "K" or a = 149) - (g$ = "J" or a = 136)
|
||||||
|
4090 on not a goto 4020 : on choice - 20 gosub 4130,4140,4150,4160
|
||||||
|
4092 on not a goto 4020 : vtab choice : htab asc(mid$("dTVU",choice - 20,1)) - 64
|
||||||
|
4094 if choice > 21 then print i spc(1) : on choice/12 gosub 4200,4250 : if choice = 23 and (rows = a or not rows) then vtab 21 : htab 36 : a=2
|
||||||
|
4095 if choice = 21 or a = 2 then gosub 4180 : htab 1
|
||||||
|
4100 vtab choice : goto 4020
|
||||||
|
|
||||||
4080 if choice < 21 then choice = 24
|
4120 rem Left & Right Choices
|
||||||
4090 if choice > 24 then choice = 21
|
4130 renew = 1 - renew: a = rows : return : rem toggle Renew
|
||||||
|
4140 i = width + a : a = (i > 2 and i < 35) * a : width = width + a : return : rem width
|
||||||
|
4150 i = rows + a : a = (i >= 0 and i < 31) * a : rows = rows + a : return : rem prefill height
|
||||||
|
4160 i = symbols + a : a = (i > 2 and i < 14) * a : symbols = symbols + a : return : rem colors
|
||||||
|
|
||||||
4110 goto 2940 : rem redraw screen
|
4180 print mid$("N/ANO YES",(rows > 0) * (renew + 1) * 3 + 1,3); : return
|
||||||
|
|
||||||
4120 rem Left Choice
|
4200 gr : color= 15 : rem Draw white borders
|
||||||
4130 if choice = 21 then renew = 1 + renew * (-1): rem toggle Renew
|
4210 vlin 0, height at left
|
||||||
4140 if choice = 22 then if width > 3 then width = width - 1: rem width
|
4220 vlin 0, height at left + width + 1
|
||||||
4150 if choice = 23 then if rows > 0 then rows = rows - 1 : rem prefill height
|
|
||||||
4160 if choice = 24 then if symbols > 3 then symbols = symbols - 1 : rem colors
|
|
||||||
4170 return
|
|
||||||
|
|
||||||
4180 rem Right Choice
|
|
||||||
4190 if choice = 21 then renew = 1 + renew * (-1): rem toggle Renew
|
|
||||||
4200 if choice = 22 then if width < 34 then width = width + 1: rem width
|
|
||||||
4210 if choice = 23 then if rows < 30 then rows = rows + 1 : rem prefill height
|
|
||||||
4220 if choice = 24 then if symbols < 14 then symbols = symbols + 1 : rem colors
|
|
||||||
4230 return
|
|
||||||
|
|
||||||
4240 rem Draw top line to indicate prefill height.
|
4240 rem Draw top line to indicate prefill height.
|
||||||
4250 if rows = 0 then return
|
4250 if not rows then return
|
||||||
4260 for i = 3 to width + 2
|
4260 for s = 3 to width + 2
|
||||||
4270 candidate = 1 + int (symbols * rnd(sd))
|
4270 color= fncolr(fnsym(1))
|
||||||
4280 color= candidate
|
4290 plot s, height - rows + 1
|
||||||
4290 plot i, 39 - rows
|
4300 next
|
||||||
4300 next i
|
|
||||||
4310 return
|
4310 return
|
||||||
|
|
||||||
4320 rem Blank out the part of screen above prefill. Called at start of every screen, and on an "R" press
|
4320 rem Blank out the part of screen above prefill. Called at start of every screen, and on an "R" press
|
||||||
4330 color = 0 : rem black
|
4330 color = 0 : rem black
|
||||||
4340 for j = left + 1 to width + 2
|
4340 for j = left + 1 to width + 2
|
||||||
4350 vlin 0, height - rows - 1 at j
|
4350 vlin 0, height - rows at j
|
||||||
4560 next j
|
4360 for i = 0 to height - rows : array(j,i) = 0 : next i,j
|
||||||
4570 return
|
4370 return
|
||||||
|
|
||||||
|
4990 rem Animated splash screen by Alan Ratliff
|
||||||
|
5000 pr#0 : gr : color= 3 : vlin 1,9 at 2 : plot 3,28 : plot 3,38 : plot 4,0 : plot 4,10 : plot 5, 29 : plot 5,37
|
||||||
|
5010 vlin 13,37 at 32 : vlin 16,34 at 26 : vlin 11,24 at 16 : vlin 14,27 at 11
|
||||||
|
5020 home : color= 1 : vlin 29,37 at 7 : plot 8,0 : plot 8,10 : plot 9,28 : plot 9, 38 : vlin 1,9 at 10
|
||||||
|
5030 vlin 14,30 at 36 : vlin 15,36 at 22 : vlin 16,32 at 2 : plot 30,11 : plot 13,25 : vlin 2,8 at 17
|
||||||
|
5040 color= 11 : vlin 0,10 at 12 : plot 13,38 : plot 14,10 : plot 15, 38
|
||||||
|
5050 vlin 15,38 at 30 : vlin 13,34 at 20 : vlin 11,24 at 6 : plot 26,13
|
||||||
|
5060 color= 9 : vlin 28,37 at 17 : plot 18,10 : plot 19,38 : vlin 0,9 at 20
|
||||||
|
5070 vlin 17,33 at 34 : vlin 12,37 at 24 : vlin 8,23 at 9 : plot 12,36
|
||||||
|
5080 color= 13 : vlin 0,10 at 22 : vlin 30,31 at 23 : vlin 4,6 at 24 : vlin 30,31 at 25 : vlin 0,10 at 26
|
||||||
|
5090 vlin 17,36 at 14 : vlin 14,35 at 4 : plot 34,12 : vlin 2,9 at 7
|
||||||
|
5100 color= 4 : vlin 0,10 at 28 : vlin 30,31 at 29 : vlin 4,6 at 30 : vlin 35,36 at 31 : vlin 0,10 at 32
|
||||||
|
5110 vlin 14,30 at 18 : plot 37,2 : plot 37,8 : plot 34,36 : plot 26,38 : plot 2,12 : plot 2,36 : vlin 30,37 at 10 : vlin 1,8 at 5
|
||||||
|
5120 color= 6 : vlin 1,4 at 34 : plot 34,9 : plot 35,28 : plot 35,33 : plot 35,38 : plot 36,0 : plot 36,5 : plot 36,10 : plot 37,29 : vlin 34,37 at 37
|
||||||
|
5130 vlin 14,37 at 28 : vlin 21,31 at 8 : plot 19,4 : plot 13,13 : vlin 1,8 at 15 : vlin 27,33 at 12
|
||||||
|
5140 for i = 1 to 2000 : next i : a = 21 ^ not a : for a = a to (a > 1) * 37 + 14 : for s = 2 to 18 step 2
|
||||||
|
5150 for i = 0 to 1 : k = a - (s + i + 18) * (a > 20) : k = (k > 0 and k < 15) * k : on not k goto 5400 : y = 39 - s * 2
|
||||||
|
5160 for j = 0 to y step y : x = sgn(1-j) * i + s + j : y = x / 2 : y = int(y) = y : k = abs(k) : if y then k = -k
|
||||||
|
5170 h = sgn(k) : y = 28 - y * 18 - k : for y = y to h * 10 + y step h : color= scrn(x,y+h) : plot x,y : next
|
||||||
|
5180 color= 0 : hlin x,x - h at y : next
|
||||||
|
5400 next i,s,a : a = 1.5 : for x = 34 to 37 : color= (a<2) * 8 + a : a = a * 2 : y = x * 2
|
||||||
|
5410 hlin 39 - x,x at 79 - y : hlin 39 - x,x at y - 41 : next
|
||||||
|
5420 htab 9 : print "Created by JAY GEERTSEN"
|
||||||
|
5430 for a = 1 to 12000 : next a
|
||||||
|
5440 print : htab 5 : print "Applesoft coding by ARTHUR ALLEN"
|
||||||
|
|
||||||
|
5580 rem Key guide screen
|
||||||
|
5590 for a = 1 to 48000 : next a : text : home
|
||||||
|
5600 vtab 3 : print "Keys used:" : print
|
||||||
|
5610 print "<-- or J to move piece left"
|
||||||
|
5620 print "--> or K to move piece right"
|
||||||
|
5630 print "<SPACE> to rotate colors downward"
|
||||||
|
5640 print " |" spc(4) "M to send piece to bottom"
|
||||||
|
5650 print " | or D to force piece down"
|
||||||
|
5660 print "\|/" spc(3) "S to speed up piece"
|
||||||
|
5670 htab 7 : print "R to restart at prefill level"
|
||||||
|
5680 htab 7 : print "P to pause game"
|
||||||
|
5690 vtab 21 : print "Press a key to choose game settings"
|
||||||
|
5700 print : print "(or <-- or --> to see Splash again) "; : get g$
|
||||||
|
5710 i = asc(g$) : a = i = 21 : on i = 8 or a goto 5000 : home : return
|
||||||
|
|
|
@ -1,106 +1,98 @@
|
||||||
4 TEXT: HOME
|
4 PR# 0:TEXT: HOME
|
||||||
5 HTAB 15: INVERSE: PRINT "DOOR DETECTOR": NORMAL
|
5 HTAB 15: INVERSE: PRINT "DOOR DETECTOR": NORMAL
|
||||||
6 PRINT: PRINT: PRINT "DO YOU WANT INSTRUCTIONS? Y/N"
|
6 PRINT: PRINT: PRINT "DO YOU WANT INSTRUCTIONS? Y/N"
|
||||||
7 GET P$: IF P$="Y" THEN 610
|
7 GET P$: IF P$="Y" THEN 610
|
||||||
8 IF P$="N" THEN 10
|
8 IF P$<>"N" GOTO 7
|
||||||
9 PRINT: GOTO 6
|
|
||||||
10 E=200: R=1: F=0: Q=0
|
10 E=200: R=1: F=0: Q=0
|
||||||
20 A=20: B=20
|
20 A=RND(-PEEK(79)*999-PEEK(78)): A=20: B=20
|
||||||
30 V=INT (RND(1)*39-R): IF V<0+R THEN 30
|
|
||||||
40 H=INT (RND(1)*39-R): IF H<0+R THEN 40
|
30 FOR I=1 TO 2: V=H: H=INT (RND(1)*(40-R*2))+R: NEXT
|
||||||
50 IF R>5 THEN 520
|
40 REM Line 50: If prior room's exit was next to Death Zone, you'd now be IN Death Zone — step out of it!
|
||||||
60 GR: HOME: VTAB 21: PRINT "ENERGY:";E: VTAB 21: HTAB 34: PRINT "ROOM #";R
|
50 A=(A<R)-(A>39-R)+A: B=(B<R)-(B>39-R)+B
|
||||||
|
60 GR: HOME: VTAB 21: PRINT "ENERGY:";E;: HTAB 34: PRINT "ROOM #";R
|
||||||
65 E=E-1
|
65 E=E-1
|
||||||
70 COLOR=15: PLOT A,B: Q=13: GOSUB 190
|
70 COLOR=15: PLOT A,B: Q=13: GOSUB 180
|
||||||
80 Q=0: GET P$
|
|
||||||
|
80 Q=0: FOR I=0 TO 128: I=PEEK(49152): NEXT: POKE 49168,0: I=I - 203: I=I-(I>21) * 32
|
||||||
90 HOME
|
90 HOME
|
||||||
100 VTAB 21: PRINT "ENERGY:";E: VTAB 21: HTAB 34: PRINT "ROOM #";R
|
100 VTAB 21: PRINT "ENERGY:";E: VTAB 21: HTAB 34: PRINT "ROOM #";R
|
||||||
110 IF P$="I" THEN COLOR=0: PLOT A,B: COLOR=15: B=B-1: PLOT A,B: E=E-1
|
110 IF SGN(I)=I OR I=3 THEN COLOR=0: PLOT A,B: COLOR=15: A=(I=1)+A-NOT I: B=INT(I/3)+B: PLOT A,B: E=E-1
|
||||||
120 IF P$="J" THEN COLOR=0: PLOT A,B: COLOR=15: A=A-1: PLOT A,B: E=E-1
|
150 IF B<R OR A<R OR A>39-R OR B>39-R THEN GOSUB 300
|
||||||
130 IF P$="K" THEN COLOR=0: PLOT A,B: COLOR=15: A=A+1: PLOT A,B: E=E-1
|
|
||||||
140 IF P$="M" THEN COLOR=0: PLOT A,B: COLOR=15: B=B+1: PLOT A,B: E=E-1
|
180 IF (A-V) * (B-H) > 0 THEN VTAB 23: I=A>V: HTAB I+10: PRINT "YOU ARE IN THE " MID$("COLDHOT",I*4 + 1,4) " ZONE"
|
||||||
150 IF B<0+R THEN GOSUB 300
|
190 ON A<>V OR B<>H GOTO 220:IF Q=13 THEN POP
|
||||||
160 IF A<0+R THEN GOSUB 300
|
200 HOME: FLASH: PRINT "YOU FOUND THE EXIT!!!": NORMAL
|
||||||
170 IF A>39-R THEN GOSUB 300
|
210 Q=15:FOR I=1 TO 20: COLOR=Q: PLOT A,B: Q=15-Q: FOR C=1 TO 300: NEXT C,I: R=R+1: ON R/2 GOTO 30,30,520
|
||||||
180 IF B>39-R THEN GOSUB 300
|
220 IF Q=13 THEN RETURN
|
||||||
190 IF A<V AND B<H THEN VTAB 23: HTAB 10: PRINT "YOU ARE IN THE COLD ZONE"
|
230 IF E>=0 GOTO 80
|
||||||
200 IF A>V AND B>H THEN VTAB 23: HTAB 11: PRINT "YOU ARE IN THE HOT ZONE"
|
|
||||||
210 IF A=V AND B=H THEN HOME: FLASH: VTAB 21: PRINT "YOU FOUND THE EXIT!!!": NORMAL: FOR I=1 TO 700: COLOR=15: PLOT A,B: COLOR=0: PLOT A,B: NEXT I: R=R+1: GOTO 30
|
|
||||||
215 IF Q=13 THEN RETURN
|
|
||||||
220 IF E<0 THEN 240
|
|
||||||
230 GOTO 80
|
|
||||||
240 HOME: INVERSE: VTAB 21: PRINT "YOU RAN OUT OF ENERGY": NORMAL
|
240 HOME: INVERSE: VTAB 21: PRINT "YOU RAN OUT OF ENERGY": NORMAL
|
||||||
250 F=7: GOSUB 310
|
250 F=7: GOSUB 310
|
||||||
|
|
||||||
260 FOR PAUSE=1 TO 5000: NEXT PAUSE
|
260 FOR PAUSE=1 TO 5000: NEXT PAUSE
|
||||||
270 HOME: VTAB 21: PRINT "THE DOOR WAS IN THE RED AREA"
|
270 HOME: VTAB 21: PRINT "THE DOOR WAS IN THE RED AREA"
|
||||||
280 COLOR=1: PLOT V,H
|
280 COLOR=1: PLOT V,H
|
||||||
290 GOTO 570
|
290 GOTO 570
|
||||||
|
|
||||||
300 HOME: INVERSE: VTAB 21: PRINT "YOU HAVE ENTERED THE DEATH ZONE": NORMAL
|
300 HOME: INVERSE: VTAB 21: PRINT "YOU HAVE ENTERED THE DEATH ZONE": NORMAL
|
||||||
|
|
||||||
310 FOR I=1 TO 250
|
310 FOR I=1 TO 250
|
||||||
320 COLOR=G
|
320 COLOR=G
|
||||||
330 PLOT A,B
|
330 PLOT A,B
|
||||||
340 G=G+1: IF G=16 THEN G=0
|
340 G=G+1: IF G>15 THEN G=0
|
||||||
350 NEXT I
|
350 NEXT I
|
||||||
360 FOR C=1 TO 4
|
360 FOR C=1 TO 4
|
||||||
370 W=A+1: X=A-1: Y=B+1: Z=B-1
|
370 W=A: X=A: Y=B: Z=B
|
||||||
380 PLOT A,B
|
380 COLOR=0: PLOT A,B
|
||||||
390 COLOR=0: PLOT A,B
|
390 FOR D=1 TO 10: COLOR=G
|
||||||
400 FOR D=1 TO 10: COLOR=G
|
400 W=(W<39)+W: X=X-(X>0): Y=(Y<39)+Y: Z=Z-(Z>0)
|
||||||
410 IF W>39 THEN W=39
|
|
||||||
420 IF X<O THEN X=0
|
|
||||||
430 IF Y>39 THEN Y=39
|
|
||||||
440 IF Z<0 THEN Z=0
|
|
||||||
450 PLOT W,B: PLOT X,B: PLOT A,Y: PLOT A,Z
|
450 PLOT W,B: PLOT X,B: PLOT A,Y: PLOT A,Z
|
||||||
455 FOR PAUSE=1 TO 250: NEXT PAUSE
|
455 FOR PAUSE=1 TO 250: NEXT PAUSE
|
||||||
460 COLOR=0: PLOT W,B: PLOT X,B: PLOT A,Y: PLOT A,Z
|
460 COLOR=0: PLOT W,B: PLOT X,B: PLOT A,Y: PLOT A,Z
|
||||||
465 FOR PAUSE=1 TO 250: NEXT PAUSE
|
470 FOR PAUSE=1 TO 250: NEXT PAUSE
|
||||||
470 W=W+1: X=X-1: Y=Y+1: Z=Z-1
|
480 G=(G+1) * (G<15): NEXT D
|
||||||
480 G=G+1: NEXT D
|
|
||||||
490 NEXT C: IF F=7 THEN RETURN
|
490 NEXT C: IF F=7 THEN RETURN
|
||||||
500 GR: GOTO 260
|
500 GR: GOTO 260
|
||||||
510 FOR I=1 TO 200: NEXT I
|
|
||||||
520 TEXT: HOME
|
520 TEXT: HOME
|
||||||
530 PRINT "WELL DONE!"
|
530 PRINT "WELL DONE!"
|
||||||
540 PRINT: PRINT "YOU HAVE ESCAPED FROM ALL FIVE ROOMS"
|
540 PRINT: PRINT "YOU HAVE ESCAPED FROM ALL FIVE ROOMS"
|
||||||
550 PRINT "SUCCESSFULLY, WITH ";E;" UNITS OF"
|
550 PRINT "SUCCESSFULLY, WITH ";E;" UNITS OF"
|
||||||
560 PRINT "ENERGY LEFT.": PRINT
|
560 PRINT "ENERGY LEFT.": PRINT
|
||||||
|
|
||||||
570 PRINT "WANT TO PLAY AGAIN? Y/N"
|
570 PRINT "WANT TO PLAY AGAIN? Y/N"
|
||||||
580 GET A$: IF A$="Y" THEN 10
|
580 GET A$: IF A$="Y" THEN 10
|
||||||
590 IF A$="N" THEN PRINT: PRINT "SO LONG!": END
|
590 IF A$="N" THEN PRINT: PRINT "SO LONG!": END
|
||||||
600 PRINT: GOTO 570
|
600 PRINT CHR$(7);: GOTO 580
|
||||||
|
|
||||||
610 HOME
|
610 HOME
|
||||||
620 PRINT "The object of this game is to escape"
|
620 PRINT "The object of this game is to escape"
|
||||||
630 PRINT "from a series of five rooms before you"
|
630 PRINT "from a series of five rooms before you"
|
||||||
640 PRINT "run out of energy."
|
640 PRINT "run out of energy. Each room contains"
|
||||||
650 PRINT: PRINT "Each room contains an invisible door"
|
650 PRINT "an invisible door you must locate to"
|
||||||
660 PRINT "you must locate to advance to the"
|
660 PRINT "advance to the next room."
|
||||||
670 PRINT "next room."
|
|
||||||
680 PRINT: PRINT "Use the I, J, K and M keys to move"
|
680 PRINT: PRINT "Use the I, J, K and M keys to move"
|
||||||
690 PRINT "around the rooms."
|
690 PRINT "around the rooms."
|
||||||
700 PRINT: PRINT "PRESS ANY KEY TO CONTINUE"
|
700 PRINT: PRINT "Each room is made up of different zones:"
|
||||||
710 GET P$: IF P$=" " THEN GOTO 720
|
710 PRINT "All the area ABOVE and to the LEFT of"
|
||||||
720 HOME: PRINT "Each room is divided into different"
|
720 PRINT "the door is called the COLD ZONE."
|
||||||
730 PRINT "zones:"
|
730 PRINT: PRINT "All the area BELOW and to the RIGHT of"
|
||||||
740 PRINT: PRINT "All the area ABOVE and to the LEFT of"
|
740 PRINT "the door is called the HOT ZONE."
|
||||||
750 PRINT "the door is called the COLD ZONE."
|
750 PRINT: PRINT "When you enter one of these zones, a"
|
||||||
760 PRINT: PRINT "All the area BELOW and to the RIGHT of"
|
760 PRINT "message on the screen will tell you so."
|
||||||
770 PRINT "the door is called the HOT ZONE."
|
770 PRINT "Use this information to help you locate each door."
|
||||||
780 PRINT: PRINT "When you enter one of these zones, a"
|
780 VTAB 24: PRINT "PRESS ANY KEY TO CONTINUE ";
|
||||||
790 PRINT "message on the screen will tell you so."
|
790 GET P$
|
||||||
800 PRINT "Use this information to help you locate each door."
|
800 HOME: PRINT "You must also beware of the invisible"
|
||||||
810 PRINT: PRINT "You must also beware of the DEATH ZONE,"
|
810 PRINT "DEATH ZONE, which surrounds the border"
|
||||||
820 PRINT "which surrounds the border of each room.In each room, this zone is a little bit"
|
820 PRINT "of each room. In each room, this zone isa little bit wider than in the previous room."
|
||||||
830 PRINT "wider than in the previous room."
|
|
||||||
840 PRINT: PRINT "If you ever enter this zone, the game"
|
840 PRINT: PRINT "If you ever enter this zone, the game"
|
||||||
850 PRINT "will end immediately!"
|
850 PRINT "will end immediately!"
|
||||||
860 PRINT: PRINT "PRESS ANY KEY TO CONTINUE"
|
860 PRINT: PRINT "You have 200 units of energy."
|
||||||
870 GET P$: IF P$=" " THEN GOTO 880
|
870 PRINT "Every time you move one space, one unit"
|
||||||
880 HOME: PRINT "You have 200 units of energy."
|
880 PRINT "is used up."
|
||||||
890 PRINT "Every time you move one space, one unit"
|
890 PRINT: PRINT "If you make it through all five rooms,"
|
||||||
900 PRINT "is used up."
|
900 PRINT "you win. But if you run out of energy orenter the DEATH ZONE, the game is over."
|
||||||
910 PRINT: PRINT "If you make it through all five rooms, you win. But if you run out of energy orenter the DEATH ZONE, the game is over."
|
|
||||||
920 PRINT: PRINT "Good luck!"
|
920 PRINT: PRINT "Good luck!"
|
||||||
930 PRINT: PRINT "PRESS ANY KEY TO START THE GAME"
|
930 VTAB 23: PRINT "PRESS ANY KEY TO START THE GAME ";
|
||||||
940 GET P$: IF P$=" " THEN GOTO 10
|
940 GET P$: GOTO 10
|
||||||
950 GOTO 10
|
|
||||||
|
|
|
@ -0,0 +1,34 @@
|
||||||
|
5 PR#0:HOME
|
||||||
|
10 GR
|
||||||
|
20 COLOR=7
|
||||||
|
22 HLIN 10,12 AT 17
|
||||||
|
25 HLIN 8,16 AT 16
|
||||||
|
30 HLIN 5,17 AT 15
|
||||||
|
40 HLIN 7,15 AT 14
|
||||||
|
45 HLIN 10,12 AT 13
|
||||||
|
50 COLOR=13
|
||||||
|
60 PLOT 11,12
|
||||||
|
90 PLOT 11,18
|
||||||
|
100 COLOR=7
|
||||||
|
110 HLIN 15,17 AT 17
|
||||||
|
120 HLIN 16,18 AT 18
|
||||||
|
130 HLIN 17,27 AT 19
|
||||||
|
140 HLIN 17,28 AT 20
|
||||||
|
150 HLIN 17,25 AT 21
|
||||||
|
160 HLIN 17,22 AT 22
|
||||||
|
170 COLOR=1
|
||||||
|
180 PLOT 16,21
|
||||||
|
190 COLOR=7
|
||||||
|
200 VLIN 15,18 AT 23
|
||||||
|
210 VLIN 15,18 AT 24
|
||||||
|
230 HLIN 20,31 AT 14
|
||||||
|
240 HLIN 20,32 AT 13
|
||||||
|
250 COLOR=9
|
||||||
|
260 VLIN 13,14 AT 20
|
||||||
|
270 COLOR=5
|
||||||
|
280 VLIN 15,18 AT 22
|
||||||
|
290 HLIN 20,21 AT 15
|
||||||
|
300 HLIN 25,30 AT 15
|
||||||
|
310 COLOR=1
|
||||||
|
320 VLIN 14,15 AT 19
|
||||||
|
330 PRINT "THE ORIGINAL SERIES ENTERPRISE"
|
|
@ -1,18 +1,18 @@
|
||||||
90 home
|
90 text: pr#0: home
|
||||||
95 print "Enter a number to find its factors!"
|
95 print "Enter a number to find its factors!"
|
||||||
97 print
|
97 print "(Zero to quit.)"
|
||||||
100 input a
|
100 print: input a: a=abs(a)
|
||||||
110 print
|
110 print: if not a then print "Bye!";: end
|
||||||
120 let f=0
|
120 s=2: e=1
|
||||||
140 if A/2=int(A/2) then let A=A/2: print "2x";: let f=1: goto 140
|
130 n=0: for i=s to e step 2
|
||||||
145 let i=3
|
150 f=a/i
|
||||||
150 let e=int(sqr(a)) + 2
|
160 if int(f)=f then let a=f: n=n+1: goto 150
|
||||||
155 let f=0
|
170 if n then print i;: s=i: i=e
|
||||||
160 for n=i to e step 2
|
180 next
|
||||||
180 if a/n=int(a/n) then print n;"x";: let a=a/n: let i=n: let n=e: let f=1
|
190 if n>1 then print "^"; n;
|
||||||
200 next n
|
200 if n and a>1 then print " x ";
|
||||||
210 rem print a;" "; n;" "; i;" "; e;" ";f
|
210 rem print a;" "; n;" "; i;" "; e;" ";f
|
||||||
220 if a>n and f<>0 then goto 155
|
220 s=(s>2)+s+1: n=(s>3)*2+not n
|
||||||
230 print a
|
230 if n<3 and a>1 then e=sqr(a): goto 130
|
||||||
235 print
|
240 if n=1 or a>1 then print a;
|
||||||
240 goto 100
|
250 print: goto 100
|
|
@ -1,47 +1,47 @@
|
||||||
5 rem Plot Gaussian distribution in two dimensions
|
5 rem Plot Gaussian distribution in two dimensions
|
||||||
10 text: home: PRINT "Std. Dev. = ";: input s1
|
10 text: home: PRINT "Standard Deviation = ";: input s1
|
||||||
20 hgr: hcolor = 3
|
20 hgr: hcolor = 3
|
||||||
30 w = 279: h = 159
|
30 w = 278: h = 155: p2 = atn(1) * 8
|
||||||
40 w0 = w - 100: w1 = w0/10
|
40 w0 = w - 100: w1 = w0/10
|
||||||
45 h1 = h - 100: h2 = h - 60
|
45 h1 = h - 100: h2 = h - 60
|
||||||
50 k = 0.5: m = 1 / (2 * 3.14159265 * s1 * s1)
|
50 k = 0.5: m = 1 / (p2 * s1 * s1)
|
||||||
60 for i = 0 to 10 step k
|
60 for i = 0 to 10 step k
|
||||||
70 x = 10 * i + 1: y = 10 * i + h1
|
70 x = 10 * i + 1: y = 10 * i + h1
|
||||||
75 hplot x,y
|
75 hplot x,y
|
||||||
80 for j = 0 to w0 step 1
|
80 for j = 0 to w0
|
||||||
85 j1 = 10 * j / w0
|
85 j1 = 10 * j / w0
|
||||||
90 d1 = abs(5 - i)
|
90 d1 = abs(5 - i)
|
||||||
100 d2 = abs(5 - j1)
|
100 d2 = abs(5 - j1)
|
||||||
110 r2 = (d1*d1+d2*d2)/(2*s1*s1)
|
110 r2 = (d1*d1+d2*d2)/(2*s1*s1)
|
||||||
120 g = exp(-r2)/(2*3.14159*s1*s1)
|
120 g = exp(-r2)/(p2*s1*s1)
|
||||||
130 a = int((h2 * g)/ m)
|
130 a = int((h2 * g)/ m)
|
||||||
140 x = 10 * i + w1 * j1 + 1
|
140 x = 10 * i + w1 * j1 + 1
|
||||||
150 y = 10 * i + h1 - a
|
150 y = 10 * i + h1 - a
|
||||||
160 hplot to x,y
|
160 hplot to x,y
|
||||||
170 if (i = 0) goto 265
|
170 if not i goto 265
|
||||||
175 if (j = w0) goto 190
|
175 if j = w0 goto 190
|
||||||
180 j2 = int(j/10): if ((j/10) <> j2) goto 290
|
180 j2 = j/10: if int(j2) <> j2 goto 290
|
||||||
190 d1 = abs(5 - i + k)
|
190 d1 = abs(5 - i + k)
|
||||||
200 d2 = abs(5 - j1)
|
200 d2 = abs(5 - j1)
|
||||||
210 r2 = (d1*d1+d2*d2)/(2*s1*s1)
|
210 r2 = (d1*d1+d2*d2)/(2*s1*s1)
|
||||||
220 u = exp(-r2)/(2*3.14159*s1*s1)
|
220 u = exp(-r2)/(p2*s1*s1)
|
||||||
225 a1 = int((h2 * u)/ m)
|
225 a1 = int(h2 * u / m)
|
||||||
230 x1 = 10 * (i - k) + w1 * j1 + 1
|
230 x1 = 10 * (i - k) + w1 * j1 + 1
|
||||||
240 y1 = 10 * (i - k) + h1 - a1
|
240 y1 = 10 * (i - k) + h1 - a1
|
||||||
245 rem if (y <= y1) goto 290
|
245 rem if y <= y1 goto 290
|
||||||
250 hplot to x1,y1
|
250 hplot to x1,y1
|
||||||
260 hplot x,y
|
260 hplot x,y
|
||||||
265 if (j = 0) goto 310
|
265 if not j goto 310
|
||||||
270 if (i < 10) goto 290
|
270 if i < 10 goto 290
|
||||||
275 if (j = w0) goto 295
|
275 if j = w0 goto 295
|
||||||
280 j2 = int(j/10): if ((j/10) = j2) goto 295
|
280 j2 = j/10: if int(j2) = j2 goto 295
|
||||||
290 hcolor = 0
|
290 hcolor = 0
|
||||||
295 hplot to x,10 * i + h1
|
295 hplot to x,10 * i + h1
|
||||||
300 hcolor = 3
|
300 hcolor = 3
|
||||||
305 hplot x,y
|
305 hplot x,y
|
||||||
310 next j
|
310 next j
|
||||||
320 next i
|
320 next i
|
||||||
330 hplot w+1,h: hplot to 100+1,h: hplot to 0+1,h1
|
330 hplot w+1,h: hplot to 100+1,h: hplot to 0+1,h1
|
||||||
340 vtab 21: print "Gaussian (standard deviation = ";s1;")"
|
340 vtab 21: print "Gaussian (std. dev. = ";s1;")"
|
||||||
350 print "Plot from -5.0 to + 5.0"
|
350 print "Plot from -5.0 to + 5.0"
|
||||||
360 print "Peak value = "m
|
360 print "Peak value = "m
|
File diff suppressed because it is too large
Load Diff
|
@ -1,40 +1,42 @@
|
||||||
0 REM
|
|
||||||
1 REM Newsgroups: comp.sys.apple2
|
1 REM Newsgroups: comp.sys.apple2
|
||||||
2 REM From: mad.scientist.jr@gmail.com
|
2 REM From: mad.scientist.jr@gmail.com
|
||||||
3 REM Message-ID: <1193160910.224728.270640@z24g2000prh.googlegroups.com>
|
3 REM Message-ID: <1193160910.224728.270640@z24g2000prh.googlegroups.com>
|
||||||
4 REM Subject: Re: woz' original "brick out" - source code , paddles
|
4 REM Subject: Re: woz' original "brick out" - source code , paddles
|
||||||
5 REM Date: Tue, 23 Oct 2007 17:35:10 -0000
|
5 REM Date: Tue, 23 Oct 2007 17:35:10 -0000
|
||||||
6 REM
|
|
||||||
|
|
||||||
10 REM APPLE II SIMPLE PONG V4
|
10 REM APPLE II SIMPLE PONG V4
|
||||||
20 REM PASTE INTO Joshua Bell s EMULATOR AT inexorabletash.github.io/jsbasic/
|
20 REM PASTE INTO Joshua Bell's EMULATOR AT inexorabletash.github.io/jsbasic/
|
||||||
25 REM ++++++++++++++++++++++++++++++++++++++++
|
25 REM ++++++++++++++++++++++++++++++++++++++++
|
||||||
30 REM TITLE SCREEN + PROMPT FOR CONTROLS
|
30 REM TITLE SCREEN + PROMPT FOR CONTROLS
|
||||||
35 REM ++++++++++++++++++++++++++++++++++++++++
|
35 REM ++++++++++++++++++++++++++++++++++++++++
|
||||||
40 TEXT : REM ENTER TEXT MODE
|
40 TEXT : PR#0 : HOME : REM ENTER TEXT MODE, CLEAR SCREEN
|
||||||
45 HOME : REM CLEAR TEXT SCREEN
|
45 DEF FN pd(k) = (26 * pdl(k)) / 255 + 2 : REM DEFINE PADDLE-READING FUNCTION
|
||||||
49 PRINT "APPLE II SIMPLE PONG V4"
|
46 REM DEF FN pr(k) = SGN(INT((pdl(k) - 55) / 146)) : REM (non-absolute) paddle function
|
||||||
|
49 PRINT "APPLE II SIMPLE PONG V4.1"
|
||||||
50 PRINT
|
50 PRINT
|
||||||
51 PRINT "version 1 by aiiadict"
|
51 PRINT "version 1 by aiiadict"
|
||||||
52 PRINT "tweaks by Mad Scientist Jr"
|
52 PRINT "tweaks by Mad Scientist Jr"
|
||||||
|
53 PRINT "and Alan Ratliff (2020)"
|
||||||
54 PRINT
|
54 PRINT
|
||||||
55 PRINT "During game press Q to quit."
|
55 PRINT "During game press Q to quit."
|
||||||
56 PRINT
|
56 PRINT : HTAB 18 : PRINT "^ # ^" SPC(5) "^ # ^"
|
||||||
58 INPUT "TYPE K FOR KEYS (A/Z, K/M) OR P FOR PADDLES OR Q TO QUIT? ";C$
|
58 PRINT "TYPE K FOR KEYS" SPC(2) "A/S/D" SPC(5) "J/K/L" : HTAB 19 : PRINT "Z/X" SPC(7) "M/,"
|
||||||
60 IF C$ <> "K" AND C$ <> "P" AND C$ <> "Q" THEN GOTO 58
|
59 PRINT " (# = STOP)" TAB(19) "v v" SPC(7) "v v" : PRINT : PRINT "OR P FOR PADDLES OR Q TO QUIT? ";
|
||||||
62 IF C$ = "Q" THEN GOTO 9000
|
60 GET C$ : IF C$ <> "K" AND C$ <> "P" AND C$ <> "Q" GOTO 60
|
||||||
|
62 IF C$ = "Q" THEN VTAB 22 : GOTO 9000
|
||||||
65 REM
|
65 REM
|
||||||
70 REM ++++++++++++++++++++++++++++++++++++++++
|
70 REM ++++++++++++++++++++++++++++++++++++++++
|
||||||
75 REM DRAW FIELD AND INITIALIZE GAME
|
75 REM DRAW FIELD AND INITIALIZE GAME
|
||||||
80 REM ++++++++++++++++++++++++++++++++++++++++
|
80 REM ++++++++++++++++++++++++++++++++++++++++
|
||||||
85 GR: REM ENTER GRAPHIC MODE
|
85 HOME : GR: REM ENTER GRAPHIC MODE
|
||||||
90 COLOR= 7: VLIN 0,39 AT 0: VLIN 0,39 AT 39
|
90 COLOR= 7: VLIN 0,39 AT 0: VLIN 0,39 AT 39
|
||||||
95 HLIN 0,39 AT 0: HLIN 0,39 AT 39
|
95 HLIN 0,39 AT 0: HLIN 0,39 AT 39
|
||||||
100 bx = 10:by = 10:ox = 10:oy = 10: REM BALL START POSITION
|
100 bx = 10:by = 10:ox = 10:oy = 10: REM BALL START POSITION
|
||||||
102 dx = 1: dy = - 1: REM BALL DIRECTION
|
102 dx = 1: dy = - 1: REM BALL DIRECTION
|
||||||
104 p1 = 10: o1 = 10: REM PLAYER 1 START POSITION
|
104 p1 = 10: o1 = 10: REM PLAYER 1 START POSITION
|
||||||
106 p2 = 10: o2 = 10: REM PLAYER 2 START POSITION
|
106 p2 = 10: o2 = 10: REM PLAYER 2 START POSITION
|
||||||
120 PL = 8: REM PADDLE LENGTH
|
120 v1 = 0 : v2 = 0 : s1 = 0 : s2 = 0 : u1 = 0 : u2 = 0 :
|
||||||
|
125 PL = 8: REM PADDLE LENGTH
|
||||||
130 REM
|
130 REM
|
||||||
145 REM ++++++++++++++++++++++++++++++++++++++++
|
145 REM ++++++++++++++++++++++++++++++++++++++++
|
||||||
150 REM BEGIN MAIN GAME LOOP
|
150 REM BEGIN MAIN GAME LOOP
|
||||||
|
@ -52,91 +54,62 @@
|
||||||
399 REM ++++++++++++++++++++++++++++++++++++++++
|
399 REM ++++++++++++++++++++++++++++++++++++++++
|
||||||
400 REM DRAW AND MOVE BALL
|
400 REM DRAW AND MOVE BALL
|
||||||
401 REM ++++++++++++++++++++++++++++++++++++++++
|
401 REM ++++++++++++++++++++++++++++++++++++++++
|
||||||
402 IF ox <> bx OR oy <> by THEN COLOR= 0: PLOT ox,oy: PLOT ox,oy + 1
|
402 IF ox <> bx OR oy <> by THEN COLOR= 0: VLIN oy,oy + 1 AT ox
|
||||||
410 COLOR= 5: PLOT bx,by: PLOT bx,by + 1
|
410 COLOR= 11: VLIN by,by + 1 AT bx
|
||||||
416 ox = bx:oy = by
|
420 ox = bx : oy = by : bb = 1
|
||||||
830 bx = bx + dx
|
470 bx = bx + dx
|
||||||
835 IF SCRN( bx,by) > 0 THEN dx = - dx
|
490 IF SCRN( bx,by) OR SCRN( bx, by + 1) THEN dx = -dx : k = (bx=3)*p1+(bx=36)*p2 : IF bx*2=39-dx*33 AND ((k>0)*by-PL/2-k+1)*dy > 0 THEN bb = 0
|
||||||
840 by = by + dy
|
500 IF bx = 7 THEN u1 = 1
|
||||||
845 IF SCRN( bx,by) > 0 THEN dy = - dy
|
510 IF bx = 33 THEN u2 = 1
|
||||||
|
520 IF bx = 1 AND u1 THEN s2 = s2 + 1 : u1 = 0 : VTAB 22 : HTAB 41 - LEN(STR$(s2)) : PRINT s2;
|
||||||
|
530 IF bx = 38 AND u2 THEN s1 = s1 + 1 : u2 = 0 : VTAB 22 : HTAB 1 : PRINT s1
|
||||||
|
540 by = by + dy
|
||||||
|
840 IF (SCRN( bx,by) OR SCRN( bx, by + 1)) AND bb THEN dy = -dy
|
||||||
850 IF bx < 1 THEN bx = 1
|
850 IF bx < 1 THEN bx = 1
|
||||||
860 IF bx > 38 THEN bx = 38
|
860 IF bx > 38 THEN bx = 38
|
||||||
870 IF by < 1 THEN by = 1
|
870 IF by < 1 THEN by = 1
|
||||||
880 IF by > 38 THEN by = 38
|
880 IF by > 37 THEN by = 37
|
||||||
881 REM
|
890 o1 = p1 : o2 = p2
|
||||||
882 REM ----------------------------------------
|
|
||||||
883 REM SAVE OLD SCREEN POSITION
|
|
||||||
884 REM ----------------------------------------
|
|
||||||
885 o1 = p1
|
|
||||||
886 o2 = p2
|
|
||||||
889 REM
|
|
||||||
900 REM ++++++++++++++++++++++++++++++++++++++++
|
900 REM ++++++++++++++++++++++++++++++++++++++++
|
||||||
901 REM GET PLAYER INPUT
|
901 REM GET PLAYER INPUT
|
||||||
902 REM ++++++++++++++++++++++++++++++++++++++++
|
902 REM ++++++++++++++++++++++++++++++++++++++++
|
||||||
903 IF PEEK ( - 16384) > 127 THEN GET K$: REM SEE IF KEY(S) PRESSED. NEEDS FIX FOR MULTI KEY SIMULTANEOUS INPUT
|
903 IF PEEK ( - 16384) > 127 THEN GET K$: IF K$ = "Q" GOTO 9000 : REM SEE IF KEY PRESSED/Q FOR QUIT
|
||||||
904 IF C$ <> "K" THEN GOTO 921
|
904 IF C$ <> "K" THEN GOTO 921
|
||||||
905 REM
|
905 REM
|
||||||
906 REM ----------------------------------------
|
906 REM ----------------------------------------
|
||||||
907 REM KEYBOARD INPUT
|
907 REM KEYBOARD INPUT
|
||||||
908 REM NOTE: NEEDS FIX TO DETECT MULTI KEYPRESSES
|
|
||||||
909 REM ----------------------------------------
|
909 REM ----------------------------------------
|
||||||
912 IF K$ = "A" THEN p1 = p1 - 1
|
912 IF K$ = "A" OR K$ = "D" THEN v1 = -1
|
||||||
914 IF K$ = "Z" THEN p1 = p1 + 1
|
913 IF K$ = "S" THEN v1 = 0
|
||||||
916 IF K$ = "K" THEN p2 = p2 - 1
|
914 IF K$ = "Z" OR K$ = "X" THEN v1 = 1
|
||||||
918 IF K$ = "M" THEN p2 = p2 + 1
|
916 IF K$ = "J" OR K$ = "L" THEN v2 = -1
|
||||||
920 GOTO 955
|
917 IF K$ = "K" THEN v2 = 0
|
||||||
|
918 IF K$ = "M" OR K$ = "," THEN v2 = 1
|
||||||
|
920 K$ = "" : p1 = p1 + v1 : p2 = p2 + v2 : GOTO 955
|
||||||
921 IF C$ <> "P" THEN GOTO 947
|
921 IF C$ <> "P" THEN GOTO 947
|
||||||
922 REM
|
922 REM
|
||||||
923 REM ----------------------------------------
|
923 REM ----------------------------------------
|
||||||
925 REM PADDLE INPUT
|
925 REM PADDLE INPUT
|
||||||
927 REM ----------------------------------------
|
927 REM ----------------------------------------
|
||||||
930 REM simple (non-absolute) paddle input:
|
930 REM simple (non-absolute) paddle input:
|
||||||
931 REM if pdl(0) > 200 then p1 = p1 + 1
|
932 REM p1 = FN pr(0) + p1
|
||||||
932 REM if pdl(0) < 55 then p1 = p1 - 1
|
934 REM p2 = FN pr(1) + p2
|
||||||
933 REM if pdl(1) > 200 then p2 = p2 + 1
|
940 REM realtime (absolute position) paddle input:
|
||||||
934 REM if pdl(1) < 55 then p2 = p2 - 1
|
944 p1 = FN pd(0)
|
||||||
943 REM realtime (absolute position) paddle input:
|
945 p2 = FN pd(1)
|
||||||
944 GOSUB 3000: REM PLAYER 1
|
|
||||||
945 GOSUB 4000: REM PLAYER 2
|
|
||||||
947 REM
|
947 REM
|
||||||
948 REM ----------------------------------------
|
|
||||||
949 REM SEE IF PLAYER PRESSED Q TO QUIT
|
|
||||||
950 REM ----------------------------------------
|
|
||||||
951 IF K$ = "Q" THEN GOTO 9000
|
|
||||||
954 REM
|
|
||||||
955 REM ++++++++++++++++++++++++++++++++++++++++
|
955 REM ++++++++++++++++++++++++++++++++++++++++
|
||||||
956 REM MAKE SURE PADDLES DONT GO OFF SCREEN
|
956 REM MAKE SURE PADDLES DON'T GO OFF SCREEN
|
||||||
958 REM ++++++++++++++++++++++++++++++++++++++++
|
958 REM ++++++++++++++++++++++++++++++++++++++++
|
||||||
960 IF p1 < 2 THEN p1 = 2
|
960 IF p1 < 2 THEN p1 = 2
|
||||||
970 IF p1 > 28 THEN p1 = 28
|
970 IF p1 > 28 THEN p1 = 28
|
||||||
980 IF p2 < 2 THEN p2 = 2
|
980 IF p2 < 2 THEN p2 = 2
|
||||||
990 IF p2 > 28 THEN p2 = 28
|
990 IF p2 > 28 THEN p2 = 28
|
||||||
1000 REM
|
999 GOTO 150
|
||||||
1010 REM ++++++++++++++++++++++++++++++++++++++++
|
|
||||||
1020 REM CONTINUE GAME LOOP
|
|
||||||
1030 REM ++++++++++++++++++++++++++++++++++++++++
|
|
||||||
1040 GOTO 150
|
|
||||||
3000 REM
|
|
||||||
3010 REM ++++++++++++++++++++++++++++++++++++++++
|
|
||||||
3020 REM GET SCREEN POSITION FROM PADDLE 1 INPUT
|
|
||||||
3030 REM ++++++++++++++++++++++++++++++++++++++++
|
|
||||||
3040 p1 = 26 * pdl(0)
|
|
||||||
3050 p1 = p1 / 255
|
|
||||||
3060 p1 = p1 + 2
|
|
||||||
3070 RETURN
|
|
||||||
4000 REM
|
|
||||||
4010 REM ++++++++++++++++++++++++++++++++++++++++
|
|
||||||
4020 REM GET SCREEN POSITION FROM PADDLE 2 INPUT
|
|
||||||
4030 REM ++++++++++++++++++++++++++++++++++++++++
|
|
||||||
4040 p2 = 26 * pdl(1)
|
|
||||||
4050 p2 = p2 / 255
|
|
||||||
4060 p2 = p2 + 2
|
|
||||||
4070 RETURN
|
|
||||||
9000 REM
|
9000 REM
|
||||||
9010 REM ++++++++++++++++++++++++++++++++++++++++
|
9010 REM ++++++++++++++++++++++++++++++++++++++++
|
||||||
9020 REM QUIT GAME
|
9020 REM QUIT GAME
|
||||||
9030 REM ++++++++++++++++++++++++++++++++++++++++
|
9030 REM ++++++++++++++++++++++++++++++++++++++++
|
||||||
9040 TEXT : REM HOME
|
9040 TEXT : REM HOME
|
||||||
9045 PRINT
|
9045 PRINT
|
||||||
9050 PRINT "FINISHED APPLE II SIMPLE PONG V4."
|
9050 PRINT "FINISHED APPLE II SIMPLE PONG V4.1"
|
||||||
9060 END
|
|
||||||
|
|
Loading…
Reference in New Issue