riven_hgr: more images

mostly menu / story support

.gitignore

@@ -0,0 +1,36 @@
+*.o
+/utils/asoft_basic-utils/asoft_compact
+/utils/asoft_basic-utils/asoft_detoken
+/utils/asoft_basic-utils/bin2data
+/utils/asoft_basic-utils/integer_detoken
+/utils/asoft_basic-utils/tokenize_asoft
+/utils/asoft_presenter/asoft_presenter
+/utils/asoft_sound/asoft_sound
+/utils/bmp2dhr/b2d
+/utils/dos33fs-utils/char2hex
+/utils/dos33fs-utils/dos33
+/utils/dos33fs-utils/dos33_raw
+/utils/dos33fs-utils/dos33_text2ascii
+/utils/dos33fs-utils/make_b
+/utils/dos33fs-utils/mkdos33fs
+/utils/gr-utils/png2fourrle
+/utils/gr-utils/png2gr
+/utils/gr-utils/png2gr_text
+/utils/gr-utils/png2lz4
+/utils/gr-utils/png2raw
+/utils/gr-utils/png2rle
+/utils/gr-utils/png2six80
+/utils/gr-utils/png2sixbitmap
+/utils/gr-utils/png2sixrle
+/utils/gr-utils/png2sixrle2
+/utils/gr-utils/png_16x16
+/utils/gr-utils/png_to_40x48d
+/utils/gr-utils/png_to_40x96
+/utils/gr-utils/text2gr
+/utils/hgr-utils/dump_table
+/utils/hgr-utils/hgr2png
+/utils/hgr-utils/hgr_make_sprite
+/utils/hgr-utils/pcx2hgr
+/utils/hgr-utils/png2dhgr
+/utils/hgr-utils/png2hgr
+/utils/hgr-utils/shape_table

3d/Makefile

@@ -1,45 +0,0 @@
-include ../Makefile.inc
-
-DOS33 = ../dos33fs-utils/dos33
-TOKENIZE = ../asoft_basic-utils/tokenize_asoft
-PNG2DHGR = ../hgr-utils/png2dhgr
-
-all:	3d.dsk
-
-3d.dsk:	HELLO LOAD CUBE_WHITE.BIN CUBE_PINK.BIN CUBE_BLACK.BIN
-	cp empty.dsk 3d.dsk
-	$(DOS33) -y 3d.dsk SAVE A HELLO
-	$(DOS33) -y 3d.dsk SAVE A LOAD
-	$(DOS33) -y 3d.dsk BSAVE -a 0x2000 CUBE_WHITE.AUX
-	$(DOS33) -y 3d.dsk BSAVE -a 0x2000 CUBE_WHITE.BIN
-	$(DOS33) -y 3d.dsk BSAVE -a 0x2000 CUBE_BLACK.AUX
-	$(DOS33) -y 3d.dsk BSAVE -a 0x2000 CUBE_BLACK.BIN
-	$(DOS33) -y 3d.dsk BSAVE -a 0x2000 CUBE_PINK.AUX
-	$(DOS33) -y 3d.dsk BSAVE -a 0x2000 CUBE_PINK.BIN
-
-###
-
-CUBE_WHITE.BIN:	cube_white_bg.png
-	$(PNG2DHGR) ./cube_white_bg.png CUBE_WHITE
-
-CUBE_BLACK.BIN:	cube_black_bg.png
-	$(PNG2DHGR) ./cube_black_bg.png CUBE_BLACK
-
-CUBE_PINK.BIN:	cube_pink_bg.png
-	$(PNG2DHGR) ./cube_pink_bg.png CUBE_PINK
-
-###
-
-HELLO:  hello.bas
-	../asoft_basic-utils/tokenize_asoft < hello.bas > HELLO
-
-###
-
-LOAD:  load.bas
-	../asoft_basic-utils/tokenize_asoft < load.bas > LOAD
-
-####
-
-
-clean:	
-	rm -f *~ *.o LOAD HELLO *.BIN *.AUX

LICENSE

@@ -0,0 +1,8 @@
+
+This is a widely varies set of software and assets.
+
+In general any code purely written by me is under GPL 2.0
+
+There is some other code included here which has other licenses though
+so be careful if using it.
+

Makefile

@@ -1,64 +1,29 @@
 include Makefile.inc
 
 all:
-	cd asoft_basic-utils && make
-	cd asoft_presenter && make
-#	cd asoft_sound && make
-	cd bmp2dhr && make
-#	cd chiptune_player && make
-#	cd dlowres_mode7 && make
-	cd dos33fs-utils && make
-#	cd glados3.3 && make
-#	cd gr-sim && make
-#	cd gr-utils && make
-	cd hgr-utils && make
-#	cd mockingboard && make
-#	cd mode7 && make
-#	cd mode7_demo && make
-#	cd still_alive && make
-#	cd tfv && make
-#	cd two-liners && make
+	cd utils && make
 
 install:
-	cd asoft_basic-utils && make install
-	cd asoft_presenter && make install
-#	cd asoft_sound && make install
-#	cd chiptune_player && make install
-#	cd dlowres_mode7 && make install
-	cd dos33fs-utils && make install
-#	cd glados3.3 && make install
-#	cd gr-sim && make install
-#	cd gr-utils && make install
-	cd hgr-utils && make install
-#	cd mockingboard && make install
-#	cd mode7 && make install
-#	cd mode7_demo && make install
-#	cd still_alive && make install
-#	cd tfv && make install
-#	cd two-liners && make install
+	cd utils && make install
 
 clean:
-	cd asoft_basic-utils && make clean
-	cd asoft_presenter && make clean
-	cd asoft_sound && make clean
-	cd bmp2dhr && make clean
-	cd chiptune_debug && make clean
-	cd chiptune_player && make clean
-	cd dlowres_mode7 && make clean
-	cd dos33fs-utils && make clean
-	cd electric_duet && make clean
+	cd asm_routines && make clean
+	cd basic && make clean
+	cd basic && make clean
+	cd combo_disk && make clean
+	cd compression && make clean
+	cd demos && make clean
+	cd disk && make clean
+	cd docs && make clean
 	cd ethernet && make clean
-	cd glados3.3 && make clean
-	cd gr-sim && make clean
-	cd gr-utils && make clean
-	cd hgr-utils && make clean
-	cd ksp && make clean
-	cd mockingboard && make clean
-	cd mode7 && make clean
-	cd mode7_demo && make clean
-	cd still_alive && make clean
-	cd tfv && make clean
-	cd two-liners && make clean
+	cd games && make clean
+	cd graphics && make clean
+	cd joystick && make clean
+	cd linker_scripts && make clean
+	cd music && make clean
+	cd textmode && make clean
+	cd utils && make clean
+	cd vaporlock && make clean
 	rm -f *~
 
 test:

README

@@ -1,95 +1,64 @@
-%%%%%%%%%%%%
-dos33fsprogs
-%%%%%%%%%%%%
+DOS33fsprogs	-- v 0.9?
+=========================
 
-    http://www.deater.net/weave/vmwprod/apple/dos33fs.html
+by Vince "deater" Weaver, vince _at_ deater.net
 
-    by Vince Weaver <vince _at_ deater.net>
-    
+A somewhat increasingly innacurately named git repository containing
+most of my Apple II work.
 
-These are some tools for manipulating Apple II disk files that
-I've written over the years while doing Apple 2 hacking.
+Originally this just contained the dos33 tools found under ./utils/dos33*
+but now has a lot of other things.
 
 
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
++ asm_routines
+	some common assembly language routines (many are out of date)
 
++ basic
+	Applesoft BASIC and appleiibot code
 
-make_b : take a machine language blob and give it the size/offset
-         header needed to BLOAD it from DOS3.3
++ combo_disk
+	A script to generate a "combo" disk with lots of demos on it
 
++ compression
+	code compression tests
 
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-	 
++ demos
+	all of my various demoscene demos
 
-asoft_detoken: takes an applesoft file obtained with dos33
-               and converts it to an ASCII text file
++ disk
+	disk access code, mostly from qkumba
 
++ docs
+	various text documents
 
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
++ ethernet
+	code for accessing the Uthernet II, including a webserver in 
+	Applesoft BASIC
 
-	       
-tokenize_asoft: takes an ASCII text file and converts it
-                into a tokenized applesoft file
++ games
+	various games and demake games by me
 
++ graphics
+	where I develop/test out graphics code
 
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
++ joystick
+	where I develop/test out joystick code
 
++ linker_scripts
+	common linker scripts for ca65 assembler
 
-dos33:		a tool for manipulating dos33 .dsk images
++ music
+	mockingboard (ay-3-8910) demos/programs/routines
+	including the pt3_lib software
 
++ textmode
+	where I develop/test out textmode code
 
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
++ utils
+	various useful utilities for developing Apple II code under Linux
+	including graphics conversion routines and disk manipulation tools
 
++ vaporlock
+	where I develop/test out race-the-beam, mid-screen switching,
+	floating-bus and vaporlock code
 
