diff --git a/basic/appleiibot/Makefile b/basic/appleiibot/Makefile index a5b37fc3..7791093b 100644 --- a/basic/appleiibot/Makefile +++ b/basic/appleiibot/Makefile @@ -28,7 +28,8 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \ BOXES.BAS SOLARIS.BAS SOLARIS2.BAS ASPLODE.BAS SOLARIS3.BAS \ TARGET.BAS ELITE.BAS MYSTERY.BAS OFFICE.BAS GR_XOR.BAS \ LARGE_XOR.BAS PAR_XOR.BAS PAR_HGR.BAS SIER_XOR.BAS PATTERN_LOGO.BAS \ - GEARS.BAS DSR_LORES.BAS A2_LORES.BAS MAGIC_CUBE.BAS MOON.BAS + GEARS.BAS DSR_LORES.BAS A2_LORES.BAS MAGIC_CUBE.BAS MOON.BAS \ + PUMPKIN2.BAS cp $(EMPTY_DISK)/empty_lots_of_dirents.dsk appleiibot.dsk # cp empty.dsk appleiibot.dsk # $(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD @@ -151,8 +152,9 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \ $(DOS33) -y appleiibot.dsk SAVE A GEARS.BAS $(DOS33) -y appleiibot.dsk SAVE A DSR_LORES.BAS $(DOS33) -y appleiibot.dsk SAVE A A2_LORES.BAS - $(DOS33) -y appleiibot.dsk SAVE A MAGIC_BOX.BAS + $(DOS33) -y appleiibot.dsk SAVE A MAGIC_CUBE.BAS $(DOS33) -y appleiibot.dsk SAVE A MOON.BAS + $(DOS33) -y appleiibot.dsk SAVE A PUMPKIN2.BAS #### @@ -852,8 +854,14 @@ MOON.BAS: moon.bas #### -MAGIC_BOX.BAS: magic_box.bas - $(TOKENIZE) < magic_box.bas > MAGIC_BOX.BAS +PUMPKIN2.BAS: pumpkin2.bas + $(TOKENIZE) < pumpkin2.bas > PUMPKIN2.BAS + + +#### + +MAGIC_CUBE.BAS: magic_cube.bas + $(TOKENIZE) < magic_cube.bas > MAGIC_CUBE.BAS diff --git a/basic/appleiibot/magic_cube.bas b/basic/appleiibot/magic_cube.bas index 409ac47e..929c1604 100644 --- a/basic/appleiibot/magic_cube.bas +++ b/basic/appleiibot/magic_cube.bas @@ -1,15 +1,21 @@ -5 HGR:HGR2 -6 C=0 -40 FOR W=3 TO 64 STEP 0.5 -50 A=4/W+T/4 -60 K=145/W -70 X=64+COS(A)*K -80 Y=64+SIN(A)*K -100 HCOLOR=C -110 HPLOT X-W,Y-W TO X+W,Y-W TO X+W,Y+W TO X-W,Y+W TO X-W,Y-W -115 C=C+1:IF C>7 THEN C=0 -120 NEXT -130 T=T+1:POKE230,32+32*P:P=NOTP:POKE49236+P,0:GOTO 6 +0HGR:HGR2 +1C=0:FORW=3TO60STEP4:A=4/W+T/4:K=145/W:X=64+COS(A)*K:Y=64+SIN(A)*K +2HCOLOR=C:HPLOTX-W,Y-WTOX+W,Y-WTOX+W,Y+WTOX-W,Y+WTOX-W,Y-W +3C=C+1:IF C>7 THEN C=0 +4NEXT:T=T+1:POKE230,32+32*P:P=NOTP:POKE49236+P,0:GOTO 1 + +'5 HGR:HGR2 +'6 C=0 +'40 FOR W=3 TO 64 STEP 0.5 +'50 A=4/W+T/4 +'60 K=145/W +'70 X=64+COS(A)*K +'80 Y=64+SIN(A)*K +'100 HCOLOR=C +'110 HPLOT X-W,Y-W TO X+W,Y-W TO X+W,Y+W TO X-W,Y+W TO X-W,Y-W +'115 C=C+1:IF C>7 THEN C=0 +'120 NEXT +'130 T=T+1:POKE230,32+32*P:P=NOTP:POKE49236+P,0:GOTO 6 '5 GR '40 FOR W=3 TO 68 STEP 0.1 diff --git a/basic/appleiibot/make_points.c b/basic/appleiibot/make_points.c index 3ed7ba66..4d8b877c 100644 --- a/basic/appleiibot/make_points.c +++ b/basic/appleiibot/make_points.c @@ -1,14 +1,20 @@ #include #include -//#define LINE_VALUE 279 -//#define STOP_VALUE 0 -//#define MODE_VALUE 3 +#if 1 + +#define LINE_VALUE 279 +#define STOP_VALUE 0 +#define MODE_VALUE 3 + +#else #define LINE_VALUE 3 #define STOP_VALUE 6 #define MODE_VALUE 9 +#endif + static int debug=1; diff --git a/basic/appleiibot/pumpkin.points b/basic/appleiibot/pumpkin.points new file mode 100644 index 00000000..6dd10ddf --- /dev/null +++ b/basic/appleiibot/pumpkin.points @@ -0,0 +1,46 @@ +279 9 90 39 21 # 0 left + 81 9 # 1 + 129 30 # 2 + 141 30 # 3 + 171 21 # 4 + 210 30 # 5 + 231 51 # 6 + 240 108 # 7 + 231 150 # 8 + 201 180 # 9 + 153 189 # 10 + 99 189 # 11 + 51 171 # 12 + 18 126 # 13 + 9 90 # 14 +279 69 90 90 60 # 15 left eye + 111 90 # 16 + 69 90 # 17 +279 150 90 171 60 # 18 right eye + 189 90 # 19 + 150 90 # 20 +279 129 90 141 120 # 21 nose + 120 120 # 22 + 129 90 # 23 +279 60 120 99 141 # 24 mouth + 99 150 # 25 + 120 150 # 26 + 120 141 # 27 + 141 141 # 28 + 141 150 # 29 + 159 150 # 30 + 159 141 # 31 + 180 129 # 32 + 201 111 # 33 + 180 150 # 34 + 150 171 # 35 + 111 171 # 36 + 80 150 # 37 + 60 120 # 38 +3 +279 108 21 120 9 # 39 Stem + 144 3 + 150 15 + 141 21 + 141 30 +0 diff --git a/basic/appleiibot/pumpkin2.bas b/basic/appleiibot/pumpkin2.bas new file mode 100644 index 00000000..3778c91f --- /dev/null +++ b/basic/appleiibot/pumpkin2.bas @@ -0,0 +1,5 @@ +0REM~$?.(<$L+P+Z(g+n2qEnSd]T`B`2Z'K$?~8??5F?8?~S?Z5`?S?~L?PIIIL?~5IBPBSISIPPPPSVSVP]LdF]SSZFZ;S5I"~E(I$Q"S&P(P+! +1HGR2:HCOLOR=5:DEFFNP(X)=3*PEEK(2054+I+X)-99 +2IFFNP(0)=3THENHCOLOR=1:I=I+1 +3IFFNP(0)=279THENHPLOTFNP(1),FNP(2):I=I+3 +4HPLOTTOFNP(0),FNP(1):I=I+2:IFFNP(0)GOTO2