Switch from SYSTEM to BIN

Makefile

@@ -36,12 +36,15 @@ DSK=$(PGM).dsk
 # disk instead.
 #$(AC) -pro140 $(DSK) $(VOL)
 
-$(DSK): $(PGM)
+$(DSK): $(PGM) $(PGM).ver.bas $(PGM).gui.bas
 	$(COPY) $(BASE_DSK) $(DSK)
 	# Does not work on older AC
 	#$(AC) -n $(DSK) $(VOL)
-	$(AC) -p $(DSK) $(PGM) SYS < $(PGM)
-	cat $(PGM).ver.bas | tr '\n' '\r' | $(AC) -p $(DSK) $(PGM).VER TXT
+	#$(AC) -p $(DSK) $(PGM) SYS < $(PGM)
+	$(AC) -p $(DSK) $(PGM) BIN 0x2000 < $(PGM)
+	$(AC) -p $(DSK) $(PGM).VER BAS < $(PGM).ver.bas
+	$(AC) -p $(DSK) $(PGM).GUI BAS < $(PGM).gui.bas
+	#cat $(PGM).ver.bas | tr '\n' '\r' | $(AC) -p $(DSK) $(PGM).VER TXT
 
 $(PGM): $(SRC)
 	$(MERLIN) $(SRC)

online.s

@@ -6,7 +6,8 @@
 * This program is free software; you can redistribute it and/or modify     *
 * it under the terms of the GNU General Public License as published by     *
 * the Free Software Foundation; either version 2 of the License, or        *
-* (at your option) any later version.                                      **                                                                          *
+* (at your option) any later version.                                      *
+*                                                                          *
 * This program is distributed in the hope that it will be useful,          *
 * but WITHOUT ANY WARRANTY; without even the implied warranty of           *
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the            *
@@ -18,9 +19,21 @@
 *                                                                          *
 ****************************************************************************
 
-               ORG   $2000
+****************************************************************************
+* You might want to load stuff to $803 instead. Applesoft sort of acts up  *
+* when there is anything else than a zero at location $800; plus, LIST     *
+* displays junk and may crash the system if there is machine code at $801  *
+* and $802. If you load to $803, then $800 - $802 can stay at zero, which  *
+* makes BASIC happy.                                                       *
+*                                                                          *
+* This does not apply to Integer BASIC.                                    *
+*                                                                          *
+* --                                                                       *
+* Linards Ticmanis                                                         *
+****************************************************************************
+               ORG   $2000	;This address is also in the Makefile
                DSK   online
-               TYP   $FF        ;SYSTEM TYPE
+               TYP   $06        ;$FF=SYSTEM $06=BINARY
 
 ********************************
 *                              *
@@ -123,8 +136,7 @@ PUTLICENSE
                JSR   CROUT
                RTS
 
-CALLONLINE
-               JSR   MLI        ;CALL MACHINE LANGUAGE INTERFACE
+CALLONLINE     JSR   MLI        ;CALL MACHINE LANGUAGE INTERFACE
                DB    ONLCMD     ;SPECIFY THE ON_LINE SYSTEM CALL
                DA    ONLARGS    ;SPECIFY ADDRESS OF ARGUMENTS
                BEQ   CONTINUE   ;ON_LINE RETURNS 0 ON SUCCESS

online.ver.bas.txt

@@ -0,0 +1,17 @@
+10  REM PRINT ONLINE VERSION
+20  REM
+23  REM SAVE LOCATION 6
+25  LET M6=PEEK(6)
+27  REM
+30  REM PUT "V" FLAG FOR "VERSION"
+40  REM INTO MEMORY LOCATION 6
+50  REM WHERE THE ONLINE PROGRAM
+60  REM WILL LOOK FOR IT.
+70  POKE 6, ASC("V")
+80  REM
+90  REM RUN THE PROGRAM
+100 PRINT CHR$(4);"-ONLINE"
+110 REM
+120 REM RESTORE THE MEMORY LOCATION
+130 POKE 6,M6
+140 END