-dos33_text2ascii: convert a dos33 text file to ASCII
-
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-
-integer_detoken: detokenize an Apple Integer BASIC program
-
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-
-pcx2hgr:	converts a 140x160 (or 140x192) PCX image file
-                into an Apple II HGR graphics file that can 
-		be loaded with "BLOAD IMAGE,A$2000"
-
-		To get it to work, create an image with the GIMP.
-		Scale to 140x160.  Save as indexed with the 
-		included "hgr.pal" palette.
-
-                It also works with 280x160 but in that case it ignores
-		colors and only generates black and white output.
-
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-
-mkdos33fs:	create an Apple ][ DOS 3.3 filesystems
-
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-asoft_presenter:
-
-    creates a slide presentation disk image for use on apple II
-
-    see README.presenter for more documentation
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-shape_table:  create an Apple shape table for use with
-              DRAW and XDRAW commands
-	      
-	      can generate BASIC code to load it (via DATA) or
-	      else a binary version that can be BLOADed
-	      
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-asoft_compact: tries to compress your Applesoft basic program
-               to make it as small as possible
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

asm_routines/Makefile

@@ -0,0 +1,6 @@
+all:
+
+
+clean:
+	rm -rf *~
+

asm_routines/README

@@ -0,0 +1,9 @@
+some common assembly language routines for Apple II
+
+for a while I was using this as a shared core of common code
+
+however it broke things when I'd improve the code and other locations
+sharing the code would depend on the old behavior.
+
+now I usually have copies of the code in each project, which of course
+can get out of date, but don't run the risk of causing breakage

asoft_basic-utils/Makefile

@@ -1,44 +0,0 @@
-include ../Makefile.inc
-
-all:	asoft_detoken tokenize_asoft integer_detoken asoft_compact bin2data
-
-
-asoft_compact:		asoft_compact.o
-			$(CC) $(LFLAGS) -o asoft_compact asoft_compact.o
-
-asoft_compact.o:	asoft_compact.c
-			$(CC) $(CFLAGS) -c asoft_compact.c
-
-asoft_detoken:		asoft_detoken.o
-			$(CC) $(LFLAGS) -o asoft_detoken asoft_detoken.o
-
-asoft_detoken.o:	asoft_detoken.c
-			$(CC) $(CFLAGS) -c asoft_detoken.c
-
-bin2data:		bin2data.o
-			$(CC) $(LFLAGS) -o bin2data bin2data.o
-
-bin2data.o:		bin2data.c
-			$(CC) $(CFLAGS) -c bin2data.c
-
-integer_detoken:	integer_detoken.o
-			$(CC) $(LFLAGS) -o integer_detoken integer_detoken.o
-
-integer_detoken.o:	integer_detoken.c
-			$(CC) $(CFLAGS) -c integer_detoken.c
-
-tokenize_asoft:		tokenize_asoft.o
-			$(CC) $(LFLAGS) -o tokenize_asoft tokenize_asoft.o
-
-tokenize_asoft.o:	tokenize_asoft.c
-			$(CC) $(CFLAGS) -c tokenize_asoft.c
-
-
-install:	
-		cp asoft_detoken tokenize_asoft integer_detoken $(INSTALL_LOC)
-
-clean:	
-		rm -f *~ *.o asoft_detoken tokenize_asoft bin2data \
-			integer_detoken asoft_compact float_convert
-
-

asoft_presenter/Makefile

@@ -1,20 +0,0 @@
-include ../Makefile.inc
-
-all:	asoft_presenter
-
-
-asoft_presenter:	asoft_presenter.o
-			$(CC) $(LFLAGS) -o asoft_presenter asoft_presenter.o
-
-asoft_presenter.o:	asoft_presenter.c
-			$(CC) $(CFLAGS) -c asoft_presenter.c
-
-
-install:	
-		cp asoft_presenter $(INSTALL_LOC)
-
-clean:		
-		rm -f *~ *.o asoft_presenter
-
-
-

asoft_sound/Makefile

@@ -1,16 +0,0 @@
-include ../Makefile.inc
-
-all:	asoft_sound
-
-asoft_sound:		asoft_sound.o
-			$(CC) $(LFLAGS) -o asoft_sound asoft_sound.o
-
-asoft_sound.o:	asoft_sound.c
-			$(CC) $(CFLAGS) -c asoft_sound.c
-
-
-install:	
-		cp asoft_sound $(INSTALL_LOC)
-
-clean:	
-		rm -f *~ *.o asoft_sound

asoft_sound/asoft_sound.c

@@ -1,265 +0,0 @@
-#include <stdio.h>
-#include <string.h>
-
-static int line=0;
-
-
-static int get_freq(int note, int octave, int flat, int sharp) {
-
-	if (octave==0) {
-
-	switch(note) {
-		case 'A':
-			if (sharp) return 143;
-			if (flat) return 161;
-			return 152;
-		case 'B':
-			if (flat) return 143;
-			return 135;
-		case 'C':
-			if (sharp) return 241;
-			return 255;
-		case 'D':
-			if (sharp) return 214;
-			if (flat) return 241;
-			return 227;
-		case 'E':
-			if (flat) return 214;
-			return 202;
-		case 'F':
-			if (sharp) return 180;
-			return 191;
-		case 'G':
-			if (sharp) return 161;
-			if (flat) return 180;
-			return 170;
-		default: fprintf(stderr,"Unknown note %c Line %d\n",
-					note,line);
-	}
-
-	} else
-
-	if (octave==1) {
-
-	switch(note) {
-		case 'A':
-			if (sharp) return 72;
-			if (flat) return 81;
-			return 76;
-		case 'B':
-			if (flat) return 72;
-			return 68;
-		case 'C':
-			if (sharp) return 121;
-			return 128;
-		case 'D':
-			if (sharp) return 108;
-			if (flat) return 121;
-			return 114;
-		case 'E':
-			if (flat) return 108;
-			return 102;
-		case 'F':
-			if (sharp) return 91;
-			return 96;
-		case 'G':
-			if (sharp) return 81;
-			if (flat) return 91;
-			return 85;
-		default: fprintf(stderr,"Unknown note %c\n",note);
-	}
-	} else
-
-	if (octave==2) {
-
-	switch(note) {
-		case 'A':
-			if (sharp) return 36;
-			if (flat) return 40;
-			return 38;
-		case 'B':
-			if (flat) return 36;
-			return 34;
-		case 'C':
-			if (sharp) return 60;
-			return 64;
-		case 'D':
-			if (sharp) return 54;
-			if (flat) return 60;
-			return 57;
-		case 'E':
-			if (flat) return 54;
-			return 51;
-		case 'F':
-			if (sharp) return 45;
-			return 48;
-		case 'G':
-			if (sharp) return 40;
-			if (flat) return 45;
-			return 43;
-		default: fprintf(stderr,"Unknown note %c\n",note);
-	}
-
-	} else {
-		fprintf(stderr,"Unknown octave %d!\n",octave);
-	}
-
-	return 0;
-}
-
-static int get_duration(int length) {
-
-	int d=0;
-
-	if (length==2) {
-		d=216;
-	} else if (length==4) {
-		d=108;
-	} else if (length==8) {
-		d=54;
-	} else if (length==16) {
-		d=27;
-	} else if (length==3) {
-		d=162;
-	} else {
-		fprintf(stderr,"Unknown duration %d Line %d\n",length,line);
-	}
-
-	return d;
-}
-
-static int get_rest(int length) {
-
-	int rest=0;
-
-	switch(length) {
-		case 1:	rest=128; break;
-		case 2: rest=64; break;
-		case 4: rest=32; break;
-		case 8: rest=16; break;
-		case 16: rest=8; break;
-		default: fprintf(stderr,"Unknown rest length %d Line %d!\n",
-				length,line);
-	}
-
-	return rest*5;
-}
-
-int main(int argc, char **argv) {
-
-	char string[BUFSIZ];
-	char *result;
-	int basic_line=100;
-	int i;
-	int length=8,last_length=0,duration;
-	int rest_length,sharp,flat;
-	int octave=1;
-	int freq;
-	int note;
-
-	/* Routine from http://eightbitsoundandfury.ld8.org/programming.html */
-	printf("40 FOR L = 770 TO 790: READ V: POKE L,V: NEXT L\n");
-	printf("41 DATA 173,48,192,136,208,5,206,1,3,240,9\n");
-	printf("42 DATA 202,208,245,174,0,3,76,2,3,96\n");
-	printf("43 GOTO 100\n");
-
-
-	/* Improved by Carlsson */
-	/* http://atariage.com/forums/topic/246369-music-in-applesoft-basic/ */
-	printf("50 DATA 173,48,192,174,0,3,202,240,247,234,234,136,208,248,206,1,3,208,243,96\n");
-	printf("51 FOR L=770 TO 789:READ V:POKE L,V:NEXT L\n");
-	printf("52 GOTO 100\n");
-
-	/* Lighter/faster by Carlsson */
-	printf("60 DATA 173,48,192,174,0,3,202,240,247,234,136,208,249,206,1,3,208,244,96\n");
-	printf("61 FOR L=770 TO 788:READ V:POKE L,V:NEXT L\n");
-	printf("62 GOTO 100\n");
-
-	/* Darker/lower by Calsson */
-	printf("70 DATA 173,48,192,174,0,3,202,240,247,234,234,234,136,208,247,206,1,3,208,242,96\n");
-	printf("71 FOR L=770 TO 790:READ V:POKE L,V:NEXT L\n");
-	printf("72 GOTO 100\n");
-
-	/* Violin sound: https://gist.github.com/thelbane/9291cc81ed0d8e0266c8 */
-	printf("80 DATA 172,1,3,173,0,3,133,250,174,0,3,228,250,208,3,173,48,"
-			"192,202,208,246,173,48,192,136,240,7,198,250,208,"
-			"233,76,5,3,96\n");
-	printf("81 FOR L=770 TO 804:READ V:POKE L,V:NEXT L\n");
-	printf("82 GOTO 100\n");
-
-	printf("90 POKE 768,F:POKE 769,D:CALL 770:RETURN\n");
-
-	while(1) {
-		result=fgets(string,BUFSIZ,stdin);
-		line++;
-		if (result==NULL) break;
-
-		if (string[0]=='\'') {
-			printf("%s",string);
-			continue;
-		}
-
-		i=0;
-		while(1) {
-
-			if (string[i]=='\n') break;
-			if (string[i]=='\0') break;
-			if ((string[i]==' ') || (string[i]=='\t')) {
-				i++;
-				continue;
-			}
-
-			if (string[i]=='<') {
-				octave--;
-			}
-			else if (string[i]=='>') {
-				octave++;
-			}
-			else if (string[i]=='L') {
-				i++;
-				length=string[i]-'0';
-				if ((length==1) && (string[i+1]=='6')) {
-					length=16;
-					i++;
-				}
-			}
-			else if (string[i]=='R') {
-				i++;
-				rest_length=get_rest(string[i]-'0');
-				printf("%d FOR I=1 TO %d: NEXT I\n",
-					basic_line,rest_length);
-				basic_line++;
-			}
-			else if ((string[i]>='A') && (string[i]<='G')) {
-				sharp=0; flat=0;
-				note=string[i];
-				if (string[i+1]=='#') {
-					sharp=1;
-					i++;
-				}
-				if (string[i+1]=='-') {
-					flat=1;
-					i++;
-				}
-				printf("%d ",basic_line);
-				if (length!=last_length) {
-					duration=get_duration(length);
-					printf("D=%d:",duration);
-					last_length=length;
-				}
-
-				freq=get_freq(note,octave,flat,sharp);
-
-				printf("F=%d:GOSUB 90\n",freq);
-				basic_line++;
-			}
-			else {
-				fprintf(stderr,"Unknown char %c\n",string[i]);
-			}
-			i++;
-
-		}
-	}
-
-	return 0;
-}

basic/Makefile

@@ -0,0 +1,11 @@
+all:
+	cd appleiibot && make
+	cd deceptive_list && make
+	cd two-liners && make
+
+clean:	
+	cd appleiibot && make clean
+	cd deceptive_list && make clean
+	cd two-liners && make clean
+	rm -f *~
+

basic/README

@@ -0,0 +1,10 @@
+Some Applesoft BASIC files
+
++ appleiibot
+	where I develop for the Apple II bot
+
++ deceptive_list
+	some initial deceptive list code
+
++ two-liners
+	some work on two-liner type programs

basic/appleiibot/4am.s

@@ -0,0 +1,52 @@
+PLOT    = $F800 ; plot, horiz=y, vert=A (A trashed, XY Saved)
+SETCOL  = $F864
+TEXT    = $FB36                         ;; Set text mode
+BASCALC = $FBC1
+SETGR   = $FB40
+HOME    = $FC58                         ;; Clear the text screen
+WAIT    = $FCA8                         ;; delay 1/2(26+27A+5A^2) us
+HLINE   = $F819
+
+
+bitmap:
+	jsr	SETGR
+
+	ldx	#0
+bitmap_loop:
+	lda	bitmap_graphic,X
+
+	jsr	PLOT
+	inx
+	cpx	#120
+	bne	bitmap_loop
+
+done:
+	jmp	done
+
+
+bitmap_graphic:
+.byte	$FF,$FF,$FF,$FF,$FF
+.byte	$00,$00,$00,$00,$00
+.byte	$FF,$FF,$FF,$FF,$FF
+.byte	$00,$00,$00,$00,$00
+.byte	$FF,$FF,$FF,$FF,$FF
+.byte	$00,$00,$00,$00,$00
+.byte	$FF,$FF,$FF,$FF,$FF
+.byte	$00,$00,$00,$00,$00
+.byte	$FF,$FF,$FF,$FF,$FF
+.byte	$00,$00,$00,$00,$00
+.byte	$FF,$FF,$FF,$FF,$FF
+.byte	$00,$00,$00,$00,$00
+.byte	$FF,$FF,$FF,$FF,$FF
+.byte	$00,$00,$00,$00,$00
+.byte	$FF,$FF,$FF,$FF,$FF
+.byte	$00,$00,$00,$00,$00
+.byte	$FF,$FF,$FF,$FF,$FF
+.byte	$00,$00,$00,$00,$00
+.byte	$FF,$FF,$FF,$FF,$FF
+.byte	$00,$00,$00,$00,$00
+.byte	$FF,$FF,$FF,$FF,$FF
+.byte	$00,$00,$00,$00,$00
+.byte	$FF,$FF,$FF,$FF,$FF
+.byte	$00,$00,$00,$00,$00
+

basic/appleiibot/Makefile

@@ -0,0 +1,898 @@
+include ../../Makefile.inc
+
+DOS33 = ../../utils/dos33fs-utils/dos33
+TOKENIZE = ../../utils/asoft_basic-utils/tokenize_asoft
+EMPTY_DISK = ../../empty_disk
+
+all:	appleiibot.dsk \
+	convert_to convert_back convert_qkumba make_boxes convert_vmw convert_tgreene make_hgr_boxes make_points
+
+appleiibot.dsk:	E2.BAS FLAME.BAS FLAME2.BAS HELLO \
+	CIRCLES.BAS AUTUMN.BAS QKUMBA.BAS ASTEROID.BAS PERSON.BAS SHIP.BAS \
+	CONCERT.BAS NYAN.BAS RASTER.BAS DHGR.BAS RASTER3.BAS LOTS.BAS LOAD \
+	RASTER4.BAS RASTER5.BAS PUMPKIN.BAS PUMPKIN_SMALL.BAS LADY.BAS \
+	A2.BAS FOURAM.BAS FLOPPY.BAS QR.BAS A2_4EVER.BAS RLE.BAS RLE2.BAS \
+	RLEASM.BAS HORIZON.BAS FLYER.BAS STAR.BAS HYPER.BAS FASTAR.BAS \
+	FASTAR2.BAS BIN.BAS FALLING.BAS SNOW.BAS XMAS.BAS AN3.BAS PLASMA.BAS \
+	C64.BAS SIERPINSKI.BAS FAKES.BAS SIER.BAS DROPS.BAS RR.BAS RR_HGR.BAS \
+	COMBO.BAS WIRES.BAS PATTERN.BAS BALL.BAS LINES.BAS MOD9.BAS \
+	XOR_ZOOM.BAS MOD9_HGR.BAS SIER_HGR.BAS MOVE.BAS SINE.BAS XDRAW128.BAS \
+	GATOR.BAS CURSOR.BAS STARGATE.BAS TUNNEL.BAS STARFIELD.BAS \
+	STAROOPS.BAS HGRSTARFIELD.BAS COOL_BOT.BAS WEB.BAS ORB.BAS \
+	FIREWORKS.BAS THINKING.BAS ARCS.BAS WIRE_HGR.BAS STATIC.BAS \
+	OVAL.BAS OVAL_HGR.BAS MOVING.BAS THICK_SINE.BAS TURKEY.BAS \
+	FLAME_HGR.BAS RECT.BAS SNOWY.BAS EDGAR.BAS OOPS4.BAS OOPS3.BAS \
+	HORROR.BAS DIAMOND.BAS LEMM.BAS OOPS.BAS SPLIT.BAS PARTICLE.BAS \
+	PARTICLE_HGR.BAS DIAMOND_SCROLL.BAS RANDOM_SCROLL.BAS STAR_BOUNCE.BAS\
+	OOZE.BAS HORIZ_STAR.BAS PLANET.BAS SECRET_COLLECT.BAS PLANET_GR.BAS \
+	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 \
+	PUMPKIN2.BAS TWITTER.BAS XTREE.BAS CHEAT.BAS TWISTER.BAS
+	cp $(EMPTY_DISK)/empty_lots_of_dirents.dsk  appleiibot.dsk
+#	cp empty.dsk appleiibot.dsk
+#	$(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
+	$(DOS33) -y appleiibot.dsk SAVE A HELLO
+	$(DOS33) -y appleiibot.dsk SAVE A E2.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A FLAME.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A FLAME2.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A AUTUMN.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A CIRCLES.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A QKUMBA.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A ASTEROID.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A PERSON.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A SHIP.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A NYAN.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A CONCERT.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A RASTER.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A DHGR.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A RASTER3.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A RASTER4.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A RASTER5.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A LOTS.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A PUMPKIN.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A PUMPKIN_SMALL.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A LADY.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A A2.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A FOURAM.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A FLOPPY.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A QR.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A A2_4EVER.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A RLE.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A RLE2.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A RLEASM.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A HORIZON.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A FLYER.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A STAR.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A HYPER.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A FASTAR.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A FASTAR2.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A BIN.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A FALLING.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A SNOW.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A XMAS.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A AN3.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A PLASMA.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A C64.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A SIERPINSKI.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A FAKES.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A SIER.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A DROPS.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A RR.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A RR_HGR.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A COMBO.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A WIRES.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A PATTERN.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A BALL.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A LINES.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A MOD9.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A XOR_ZOOM.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A MOD9_HGR.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A SIER_HGR.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A MOVE.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A SINE.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A XDRAW128.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A GATOR.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A CURSOR.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A STARGATE.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A TUNNEL.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A STARFIELD.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A STAROOPS.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A HGRSTARFIELD.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A COOL_BOT.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A WEB.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A ORB.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A FIREWORKS.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A THINKING.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A ARCS.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A WIRE_HGR.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A STATIC.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A OVAL.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A OVAL_HGR.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A MOVING.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A THICK_SINE.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A TURKEY.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A FLAME_HGR.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A RECT.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A SNOWY.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A EDGAR.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A OOPS4.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A OOPS3.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A HORROR.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A DIAMOND.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A LEMM.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A OOPS.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A SPLIT.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A PARTICLE.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A PARTICLE_HGR.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A DIAMOND_SCROLL.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A RANDOM_SCROLL.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A STAR_BOUNCE.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A OOZE.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A HORIZ_STAR.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A SECRET_COLLECT.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A PLANET.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A PLANET_GR.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A BOXES.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A SOLARIS.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A SOLARIS2.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A ASPLODE.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A SOLARIS3.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A TARGET.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A ELITE.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A MYSTERY.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A OFFICE.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A GR_XOR.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A LARGE_XOR.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A PAR_XOR.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A PAR_HGR.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A SIER_XOR.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A PATTERN_LOGO.BAS
+	$(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_CUBE.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A MOON.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A PUMPKIN2.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A TWITTER.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A XTREE.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A CHEAT.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A TWISTER.BAS
+
+
+####
+
+HELLO:	hello.bas
+	$(TOKENIZE) < hello.bas > HELLO
+
+###
+
+make_boxes:	make_boxes.o
+	$(CC) $(LFLAGS) -o make_boxes make_boxes.o
+
+make_boxes.o:	make_boxes.c
+	$(CC) $(CFLAGS) -c make_boxes.c
+
+###
+
+make_points:	make_points.o
+	$(CC) $(LFLAGS) -o make_points make_points.o
+
+make_points.o:	make_points.c
+	$(CC) $(CFLAGS) -c make_points.c
+
+###
+
+make_hgr_boxes:	make_hgr_boxes.o
+	$(CC) $(LFLAGS) -o make_hgr_boxes make_hgr_boxes.o
+
+make_hgr_boxes.o:	make_hgr_boxes.c
+	$(CC) $(CFLAGS) -c make_hgr_boxes.c
+
+
+###
+
+convert_to:	convert_to.o
+	$(CC) $(LFLAGS) -o convert_to convert_to.o
+
+convert_to.o:	convert_to.c
+	$(CC) $(CFLAGS) -c convert_to.c
+
+###
+
+convert_qkumba:	convert_qkumba.o
+	$(CC) $(LFLAGS) -o convert_qkumba convert_qkumba.o
+
+convert_qkumba.o:	convert_qkumba.c
+	$(CC) $(CFLAGS) -c convert_qkumba.c
+
+###
+
+convert_vmw:	convert_vmw.o
+	$(CC) $(LFLAGS) -o convert_vmw convert_vmw.o
+
+convert_vmw.o:	convert_vmw.c
+	$(CC) $(CFLAGS) -c convert_vmw.c
+
+###
+
+convert_tgreene:	convert_tgreene.o
+	$(CC) $(LFLAGS) -o convert_tgreene convert_tgreene.o
+
+convert_tgreene.o:	convert_tgreene.c
+	$(CC) $(CFLAGS) -c convert_tgreene.c
+
+
+###
+
+convert_back:	convert_back.o
+	$(CC) $(LFLAGS) -o convert_back convert_back.o
+
+convert_back.o:	convert_back.c
+	$(CC) $(CFLAGS) -c convert_back.c
+
+
+###
+
+LOAD:	load.o
+	ld65 -o LOAD load.o -C ../../linker_scripts/apple2_300.inc
+
+load.o:	load.s
+	ca65 -o load.o load.s -l load.lst
+
+####
+
+ARCS.BAS:	arcs.bas
+	$(TOKENIZE) < arcs.bas > ARCS.BAS
+
+####
+
+QKUMBA2.BAS:	qkumba_seasons.bas
+	$(TOKENIZE) < qkumba_seasons.bas > QKUMBA2.BAS
+
+####
+
+QKUMBA.BAS:	qkumba_autumn.bas
+	$(TOKENIZE) < qkumba_autumn.bas > QKUMBA.BAS
+
+####
+
+CONCERT.BAS:	concert.bas
+	$(TOKENIZE) < concert.bas > CONCERT.BAS
+
+####
+
+NYAN.BAS:	nyan.bas
+	$(TOKENIZE) < nyan.bas > NYAN.BAS
+
+####
+
+MOD9.BAS:	mod9.bas
+	$(TOKENIZE) < mod9.bas > MOD9.BAS
+
+####
+
+XDRAW128.BAS:	xdraw128.bas
+	$(TOKENIZE) < xdraw128.bas > XDRAW128.BAS
+
+
+####
+
+MOD9_HGR.BAS:	mod9_hgr.bas
+	$(TOKENIZE) < mod9_hgr.bas > MOD9_HGR.BAS
+
+####
+
+SIER_HGR.BAS:	sier_hgr.bas
+	$(TOKENIZE) < sier_hgr.bas > SIER_HGR.BAS
+
+####
+
+XOR_ZOOM.BAS:	xor_zoom.bas
+	$(TOKENIZE) < xor_zoom.bas > XOR_ZOOM.BAS
+
+
+####
+
+FALLING.BAS:	falling.bas
+	$(TOKENIZE) < falling.bas > FALLING.BAS
+
+####
+
+SNOW.BAS:	snow.bas
+	$(TOKENIZE) < snow.bas > SNOW.BAS
+
+####
+
+SNOWY.BAS:	snowy.bas
+	$(TOKENIZE) < snowy.bas > SNOWY.BAS
+
+####
+
+THICK_SINE.BAS:	thick_sine.bas
+	$(TOKENIZE) < thick_sine.bas > THICK_SINE.BAS
+
+####
+
+MOVE.BAS:	move.bas
+	$(TOKENIZE) < move.bas > MOVE.BAS
+
+####
+
+SINE.BAS:	sine.bas
+	$(TOKENIZE) < sine.bas > SINE.BAS
+
+####
+
+TURKEY.BAS:	turkey.bas
+	$(TOKENIZE) < turkey.bas > TURKEY.BAS
+
+####
+
+XMAS.BAS:	xmas.bas
+	$(TOKENIZE) < xmas.bas > XMAS.BAS
+
+####
+
+AN3.BAS:	an3.bas
+	$(TOKENIZE) < an3.bas > AN3.BAS
+
+####
+
+PLASMA.BAS:	plasma.bas
+	$(TOKENIZE) < plasma.bas > PLASMA.BAS
+
+####
+
+C64.BAS:	c64.bas
+	$(TOKENIZE) < c64.bas > C64.BAS
+
+
+####
+
+E2.BAS:	entropy_small.bas
+	$(TOKENIZE) < entropy_small.bas > E2.BAS
+
+####
+
+BIN.BAS:	bin.bas
+	$(TOKENIZE) < bin.bas > BIN.BAS
+
+####
+
+GATOR.BAS:	gator.bas
+	$(TOKENIZE) < gator.bas > GATOR.BAS
+
+####
+
+CURSOR.BAS:	cursor.bas
+	$(TOKENIZE) < cursor.bas > CURSOR.BAS
+
+####
+
+STARGATE.BAS:	stargate.bas
+	$(TOKENIZE) < stargate.bas > STARGATE.BAS
+
+####
+
+TUNNEL.BAS:	tunnel.bas
+	$(TOKENIZE) < tunnel.bas > TUNNEL.BAS
+
+####
+
+STARFIELD.BAS:	starfield.bas
+	$(TOKENIZE) < starfield.bas > STARFIELD.BAS
+
+####
+
+STAROOPS.BAS:	staroops.bas
+	$(TOKENIZE) < staroops.bas > STAROOPS.BAS
+
+
+
+####
+
+FLAME2.BAS:	flame2.bas
+	$(TOKENIZE) < flame2.bas > FLAME2.BAS
+
+
+####
+
+FLAME.BAS:	flame.bas
+	$(TOKENIZE) < flame.bas > FLAME.BAS
+
+####
+
+AUTUMN.BAS:	autumn.bas
+	$(TOKENIZE) < autumn.bas > AUTUMN.BAS
+
+####
+
+CIRCLES.BAS:	circles.bas
+	$(TOKENIZE) < circles.bas > CIRCLES.BAS
+
+####
+
+ASTEROID.BAS:	asteroid.bas
+	$(TOKENIZE) < asteroid.bas > ASTEROID.BAS
+
+####
+
+PERSON.BAS:	person.bas
+	$(TOKENIZE) < person.bas > PERSON.BAS
+
+####
+
+SHIP.BAS:	ship.bas
+	$(TOKENIZE) < ship.bas > SHIP.BAS
+
+####
+
+RASTER.BAS:	raster.bas
+	$(TOKENIZE) < raster.bas > RASTER.BAS
+
+####
+
+DHGR.BAS:	dhgr.bas
+	$(TOKENIZE) < dhgr.bas > DHGR.BAS
+
+####
+
+RASTER3.BAS:	raster3.bas
+	$(TOKENIZE) < raster3.bas > RASTER3.BAS
+
+####
+
+RASTER4.BAS:	raster4.bas
+	$(TOKENIZE) < raster4.bas > RASTER4.BAS
+
+
+####
+
+RASTER5.BAS:	raster5.bas
+	$(TOKENIZE) < raster5.bas > RASTER5.BAS
+
+####
+
+PUMPKIN.BAS:	pumpkin.bas
+	$(TOKENIZE) < pumpkin.bas > PUMPKIN.BAS
+
+####
+
+LADY.BAS:	lady.bas
+	$(TOKENIZE) < lady.bas > LADY.BAS
+
+####
+
+PUMPKIN_SMALL.BAS:	pumpkin_small.bas
+	$(TOKENIZE) < pumpkin_small.bas > PUMPKIN_SMALL.BAS
+
+####
+
+LOTS.BAS:	lots.bas
+	$(TOKENIZE) < lots.bas > LOTS.BAS
+
+####
+
+A2.BAS:	a2.bas
+	$(TOKENIZE) < a2.bas > A2.BAS
+
+####
+
+A2_4EVER.BAS:	a2_4ever.bas
+	$(TOKENIZE) < a2_4ever.bas > A2_4EVER.BAS
+
+
+####
+
+FOURAM.BAS:	fouram.bas
+	$(TOKENIZE) < fouram.bas > FOURAM.BAS
+
+####
+
+FLOPPY.BAS:	floppy.bas
+	$(TOKENIZE) < floppy.bas > FLOPPY.BAS
+
+
+####
+
+QR.BAS:	qr.bas
+	$(TOKENIZE) < qr.bas > QR.BAS
+
+####
+
+THINKING.BAS:	thinking.bas
+	$(TOKENIZE) < thinking.bas > THINKING.BAS
+
+####
+
+RLE.BAS:	rle.bas
+	$(TOKENIZE) < rle.bas > RLE.BAS
+
+####
+
+RLE2.BAS:	rle2.bas
+	$(TOKENIZE) < rle2.bas > RLE2.BAS
+
+####
+
+RLEASM.BAS:	rleasm.bas
+	$(TOKENIZE) < rleasm.bas > RLEASM.BAS
+
+####
+
+HORIZON.BAS:	horizon.bas
+	$(TOKENIZE) < horizon.bas > HORIZON.BAS
+
+####
+
+FLYER.BAS:	flyer.bas
+	$(TOKENIZE) < flyer.bas > FLYER.BAS
+
+####
+
+STAR.BAS:	star.bas
+	$(TOKENIZE) < star.bas > STAR.BAS
+
+####
+
+FASTAR.BAS:	fastar.bas
+	$(TOKENIZE) < fastar.bas > FASTAR.BAS
+
+####
+
+FASTAR2.BAS:	fastar2.bas
+	$(TOKENIZE) < fastar2.bas > FASTAR2.BAS
+
+
+####
+
+HYPER.BAS:	hyper.bas
+	$(TOKENIZE) < hyper.bas > HYPER.BAS
+
+
+####
+
+FAKES.BAS:	fakes.bas
+	$(TOKENIZE) < fakes.bas > FAKES.BAS
+
+####
+
+SIER.BAS:	sier.bas
+	$(TOKENIZE) < sier.bas > SIER.BAS
+
+####
+
+DROPS.BAS:	drops.bas
+	$(TOKENIZE) < drops.bas > DROPS.BAS
+
+####
+
+WIRE_HGR.BAS:	wire_hgr.bas
+	$(TOKENIZE) < wire_hgr.bas > WIRE_HGR.BAS
+
+####
+
+STATIC.BAS:	static.bas
+	$(TOKENIZE) < static.bas > STATIC.BAS
+
+####
+
+RR.BAS:	rr.bas
+	$(TOKENIZE) < rr.bas > RR.BAS
+
+####
+
+RR_HGR.BAS:	rr_hgr.bas
+	$(TOKENIZE) < rr_hgr.bas > RR_HGR.BAS
+
+####
+
+COMBO.BAS:	combo.bas
+	$(TOKENIZE) < combo.bas > COMBO.BAS
+
+####
+
+WIRES.BAS:	wires.bas
+	$(TOKENIZE) < wires.bas > WIRES.BAS
+
+####
+
+PATTERN.BAS:	pattern.bas
+	$(TOKENIZE) < pattern.bas > PATTERN.BAS
+
+####
+
+BALL.BAS:	ball.bas
+	$(TOKENIZE) < ball.bas > BALL.BAS
+
+####
+
+LINES.BAS:	lines.bas
+	$(TOKENIZE) < lines.bas > LINES.BAS
+
+####
+
+HGRSTARFIELD.BAS:	hgrstarfield.bas
+	$(TOKENIZE) < hgrstarfield.bas > HGRSTARFIELD.BAS
+
+
+####
+
+SIERPINSKI.BAS:	sierpinski.bas
+	$(TOKENIZE) < sierpinski.bas > SIERPINSKI.BAS
+
+####
+
+COOL_BOT.BAS:	cool_bot.bas
+	$(TOKENIZE) < cool_bot.bas > COOL_BOT.BAS
+
+####
+
+WEB.BAS:	web.bas
+	$(TOKENIZE) < web.bas > WEB.BAS
+
+####
+
+OVAL.BAS:	oval.bas
+	$(TOKENIZE) < oval.bas > OVAL.BAS
+
+####
+
+MOVING.BAS:	moving.bas
+	$(TOKENIZE) < moving.bas > MOVING.BAS
+
+####
+
+OVAL_HGR.BAS:	oval_hgr.bas
+	$(TOKENIZE) < oval_hgr.bas > OVAL_HGR.BAS
+
+
+####
+
+ORB.BAS:	orb.bas
+	$(TOKENIZE) < orb.bas > ORB.BAS
+
+####
+
+RECT.BAS:	rect.bas
+	$(TOKENIZE) < rect.bas > RECT.BAS
+
+####
+
+EDGAR.BAS:	edgar.bas
+	$(TOKENIZE) < edgar.bas > EDGAR.BAS
+
+####
+
+CHEAT.BAS:	cheat.bas
+	$(TOKENIZE) < cheat.bas > CHEAT.BAS
+
+####
+
+TWISTER.BAS:	twister.bas
+	$(TOKENIZE) < twister.bas > TWISTER.BAS
+
+####
+
+OOPS4.BAS:	oops4.bas
+	$(TOKENIZE) < oops4.bas > OOPS4.BAS
+
+####
+
+OOPS3.BAS:	oops3.bas
+	$(TOKENIZE) < oops3.bas > OOPS3.BAS
+
+####
+
+OOPS.BAS:	oops.bas
+	$(TOKENIZE) < oops.bas > OOPS.BAS
+
+
+####
+
+FIREWORKS.BAS:	fireworks.bas
+	$(TOKENIZE) < fireworks.bas > FIREWORKS.BAS
+
+####
+
+FLAME_HGR.BAS:	flame_hgr.bas
+	$(TOKENIZE) < flame_hgr.bas > FLAME_HGR.BAS
+
+####
+
+HORROR.BAS:	horror.bas
+	$(TOKENIZE) < horror.bas > HORROR.BAS
+
+####
+
+DIAMOND.BAS:	diamond.bas
+	$(TOKENIZE) < diamond.bas > DIAMOND.BAS
+
+####
+
+LEMM.BAS:	lemm.bas
+	$(TOKENIZE) < lemm.bas > LEMM.BAS
+
+####
+
+SPLIT.BAS:	split.bas
+	$(TOKENIZE) < split.bas > SPLIT.BAS
+
+####
+
+PARTICLE.BAS:	particle.bas
+	$(TOKENIZE) < particle.bas > PARTICLE.BAS
+####
+
+PARTICLE_HGR.BAS:	particle_hgr.bas
+	$(TOKENIZE) < particle_hgr.bas > PARTICLE_HGR.BAS
+
+####
+
+DIAMOND_SCROLL.BAS:	diamond_scroll.bas
+	$(TOKENIZE) < diamond_scroll.bas > DIAMOND_SCROLL.BAS
+
+####
+
+RANDOM_SCROLL.BAS:	random_scroll.bas
+	$(TOKENIZE) < random_scroll.bas > RANDOM_SCROLL.BAS
+
+####
+
+STAR_BOUNCE.BAS:	star_bounce.bas
+	$(TOKENIZE) < star_bounce.bas > STAR_BOUNCE.BAS
+
+####
+
+OOZE.BAS:	ooze.bas
+	$(TOKENIZE) < ooze.bas > OOZE.BAS
+
+####
+
+HORIZ_STAR.BAS:	horiz_star.bas
+	$(TOKENIZE) < horiz_star.bas > HORIZ_STAR.BAS
+
+####
+
+SECRET_COLLECT.BAS:	secret_collect.bas
+	$(TOKENIZE) < secret_collect.bas > SECRET_COLLECT.BAS
+
+####
+
+PLANET.BAS:	planet.bas
+	$(TOKENIZE) < planet.bas > PLANET.BAS
+
+####
+
+PLANET_GR.BAS:	planet_gr.bas
+	$(TOKENIZE) < planet_gr.bas > PLANET_GR.BAS
+
+####
+
+BOXES.BAS:	boxes.bas
+	$(TOKENIZE) < boxes.bas > BOXES.BAS
+
+####
+
+SOLARIS.BAS:	solaris.bas
+	$(TOKENIZE) < solaris.bas > SOLARIS.BAS
+
+####
+
+SOLARIS2.BAS:	solaris2.bas
+	$(TOKENIZE) < solaris2.bas > SOLARIS2.BAS
+
+####
+
+SOLARIS3.BAS:	solaris3.bas
+	$(TOKENIZE) < solaris3.bas > SOLARIS3.BAS
+
+
+####
+
+ASPLODE.BAS:	asplode.bas
+	$(TOKENIZE) < asplode.bas > ASPLODE.BAS
+
+####
+
+TARGET.BAS:	target.bas
+	$(TOKENIZE) < target.bas > TARGET.BAS
+
+####
+
+ELITE.BAS:	elite.bas
+	$(TOKENIZE) < elite.bas > ELITE.BAS
+
+####
+
+MYSTERY.BAS:	mystery.bas
+	$(TOKENIZE) < mystery.bas > MYSTERY.BAS
+
+
+####
+
+OFFICE.BAS:	office.bas
+	$(TOKENIZE) < office.bas > OFFICE.BAS
+
+####
+
+GR_XOR.BAS:	gr_xor.bas
+	$(TOKENIZE) < gr_xor.bas > GR_XOR.BAS
+
+####
+
+LARGE_XOR.BAS:	large_xor.bas
+	$(TOKENIZE) < large_xor.bas > LARGE_XOR.BAS
+
+####
+
+PAR_XOR.BAS:	par_xor.bas
+	$(TOKENIZE) < par_xor.bas > PAR_XOR.BAS
+
+####
+
+PAR_HGR.BAS:	par_hgr.bas
+	$(TOKENIZE) < par_hgr.bas > PAR_HGR.BAS
+
+####
+
+SIER_XOR.BAS:	sier_xor.bas
+	$(TOKENIZE) < sier_xor.bas > SIER_XOR.BAS
+
+####
+
+PATTERN_LOGO.BAS:	pattern_logo.bas
+	$(TOKENIZE) < pattern_logo.bas > PATTERN_LOGO.BAS
+
+####
+
+GEARS.BAS:	gears.bas
+	$(TOKENIZE) < gears.bas > GEARS.BAS
+
+####
+
+DSR_LORES.BAS:	dsr_lores.bas
+	$(TOKENIZE) < dsr_lores.bas > DSR_LORES.BAS
+
+####
+
+A2_LORES.BAS:	a2_lores.bas
+	$(TOKENIZE) < a2_lores.bas > A2_LORES.BAS
+
+####
+
+MOON.BAS:	moon.bas
+	$(TOKENIZE) < moon.bas > MOON.BAS
+
+####
+
+PUMPKIN2.BAS:	pumpkin2.bas
+	$(TOKENIZE) < pumpkin2.bas > PUMPKIN2.BAS
+
+####
+
+TWITTER.BAS:	twitter.bas
+	$(TOKENIZE) < twitter.bas > TWITTER.BAS
+
+####
+
+XTREE.BAS:	xtree.bas
+	$(TOKENIZE) < xtree.bas > XTREE.BAS
+
+
+
+####
+
+MAGIC_CUBE.BAS:	magic_cube.bas
+	$(TOKENIZE) < magic_cube.bas > MAGIC_CUBE.BAS
+
+
+
+
+
+####
+
+clean:
+	rm -f *~ *.o *.lst convert_to convert_from convert_qkumba convert_vmw make_boxes convert_back convert_tgreene LOAD *.BAS make_hgr_boxes

basic/appleiibot/README

@@ -0,0 +1,22 @@
+This is where I develop the various things I send to the twitter
+AppleIIbot.
+
+For more info see here:
+	http://www.deater.net/weave/vmwprod/appleiibot/
+
+For the sources to the assembly language demos:
+	flame is in ../fire
+	autumn/seasons is in ../seasons
+	the double-hires demos are in ../dhgr
+
+tools:
+	./convert_qkumba will take a 128 byte or smaller binary
+		designed to run at $300 and create a basic loader for it
+
+	../asoft_basic-utils/tokenize_asoft will tokenize your basic program
+
+	../hgr-utils/shape_table lets you edit shape tables as a text file
+
+
+See: README.PACKER for how the packers work
+

basic/appleiibot/a2.bas

@@ -0,0 +1,2 @@
+0REM/ G O(*;!K-#4HI-#6DG-%7@C-(8<?('.CF((2DG(-2??%#4JK%&3LM(47LM(<<(6-)8":(*5$8 +4&7(BB5I(BD3H%<C34%;A56-9A7K :@8@ :@BJ%;@<<%;@FF#???@#??IJ%=>9>%=>CH,77"#
+1DEFFNP(X)=PEEK(2054+I*5+X)-32:GR:POKE49234,0:FORI=0TO29:COLOR=FNP(0):FORY=FNP(3)TOFNP(4):HLINFNP(1),FNP(2)ATY:NEXTY,I:GETA

basic/appleiibot/a2.data

@@ -0,0 +1,30 @@
+15	0	39	0	47	; background
+8	10	27	1	43	; monitor back	
+13	3	20	40	41	; base bottom
+13	3	22	36	39	; base middle
+13	5	23	32	35	; base top
+13	8	24	28	31	; base tip
+8	7	14	35	38	; keyboard
+8	8	18	36	39	; keyboard
+8	13	18	31	31	; logo
+5	3	20	42	43	; base
+5	6	19	44	45	; base
+8	20	23	44	45	; base brown
+8	28	28	8	22	; monitor back
+13	9	24	2	26	; monitor
+8	10	21	4	24	; bezel
+0	11	20	6	23	; screen
+8	34	34	21	41	; drive side
+8	34	36	19	40	; drive side
+5	28	35	19	20	; drive top
+5	27	33	21	22	; drive top
+13	25	33	23	43	; drive outline
+0	26	32	24	32	; drive 1
+0	26	32	34	42	; drive 2
+5	27	32	28	28	; drive 1 slot
+5	27	32	38	38	; drive 2 slot
+3	31	31	31	32	; drive 1 logo
+3	31	31	41	42	; drive 2 logo
+5	29	30	25	30	; drive 1 door
+5	29	30	35	40	; drive 2 door
+12	23	23	2	3	; monitor power

basic/appleiibot/a2_4ever.bas

@@ -0,0 +1,4 @@
+1REM______/X__  X_______N__[WO_/   # [& .<'^?^O_C_CC_[W=__.X.X.XN#W?W]_[N[N[N[NM_=W_O'N#G#GS!XP=X_Y[NGNGN\O[WO_? X@[@#. .  ^__O[O[__________@_@__
+2PR#3:FORY=0TO140:Z=PEEK(2054+Y)-32:FORI=0TO5:NORMAL:Q%=Z/2:IFQ%*2-ZTHENINVERSE
+3Z=Q%:?" ";:NEXTI,Y
+4?"F O R E V E R";

basic/appleiibot/a2_lores.bas

@@ -0,0 +1,2 @@
+1FORI=0TO139:POKE876+I,4*PEEK(2125+I)-204+(PEEK(2265+I/3)-35)/4^(I-INT(I/3)*3):NEXT
+2&"-ho<Gc<HcP<U:7pVj\;XOU;XAe7n[3W7]5:7n[mT2\o5;Hp[:SrWq`FTa2`CG^3U[3;3qW2]+RrIjJ/:]3_4WqLq;Li96qec1l4br7lmgdcr.blhZq=;9IVV_3gMd9><<MD58>@>3FK3[++Q'=)@+&53+?-,69G*`%#5IP3#8%C#S-%<GI$41[$:N$/

basic/appleiibot/an3.bas

@@ -0,0 +1,4 @@
+1HGR:HTAB11:?"ANNUNCIATOR3 TEST":FORI=0TO159:C=C+1:IFC>7THENC=0
+2HCOLOR=C:HPLOT0,ITO279,I:NEXT
+3POKE49246,0:FORI=1TO1000:NEXT:POKE49247,1:FORI=1TO1000:NEXT:GOTO3
+

basic/appleiibot/arcs.bas

@@ -0,0 +1,2 @@
+0CALL2225"\Y:AYY^`>7B6\GX^Yg2jV:d6:;2O6;2j>UW_OjU5
+1"),G;aE`6]N4`U0b5$38aU/b5_&&W`U/)(`6.QJ(W`U/)(`V?`6`F,;_6`V`%`V?$8`%)a5a%#8a%C7[$?CX/b&b7\#?DW/b%b8[#@U%_^A9&7\#?c5bW\O4"******GRASCDEFITa!DEL0GR)@I\q}F0jjjjjjjF0jFORLOGASCsONERR0)}=LENpPOSlo

