UTILITAIRE -> Bureautique et communication               

Paru sous forme de listing dans le magazine Happy Computer N°17 - Issue 03/85
Auteur : Frank F. HAUB

Adaptation pour les CPC 664/6128 par Copper :
L'adaptation pour le 664/6128 nécessite le déplacement des routines asm et des POKEs associés (tout à été descendu de 768 (&300) octets) car sinon les SYMBOL pour les caractères allemands écrasent le code machine.

Voici la liste des lignes modifiées pour le 664/6128 :
* Remplacement de &a4 par &a1 :

50 DATA &06,&01,&3e,&00,&21,&00,&00,&11,&13,&4f,&cd,&50,&bc,&c9
60 DATA &06,&00,&cd,&13,&a1,&c9
70 DATA &21,&10,&a1,&01,&4f,&00,&11,&b2,&01,&ed,&b0,&c9
80 DATA &21,&10,&a1,&36,&20,&01,&c0,&44,&11,&0f,&a1,&ed,&b8,&c9
90 DATA &21,&0f,&a1,&01,&00,&00,&11,&10,&a1,&ed,&b0,&62,&6b,&36,&80,&c9
100 DATA &dd,&21,&00,&ff,&21,&00,&00,&11,&4f,&00,&19,&dd,&19,&3e,&20,&be,&28
110 DATA &08,&3e,&80,&be,&28,&03,&c3,&59,&a1,&54,&5d,&2b,&dd,&22,&7a,&a1,&ed
120 DATA &4b,&7a,&a1,&ed,&b8,&23,&36,&20,&c9,&00,&00
130 DATA &21,&10,&a1,&01,&4f,&00,&11,&1b,&02,&ed,&b0,&13,&01,&4f,&00,&ed,&b0,&13
140 DATA &01,&4f,&00,&ed,&b0,&c9

* Décalage des adresses des POKE de -768

150 FOR i=41233 TO 41363: READ a: POKE i,a: NEXT
160 CALL 41265: stelle=24402: GOSUB 1720: POKE 24399,hi: POKE 24400,lo
170 scrollup=41233: scrolldown=41247
180 loadline=41253: cleartext=41265
190 clearchar=42047: insert=41295
200 nimm3=41340

1190 POKE 41255,hi:POKE 41254,lo
1330 GOSUB 1680:POKE 41342,hi:POKE 41341,lo
1480 POKE 41283,78-spalte
1490 GOSUB 1640:POKE 41287,hi:POKE 41286,lo
1510 GOSUB 1640:POKE 41281,hi:POKE 41280,lo
1580 POKE 41297,255-spalte
1600 POKE 41301,hi:POKE 41300,lo
1790 POKE 41263,&B8:einf=1:oldzchn=zchn
1800 stelle=te:GOSUB 1720:POKE 41255,hi:POKE 41254,lo
1810 stelle=te-(tb+zchn)+1:GOSUB 1720:POKE 41258,hi:POKE 41257,lo
1820 stelle=te+1423:GOSUB 1720:POKE 41261,hi:POKE 41260,lo
1840 POKE 41254,&10:POKE 41255,&A4:POKE 41257,&4F:POKE 41258,&0:POKE 41260,&B2:POKE 41261,&1
1850 zchn=zchn+1421:speicher=zchn:GOSUB 1640:POKE 41267,hi:POKE 41266,lo
1860 stelle=1421:GOSUB 1720:POKE 41272,hi:POKE 41271,lo
1870 zchn=zchn-1:GOSUB 1640:POKE 41275,hi:POKE 41274,lo
1900 POKE 41266,&10:POKE 41267,&A4:POKE 41271,&C0:POKE 41272,&44:POKE 41274,&F:POKE 41275,&A4
1910 POKE 41263,&B0:zeile=0:zchn=zchn+spalte:GOSUB 1230
1980 stelle=speicher+tb+2:GOSUB 1720:POKE 41255,hi:POKE 41254,lo
1990 stelle=te-(zchn+tb)+1: GOSUB 1720: POKE 41258,hi: POKE 41257,lo
2000 GOSUB 1640:POKE 41261,hi:POKE 41260,lo
2020 POKE 41254,&10:POKE 41255,&A4:POKE 41257,&4F:POKE 41258,&0:POKE 41260,&B2:POKE 41261,&1

* adaptation des MEMORY

510 IF a=0 THEN KEY DEF 65,1,50,34: MEMORY 41419: MODE 2: END
3610 MEMORY 41419: RUN 170
3640 GOSUB 3650: MEMORY 41419: RUN 170