bb4d-fixer

Este programa es una recopilación de varios parches que corrigen algunos fallos de Beta BASIC 4.0+D. Los recopilé de la página 13 del boletín Beta BASIC Newsletter número 11.

Listado


  10 REM bb4d-fixer
     
  20 REM Compilation of bug fixes for Beta Basic 4.0+D
     
  30 REM By Marcos Cruz (programandala.net)
  40 REM 2010-05-26
     
  50 
     REM Fix FORMAT"p";n
     BB Newsletter 11/13
     
  60 POKE 55940,205
     POKE 55941,63
     POKE 55942,189
     POKE 55943,11
  70 
     REM Fix extra bytes in the invisible form of floating numbers (and BIN)
     BB Newsletter 11/13
     
  80 RESTORE 130
  90 FOR n=50236 TO 50251
       READ a
       PRINT n,a
       POKE n,a
     NEXT n
 100 FOR n=50461 TO 50476
       READ a
       PRINT n,a
       POKE n,a
     NEXT n
 110 FOR n=64239 TO 64242
       READ a
       PRINT n,a
       POKE n,a
     NEXT n
 120 POKE 50192,48
 130 DATA 205,29,197
 140 DATA 48,249,205,182,24,40,195,229,223,205,155,44,225
 150 DATA 35,126,205,27,45,208,254,46,200,230,223,254,69,200,55,201
 160 DATA 223,205,1,196
 170 
     REM Fix SORT
     BB Newsletter 11/13
     
 180 LOAD d*"bbc2"CODE 32000
 190 RESTORE 210
 200 FOR n=37821 TO 37834
       READ a
       PRINT n,a
       POKE n,a
     NEXT n
 210 DATA 191,195,115,191,221,37,200,24,235,201,84,93,26,9
 220 RANDOMIZE USR 32256
 230 
     REM Save the fixed Beta Basic
     
 240 LET rt=PEEK 23730+256*PEEK 23731
 250 LET ch=PEEK 23631+256*PEEK 23632
     POKE ch,27
     POKE ch+1,17
     POKE ch+2,27
     POKE ch+3,17
     SAVE OVER d*"bbc1"CODE rt+1,65367-rt
     RANDOMIZE USR 63039
     RANDOMIZE USR 59910
     SAVE OVER d*"bbc2"CODE 16384,6144
     CLS 
     STOP 
 260 DEF PROC s
       CLEAR 
       SAVE d*"bb4d-fixer"
     END PROC

Descarga

Páginas relacionadas

Glosario

BASIC
Beginner's All-Purpose Symbolic Instruction Code (código polivalente de instrucciones simbólicas para principiantes)
DOS
Disk Operating System (sistema operativo de disco)
Arriba
Anterior
Siguiente