basic/appleiibot/asplode.bas

@@ -0,0 +1,5 @@
+0REM~&!:):C&`~:)d)dC:C~dCz`~d)y!~L+T+X2X8V=R@L@I=F8F2L+~N<R<R>N>N<~K.I2H8L=L;N9R9T;T=V7V2T.~K.J3P9T3T.T0P6L1K.~L5L7N8R8S7R5~N3N1R1R3!
+1HGR:HCOLOR=5:DEFFNP(X)=3*PEEK(2054+I+X)-99
+2IFFNP(0)=279THENHPLOTFNP(1),FNP(2):I=I+3
+3HPLOTTOFNP(0),FNP(1):I=I+2:IFFNP(0)GOTO2
+4?"HEAD A SPLODE"

basic/appleiibot/asplode.points

@@ -0,0 +1,50 @@
+279	16	0	77	25	#  0 Upper left
+	77	103			#  1 Down
+	15	189			#  2 Lower left
+279	77	25	201	25	#  3 Right
+	201	103			#  4 Down
+	77	103			#  5 Done square
+279	201	103	267	189	#  6 Lower Right
+279	201	25	266	0	#  7 Upper right
+279	129	30	153	30	#  8 Top head
+	165	51			#  9 Right head
+	165	69			# 10 Side head
+	159	84			# 11 Side head
+	147	93			# 12 Bottom right
+	129	93			# 13 Bottom head
+	120	84			# 14 Bottom left
+	111	69			# 15 Left
+	111	51			# 16 Left
+	129	30			# 17 Top Left
+279	135	81	147	81	# 18 Top mouth
+	147	89			# 19 Right mouth
+	135	89			# 20 Bottom Mouth
+	135	81			# 21 Left Mouth
+279	126	39	120	51	# 22 Left Horn
+	117	69			# 23 Left
+	129	84			# 24 Left
+	129	78			# 25 Left
+	135	72			# 26 Nose
+	147	72			# 27 Right
+	153	78			# 28 Right
+	153	84
+	159	66			# 29 Right
+	159	51			# 30 Right
+	153	39			# 31 Right Horn
+279	127	39	123	54	# 32 Left Horn again
+	141	72			# 34
+	153	54
+	153	39			# Right Horn again
+	153	45
+	141	63			# Bottom point
+	129	48
+	127	39			# Back at start
+279	129	60	129	66	# Left Eye
+	135	69
+	147	69
+	150	66
+	147	60
+279	135	54	135	48	# Shield
+	147	48
+	147	54
+0

