Apple-2-SW/jsbasic
1
0
Fork 0
mirror of https://github.com/inexorabletash/jsbasic.git synced 2024-12-28 17:29:34 +00:00
Code Issues Projects Releases Wiki Activity

Updated sample

Browse Source
This commit is contained in:
Joshua Bell 2016-12-06 23:35:54 -08:00
parent 2db989212f
commit 2518462b01
1 changed files with 52 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

83
samples/sample.xmastree.txt
View File

@ -1,31 +1,52 @@
10 TEXT : HOME : REM Clear the screen
20 VTAB 4 : HTAB 14 : PRINT "Christmas Tree"
30 VTAB 10 : HTAB 1 : PRINT "By Gregg Buntin and Rich Orde (1983ish)"
40 VTAB 12 : HTAB 5 : PRINT "Adapted for JSBasic Dec 2, 2016"
50 VTAB 19 : PRINT "Press any key to continue"
60 GET NUM$ : REM read input
200 DIM X(20),Y(20)
210 HGR : POKE - 16302,0: HCOLOR= 1 : REM Set Hires, full screen, color green
220 FOR I = 40 TO 140 STEP 10: FOR J = 0 TO 9 : REM Loops for Tree
230 HPLOT 140 - J * 1.4 + 20 - I / 2,I + J TO 140 + J * 1.4 - 20 + I / 2,I + J: NEXT : NEXT : REM Draw Tree
240 HCOLOR= 0: HPLOT 100,149 TO 180,149: HPLOT 105,148 TO 175,148: HPLOT 125,147 TO 155,147 : REM Bottom of tree
250 HCOLOR= 5: FOR I = 147 TO 160: HPLOT 132,I TO 148,I: NEXT : REM Tree Trunk
260 HCOLOR= 2 : FOR I = 161 TO 163: HPLOT 0,I TO 279,I: NEXT : REM Ground
270 HCOLOR= 6: HPLOT 140,30 TO 140,40: HPLOT 133,35 TO 147,35: HPLOT 135,30 TO 145,40: HPLOT 135,40 TO 145,30 : REM Star
280 DATA 140,50,135,95,145,135,110,100,160,111 : REM Data for ornaments
290 DATA 102,135,127,120,128,75,150,85,170,133 : REM Data for ornaments
300 HCOLOR= 2: FOR I = 1 TO 10 : REM 10 purple ornaments
310 READ X,Y: HPLOT X + 1,Y TO X + 3,Y: HPLOT X + 1,Y + 4 TO X + 3,Y + 4 : REM top & bottom of ornaments
320 FOR J = Y + 1 TO Y + 3: HPLOT X,J TO X + 4,J: NEXT : NEXT : REM middle of Ornaments
315 REM Start with 'random' snow
330 DATA 20,20,70,50,30,100,60,130,10,60
340 DATA 25,25,75,55,35,95,65,125,15,65
350 DATA 210,50,270,60,220,130,255,100,240,20
360 DATA 215,55,275,65,225,135,260,105,245,25
370 FOR I = 1 TO 20: READ X(I),Y(I): NEXT : REM get snow starting locations
380 FOR I = 1 TO 20: HCOLOR= 0: HPLOT X(I),Y(I) TO X(I) + 1,Y(I):Y(I) = Y(I) + 5: IF Y(I) > 158 THEN 400
390 HCOLOR= 3: HPLOT X(I),Y(I) TO X(I) + 1,Y(I): NEXT : GOTO 380
400 HCOLOR= 3: HPLOT X(I),160 TO X(I) + 1,160
410 Y(I) = 0: IF X(I) > 140 THEN X(I) = INT ( RND (1) * 75) + 204
420 IF X(I) < 140 THEN X(I) = INT ( RND (1) * 80)
430 GOTO 390
10 REM Change Log
11 REM 1983ish - Rich Orde & Gregg Buntin - First Version
12 REM 12/2/2016 - Gregg - adapt code for JSBasic by Joshua Bell, add lots of comments
13 REM 12/2/2016 - Gregg - Bug fix for get key
14 REM 12/3/2016 - Rich - Add blinky lights, blinky star
15 REM 12/6/2016 - Rich - make snow fall anywhere, including in front of tree and accumulate on ground
16 REM 12/6/2016 - Gregg - code cleanup, move 'data' statements to end, create 'lights' subroutine, setup to reuse star drawing routine, more comments
98 REM -----------------------------------------------------------------------------------------------------------------------------------------------------
99 REM Credits screen
110 TEXT : HOME : REM Clear the Bogi screen
120 VTAB 4 : HTAB 14 : PRINT "Christmas Tree"
130 VTAB 10 : HTAB 1 : PRINT "By Rich Orde and Gregg Buntin (1983ish)"
140 VTAB 12 : HTAB 5 : PRINT "Adapted for JSBasic Dec 2, 2016"
150 VTAB 19 : PRINT "Press any key to continue"
160 GET KEY$ : REM read input
198 REM -----------------------------------------------------------------------------------------------------------------------------------------------------
199 REM Initial Setup
200 DIM X(28),Y(28), Z(28), V(28), A(10), B(10), R(28) : Rem setup variables
210 F = 160 : G = 0 : D = 0 : REM ground
220 HGR : POKE-16302,0 : HCOLOR= 1 : REM Set Hires, full screen, color Bogi green
230 FOR I = 40 TO 140 STEP 10: FOR J = 0 TO 9 : REM Loops for Tree
240 HPLOT 140 - J * 1.4 + 20 - I / 2,I + J TO 140 + J * 1.4 - 20 + I / 2,I + J: NEXT : NEXT : REM Draw Tree
250 HCOLOR= 0: HPLOT 100,149 TO 180,149: HPLOT 105,148 TO 175,148: HPLOT 125,147 TO 155,147 : REM Bottom of tree
260 HCOLOR= 5: FOR I = 147 TO 160: HPLOT 132,I TO 148,I: NEXT : REM Tree Trunk
270 HCOLOR= 2 : FOR I = 161 TO 163: HPLOT 0,I TO 279,I: NEXT : REM Ground
280 ST = 1 : H = 6 : GOSUB 460 : ST = 0 : REM Draw a white star
290 FOR I = 1 TO 10 : READ A(I), B(I) : Z = I : GOSUB 600 : NEXT : REM 10 lights
300 FOR I = 1 TO 28: READ R(I) : X(I) = INT(RND (1) * 10) + R(I): Y(I)=INT(RND(1)*60): Z(I) = INT(RND(1)*3)+2 : V(I)=0 : NEXT : REM get snow starting locations
398 REM -----------------------------------------------------------------------------------------------------------------------------------------------------
399 REM Main Loop
400 FOR I = 1 TO 28: HCOLOR = V(I): HPLOT X(I),Y(I):Y(I) = Y(I) + Z(I) : IF Y(I) > F - 2 THEN Y(I) = F : REM restore snowflake pixel to original background color
410 C = C + 1 : IF C / 150 <> INT (C / 150) THEN 440 : REM lights blink every 150 cycles
420 C = 0 : D = NOT D : Z = Z + D : IF Z = 11 THEN Z = 1: REM cycle through 10 lights to blink
430 TZ = Z : GOSUB 600 : REM Draw or ease a light
440 IF C / 100 <> INT(C / 100) THEN 470 : REM star changes color every 100 cycles
450 H = H + 1 + (H = 3): IF H = 8 THEN H = 1 : REM color change for star, skipping 4 (black)
460 HCOLOR= H: HPLOT 140,28 TO 140,40: HPLOT 133,35 TO 147,35: HPLOT 135,30 TO 145,40: HPLOT 135,40 TO 145,30 : IF 1 = ST THEN RETURN : REM flashing star
470 V(I) = HSCRN(X(I), Y(I)) : HCOLOR= 3 : HPLOT X(I),Y(I) : REM white snowflake
480 IF Y(I)= F THEN HPLOT TO X(I), 160 : G = G + 1 : Y(I) = INT(RND(1)*4): S = S + 1: X(I) = INT(RND(1)*10) + R(S) : V(I) = 0: Z(I) = INT(RND(1)*3)+2 : IF 28 = S THEN S = 0 : REM flake hit ground, create new one
490 IF G > 799 THEN G = 0: HPLOT 0, F TO 279, F : F = F - 1 : REM raise ground for snow accumulation every 800 snowflakes that fall
500 NEXT : REM Next snowflake
510 GOTO 400 : REM Start the loop over again
598 REM -----------------------------------------------------------------------------------------------------------------------------------------------------
599 REM Draw light
600 HCOLOR = 2 - D
610 HPLOT A(Z) + 1,B(Z) TO A(Z) + 3,B(Z): HPLOT A(Z) + 1,B(Z) + 4 TO A(Z) + 3,B(Z) + 4: REM top & bottom of lights
620 FOR J = B(Z) + 1 TO B(Z) + 3: HPLOT A(Z),J TO A(Z) + 4,J: NEXT J : REM middle of lights
630 RETURN
898 REM -----------------------------------------------------------------------------------------------------------------------------------------------------
900 DATA 140,50,135,95,145,135,110,100,160,111 : REM Data for Lights
910 DATA 102,135,127,120,128,75,150,85,170,133 : REM Data for Lights
920 DATA 60,10,140,210,180,130,20,270,240,90,40,80,100,30,220,250,160,50,110,190,260,70,120,150,200,170,0,230 : REM data for 28 snowflake zones to avoid collision