HispaMSX

work for SCREEN4 define new character

2004-09-05 11:12:45
Hello,

I have a problem!!, I would do work for SCREEN4 with define new character, but 
without to use OPEN"GRP:"AS#1 and PRINT#1, for work with XBASIC-KUN, I would to 
print the score, high score ect.. using VPOKE with a function about MID$ or 
other that I not know.


10 REM can't it to use OPEN"GRP:"AS#1 and PRINT#1
20 REM for to use xbasic-kun
30 REM
40 SCREEN4:COLOR,4,5
50 RESTORE110:FORB=8TO87:READC:VPOKEB,C:NEXTB
60 SC=100
70 'I=0:SC$=STR$(SC):SC$=MID$(SC$,2,LEN(SC$)-1):REM doesn't work
80 'FORI=LEN(SC$)TO1STEP-1:N=ASC(MID$(SC$,I,1)):VPOKE(6160+N-48),A:NEXTI:REM 
doesn't work
90 VPOKE6350,1:VPOKE6351,2:REM print 01
100 GOTO100
110 DATA 120,204,204,204,204,204,120,0:REM 0
120 DATA 48,112,240,48,48,48,48,0:REM 1
130 DATA 120,204,12,24,112,192,252,0:REM 2
140 DATA 120,204,12,56,12,204,120,0:REM 3
150 DATA 24,56,88,152,252,24,24,0:REM 4
160 DATA 252,192,240,24,12,24,240,0:REM 5
170 DATA 56,96,192,248,204,204,120,0:REM 6
180 DATA 252,12,24,48,48,48,48,0:REM 7
190 DATA 120,204,204,120,204,204,120,0:REM 8
200 DATA 120,204,204,124,12,24,112,0:REM 9

Bye
Andrea from Italy

 


[Se han eliminado los trozos de este mensaje que no contenían texto]


<Anterior en la conversación] Conversación actual [Siguiente en la conversación>
  • work for SCREEN4 define new character, Andrea <=