basic/appleiibot/asteroid.bas

@@ -0,0 +1,8 @@
+0 HGR2:POKE232,0:POKE233,3:FOR L=768TO777:READB:POKEL,B:NEXT:DATA 1,0,4,0,58,36,45,54,7,0
+1 SCALE=20:R=0
+5 FOR I=1 TO 5:X(I)=INT(RND(1)*192)+1:Y(I)=INT(RND(1)*192)+1:NEXT I
+30 ROT=R:R=R+1
+38 FOR I=1 TO 5:XDRAW 1 AT X(I),Y(I):NEXT I
+45 FOR I=1 TO 5:XDRAW 1 AT X(I),Y(I):NEXT I
+90 GOTO 30
+

basic/appleiibot/asteroid.shape

@@ -0,0 +1,10 @@
+# Number of shapes
+1
+START
+NDN
+LT UP UP
+RT RT
+DN DN
+LT
+STOP
+

basic/appleiibot/autumn.bas

@@ -0,0 +1,3 @@
+2 FOR X=0TO116:A=(PEEK(2264+X/2)-32)/4:IFJTHENA=(A-INT(A))*4
+3 J=NOTJ:POKE768+X,(PEEK(2147+X)-32)*4+A:NEXT:CALL768
+9 REM (V\I]I]B.Y^A]FY^R@:A]9]&B9^A^F9^R@:A^9^9^9^9_9_L'Y_T Y_I]:@A]D Y].J Y^A^J Y^A^I_")_1_A_*!" JI^,HI]*\TG([]I]I]I^(5]3   .(.!!(%$).()! %$)&"*."$&(*-)!(*,$$$$%%&*--)-*%#'$! *(- ,#,

basic/appleiibot/ball.bas

@@ -0,0 +1,2 @@
+1FORI=0TO140:POKE875+I,4*PEEK(2125+I)-192+(PEEK(2266+I/3)-35)/4^(I-INT(I/3)*3):NEXT
+2&",clJlZ?QnV0QjPn7iD-:EV?ic1;=^1a6lhiZDQi5EmPSX,WE2=mUmQjY3ImYdX3Yo`3l1_0d1jjT1QhQAn:1e/Zk:ZYQiT/Yc5EkYh\^n\gimaoZ`X#ZmLn<$Rm01]a?oLlmlb4f;Q4G0S@'+5+6K'CE6(/L3;4:DJ#$'#<>'?6)3V+[C.KX(W3XH,6_

basic/appleiibot/bin.bas

@@ -0,0 +1,2 @@
+0LIST
+1REM<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>

basic/appleiibot/boxes.bas

@@ -0,0 +1,3 @@
+0REM' G 4  G55- G6O CD9;/CD88%AB;; *+;=/*+::%()== 89<>/89;;%67>> /1@D//1??%-.DD EGBF/EGAA%CDFF :=CI/:=BB%79II $'EK/$'DD%!#KK%!#KK
+1DEFFNP(X)=PEEK(2054+I*5+X)-32:GR:POKE49234,0:FORI=0TO24:COLOR=FNP(0):FORY=FNP(3)TOFNP(4):HLINFNP(1),FNP(2)ATY:NEXTY,I:GETA
+

basic/appleiibot/boxes.boxes

@@ -0,0 +1,25 @@
+7	0	39	 0	20	; 0 sky  x1 x2 y1 y2
+0	0	39	21	21	; 1 horizon
+13	0	39	22	47	; 2 sand
+0	35	36	25	27	; 3 box1 body
+15	35	36	24	24	; 4 box1 top
+5	33	34	27	27	; 5 box1 shadow
+0	10	11	27	29	; 6 box2 body
+15	10	11	26	26	; 7 box2 top
+5	8	9	29	29	; 8 box2 shadow
+0	24	25	28	30	; 9 box3 body
+15	24	25	27	27	; 10 box3 top
+5	22	23	30	30	; 11 box3 shadow
+0	15	17	32	36	; 12 box4 body
+15	15	17	31	31	; 13 box4 top
+5	13	14	36	36	; 14 box4 shadow
+0	37	39	34	38	; 15 box5 body
+15	37	39	33	33	; 16 box5 top
+5	35	36	38	38	; 17 box5 shadow
+0	26	29	35	41	; 18 box6 body
+15	26	29	34	34	; 19 box6 top
+5	23	25	41	41	; 20 box6 shadow
+0	4	7	37	43	; 21 box7 body
+15	4	7	36	36	; 22 box7 top
+5	1	3	43	43	; 23 box7 shadow
+

basic/appleiibot/c64.bas

@@ -0,0 +1,2 @@
+1FORI=0TO143:POKE1013+I,4*PEEK(2126+I)-192+(PEEK(2270+I/3)-35)/4^(I-INT(I/3)*3):NEXT
+2&",clYe8jlQ0RQ`X0JhZ%NoW56F1QmZX#Vo74mU/^I16?=ZT0Z,70ki0U/Yo`7b1QbWoPo`,ac^l?4:1-?99=06=?1->0Y1-79:10389/-8900.00(02/80'02*21(38%/8%/3+-8(02.46'17S(/#G@W04,W'3#P33-3$+Z(T[7/,/UG/0VT#+M1L@W^^UM5Q

basic/appleiibot/cheat.bas

@@ -0,0 +1,9 @@
+0REM/ G O'!7 $'&.%&%!!  %&2  % ! "%#%!"%35!"%88!"%!!#$%77#$%"%%&%36%&%&/'(-/DKO-..OO-0C)L-CD%@-..OO-@@'(-12'(--/+6-+-*0)--OO).1MN)//KL)33KL)02IJ)00EH)//7D)..9:),,34)++/0)**)*)/2%&)00'.)..)*)//+,)11-2)0156
+1REM)2734)5678)449:)55;<)8956):;78)8:;<)88=>)::AB)37'()9>)*)>?#$)DF#$)?@%&)??'()AB'()CC%&)EE%&)DD'()BB)*)DD/8)EE=@)DDCD)CCEF)DDGG)EEKL)AA9: -.58 +,+, ++-. ,,13 ..12 99=@ @@OO EFMO BBIK DDIJ ABCF BC?@ CDAB
+2REM DE;< EE9: AA78 AA/2 CD14 DD56 @A+, AA)* DD), EF+. GG-0 45+. 78+. 55)* 88)*/55+,/88+,%;@;L%<@9:/<?;J%AAGL%<<MD%>>MD%@@MD 3434 4512 7812 8934
+6GR:POKE49234,0:DEFFNP(X)=PEEK(2054+I*5+X)-32:DEFFNQ(X)=PEEK(2260+I*5+X)-32:DEFFNR(X)=PEEK(2466+I*5+X)-32
+7FORI=0TO39:COLOR=FNP(0):FORY=FNP(3)TOFNP(4):HLINFNP(1),FNP(2)ATY:NEXTY,I
+8FORI=0TO39:COLOR=FNQ(0):FORY=FNQ(3)TOFNQ(4):HLINFNQ(1),FNQ(2)ATY:NEXTY,I
+9FORI=0TO27:COLOR=FNR(0):FORY=FNR(3)TOFNR(4):HLINFNR(1),FNR(2)ATY:NEXTY,I
+10 FORI=0TO1000:NEXTI:POKE49235,0:HOME:?"MEH MEH ME MEH MEH-MEH?"
+

basic/appleiibot/cheat.boxes

@@ -0,0 +1,108 @@
+15	0	39	0	47	; 0 background  x1 x2 y1 y2
+7	1	23	0	4	; 1 tray
+7	6	14	5	6	; 2 tray
+5	1	1	0	0	; 3 tray top line
+5	6	18	0	0	; 4 tray top line
+5	0	1	0	2	; 5 tray line 2
+5	3	5	1	2	; 6 tray line 2
+5	19	21	1	2	; 7 tray line 2
+5	24	24	1	2	; 8 tray line 2
+5	1	1	3	4	; 9 tray line 3
+5	23	23	3	4	; 10 tray line 3
+5	2	5	5	6	; 11 tray line 4
+5	19	22	5	6	; 12 tray line 4
+5	6	15	7	8	; 13 tray line 4
+13	15	36	43	47	; 14 foot
+13	14	14	47	47	; 15 foot
+13	16	35	9	44	; 16 body
+13	35	36	5	32	; 17 right body
+13	14	14	47	47	; 18 left toe
+13	32	32	7	8	; 19 hair
+13	17	18	7	8	; 20 hair
+13	13	15	11	22	; 21 left
+13	11	13	10	16	; 22 left
+9	13	13	47	47	; 23 left toe
+9	14	17	45	46	; 24 left
+9	15	15	43	44	; 25 left
+9	19	19	43	44	; 26 left
+9	16	18	41	42	; 27 left
+9	16	16	37	40	; 28 left
+9	15	15	23	36	; 29 left
+9	14	14	25	26	; 30 left
+9	12	12	19	20	; 31 left
+9	11	11	15	16	; 32 left
+9	10	10	9	10	; 33 left
+9	15	18	5	6	; 34 left
+9	16	16	7	14	; 35 left
+9	14	14	9	10	; 36 left
+9	15	15	11	12	; 37 left
+9	17	17	13	18	; 38 left
+9	16	17	21	22	; 39 left
+9	18	23	19	20	; 40 left
+9	21	22	23	24	; 41 left
+9	20	20	25	26	; 42 left
+9	21	21	27	28	; 43 left
+9	24	25	21	22	; 44 left
+9	26	27	23	24	; 45 left
+9	24	26	27	28	; 46 left
+9	24	24	29	30	; 47 left
+9	26	26	33	34	; 48 left
+9	19	23	7	8	; 49 left
+9	25	30	9	10	; 50 left
+9	30	31	3	4	; 51 top
+9	36	38	3	4	; 52 top
+9	31	32	5	6	; 53 top
+9	31	31	7	8	; 54 top
+9	33	34	7	8	; 55 top
+9	35	35	5	6	; 56 top
+9	37	37	5	6	; 57 top
+9	36	36	7	8	; 58 top
+9	34	34	9	10	; 59 top
+9	36	36	15	24	; 60 right
+9	37	37	29	32	; 61 right
+9	36	36	35	36	; 62 right
+9	35	35	37	38	; 63 right
+9	36	36	39	39	; 64 right
+9	37	37	43	44	; 65 right
+9	33	33	25	26	; 66 right
+0	13	14	21	24	; 67 left
+0	11	12	11	12	; 68 left
+0	11	11	13	14	; 69 left
+0	12	12	17	19	; 70 left
+0	14	14	17	18	; 71 left
+0	25	25	29	32	; 72 middle
+0	32	32	47	47	; 73 bottom
+0	37	38	45	47	; 74 right bottom
+0	34	34	41	43	; 75 right
+0	36	36	41	42	; 76 right
+0	33	34	35	38	; 77 center
+0	34	35	31	32	; 78 right
+0	35	36	33	34	; 79 right
+0	36	37	27	28	; 80 right
+0	37	37	25	26	; 81 right
+0	33	33	23	24	; 82 right
+0	33	33	15	18	; 83 right
+0	35	36	17	20	; 84 right
+0	36	36	21	22	; 85 right
+0	32	33	11	12	; 86 right
+0	33	33	9	10	; 87 top righ
+0	36	36	9	12	; 88 top right
+0	37	38	11	14	; 89 right
+0	39	39	13	16	; 90 right
+0	20	21	11	14	; 91 left eye
+0	23	24	11	14	; 92 right eye
+0	21	21	9	10	; 93 left eye
+0	24	24	9	10	; 94 right eye
+15	21	21	11	12	; 95 right eye
+15	24	24	11	12	; 96 left eye
+5	27	32	27	44	; 95 arm thing
+5	28	32	25	26	; 96 arm thing
+15	28	31	27	42	; 97 arm thing
+5	33	33	39	44	; 98 arm thing
+5	28	28	45	36	; 99 arm thing
+5	30	30	45	36	; 100 arm thing
+5	32	32	45	36	; 101 arm thing
+0	19	20	19	20	; 102 left mustache
+0	20	21	17	18	; 103 left mustache
+0	23	24	17	18	; 104 right mustache
+0	24	25	19	20	; 105 right mustacne

basic/appleiibot/cheat.boxes.1

@@ -0,0 +1,40 @@
+15	0	39	0	47	; 0 background  x1 x2 y1 y2
+7	1	23	0	4	; 1 tray
+7	6	14	5	6	; 2 tray
+5	1	1	0	0	; 3 tray top line
+5	6	18	0	0	; 4 tray top line
+5	0	1	0	2	; 5 tray line 2
+5	3	5	1	2	; 6 tray line 2
+5	19	21	1	2	; 7 tray line 2
+5	24	24	1	2	; 8 tray line 2
+5	1	1	3	4	; 9 tray line 3
+5	23	23	3	4	; 10 tray line 3
+5	2	5	5	6	; 11 tray line 4
+5	19	22	5	6	; 12 tray line 4
+5	6	15	7	8	; 13 tray line 4
+13	15	36	43	47	; 14 foot
+13	14	14	47	47	; 15 foot
+13	16	35	9	44	; 16 body
+13	35	36	5	32	; 17 right body
+13	14	14	47	47	; 18 left toe
+13	32	32	7	8	; 19 hair
+13	17	18	7	8	; 20 hair
+13	13	15	11	22	; 21 left
+13	11	13	10	16	; 22 left
+9	13	13	47	47	; 23 left toe
+9	14	17	45	46	; 24 left
+9	15	15	43	44	; 25 left
+9	19	19	43	44	; 26 left
+9	16	18	41	42	; 27 left
+9	16	16	37	40	; 28 left
+9	15	15	23	36	; 29 left
+9	14	14	25	26	; 30 left
+9	12	12	19	20	; 31 left
+9	11	11	15	16	; 32 left
+9	10	10	9	10	; 33 left
+9	15	18	5	6	; 34 left
+9	16	16	7	14	; 35 left
+9	14	14	9	10	; 36 left
+9	15	15	11	12	; 37 left
+9	17	17	13	18	; 38 left
+9	16	17	21	22	; 39 left

