%%%%%%%%%%%%%%%% % % % VT100 % % (c) A.Raclot % % % %%%%%%%%%%%%%%%% % Save Reg GOSBVL 0679B % Init P P= 0 % Init Flags ST=0 0 ST=0 1 C=0 A D0= 80842 DAT0=C 1 % Activation % prise serie D1= 00110 LC F DAT1=C 1 % Plus de menu D1= 00128 LC F DAT1=C 1 % On efface tout D0= 8068D A=DAT0 A D0=A LC 00087 A=0 W *Clear DAT0=A W D0=D0+ 16 C=C-1 A GONC Clear % On reserve % toute la memoire C=D A C=C+C A C=C+C A C=C+D A C=C-16 A C=0 P LA 00200 ?C>A A GOYES MemOK GOSBVL 067D2 A=0 A A=A+1 A GOVLNG 05023 *MemOK R2=C A GOSBVL 05B7D LC 15 CR0EX A RSTK=C GOSUB Txt $A082349202251434 $C4F4450214C65687 $16E6462756A0A0F4 $666696369616C602 $07167656A3A08647 $4707A3F2F2777777 $E236964756775626 $E2E65647F2F60747 $96D657D6F2860743 $83F28607E2364777 $A0A054D61696C6A3 $A0F6074796D657D6 $0436964756775626 $E2E6564700000000 *Txt C=RSTK D1=C A=R2 A D=0 A D=D+13 A *AffTxt A=A-16 A C=DAT1 W DAT0=C W D0=D0+ 16 D1=D1+ 16 D=D-1 A GONC AffTxt R2=A A CD0EX D0=C R1=C A R3=C A R4=C A A=A-16 A LC 0A0A0A0A0A0A0A0A *Init DAT0=C W D0=D0+ 16 A=A-16 A GONC Init CD0EX R2=C A %%%%%%%%%%%%%%%%%%%%% % Boucle Principale % %%%%%%%%%%%%%%%%%%%%% *Turn % STOP? D0= 807F7 C=DAT0 A ?C=0 A GOYES NoFin GOTO Fin *NoFin % Lecture Buffer RS232 GOSBVL 31289 GOC NoRS232 GOSUB Add *NoRS232 % Lecture Buffer Keys GOSBVL 04840 GOC Turn % Traitement % des touches LA 80 ?C帰 B GOYES NoAlpha C=0 A ?ST=0 0 GOYES AlphaBit0 ST=0 0 ST=0 1 GONC AlphaBit1 *AlphaBit0 ST=1 0 CBIT=1 2 *AlphaBit1 D0= 80842 DAT0=C 1 GOTO Turn *NoAlpha LA 40 ?C帰 B GOYES NoSchift C=0 A CBIT=1 2 ?ST=0 0 GOYES Turn ?ST=0 1 GOYES SchiftBit0 ST=0 1 GONC SchiftBit1 *SchiftBit0 ST=1 1 CBIT=1 0 *SchiftBit1 D0= 80842 DAT0=C 1 GOTO Turn *NoSchift LA 19 ?C帰 B GOYES NoEnter LA 0D GOSUB Send GOTO Turn *NoEnter LA 1B ?C>A B GOYES NoLettres ?ST=0 0 GOYES Arrows A=A-1 B ?C