
http://forums.oric.org/t59-programmation-basic
d'avance merci
Je repompe le code de tyrann sans comprendre la partie mémoire: Poke, ...Dbug wrote:Il faudrait poker Xeron: Si je rajoute des zeros a la fin du fichier ca charge bien.
Donc l'erreur est soit dans tap2bas, soit dans Oricutron.
Si tu le dis![]()
Dbug wrote:Sinon pour la beta: Poker les valeurs en #A000 c'est violent :p
Code: Select all
2000 REM ######## CARACTERISTIQUES ############
2100 POKE#A000,0
2110 O1=#A000
2120 FORL=1TO6
2130 O1=O1+1:POKEO1,LEN(N$(L))
2140 FORJ=1TOLEN(N$(L))
2150 O1=O1+1:POKEO1,ASC(MID$(N$(L),J,1))
2160 NEXTJ
2170 O1=O1+1:DOKEO1,INT(RI(L)/10):O1=O1+2
2180 DOKEO1,1:O1=O1+2
2190 IFC$(L)=GU$THENPOKEO1,1:GOTO2300
2200 IFC$(L)=MA$THENPOKEO1,2:GOTO2300
2210 IFC$(L)=VO$THENPOKEO1,3:GOTO2300
2220 IFC$(L)=DR$THENPOKEO1,4
2300 O1=O1+1:POKEO1,PV(L)
2310 O1=O1+1:POKEO1,ET(L)
2320 O1=O1+1:POKEO1,OK(L)
2330 O1=O1+1:POKEO1,NI(L)
2340 O1=O1+1:POKEO1,FO(L)
2350 O1=O1+1:POKEO1,QI(L)
2360 O1=O1+1:POKEO1,VI(L)
2370 O1=O1+1:POKEO1,AG(L)
2380 O1=O1+1:POKEO1,AR(L)
2390 O1=O1+1:POKEO1,CA(L)+10:O1=O1+24
2400 NEXTL
2500 CLS:PRINT:PRINT:PRINT:PRINT"VOTRE EQUIPE EST PRETE"
2510 PRINT:PRINT"ELLE EST DANS LA COUR"
2520 PRINT:PRINT"DE 'WINTERFELL'..."
2530 WAIT300
2550 N=INT(PEEK(#A000)*4/5)+1:IFN>7THENN=7
2600 REM CLOAD"TYRA3.tap"
2900 END
Code: Select all
00000000 16 16 16 16 24 ff ff 00 00 05 10 05 01 ff 54 54 |....$.........TT|
00000010 54 54 00 0e 05 0a 00 ba 20 22 54 45 53 54 22 00 |TT...... "TEST".|
00000020 00 00 55 |..U|
Code: Select all
00000000 16 16 16 16 24 ff ff 00 00 05 10 05 01 ff 00 0e |....$...........|
00000010 05 0a 00 ba 20 22 54 45 53 54 22 00 00 00 43 |.... "TEST"...C|
Code: Select all
00000000 16 16 16 16 24 ff ff 00 00 05 10 05 01 ff 54 54 |....$.........TT|
00000010 54 54 00 0e 05 0a 00 ba 20 22 54 45 53 54 22 00 |TT...... "TEST".|
00000020 00 00 55 |..U|
Code: Select all
00000000 16 16 16 16 24 ff ff 00 00 05 10 05 01 ff 00 0e |....$...........|
00000010 05 0a 00 ba 20 22 54 45 53 54 22 00 00 00 43 |.... "TEST"...C|
There is a problem with the tool generating this tape file.christian wrote:Here is a hexdump of a simple BASIC program tape (CSAVE "TTTT" with Euphoric or Oricutron)Code: Select all
00000000 16 16 16 16 24 ff ff 00 00 05 10 05 01 ff 54 54 |....$.........TT| 00000010 54 54 00 0e 05 0a 00 ba 20 22 54 45 53 54 22 00 |TT...... "TEST".| 00000020 00 00 55 |..U|