basic/appleiibot/cheat.boxes.2

@@ -0,0 +1,41 @@
+9	18	23	19	20	; 40 left
+9	21	22	23	24	; 41 left
+9	20	20	25	26	; 42 left
+9	21	21	27	28	; 43 left
+9	24	25	21	22	; 44 left
+9	26	27	23	24	; 45 left
+9	24	26	27	28	; 46 left
+9	24	24	29	30	; 47 left
+9	26	26	33	34	; 48 left
+9	19	23	7	8	; 49 left
+9	25	30	9	10	; 50 left
+9	30	31	3	4	; 51 top
+9	36	38	3	4	; 52 top
+9	31	32	5	6	; 53 top
+9	31	31	7	8	; 54 top
+9	33	34	7	8	; 55 top
+9	35	35	5	6	; 56 top
+9	37	37	5	6	; 57 top
+9	36	36	7	8	; 58 top
+9	34	34	9	10	; 59 top
+9	36	36	15	24	; 60 right
+9	37	37	29	32	; 61 right
+9	36	36	35	36	; 62 right
+9	35	35	37	38	; 63 right
+9	36	36	39	39	; 64 right
+9	37	37	43	44	; 65 right
+9	33	33	25	26	; 66 right
+0	13	14	21	24	; 67 left
+0	11	12	11	12	; 68 left
+0	11	11	13	14	; 69 left
+0	12	12	17	19	; 70 left
+0	14	14	17	18	; 71 left
+0	25	25	29	32	; 72 middle
+0	32	32	47	47	; 73 bottom
+0	37	38	45	47	; 74 right bottom
+0	34	34	41	43	; 75 right
+0	36	36	41	42	; 76 right
+0	33	34	35	38	; 77 center
+0	34	35	31	32	; 78 right
+0	35	36	33	34	; 79 right
+

basic/appleiibot/cheat.boxes.3

@@ -0,0 +1,28 @@
+0	36	37	27	28	; 80 right
+0	37	37	25	26	; 81 right
+0	33	33	23	24	; 82 right
+0	33	33	15	18	; 83 right
+0	35	36	17	20	; 84 right
+0	36	36	21	22	; 85 right
+0	32	33	11	12	; 86 right
+0	33	33	9	10	; 87 top righ
+0	36	36	9	12	; 88 top right
+0	37	38	11	14	; 89 right
+0	39	39	13	16	; 90 right
+0	20	21	11	14	; 91 left eye
+0	23	24	11	14	; 92 right eye
+0	21	21	9	10	; 93 left eye
+0	24	24	9	10	; 94 right eye
+15	21	21	11	12	; 95 right eye
+15	24	24	11	12	; 96 left eye
+5	27	32	27	44	; 95 arm thing
+5	28	32	25	26	; 96 arm thing
+15	28	31	27	42	; 97 arm thing
+5	33	33	39	44	; 98 arm thing
+5	28	28	45	36	; 99 arm thing
+5	30	30	45	36	; 100 arm thing
+5	32	32	45	36	; 101 arm thing
+0	19	20	19	20	; 102 left mustache
+0	20	21	17	18	; 103 left mustache
+0	23	24	17	18	; 104 right mustache
+0	24	25	19	20	; 105 right mustacne

basic/appleiibot/circles.bas

@@ -0,0 +1,2 @@
+2 FOR X=0TO100:A=(PEEK(2245+X/2)-32)/4:IFJTHENA=(A-INT(A))*4
+3 J=NOTJ:POKE768+X,(PEEK(2144+X)-32)*4+A:NEXT:GR:CALL768:REM+4PY_H&A^RH%A^B&N3 ""?2 29_*'222A_JN8 A,I^B( ^I^( ^I_B( ^I^( ^Y^B$SY^R$P,N)('&&%%$$##""!!!!       5 =""*". ! &.)+)).*!!'$!( '  & !, ) "."!!+&"""')#)$ $,

basic/appleiibot/combo.bas

@@ -0,0 +1,3 @@
+0 A$="'2aBW'271A'8?8A&.1DU&RaBS&bkHW$2ORS% -FS":DEF FNP(X)=ASC(MID$(A$,I*5+X))
+2 IF PEEK(0)=76 THEN HGR:FORI=0TO7:HCOLOR=FNP(1)-32:FORY=FNP(4)TOFNP(5):HPLOTFNP(2),YTOFNP(3),Y:NEXTY,I:END
+5 SCREEN 1:FOR I=0 TO 7:LINE (FNP(2),FNP(4))-(FNP(3),FNP(5)),3 AND(216\4^(FNP(1)-36)),BF:NEXT

basic/appleiibot/combo.boxes

@@ -0,0 +1,8 @@
+7	18	65	34	55	; body
+7	18	23	17	33	; tail 1
+7	24	31	24	33	; tail 2
+6	14	17	36	53	; nozzle
+6	50	65	34	51	; window
+6	66	75	40	55	; window front
+4	18	47	50	51	; wing top
+5	0	13	38	51	; flame

basic/appleiibot/concert.bas

@@ -0,0 +1,11 @@
+10 HIMEM:8132
+20 POKE 232,196:POKE 233,31
+30 FOR L=8132 TO 8175: READ B:POKE L,B:NEXT L
+35 HGR:ROT=0:SCALE=1
+40 FOR I=1 TO 2: XDRAW I AT I*10,100:NEXT I
+90 END
+100 DATA 2,0,6,0,33,0,45,37,60,36
+101 DATA 44,44,53,55,47,41,52,58,63,46
+102 DATA 45,30,55,45,45,21,63,63,63,63
+103 DATA 63,63,0,73,73,73,36,36,36,172
+104 DATA 54,54,54,0

basic/appleiibot/convert4_4/autumn.bas

@@ -0,0 +1,8 @@
+1 FOR X=0TO116:POKE 768+X,(PEEK(2115+X)-64)*16+(PEEK(X+2232))-64:NEXT X:CALL768
+9 "BMOJOJOHCNOHOINOLHFHOFOAHFOHOIFOLHFHOFOFOFOFOFOKANOM@NOJOFHHOI@NOCJ@NOHOJ@NOHOJO@BODOHOB@@@JJOCJJOBOMIBNOJOJOJOBEOD@@@HCF@DAJHEBE@HECI@JEAF@HJEBEBHECI@JECFBFDFEFFFG@MFH@BFIE@I@E@@BFAHI@EBEBI@ECECEHJFIEIEHIGIBJEC@CEAI@@M@LFF@DAEB@GDLCC"
+
+
+
+
+
+

basic/appleiibot/convert4_4/convert_to.c

@@ -0,0 +1,25 @@
+#include <stdio.h>
+#include <unistd.h>
+
+int main(int argc, char **argv) {
+
+	int i,len,rv;
+	unsigned char string[BUFSIZ];
+	unsigned char out[BUFSIZ];
+
+	rv=read(0,string,BUFSIZ);
+	if (rv<=0) return -1;
+
+	len=rv;
+	printf("Len=%d\n",len);
+	printf("\"");
+	for(i=0;i<len;i++) {
+		out[i]='@'+(string[i]>>4);
+		out[i+len]='@'+(string[i]&0xf);
+	}
+	out[2*len]=0;
+	printf("%s",out);
+	printf("\"\n");
+
+	return 0;
+}

basic/appleiibot/convert6/autumn.bas

@@ -0,0 +1,2 @@
+1 FOR X=0TO116:POKE 768+X,(PEEK(2112+X)-32)*4+PEEK(X+2229)-32:NEXT:CALL768
+9 REM (V\I\I\B.Y\A\FY\R@:A\9\&B9\A\F9\R@:A\9\9]9]9]9]L'Y^T Y^I\:@A\D Y\.J Y\A\J Y\A\I^")^1^A^*!" JI\,HI\*\TG([]I\I\I\(5]3    #"  !" !"!  !#! "!!"  "!"!" !#! "!#""" "!"""# !"  ""!! ! !  ""! ! !"!"! !#!#! ""!!!! !#!""!# #!!!  !  ""  !!" #  ##

basic/appleiibot/convert6/convert_to.c

@@ -0,0 +1,25 @@
+#include <stdio.h>
+#include <unistd.h>
+
+int main(int argc, char **argv) {
+
+	int i,len,rv;
+	unsigned char string[BUFSIZ];
+	unsigned char out[BUFSIZ];
+
+	rv=read(0,string,BUFSIZ);
+	if (rv<=0) return -1;
+
+	len=rv;
+	printf("Len=%d\n",len);
+	printf("\"");
+	for(i=0;i<len;i++) {
+		out[i]=' '+(string[i]>>2);
+		out[i+len]=' '+(string[i]&0x3);
+	}
+	out[2*len]=0;
+	printf("%s",out);
+	printf("\"\n");
+
+	return 0;
+}

basic/appleiibot/convert6_2/convert_back.c

@@ -0,0 +1,35 @@
+#include <stdio.h>
+#include <unistd.h>
+
+int main(int argc, char **argv) {
+
+	int i,a,x,len;
+	char buf[BUFSIZ];
+	char out[BUFSIZ];
+
+	len=read(0,buf,BUFSIZ);
+
+	i=1;
+	while(buf[i]!='\"') {
+		if (buf[i]==' ') len=i;
+		buf[i]-='#';
+		i++;
+	}
+
+//	for(i=1;i<len;i++) out[i-1]=buf[i];
+
+	x=0;
+	for(i=1;i<len;i+=3) {
+		a=buf[len+x+1];
+		out[i]=buf[i]|((a<<2)&0xc0);
+		out[i+1]=buf[i+1]|((a<<4)&0xc0);
+		out[i+2]=buf[i+2]|((a<<6)&0xc0);
+		x++;
+	}
+
+	write(1,out+1,len);
+
+	return 0;
+}
+
+

basic/appleiibot/convert6_2/convert_to.c

@@ -0,0 +1,30 @@
+#include <stdio.h>
+#include <unistd.h>
+
+int main(int argc, char **argv) {
+
+	int i,len,rv;
+	char string[BUFSIZ];
+	unsigned char a;
+
+		rv=read(0,string,BUFSIZ);
+		if (rv<=0) return -1;
+
+		len=rv;
+		printf("\"");
+		for(i=0;i<len;i++) {
+			printf("%c",'#'+(string[i]&0x3f));
+		}
+		printf(" ");
+		for(i=0;i<len;i+=3) {
+			a=(string[i]&0xc0)>>2;
+			a|=(string[i+1]&0xc0)>>4;
+			a|=(string[i+2]&0xc0)>>6;
+			a+='#';
+			printf("%c",a);
+		}
+
+		printf("\"\n");
+
+	return 0;
+}

basic/appleiibot/convert6_2/load.good.s

@@ -0,0 +1,66 @@
+LEN = $ff
+
+load:
+	ldy	#1
+sub_loop:
+	lda	string,Y
+	bmi	done_sub_loop
+	cmp	#' '
+	bne	nolen
+	sty	LEN
+nolen:
+	sec
+	sbc	#'#'
+	sta	string,Y
+	iny
+	jmp	sub_loop
+
+done_sub_loop:
+
+	ldx	LEN
+	inx
+	ldy	#1
+hard_loop:
+	cpy	LEN
+	bcs	all_done
+
+	lda	string,X	; a=buf[len+x+1];
+;	lda	#00
+	asl
+	asl
+	pha
+	and	#$c0
+	ora	string,Y
+	sta	$2FF,Y
+	pla
+	iny
+
+	asl
+	asl
+	pha
+	and	#$c0
+	ora	string,Y
+	sta	$2FF,Y
+	pla
+	iny
+
+	asl
+	asl
+	pha
+	and	#$c0
+	ora	string,Y
+	sta	$2FF,Y
+	pla
+	iny
+
+				; out[i]=buf[i]|((a<<2)&0xc0);
+				; out[i+1]=buf[i+1]|((a<<4)&0xc0);
+				; out[i+2]=buf[i+2]|((a<<6)&0xc0);
+	inx
+	jmp	hard_loop
+
+all_done:
+	jmp	$300
+
+string:
+.byte 34,"O3#O5#CS_Lb4M+3^L9(HCE_CJKS(-S'3%,@+S-TKL*M`\&4K+3I)H3@S0#^#M#<#@ ***Q+[C1*&+4%#K+FSV+E/",$80

basic/appleiibot/convert6_2/load.good2.s

@@ -0,0 +1,56 @@
+LEN = $ff
+
+load:
+	ldx	#1
+sub_loop:
+	lda	string,X
+	cmp	#' '
+	beq	done_sub_loop
+;	sty	LEN
+;nolen:
+	sec
+	sbc	#'#'
+	sta	string,X
+	inx
+	bne	sub_loop
+
+done_sub_loop:
+
+;	ldx	LEN
+	inx
+	ldy	#1	; make Y 1
+hard_loop:
+;	cpy	LEN
+;	bcs	all_done
+
+	lda	string,X	; a=buf[len+x+1];
+	bmi	all_done
+	sec
+	sbc	#'#'
+
+	stx	$FE
+	ldx	#3
+
+inner_loop:
+	asl
+	asl
+	pha
+	and	#$c0
+	ora	string,Y
+	sta	$2FF,Y
+	pla
+	iny
+
+	dex
+	bne	inner_loop
+
+	ldx	$FE
+
+	inx
+	jmp	hard_loop
+
+all_done:
+	jmp	$300
+
+string:
+.byte 34,"O3#O5#CS_Lb4M+3^L9(HCE_CJKS(-S'3%,@+S-TKL*M`\&4K+3I)H3@S0#^#M#<#@ ***Q+[C1*&+4%#K+FSV+E/",$80

basic/appleiibot/convert6_2/load.s

@@ -0,0 +1,51 @@
+LEN = $ff
+
+load:
+	ldx	#1
+sub_loop:
+	lda	string,X
+	cmp	#' '
+	beq	done_sub_loop
+	sec
+	sbc	#'#'
+	sta	string,X
+	inx
+	bne	sub_loop
+
+done_sub_loop:
+
+	inx
+	ldy	#1	; make Y 1
+hard_loop:
+
+	lda	string,X	; a=buf[len+x+1];
+	bmi	all_done
+	sec
+	sbc	#'#'
+
+	stx	$FE
+	ldx	#3
+
+inner_loop:
+	asl
+	asl
+	pha
+	and	#$c0
+	ora	string,Y
+	sta	$2FF,Y
+	pla
+	iny
+
+	dex
+	bne	inner_loop
+
+	ldx	$FE
+
+	inx
+	jmp	hard_loop
+
+all_done:
+	jmp	$300
+
+string:
+.byte 34,"O3#O5#CS_Lb4M+3^L9(HCE_CJKS(-S'3%,@+S-TKL*M`\&4K+3I)H3@S0#^#M#<#@ ***Q+[C1*&+4%#K+FSV+E/",$80

basic/appleiibot/convert6_2/simple.s

@@ -0,0 +1,71 @@
+;                 35..96
+;
+;		= 35<<2 + 35 = 175	235
+;		= 40<<2 + 35 = 195	4
+;		= 50<<2 + 35 = 235	39
+;		= 60<<2 + 35 = 19	79
+;		= 64<<2 + 35 = 35	95
+
+
+
+;				35	96
+;		= 35<<1 + 35 = 105	166
+;		= 45<<1 + 35 = 125	186
+;		= 55<<1 + 35 = 145	206
+		= 95<<1	+ 35 = 225	29
+
+
+; 32..96                   
+; <<
+; add
+;         1
+;         2631
+;         8426 8421
+; 4 bits  0XXX X000  so 
+;		..95
+load:
+	ldx	#1
+sub_loop:
+	lda	string,X
+	bmi	done_sub_loop
+	sec
+	sbc	#'#'
+	
+
+done_sub_loop:
+
+	inx
+	ldy	#1	; make Y 1
+hard_loop:
+
+	lda	string,X	; a=buf[len+x+1];
+	bmi	all_done
+	sec
+	sbc	#'#'
+
+	stx	$FE
+	ldx	#3
+
+inner_loop:
+	asl
+	asl
+	pha
+	and	#$c0
+	ora	string,Y
+	sta	$2FF,Y
+	pla
+	iny
+
+	dex
+	bne	inner_loop
+
+	ldx	$FE
+
+	inx
+	jmp	hard_loop
+
+all_done:
+	jmp	$300
+
+string:
+.byte 34,"O3#O5#CS_Lb4M+3^L9(HCE_CJKS(-S'3%,@+S-TKL*M`\&4K+3I)H3@S0#^#M#<#@ ***Q+[C1*&+4%#K+FSV+E/",$80

basic/appleiibot/convert_back.c

@@ -0,0 +1,26 @@
+#include <stdio.h>
+#include <unistd.h>
+
+int main(int argc, char **argv) {
+
+	int i,a,len;
+	char buf[BUFSIZ];
+	char out[BUFSIZ];
+
+	len=read(0,buf,BUFSIZ)-2;
+	len/=2;
+
+	i=1;
+	while(buf[i]!='\"') {
+		a=buf[i]<<3;
+		a^=buf[i+len];
+		out[i-1]=a;
+		i++;
+	}
+
+	write(1,out,len);
+
+	return 0;
+}
+
+

basic/appleiibot/convert_qkumba.c

