Tag: Bob Huelsdonk

Routine to Print Free Bytes

Bill Martens
Posted by: Bill Martens Date: August 1, 1978
0 Likes 544 Views

By Bob Huelsdonk Only line 30001 is required for less than 32K of Memory.  The first GOTO 30000 shows result with  greater than 32K of Memory. The second GOTO 30000 shows the result with less than 32K of memory. 30000 IF PEEK (203)>128 THEN 30002 30001 PRINT PEEK (202)+ PEEK (203)*256- PEEK (204)- PEEK (205 )*256;” BYTES FREE”: END 30002 PRINT 32767-( PEEK (204)+ PEEK (205)*256);” BYTES + “; PEEK (202)+( PEEK< (203)-128)*256 +1;” BYTES FREE”: END >GOTO 30000 30719…

Coming Up In Call-A.P.P.L.E.

A.P.P.L.E.
Posted by: A.P.P.L.E. Date: May 1, 1978
0 Likes 466 Views

For Applesoft users, a fix decimal point routine by Bob Huelsdonk and a floating point foutine for Integer Basic by Don Williams, along with YOUR programs and YOUR articles. Our pay scale is pretty low (nothing!), but the rewards are gratifying… By submitting your programs to our library, you have helped another member with your contribution!

“POKE” This in your Apple!

Bob Huelsdonk
Posted by: Bob Huelsdonk Date: March 1, 1978
0 Likes 696 Views

By Bob Huelsdonk and Val Golding A subroutine to find the Basic POKE statements for a machine language program or subroutine.  Find the starting address of the routine you wish to Poke and convert that to Decimal. Now, in Basic, enter the following program. (n=starting address) 1000  A=n : B=A+19 1010 FOR 1= A TO B: PRINT I, PEEK(l): NEXT I 1020 X =PEEK (-16384) : POKE -16368, 0 : IF X=127 THEN 1030: GOTO 1020 1030 A=A+20: B=A+19: GOTO…