bb4d-fixer

Priskribo de la ĉi-paĝa enhavo

Fiksilo por iuj eraroj de Beta BASIC 4.0+D.

Etikedoj:

Jen kompilo de erarfiksiloj por Beta BASIC 4.0+D publikigitaj en la bulteno Beta BASIC Newsletter numero 11, paĝo 13.

Fontkodo

  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 

Deŝutoj

Rilataj paĝoj

OverBug
Ilo por esplori misfunkciadon de Beta DOS en Beta BASIC, por Sinclair ZX Spectrum.
stringBug
Montrado de miso de Beta BASIC, por Sinclair ZX Spectrum.