@@ -0,0 +1,32 @@
+/* code by qkumba */
+
+#include <stdio.h>
+#include <unistd.h>
+
+int main(int argc, char **argv) {
+
+	int i = 0;
+	int e = 0,filesize;
+	unsigned char in[1024];
+	unsigned char enc[1024];
+
+	printf("1REM");
+	filesize=read(0,in,1024);
+	do {
+		enc[e++] = ((in[i + 2] & 3) << 4) +
+			((in[i + 1] & 3) << 2) + (in[i + 0] & 3) + 32;
+		if (i<filesize) printf("%c",(in[i + 0] >> 2) + 32);
+		if (i + 1 < filesize) printf("%c",(in[i + 1] >> 2) + 32);
+		if (i + 2 < filesize) printf("%c",(in[i + 2] >> 2) + 32);
+	} while ((i += 3) < filesize);
+	enc[e]=0;
+
+	printf("%s\n",enc);
+	printf("2FORI=0TO%d:C=(PEEK(%d+I/3)-32)/4^(I-INT(I/3)*3):POKE768+I,C+4*(PEEK(2054+I)-32-INT(C/4)):NEXT:CALL768\n",
+		filesize,2054+filesize);
+
+// note, peek/poke truncate?
+//2FORI=1013TO1141:C=(PEEK(1843+I/3)-32)/4^(I-INT(I/3)*3):POKEI,C+4*(PEEK(1041+I)-32-INT(C/4)):NEXT:&
+
+	return 0;
+}

basic/appleiibot/convert_tgreene.c

@@ -0,0 +1,213 @@
+/* Based on code by qkumba */
+/* TGreene improved the algorithm to be a bit smaller */
+
+#include <stdio.h>
+#include <unistd.h>
+#include <stdlib.h>
+
+/* ASCII offset */
+#define OFFSET	35
+#define OFFSET2	35
+
+/* We are jumping into the decoded code using the & operator */
+/* This just does a jmp to $3F5 */
+/* Easiest is to just load our code there */
+/* The problem is this loads most of the code to the 1st text/lo-res page */
+/* For text/lo-res programs instead load code so it ends at $3F8, */
+/*    usually you have a 3-byte jmp to the start of your code at $3F5 */
+
+#define END_AT_3F5	0
+#define BEGIN_AT_3F5	1
+
+static int debug=0;
+
+static int print_help(char *name) {
+
+	printf("\n");
+	printf("Usage: %s [-d] [-e] [-h]\n",name);
+	printf("\t-d : enables debug messages\n");
+	printf("\t-e : ends program at 3F5 (useful for lo-res programs)\n");
+	printf("\t     default is to start program at 3F5\n");
+	printf("\n");
+
+	return 0;
+}
+
+int main(int argc, char **argv) {
+
+	int mode=BEGIN_AT_3F5;
+	int i = 0;
+	int e = 0,filesize;
+	int val;
+	int pv,final;
+	unsigned char in[1024];
+	unsigned char enc[1024],enc2[1024];
+	int third,enc_ptr=0;
+	int filesize_digits;
+
+	/* FIXME: need to enumerate all arguments */
+	/*        should probably use getopt() instead */
+	if (argc>1) {
+		if (argv[1][0]=='-') {
+			if (argv[1][1]=='d') {
+				debug=1;
+			}
+			if (argv[1][1]=='e') {
+				mode=END_AT_3F5;
+			}
+			if (argv[1][1]=='h') {
+				print_help(argv[0]);
+				exit(1);
+			}
+		}
+	}
+
+//	printf("1REM");
+
+	filesize=read(0,in,1024);
+	do {
+		third = ((in[i + 2] & 3) << 4) +
+			((in[i + 1] & 3) << 2) + (in[i + 0] & 3);
+		enc[e++]=third+OFFSET2;
+		if (i<filesize) {
+			val=in[i+0];
+			pv=val;
+			val=val+0x40;
+			val-=third;
+//			val&=0xff;
+			val=val>>2;
+			val=val+OFFSET;
+			final=((val-OFFSET)<<2)+third-0x40;
+
+if (debug) {
+			fprintf(stderr,"%d: %x -> %x %x ==> %x\n",
+				i,pv,val,third,final);
+			if (pv!=final) fprintf(stderr,"error0: no match!\n");
+			if (val<0) fprintf(stderr,"error0, negative! in=%x e=%x val=%x\n",
+				in[i+0],third,val);
+			if (val<0x20) fprintf(stderr,"error0, unprintable! in=%x pv=%x e=%x val=%x\n",
+				in[i+0],pv,third,val);
+			if (val>0x7e) fprintf(stderr,"error0, too big! in=%x pv=%x e=%x val=%x\n",
+				in[i+0],pv,third,val);
+			if (val=='\"') fprintf(stderr,"error0, additional quotation marks\n");
+//			printf("%c",val); //(in[i + 0] >> 2) + OFFSET);
+			//printf("%c",val); //(in[i + 0] >> 2) + OFFSET);
+}
+			enc2[enc_ptr]=val;
+			enc_ptr++;
+		}
+		if (i + 1 < filesize) {
+			val=in[i+1];
+			pv=val;
+			val=val+0x40;
+			val-=(third>>2);
+//			val&=0xff;
+			val=val>>2;
+			val=val+OFFSET;
+			final=((val-OFFSET)<<2)+(third>>2)-0x40;
+
+if (debug) {
+			fprintf(stderr,"%d: %x -> %x %x ==> %x\n",
+				i+1,pv,val,third>>2,final);
+			if (pv!=final) fprintf(stderr,"error1: no match!\n");
+			if (val<0) fprintf(stderr,"error1, negative! %x %x\n",
+				in[i+0]&0xfc,third);
+			if (val<0x20) fprintf(stderr,"error1, unprintable! %x %x\n",
+				in[i+0]&0xfc,third);
+			if (val>0x7e) fprintf(stderr,"error1, too big! in=%x pv=%x e=%x val=%x\n",
+				in[i+0],pv,third,val);
+//			printf("%c",val); //(in[i + 1] >> 2) + OFFSET);
+}
+			enc2[enc_ptr]=val;
+			enc_ptr++;
+		}
+		if (i + 2 < filesize) {
+			val=in[i+2];
+			pv=val;
+			val=val+0x40;
+			val-=(third>>4);
+//			val&=0xff;
+			val=val>>2;
+			val=val+OFFSET;
+			final=((val-OFFSET)<<2)+(third>>4)-0x40;
+
+if (debug) {
+			fprintf(stderr,"%d: %x -> %x %x ==> %x\n",
+				i+2,pv,val,third>>4,final);
+			if (pv!=final) fprintf(stderr,"error2: no match!\n");
+			if (val<0) fprintf(stderr,"error2, negative! %x %x\n",
+				in[i+0]&0xfc,third);
+			if (val<0x20) fprintf(stderr,"error2, unprintable! %x %x\n",
+				in[i+0]&0xfc,third);
+			if (val>0x7e) fprintf(stderr,"error2 too big! in=%x pv=%x e=%x val=%x\n",
+				in[i+0],pv,third,val);
+//			printf("%c",val);//(in[i + 2] >> 2) + OFFSET);
+}
+			enc2[enc_ptr]=val;
+			enc_ptr++;
+		}
+	} while ((i += 3) < filesize);
+	enc[e]=0;
+	enc2[enc_ptr]=0;
+
+// from Tom Greene @txgx42
+// $850 = 2128
+// with call
+#if 0
+	printf("1FORI=0TO%d:POKE768+I,4*PEEK(%d+I)-"
+		"192+(PEEK(%d+I/3)-%d)/4^(I-INT(I/3)*3):NEXT\n",
+		filesize-1,2128,2128+filesize,OFFSET2);
+	printf("2CALL768\"%s%s\n",enc2,enc);
+#endif
+
+	if ((filesize-1)<10) filesize_digits=1;
+	else if ((filesize-1)<100) filesize_digits=2;
+	else filesize_digits=3;
+
+	if (mode==END_AT_3F5) {
+		fprintf(stderr,"Ending at $3F5\n");
+		fprintf(stderr,"You'll want to load your program at $%03X\n",
+			0x3f5-filesize+3);
+		printf("1FORI=0TO%d:POKE%d+I,4*PEEK(%d+I)-"
+			"%d+(PEEK(%d+I/3)-%d)/4^(I-INT(I/3)*3):NEXT\n",
+			filesize-1,			// filesize for loop
+			0x3f5-filesize+3,		// destination
+			2122+filesize_digits,		// read from 6
+			64+4*OFFSET,			// ??
+			2122+filesize+filesize_digits, // read from 2
+			OFFSET2);
+		printf("2&\"%s%s\n",enc2,enc);
+	}
+
+
+	// if using & to jump to beginning (over-writing text page)
+	if (mode==BEGIN_AT_3F5) {
+		fprintf(stderr,"Beginning at $3F5\n");
+		printf("1FORI=0TO%d:POKE%d+I,4*PEEK(%d+I)-"
+			"%d+(PEEK(%d+I/3)-%d)/4^(I-INT(I/3)*3):NEXT\n",
+			filesize-1,			// filesize for loop
+			0x3f5,				// destination
+			2123+filesize_digits,		// read from 6
+			4*OFFSET+64,			// ?
+			2123+filesize+filesize_digits,	// read from 2
+			OFFSET2);
+		printf("2&\"%s%s\n",enc2,enc);
+	}
+
+//	printf("%s\n",enc);
+//	printf("2FORI=0TO%d:POKE768+I,4*PEEK(2054+I)-"
+//		"192+(PEEK(%d+I/3)-32)/4^(I-INT(I/3)*3):NEXT:CALL768\n",
+//		filesize,2054+filesize);
+
+
+
+//	printf("2FORI=0TO%d:C=(PEEK(%d+I/3)-32)/4^(I-INT(I/3)*3):POKE768+I,C+4*(PEEK(2054+I)-32-INT(C/4)):NEXT:CALL768\n",
+//		filesize,2054+filesize);
+
+// note, peek/poke truncate?
+//2FORI=1013TO1141:C=(PEEK(1843+I/3)-32)/4^(I-INT(I/3)*3):POKEI,C+4*(PEEK(1041+I)-32-INT(C/4)):NEXT:&
+
+
+
+	return 0;
+}

basic/appleiibot/convert_to.c

@@ -0,0 +1,27 @@
+#include <stdio.h>
+#include <unistd.h>
+
+int main(int argc, char **argv) {
+
+	int i,len,rv,a;
+	unsigned char string[BUFSIZ];
+	unsigned char out[BUFSIZ];
+
+	rv=read(0,string,BUFSIZ);
+	if (rv<=0) return -1;
+
+	len=rv;
+	printf("Len=%d\n",len);
+	for(i=0;i<len;i++) {
+		out[i]=' '+(string[i]>>2);
+	}
+	for(i=0;i<len;i+=2) {
+		a=(string[i]&3)<<2;
+		a|=(string[i+1]&3);
+		out[len+i/2]=' '+a;
+	}
+	out[len+len/2+1]=0;
+	printf("%s",out);
+
+	return 0;
+}

basic/appleiibot/convert_vmw.c

@@ -0,0 +1,99 @@
+/* code by qkumba */
+
+#include <stdio.h>
+#include <unistd.h>
+
+int main(int argc, char **argv) {
+
+	int i = 0;
+	int e = 0,filesize;
+	int val,pv,final;
+	unsigned char in[1024];
+	unsigned char enc[1024];
+	int third;
+
+	printf("1REM");
+	filesize=read(0,in,1024);
+	do {
+		third = ((in[i + 2] & 3) << 4) +
+			((in[i + 1] & 3) << 2) + (in[i + 0] & 3);
+		enc[e++]=third+32;
+		if (i<filesize) {
+			val=in[i+0];
+			pv=val;
+			val=val+0x40;
+			val-=third;
+//			val&=0xff;
+			val=val>>2;
+			val=val+32;
+			final=((val-32)<<2)+third-0x40;
+			fprintf(stderr,"%d: %x -> %x %x ==> %x\n",
+				i,pv,val,third,final);
+			if (pv!=final) fprintf(stderr,"error0: no match!\n");
+			if (val<0) fprintf(stderr,"error0, negative! in=%x e=%x val=%x\n",
+				in[i+0],third,val);
+			if (val<0x20) fprintf(stderr,"error0, unprintable! in=%x pv=%x e=%x val=%x\n",
+				in[i+0],pv,third,val);
+			if (val>0x7e) fprintf(stderr,"error0, too big! in=%x pv=%x e=%x val=%x\n",
+				in[i+0],pv,third,val);
+			printf("%c",val); //(in[i + 0] >> 2) + 32);
+		}
+		if (i + 1 < filesize) {
+			val=in[i+1];
+			pv=val;
+			val=val+0x40;
+			val-=(third>>2);
+//			val&=0xff;
+			val=val>>2;
+			val=val+32;
+			final=((val-32)<<2)+(third>>2)-0x40;
+
+			fprintf(stderr,"%d: %x -> %x %x ==> %x\n",
+				i+1,pv,val,third>>2,final);
+			if (pv!=final) fprintf(stderr,"error1: no match!\n");
+			if (val<0) fprintf(stderr,"error1, negative! %x %x\n",
+				in[i+0]&0xfc,third);
+			if (val<0x20) fprintf(stderr,"error1, unprintable! %x %x\n",
+				in[i+0]&0xfc,third);
+			if (val>0x7e) fprintf(stderr,"error1, too big! in=%x pv=%x e=%x val=%x\n",
+				in[i+0],pv,third,val);
+			printf("%c",val); //(in[i + 1] >> 2) + 32);
+		}
+		if (i + 2 < filesize) {
+			val=in[i+2];
+			pv=val;
+			val=val+0x40;
+			val-=(third>>4);
+//			val&=0xff;
+			val=val>>2;
+			val=val+32;
+			final=((val-32)<<2)+(third>>4)-0x40;
+			fprintf(stderr,"%d: %x -> %x %x ==> %x\n",
+				i+2,pv,val,third>>4,final);
+			if (pv!=final) fprintf(stderr,"error2: no match!\n");
+			if (val<0) fprintf(stderr,"error2, negative! %x %x\n",
+				in[i+0]&0xfc,third);
+			if (val<0x20) fprintf(stderr,"error2, unprintable! %x %x\n",
+				in[i+0]&0xfc,third);
+			if (val>0x7e) fprintf(stderr,"error2 too big! in=%x pv=%x e=%x val=%x\n",
+				in[i+0],pv,third,val);
+			printf("%c",val);//(in[i + 2] >> 2) + 32);
+		}
+	} while ((i += 3) < filesize);
+	enc[e]=0;
+
+	printf("%s\n",enc);
+	printf("2FORI=0TO%d:POKE768+I,4*PEEK(2054+I)-192+(PEEK(%d+I/3)-32)/4^(I-INT(I/3)*3):NEXT:CALL768\n",
+		filesize,2054+filesize);
+//	printf("2FORI=0TO%d:C=(PEEK(%d+I/3)-32)/4^(I-INT(I/3)*3):POKE768+I,C+4*(PEEK(2054+I)-32-INT(C/4)):NEXT:CALL768\n",
+//		filesize,2054+filesize);
+
+// note, peek/poke truncate?
+//2FORI=1013TO1141:C=(PEEK(1843+I/3)-32)/4^(I-INT(I/3)*3):POKEI,C+4*(PEEK(1041+I)-32-INT(C/4)):NEXT:&
+
+// from Tom Greene @txgx42
+//1FORI=0TO141:POKE1013+I,4*PEEK(2126+I)-192+(PEEK(2267+I/3)-35)/4^(I-INT(I/3)*3):NEXT
+//2&",clV5QfWo3NQegoQoX&VPYo8,kYf]J+Y_60T9jb`6dkio^o<\2g000000?0003600L100?H0,B6$-<$I1.I<-?0..?-?0:O@):1K0O):1I7033N30H3-0012345.699<>7<<998654321S4J@M$K$DJ;3%#,1E##'##&*3SS+5[5+F'F//#W##E+D+%#
+
+	return 0;
+}

basic/appleiibot/convert_xor/convert_back.c

@@ -0,0 +1,26 @@
+#include <stdio.h>
+#include <unistd.h>
+
+int main(int argc, char **argv) {
+
+	int i,a,x,len;
+	char buf[BUFSIZ];
+	char out[BUFSIZ];
+
+	len=read(0,buf,BUFSIZ)-2;
+	len/=2;
+
+	i=1;
+	while(buf[i]!='\"') {
+		a=buf[i]<<3;
+		a^=buf[i+len];
+		out[i-1]=a;
+		i++;
+	}
+
+	write(1,out,len);
+
+	return 0;
+}
+
+

basic/appleiibot/convert_xor/convert_to.c

@@ -0,0 +1,25 @@
+#include <stdio.h>
+#include <unistd.h>
+
+int main(int argc, char **argv) {
+
+	int i,len,rv;
+	char string[BUFSIZ];
+	char out[BUFSIZ];
+
+	rv=read(0,string,BUFSIZ);
+	if (rv<=0) return -1;
+
+	len=rv;
+	printf("Len=%d\n",len);
+	printf("\"");
+	for(i=0;i<len;i++) {
+		out[i]='@'+(((string[i]>>3)&0x1f)^8);
+		out[i+len]='@'+(string[i]&0x7);
+	}
+	out[2*len]=0;
+	printf("%s",out);
+	printf("\"\n");
+
+	return 0;
+}

basic/appleiibot/cool_bot.bas

@@ -0,0 +1,2 @@
+1FORI=0TO135:POKE880+I,4*PEEK(2125+I)-192+(PEEK(2261+I/3)-35)/4^(I-INT(I/3)*3):NEXT
+2&",clS0[E/Vc.kJ0R`lYg1JF82BN:Ml:-Y_glQ[VlWlX,74hXlX0X08<cglaldela<00EC<G-RD50BRI-QFIG@JK<:0S?C4,\48JLS4=C0T'>2/X0>5DLC31LZ558@V924D!U?7CL/S7?F13;KD4>=[,37%#L%#&[S-5EJXA[3$3AQ.%_?.Z8_#*

basic/appleiibot/cursor.bas

