50000 SYMBOL AFTER 32:UDG=PEEK(&B736)+(256*PEEK(&B737))-258:FOR J=1 TO LEN(M$):AD=8*ASC(MID$(M$,J,1))+UDG:FOR I=1 TO 8:Q$=BIN$(PEEK(AD+I),8):D$="":FOR H=1 TO 4:B$=MID$(Q$,H,1):D$=D$+B$+B$:NEXT:C(I)=VAL("&X"+D$):D$="" 50005 FOR H=5 TO 8:B$=MID$(Q$,H,1):D$=D$+B$+B$:NEXT:D(I)=VAL("&X"+D$):NEXT 50010 SYMBOL 252,C(1),C(1),C(2),C(2),C(3),C(3),C(4),C(4):SYMBOL 253,C(5),C(5),C(6),C(6),C(7),C(7),C(8),C(8):SYMBOL 254,D(1),D(1),D(2),D(2),D(3),D(3),D(4),D(4):SYMBOL 255,D(5),D(5),D(6),D(6),D(7),D(7),D(8),D(8):PAPER P1:PEN C1 50020 LOCATE X+J*2,Y:PRINT CHR$(252)+CHR$(254);:LOCATE X+J*2,Y+1:PRINT CHR$(253)+CHR$(255);:NEXT:PEN 1::RETURN
Dernière édition par Xavier le 29 Avr 2016, 18:49, édité 1 fois.
Marrant comme programme! Pas de routines assembleur. Redéfinition de la table des caractère et un CALL&BD1C,2 Mais, nous sommes en "mode 2" avec une écriture en 2 couleurs (ink1 et 3)
Utilisateur(s) parcourant ce forum : Aucun utilisateur inscrit et 3 invité(s)
Vous ne pouvez pas publier de nouveaux sujets dans ce forum Vous ne pouvez pas répondre aux sujets dans ce forum Vous ne pouvez pas éditer vos messages dans ce forum Vous ne pouvez pas supprimer vos messages dans ce forum Vous ne pouvez pas insérer de pièces jointes dans ce forum