1 ' GENDRV.BAS - BASIC COMPANION PROGRAM TO GENDRV.COM GSD 8/6/84 2 BASINT = PEEK(&H6C)+PEEK(&H6D)*256 'ADDRESS OF BASIC I/F TABLE IS IN &H6C 3 LET I = BASINT+10 : DEFINT A 'ASSIGN VARIABLES REFERENCED TO BASINT 4 BSOUND= PEEK(I)+PEEK(I+1)*256 : BADCVRT= PEEK(I+2)+PEEK(I+3)*256 60000 CLS:SCREEN,,0 'CLEAR EVERYTHING ON SCREEN 60020 PRINT SPC(15) "**************************************************" 60030 PRINT SPC(15) "* *" 60040 PRINT SPC(15) "* GENEVA BASIC/Z80 INTERFACE *" 60050 PRINT SPC(15) "* *" 60060 PRINT SPC(15) "**************************************************" 60110 PRINT:PRINT "WHAT IS YOUR BASIC PROGRAM'S TITLE? "; 60120 INPUT "",PNAM$ : CLS 60130 PRINT:PRINT "CHAINING IN '" PNAM$ "' PROGRAM NOW ..." 60140 ' MAKE SURE THE PROGRAM BEING CHAINED STARTS AT A LINE NUMBER GREATER 60160 ' THAN THE LAST LINE BEFORE LINE 60000 OF THIS PROGRAM. 60180 CHAIN MERGE PNAM$,,ALL,DELETE 60000-60180 'LOAD IN THE USER PROGRAM