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