0 'TXT1.BA author unknown 1 'CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 2 'See TXTCAL.DO for details 100 REM **** CLEAR HIMEM AND LOAD THE ROUTINE 110 CLEAR 100,62750 120 GOSUB 300 130 REM SAMPLE BASIC CALL TO THE EDITOR 140 FN$="HELLO.DO" 150 OPEN FN$ FOR APPEND AS 1 160 CLOSE 1 170 CALL TX,,VARPTR(FN$) 180 PRINT "BACK IN BASIC HERE" 190 END 300 REM **** SET TX AS ENTRY ADDRESS 310 REM **** LOAD ROUTINE AT TX FOR 78 BYTES 320 TX = 62750 'TX MUST BE >= HIMEM 330 FOR A = TX TO TX+65 340 READ N:POKE A,N:NEXT A 350 REM D=INT((TX+48)/256):C=(TX+47)-(256*D):POKE TX+42,C: POKE TX+43,D 360 RETURN 370 DATA 229,213,197,245,126, 35, 94, 35, 86,235 380 DATA 95,205, 11, 76,205,175, 32,202,237, 20 390 DATA 35, 94, 35, 86, 42,157,251,229, 33, 0 400 DATA 0, 34,231,246, 57, 34,157,251,213, 62 410 DATA 1, 33, 77,245,195,113, 95,225,225, 34 420 DATA 157,251,205,156,108,175, 50, 80,246, 61 430 DATA 50,173,250,195,237, 20