@@ -0,0 +1,2 @@
+1FORI=0TO139:POKE876+I,4*PEEK(2125+I)-192+(PEEK(2265+I/3)-35)/4^(I-INT(I/3)*3):NEXT
+2&"8FoV7Q;Z2M:Z$U076nV1Q.W3U082mZ.P;X0X28:eX3X0X18:lX0_01W02^am^U0_V0OV0b4deY1P;X.X;80nbb`0SmM[0=/SS.i5h;T:b/ch;E`Q/Zb8Zmbdj:ERU0Zb8RmbdnCc0CH0#4'4V'4W/49,#G,&+$$SYUT$9(7##4\8Q<86#A#+3[$C#//

basic/appleiibot/dhgr.bas

@@ -0,0 +1,2 @@
+1REM(X\(V\C7PC#PC PJ(AYJ A_J(Y_I_(* Y_I_RPT[3$ H H ($]H)C5P(1 C5P(1 B$\8I_D)R@)_8 XP)%%1&9Z)OF!S+ !7 ' #1GA#
+2FORI=0TO77:C=INT((PEEK(2132+I/3)-32)/4^(I-INT(I/3)*3)):POKE768+I,((PEEK(2054+I)-32)*4)+C-INT(C/4)*4:NEXT:CALL768

basic/appleiibot/diamond.bas

@@ -0,0 +1,2 @@
+10 FOR I=0 TO 15:READ D:POKE 231+I,D:NEXT:CALL 231
+100 DATA 32,216,243,170,32,17,244,169,231,170,168,32,93,246,240,247

basic/appleiibot/diamond_scroll.bas

@@ -0,0 +1,2 @@
+1FORI=0TO140:POKE875+I,4*PEEK(2125+I)-204+(PEEK(2266+I/3)-35)/4^(I-INT(I/3)*3):NEXT
+2&"/@q<GcY3VM2](QrPNU:4]Te3Z34Y4o.a38^T2MSJQ3L1nI1drgjR4[7Z?2egm:d*\O2E6HL3JY3?D=-\bDb]e;]ro^4]S2M5dpg.\hIP3K4CgFhC4CgF4?3FhChC4C4ChB3FhChF4C7J3S+4@WQ0X$UW'*TOP&P(+5J*\T=<3##7*(9X#'#'3###4#$_

basic/appleiibot/doc/index.html

@@ -0,0 +1,311 @@
+<html>
+<head>
+<title></title>
+</head>
+<body>
+
+<h2>Flame Demo (64-byte assembly)</h2>
+The first attempt was to see if we could get some assembly language going,
+so a good thing to try is my <a href="../apple2_fire/">64B Flame Demo</a>.
+
+<center>
+<img src="flame.png">
+</center>
+
+The first attempt uses the traditional method of entering assembly
+language from BASIC via Applesoft: you have data staements holding the
+raw 8-bit data for the 6502 Machine Language, you poke them to a free
+area of memory (often $300 (which is 768 in decimal)) and then you call
+to it.<br><br>
+Note this code is longer than 256 chars long which means while it is
+a valid Applesoft program, you can't type it in on an actual Apple II
+as it will overflow the keyboard input buffer.  You can however tokenize
+it and load from disk, which must be what the Apple II bot does.
+<br><br>
+<pre>
+1 FOR X=768TO832:READ A:POKE X,A:NEXT:CALL 768:DATA 44,80,192,44,82,192,32,112,252,169,255,145,42,136,16,251,169,22,133,37,32,34,252,160,39,104,240,5,10,240,4,144,2,73,29,72,48,10,177,40,41,7,170,189,57,3,145,40,136,16,230,198,37,16,221,48,205,0,187,0,170,0,153,0,221
+</pre>
+
+This worked, but then 4am got me thinking about more compact ways to try
+and fit larger programs.  I looked into the way that Sellam Abraham did things 
+with his "Mesmerizer Exorciser" Kansasfest 2020 Hackfest entry, but it turns
+out that is a bit too big to fit in a tweet.<br><br>
+
+My fist attempt loads a short assembly language program that then decodes
+a string.  The string is machine code encoded with two values, the first
+shifted left by three then xored with the second to get the value.
+<br><br>
+Why not just include raw 8-bit values?  For one on twitter we're going
+to assume you can only pass in ASCII text, so that limits you to 7-bit values.
+In addition you can't send control characters (the first 32 values) and
+on Apple II+ you can't send lowercase, further reducing things.  In the
+end you are sort of limited to around 6-bits (64 values) and have to
+construct the machine code from that.
+<br><br>
+Also note that by now I had remembered that Applesoft ignores all spaces
+so you can leave them out to get more room.
+<pre>
+1 FOR X=768TO789:READ A:POKE X,A:NEXT:CALL768:DATA162,0,189,106,8,48,12,10,10,10,93,171,8,157,0,12,232,208,239,76,0,12
+9 "MBPMBPLFW]WZMYJW]JXLLLW\LEVHIVHZHAKANI^MMH]_OIZMYJTPLJSNQH_H]H[HSD@@DB@@@DAGAB@@CAFEE@BD@G@@EB@D@BAE@@BA@AGBEADA@@@FFE@E@E@C@B@A@E"+
+</pre>
+
+<hr>
+
+<h2>Circles Demo (101-byte assembly)</h2>
+
+<center>
+<img src="flame.png">
+</center>
+
+This is an unreleased demo of mine based on part of Hellmood's "Memories"
+Demo<br><br>
+In this case we are using 4+4 bit encoding, so it takes two bytes to represent
+each byte.  This is a bit wasteful but it's a lot easier to write a 4+4
+decoder than a more efficient 6+2 one.  Applesoft in particular makes
+this really difficult as it has no shift or bitwise logic functions.
+It's not easy to write decoders in assembly either, so multiplication
+in Applesoft it is.  The A=(A-INT(A)) code is the way to get a
+remainder (modulus) in Applesoft.
+<br><br>
+Note in this case I abandoned using a string.  It has some problems,
+the worst being that you can't include a quote character (ASCII 34).
+Using a REM remark (comment) statement takes slightly more room but
+everything after it is ignored.
+<br><br>
+You might ask how we load values from a REM statement.  In Applseoft the
+whole program is loaded into memory, REM statements and all.  Programs
+are loaded at $800 in tokenized format, but it's fairly easy to poke
+around and find where lines get loaded in memory and then use PEEK to load
+the values in.
+<pre>
+2 GR:FOR X=0TO100:A=(PEEK(2245+X/2)-32)/4:IFJTHENA=(A-INT(A))*4
+3 J=NOTJ:POKE768+X,(PEEK(2144+X)-32)*4+A:NEXT:CALL768:REM+4PY_H&A\RH%A\B&N3 ""?2 29_*'222A^JN8 A,I\B( ^I\( ^I^B( ^I\( ^Y\B$SY\R$P,N)('&&%%$$##""!!!!       5 ="""". ! &.)+)!.*#!'$!( '  . !, ) "."!!+&"""')#)$ $,
+</pre>
+
+<hr>
+
+<h2>Autumn (117 byte demo)</h2>
+
+<center>
+<img src="autumn.png">
+</center>
+
+This is a slightly shorter version of my <a href="../seasons_demo/">
+Seasons</a> demo (without color cycling) that was entered in the Outline
+Online 2020 Demo Party.
+<br><br>
+
+This is using 6+2 coding, with the 6 bit values (with 32 added to get the
+bits up in visible ASCII) first followed by the packed remaining 2 bits
+in chunks of three.  Qkumba figured out the crazy use of the exponent
+to handle the proper shifting of the 2-bit values.
+
+<br><br>
+Because it uses a lot
+of multiplies and shifts, this is fairly slow to decode which is why
+it has a directive to skip 9 seconds.  It should skip more but there
+were only 4 free bytes in the tweet so we couldn't delay more.
+<br><br>
+
+<pre>
+{B9}
+1REM(V\I\I\B.Y\A\FY\R@:A\9\&B9\A\F9\R@:A\9\9]9]9]9]L'Y^T Y^I\:@A
+\D Y\.J Y\A\J Y\A\I^")^1^A^*!" JI\,HI\*\TG([]I\I\I\(5]3  P")90'6"F)=8KBI.)H%1@&1F1WA6%=:S50@"E,\
+2FORI=0TO116:C=INT((PEEK(2171+I/3)-32)/4^(I-INT(I/3)*3)):POKE768+I,((PEEK(2054+I)-32)*4)+C-INT(C/4)*4:NEXT:CALL768
+</pre>
+
+<h2>Spaceship -- Applesoft Shapetable</h2>
+
+<center>
+<img src="ship.png">
+</center>
+
+After managing to fit Autumn in, I gave up on assembly language and went
+back to coding in Applesoft.  One thing Applesoft has going for it is
+"Shapetables" which are a software vector drawing library included
+in the Applesoft BASIC ROMs.
+<br><br>
+To use shapetables, you map out the vectors.  You can only do 
+draw+move UP/DOWN/LEFT/RIGHT and pen-up move (no-draw) UP/DOWN/LEFT/RIGHT.
+Each operating is three bits, you can pack two or sometimes three directives
+per byte and there's a header with the number of shapes and the offset
+of the shapes.
+<br><br>
+Typically you'd POKE the shapetable into memory via data
+statements (there's no easy way to
+load them, though oddly there is a dedicated command to loading them from
+casette tape).  Poking wastes a lot of space, so I thought maybe we
+can stick it in a REM statement like before.  There's a trick here, you
+need to have your shapetable be valid ASCII.  To do that you need the second
+value in each byte to not be a not-draw instruction, and also you can't
+have a third value either.
+<br><br>
+Once you have your shapes, you can DRAW them at a location, or XDRAW
+to xor draw (which makes it easier to draw and erase).  There is ROT
+to rotate and SCALE to scale.
+<br><br>
+This example like 2 tells Applesoft where the shapetable is by POKEing
+in the locations to the proper zero page address.  The shape table
+in the REM depends on being on line 5, because we depend on the
+actual layout of the BASIC program. 
+<br><br>
+This points to address $814.  If you look there in memory you find the values
+<pre>29 08 05 00 B2 37 ...</pre>
+The 29 08 (little endian) is actually part of the linked list of the BASIC
+program in memory pointing to the next line.  The 05 00 is the line number.
+And B2 is the token for REM followed by the data.  By pointing at the
+29 we say we have 29 shapes, but that doesn't matter as we only use
+1.  The next value is ignored.  The next is the offset to 
+the first shape (from the beginning).  Since this is 5 it skips the REM
+and goes to the data.
+<br><br>
+The rest is just regular Applesoft BASIC, it draws some random stars,
+moves the spaceship, and draws some flames and then repeats.
+<br><br>
+
+<pre>
+2POKE232,20:POKE233,8
+5REM7:'%%,5..>'<29'
+6HGR2:FOR X=1 TO 100:HCOLOR=7:HPLOT RND(1)*280,RND(1)*192:NEXT
+7SCALE=5:FORR=0TO16:ROT=R:GOSUB9:GOSUB9:NEXT:FOR X=100TO270:GOSUB9
+8HCOLOR=5:HPLOTX-30,86+RND(1)*16TOX-10,91:X1=X+SQR(X/25):GOSUB9:X=X1:NEXT:GOTO6
+9XDRAW1ATX,91:RETURN
+</pre>
+
+<h2>Nyan Cat -- Shape Tables and Page Flipping</h2>
+
+<center>
+<img src="nyan.png">
+</center>
+
+I wanted to do something wiht page-flipping and shape tables, possibly
+the only two graphics features the Apple II can do better than other
+8-bit computers.  I was thinking something like my
+<a href="../shapetable_party/">Shapetable Party</a> demo.<br><br>
+
+In the end trying to make complex ASCII shape tables was too much.
+But then oddly I had a dream where I made a HGR version of Nyan Cat.
+So here it is, a program that brought a lot of joy.<br><br>
+
+Not much exciting about it, the poptart-cat shapetable is done more or 
+less like in the previous example.  It uses HGR:HGR2 to clear both
+graphics pages and leaves things on PAGE2.  The rainbow and cat are
+first drawn on PAGE2 (the routine at line 8 draws them).  Then
+they are drawn again at a slightly different offset on PAGE1.
+The POKE 230,32 tells the Applesoft routines to draw to PAGE1
+($2000) instead of PAGE2 ($4000).  Ideally we'd switch back to page1
+so we could see both being drawn, in fact when watching it there's
+an annoying pause while PAGE1 is drawn and you can't see it.  However
+I was out of characters to do that.
+<br><br>
+As some have pointed out, I used tail-call optimization here, where instead
+of GOSUB9 one lsat time in line 8 I fall through to line 9 and let the
+return from there return from the GOSUB to line 8.  This is something
+I do a lot in 6502 assembly and it's fun to do it in BASIC too.
+<br><br>
+The actual program is like 7 which just flips pages rapidly.
+The V=0 call was added to slow the animation a bit, it roughly is as slow
+as the GOTO7.  I tried putting slower things (like SQR() square root)
+to slow it even more, but you have to put things twice or the animation
+is unbalanced and there wasn't enough room for two.
+<br><br>
+It was a bit more of a pain than you think to get the HGR colors to
+plot in rainbow order.  Also in size coding like this you run into issues
+where it takes less characters to have things to the upper left part
+of the screen as the coordinates can be less than 3 digits.
+<br><br>
+
+<pre>
+2POKE232,20:POKE233,8
+5REM$,.,6>???$$--5
+6ROT=0:SCALE=5:P=49236:HGR:HGR2:GOSUB8:Q=1:POKE230,32:GOSUB8
+7POKEP+1,0:V=0:POKEP,0:GOTO7
+8C=5:Y=80:XDRAW1AT134,102+Q*2:GOSUB9:C=1:GOSUB9:C=6:GOSUB9:C=2
+9HCOLOR=C:FORZ=YTOY+5:FORX=0TO13:Q=NOTQ:HPLOTX*8,Z+QTOX*8+7,Z+Q:NEXTX,Z:Y=Z:RETURN
+</pre>
+
+<h2>Double Hires Pattern</h2>
+
+<center>
+<img src="dhgr.png">
+</center>
+
+I was interested in seeing if I could get some better colors going.
+I have done demos that do
+<a href="../megademo/">Vapor Lock<a> and
+<a href="../lores-escape">mid-screen race-the beam mode switching</a>
+but I was pretty sure the Linux-based emulator used by the Apple II bot
+can't do that type of cycle-counted effects.<br><br>
+
+The emulator did seem to be emulating Apple IIe, which opened things
+up for double hi-res graphics.  Those are tricky to do and you can't
+easily program them from Applesoft.  I actually tried at first but had
+some issues fitting in a reasonable amount of room, so assembly language
+it is.<br><br>
+
+This was just a first test but it made a neat pattern.  I had a lot of trouble
+just getting horizontal lines drawn.  To do that in double-hires you
+have to draw an increasingly rotated-by-one bit version of the color
+across 4 bytes on two different bank-switched graphics pages, a huge pain.
+<br><br>
+<pre>
+{B10}
+1REM(X\(V\C7PC#PC PJ(AYJ A_J(Y_I_(* Y_I_RPT[3$ H H ($]H)C5P(1 C5P(1 B$\8I_D)R@)_8 XP)%%1&9Z)OF!S+ !7 ' #1GA#
+2FORI=0TO77:C=INT((PEEK(2132+I/3)-32)/4^(I-INT(I/3)*3)):POKE768+I,((PEEK(2054+I)-32)*4)+C-INT(C/4)*4:NEXT:CALL768
+</pre>
+
+<h2>Double Hi-res Rasterbars (126 byte assembly)</h2>
+
+<center>
+<img src="rasterbars.png">
+</center>
+
+My goal was to get two colors of double hi-res rasterbars going.
+It turns out this is much harder than it sounds.  I did get one
+rasterbar moving fairly easily, but getting a second independent bar
+was trouble.  Even then it was 136 bytes which was too big for the loader.
+<br><br>
+So I size optimized the code like crazy, including using the "BIT" trick
+to avoid a jump and various other things and got it down to 126 bytes.
+The pattern ended up being a bit nonsensical, as  I had to use an EOR (xor)
+to calculate the location of the second bar, but there is more than one
+color.
+<br><br>
+Then I optimized down the BASIC loader.  It's still qkumba's 6+2 loader
+but I found some parenthesis I could remove, did some algebra and orders-of-operation
+changes to remove some more parenthesis, and did some tricks with
+integer variables.  Applesoft does everything in floating point, but
+you can specify 16-bit integer values which will truncate, which removes
+the need for an INT (though qkumba later noticed that might not be
+necessary).
+<br><br>
+<pre>
+1REM(X\(V\C7PC#PC P1YJ (+ J!(+ F,!R0L"HR+HBC* RTYA_F2$JJ!A_I_R!D 2 * &9_JO= A_F2Y_H H ($]H)C5P(; C5P(; B$\:JQ_$R8I_D)R@)_8 $(, W[_XP)%%:0'TP!((Z !!=5!V-AY-4"0P%T!T0@QT9X0.Y
+2FORI=768TO894:C%=(PEEK(1924+I/3)-32)/4^(I-INT(I/3)*3):POKEI,C%+4*(PEEK(1286+I)-32-INT(C%/4)):NEXT:CALL768
+</pre>
+
+<h2>The Future</h2>
+
+So am I done for now?<br><br>
+
+There are still a few tricks remaining.  There is some deep magic you can
+do if you call into the Applesoft interpreter direct from assembly language.
+Lots of articles on this from the 1980s.<br><br>
+
+Applesoft supports calls like USR and &amp; besides CALL to call into
+assembly language.  The most useful is &amp; which just does a plain
+jump to $3F5.  If you load your assembly properly you can use this to
+save another few characters by getting rid of the CALL768.  (Also if
+you load your code at $3F5 you can watch it being decoded as it writes
+to the $400 text page).
+<br><br>
+
+So maybe I will come back to this again, but for now there's other
+projects I really need to finish.  It's been fun!
+
+<hr>
+
+<a href="../demos/">Back to Apple II Demos</a>
+
+</body>
+</html>

basic/appleiibot/drops.bas

@@ -0,0 +1,2 @@
+1FORI=0TO140:POKE875+I,4*PEEK(2125+I)-192+(PEEK(2266+I/3)-35)/4^(I-INT(I/3)*3):NEXT
+2&"*el9D`9E`ImQminYnZ1.2,123Po>1QkU:(b6^0hKm:028JmZ3YTjaTbUARnbJlX9RZ80nS8Qn6X/\oSCLoX:LoX9Lo>Qlg20;nTmiogod+ho^mB570U]l/Q<Xn8+lan4bb4_1N8:Jo4G0[++E-$H=746F$<*@65U,L.#@$(7#$)5E@--;QY7*'E$%Oa_

basic/appleiibot/dsr_lores.bas

@@ -0,0 +1,2 @@
+1FORI=0TO132:POKE883+I,4*PEEK(2125+I)-204+(PEEK(2258+I/3)-35)/4^(I-INT(I/3)*3):NEXT
+2&"-ho<GcS2T^X>Q:7fZkV;XBY<PAe4n>Hc[%X6]8;/n[`X3Zq;Hp[:SrWq`FTb2`CG_3[3[*[4JpJ/:]+]3[r;Hp\r;3qec1l4br7lmgdcr,clgjq7T30=r>;^;<X7=FL@@'CO3[+E^5K<WD/%[$DT,,69G*`%GL3C(3$#S-%>OM_\6%4PS&

basic/appleiibot/edgar.bas

@@ -0,0 +1,3 @@
+0REM&*<DG&,:@C&-9??&/7=>/6:DF 78BC 88BE!::BC%33@A%33DE+15(=+/61:+.715(66(.(15''(/3(*(/1+,(/0-.%/6//'/600//113/4613#2366/159:/35;<
+1GR:?"  PROGRAMMED IN EDGAR'S MOM'S BASEMENT":DEFFNP(X)=PEEK(2054+I*5+X)-32
+2FORI=0TO24:COLOR=FNP(0):FORY=FNP(3)TOFNP(4):HLINFNP(1),FNP(2)ATY:NEXTY,I

basic/appleiibot/edgar.boxes

@@ -0,0 +1,25 @@
+6	10	28	36	39	; 0 shirt1  x1 x2 y1 y2
+6	12	26	32	35	; 1 shirt2
+6	13	25	31	31	; 2 shirt3
+6	15	23	29	30	; 3 shirt4
+15	22	26	36	38	; 4 pocket
+0	23	24	34	35	; 5 pen
+0	24	24	34	37	; 6 pen
+1	26	26	34	35	; 7 red pen
+5	19	19	32	33	; 8 top button
+5	19	19	36	37	; 9 bottom button
+11	17	21	8	29	; 10 face
+11	15	22	17	26	; 11 face2
+11	14	23	17	21	; 12 ears
+8	22	22	8	14	; 13 hair1
+8	17	21	7	7	; 14 hair2
+8	15	19	8	10	; 15 hair3
+8	15	17	11	12	; 16 hair4
+8	15	16	13	14	; 17 hair5
+5	15	22	15	15	; 18 glasses1
+7	15	22	16	16	; 19 glasses2
+15	15	17	17	19	; 20 left lens
+15	20	22	17	19	; 21 right lens
+3	18	19	22	22	; 22 nose
+15	17	21	25	26	; 23 top mouth
+15	19	21	27	28	; 24 bottom mouth

basic/appleiibot/elite.bas

@@ -0,0 +1,4 @@
+1HGR2:DEFFNP(X)=3*PEEK(2197+I+X)-99
+2IFI=0ORI=39THENPOKE230,32+32*P:P=NOTP:POKE49236+P,0:CALL-3086
+5IFFNP(0)=6THENHPLOTFNP(1),FNP(2):I=I+3
+6HPLOTTOFNP(0),FNP(1):I=(I+2)*(I<94):GOTO2"#*:B6S6l;`ALB5@):#B9B>I?I8B9#L8L?T>T:L8#4-;8NEaNnPZ?L74-N5Y<kLnP#L7O6#Z?Y<#G=I9Q<NAG=#S=YBWFQCS=

basic/appleiibot/elite.points

@@ -0,0 +1,39 @@
+# 40
+279	27	75	99	63	#  Ship1 body
+	150	63			#  
+	225	78			#  
+	189	96			#  
+	129	99			#  
+	60	93			#
+	26	75			#
+279	99	72	99	87	# Ship1 left thruster
+	120	90
+	120	69
+	99	72
+279	129	69	129	90	# Ship1 left thruster
+	153	87
+	153	75
+	129	69
+# 56
+279	57	36	78	69	# ship 2 body
+	135	108
+	192	135
+	231	141
+	171	90
+	129	66
+	57	36
+	135	60
+	168	81
+	222	129
+	231	141
+279	129	66	138	63
+279	171	90	168	81
+279	114	84	120	72	# left
+	144	81
+	135	96
+	114	84
+279	150	84	168	99	# right 
+	162	111
+	144	102
+	150	84
+0

basic/appleiibot/elite_big.bas

@@ -0,0 +1,8 @@
+0REM~*:B6S6l;`ALB5@):~B9B>I?I8B9~L8L?T>T:L8"~4-;8NEaNnPZ?L74-N5Y<kLnP~L7O6~Z?Y<~G=I9Q<NAG=~S=YBWFQCS=!
+1HGR2:DEFFNP(X)=3*PEEK(2054+I+X)-99
+2POKE230,32+32*P:P=NOTP:POKE49236+P,0:CALL-3086
+3V=FNP(0):IFV=3THENI=I+1:GOTO2
+4IFV=0THENI=0:GOTO2
+5IFV=279THENHPLOTFNP(1),FNP(2):I=I+3
+6HPLOTTOFNP(0),FNP(1):I=I+2
+7GOTO3

basic/appleiibot/entropy_small.bas

@@ -0,0 +1,2 @@
+1  ROT=0:POKE 232,252:POKE 233,29:FOR I=1 TO 14:READ A:POKE 7675+I,A:NEXT:DATA 1,255,4,0,18,63,36,36,45,45,54,54,63,0
+9  HGR2:FOR E=.08 TO .15 STEP .01:FOR Y=4 TO 189 STEP 6:FOR X=4 TO 278 STEP 6:SCALE=(RND(1)< E)*RND(1)*E*20+1:XDRAW 1 AT X,Y:NEXT:NEXT:NEXT:GOTO 2

basic/appleiibot/fakes.bas

@@ -0,0 +1,8 @@
+10 GR:COLOR=9
+20 FOR X=0 TO 39
+30 POKE 2138,X
+40 FOR Y=0 TO X
+50 POKE 2140,Y:CALL 2137
+60 PLOT X,PEEK(36)
+70 NEXT Y,X
+100 SPEED=$)%DEL$LRUSR

basic/appleiibot/falling.bas

@@ -0,0 +1,7 @@
+1GR:DIMR(16):FORI=6TO15:READR(I):NEXT
+2C(O)=RND(1)*15+1:X(O)=RND(1)*40:Y(O)=INT(RND(1)*40)
+3FORI=0TO7:N=C(I):IF(Y(I)>30ANDY(I)<36)ORY(I)=20ORY(I)=24ORY(I)=25THENN=R(N)
+6COLOR=N:IFY(I)<40THENPLOTX(I),Y(I)
+7Y(I)=Y(I)+1:NEXT
+8O=O+1:IFO=8THENO=0
+9GOTO2:DATA2,2,0,8,0,3,4,8,4,5

basic/appleiibot/fastar.bas

@@ -0,0 +1,10 @@
+0 DIM X(17),Y(17):FOR I=0 TO 16:READ X(I),Y(I):NEXT 
+1HGR:HGR2:HCOLOR=3
+4FORI=1TO16:POKE230,32+32*P:P=NOTP:POKE49236+P,0:CALL-3086
+5FORJ=1TO1
+6IFX(I-1)ANDX(I)THENHPLOTX(I-1),Y(I-1)TOX(I),Y(I)
+7NEXTJ,I:GOTO4
+100 DATA 97,111,96,111,95,111,94,111,92,112
+105 DATA 90,113,87,114,83,115,79,117,73,119
+110 DATA 66,121,58,124,49,127,37,131
+115 DATA 22,136,5,143,0,0

basic/appleiibot/fastar2.bas

@@ -0,0 +1,6 @@
+0R=191:DIMX(R),Y(R):FORI=1TOR:C=Z*.1:A=A+(A-140)*C:B=B+(B-96)*C:Z=Z+.1
+2IFA<1ORA>279ORB<1ORB>RTHENI=I+1:A=RND(1)*280:B=RND(1)*R:Z=0
+3X(I)=A:Y(I)=B:NEXT:HGR2
+5FORJ=1TOR:POKE230,32+32*P:P=NOTP:POKE49236+P,0:CALL-3086
+6A=X(J-1):IFAANDX(J)THENHPLOTA,Y(J-1)TOX(J),Y(J)
+8NEXT:GOTO5

basic/appleiibot/fireworks.bas

@@ -0,0 +1,6 @@
+0HGR2
+5Q=25-RND(1)*10
+6B=4*NOTB:V=Q+RND(1)*240:W=Q+RND(1)*100:HCOLOR=B+3:HPLOTV,W:FORI=1TO9:IFI<9THENN=I:HCOLOR=B+3:GOSUB9
+7N=I-1:HCOLOR=B:GOSUB9:NEXT:GOTO5
+9HPLOTV+N,W+N:HPLOTV-N,W-N:HPLOTV+N,W-N:HPLOTV-N,W+N:HPLOTV,W+N*1.5:HPLOTV+N*1.5,W:HPLOTV,W-N*1.5:HPLOTV-N*1.5,W:RETURN
+' Based on Fireworks by FozzTexx, originally written in 1987

basic/appleiibot/flame.bas

@@ -0,0 +1,5 @@
+
+1 FOR X=768TO832:READ A:POKE X,A:NEXT:CALL768
+9 DATA 44,80,192,44,82,192,32,112,252,169,255,145,42,136,16,251,169,22,133,37,32,34,252,160,39,104,240,5,10,240,4,144,2,73,29,72,48,10,177,40,41,7,170,189,57,3,145,40,136,16,230,198,37,16,221,48,205,0,187,0,170,0,153,0,221
+
+

basic/appleiibot/flame2.bas

@@ -0,0 +1,5 @@
+1 FOR X=768TO789:READ A:POKE X,A:NEXT:CALL768:DATA162,0,189,106,8,48,12,10,10,10,93,171,8,157,0,12,232,208,239,76,0,12
+9 "MBPMBPLFW]WZMYJW]JXLLLW\LEVHIVHZHAKANI^MMH]_OIZMYJTPLJSNQH_H]H[HSD@@DB@@@DAGAB@@CAFEE@BD@G@@EB@D@BAE@@BA@AGBEADA@@@FFE@E@E@C@B@A@E"+
+
+
+

basic/appleiibot/flame_hgr.bas

@@ -0,0 +1,2 @@
+1FORI=0TO139:POKE1013+I,4*PEEK(2126+I)-192+(PEEK(2266+I/3)-35)/4^(I-INT(I/3)*3):NEXT
+2&"*el,cl;E`Q8Z2WdEb4`U_N74dW9M8Y4P9QfbN74aU9[0h01[80B3R<0\9Vk0\QT7k8)b2j81_0Z_R81R4dYhfUd]R80lY8Q9R8BCP9Q8\3Y_H0T9R4kYhjh`bglU0QOOTXbfdeoblodo[S#A*.]5G4:E5S$347'5=-C)77#++,4)@7?=4#,#+&7GH:2

basic/appleiibot/floppy.bas

@@ -0,0 +1,4 @@
+1REM_'> $^__XW?#__'\][C__!>W\Y_/&W:?\_SC=W/^?^1_]G_G_P=_Y_8><W?\/+, \/_S4&__S_T+C__\/]/P_/_3\_XYS_,X?@\\/K@/N$_CK"&OP_YO*B?^?^_*PA_'__;XX_#F9&$__1F9.X_?8F9&^_/8F9P_
+2FORY=0TO159:Z=PEEK(2054+Y)-32:FORI=0TO5:NORMAL:Q%=Z/2:IFQ%*2-ZTHENINVERSE
+3Z=Q%:IFY+I-164THEN?" ";
+4NEXT I,Y:GETA

basic/appleiibot/floppy2.bas

@@ -0,0 +1,3 @@
+1REM_'> $^__XW?#__'\][C__!>W\Y_/&W:?\_SC=W/^?^1_]G_G_P=_Y_8><W?\/+, \/_S4&__S_T+C__\/]/P_/_3\_XYS_,X?@\\/K@/N$_CK"&OP_YO*B?^?^_*PA_'__;XX_#F9&$__1F9.X_?8F9&^_/8F9P_
+2FORY=0TO159:Z=PEEK(2054+Y)-32:FORI=0TO5:Q%=Z/2:POKE50,(Q%*2-Z)*192+255:Z=Q%:IFY+I-164THEN?" ";
+4NEXT I,Y:GETA

basic/appleiibot/flyer.bas

@@ -0,0 +1,6 @@
+2POKE232,20:POKE233,8
+5REM#%%-...
+6HGR2:ROT=0:Z=96:K=140
+7S=Z+J:POKE230,32+32*P:P=NOTP:POKE49236+P,0:CALL-3086:HCOLOR=6:HPLOT0,ZTOK,80TO279,Z:HCOLOR=1
+8S=S/2:Y=Z+S:HPLOT0,YTO279,Y:SCALE=1+S/5:XDRAW1ATK,Y:IFS>1THEN8
+9SCALE=2:XDRAW1ATK+16*SIN(H),180:H=H+0.3:J=(J+12)*(J<84):GOTO7

basic/appleiibot/fouram.bas

@@ -0,0 +1,3 @@
+1REM_'> $^__XW?#__'\][C__!>W\Y_/&W:?\_SC=W/^?^1_]G_G_P=_Y_8><W?\/+, \/_S4&__S_T+C__\/]/P_/_3\_XYS_,X?@\\/K@/N$_CK"&OP_YO*B?^?^_*PA_'__;XX_#F9&$__1F9.X_?8F9&^_/8F9P_
+2HOME:FORY=0TO158:Z=PEEK(2054+Y)-32:FORI=0TO5:NORMAL:Q=INT(Z/2):IFQ*2<>ZTHENINVERSE
+3Z=Q:PRINT" ";:NEXT I,Y:GETA

basic/appleiibot/gator.bas

@@ -0,0 +1,2 @@
+1GR:POKE49234,0:DEFFNP(X)=PEEK(2162+I*5+X)-35:FORI=0TO26:FORX=0TO(I=18)*9:COLOR=FNP(0):FORY=FNP(3)TOFNP(4):HLINFNP(1),FNP(2)ATY:NEXTY,X,I:GETA
+2"*#J#R#,A%P(66DN(485?(399;(574@*677>*578=(::==2-@&1*AA34)=>//%<?..$<?--,<>,,0<>++/<?**/==))/>>(()#JOR'CJ@N'/JDK'02BC#DEAB#HIAB212LN267LN

basic/appleiibot/gears.bas

@@ -0,0 +1,2 @@
+1FORI=0TO137:POKE1013+I,4*PEEK(2126+I)-204+(PEEK(2264+I/3)-35)/4^(I-INT(I/3)*3):NEXT
+2&"-hoY4T`QqUM]1:7p[;:I4S1[l]L:7piq[3:I&aq/foY4Tl[3UM]1:7o]RVN4[;;I4[%Xm]L;/nlq[7:I4>HcZr;]r>Db]r;]jDD,RqnO4nO4Yqo2nO2nO.ZQW3]/:JfbqdkK;@3<>3[4V=5#'C*'13[S4&=5'$#$[$D&'#0#4&CC%%0-+;34M/(+

basic/appleiibot/gr_xor.bas

@@ -0,0 +1,2 @@
+1FORI=0TO64:POKE951+I,4*PEEK(2124+I)-204+(PEEK(2189+I/3)-35)/4^(I-INT(I/3)*3):NEXT
+2&"/@q<GcY2TplrT7\jCEA\aHcMA3TpU;@p\88LeQ<X<AXlrIoU9qDhU<U7oe7k?fF]3S+4,AD5#4,66X/'P4J#%#2

basic/appleiibot/hello.bas

@@ -0,0 +1,2 @@
+5 HOME
+10 PRINT CHR$(4);"CATALOG"

basic/appleiibot/hgr_fakes.bas

@@ -0,0 +1,10 @@
+1 GOTO 10
+5 SPEED=$)%DEL$LRUSR
+10 HGR2:HCOLOR=7
+20 FOR X=0 TO 255
+30 POKE 2062,X
+35 Q=X:IF Q>191 THEN Q=191
+40 FOR Y=0 TO Q
+50 POKE 2064,Y:CALL 2061
+60 HPLOT X-Y,PEEK(36)
+70 NEXT Y,X

basic/appleiibot/hgrstarfield.bas

@@ -0,0 +1,2 @@
+1FORI=0TO139:POKE876+I,4*PEEK(2125+I)-192+(PEEK(2265+I/3)-35)/4^(I-INT(I/3)*3):NEXT
+2&",clU68V.b*lX6XD,fnV/QgQn]LBUBZJX05EmUm]X7g/JHKnUK]T+d0JSZMBe(j4YgQfTZWoX$5EkYn7]0+^0V1^:\Yn^0kUTZ/lQ[^,k:210M.ioH2/0Bk5J$Uo^=m(2nV:4#?o6HCH0S1PK&S4+$D#/53*<'W$CCEC,S+SWU+*'445:D&76T3C#Y#/