daffichage) et desactivation du programme AUTO.BAT0 REM programme AUTO BOOT5 REM (c) HCL10 CLEAR,&HA1FF20 INIPAL$="OUI" 'le boot doit il
initialiser la palette30 IGABAT$="NON" ' le boot doit il ignorer un eventuel auto.bat40 FOR I=&HA200 TO &HA27F :READ
A$:A=VAL("&H"+A$) : POKE I,A:S=S+A :NEXT I50 IF S <> 13924 THEN PRINT "BAD DATAS" :END ELSE POKE &HA280,STRING$(125,CHR$(0))60
IF INIPAL$="OUI" THEN FOR I=0 TO 15 :READ M
OKE &HA281+I*2,M AND 255 :NEXT I70 A$="":GOSUB 400:IF LEN(A$)>94 THEN PRINT "Chaine trop Longue" : END ELSE POKE &HA2A0,A$80 POKE&HA2FF,-128*(IGABAT$="OUI")- 64*(INIPAL$="OUI")90 SAVEM "PREFBOOT",&HA200,&HA2FF,0 :
END100 REM listing codes hexa de prefboot110 DATA 8E,62,00,E6,80,E7120 DATA 89,0F,FF,8C,63,00130 DATA 26,F5,7E,72,11,7F,00,00140 DATA
BD,2B,42,10,Ce,9F,FF,7F150 DATA 00,01,BD,01,93,03,31,10160 DATA FF,6C,43,7F,00,00,BD,2D170 DATA 00,86,02,8E,01,00,BD,3A180 DATA
13,86,80,B7,67,68,BD,34190 DATA 2F,86,04,B7,6C,42,8E,63200 DATA 00,BF,60,27,B6,60,19,8A210 DATA 20,B7,60,19,86,FF,B7,60220 DATA
3A,BD,04,3B,8E,72,A0,E6230 DATA 80,BD,E8,03,26,F9,B6,72240 DATA FF,2A,03,7F,60,7F,48,27250 DATA 08,86,FF,8E,72,80,BD,EC260 DATA
00,7E,2B,AD,BE,BF,AD,B7270 DATA BD,CE,00,00300 REM Valeurs initialisation palette 16 couleurs310 DATA 0,4095,240,255,3840,3855315 DATA
4080,4095,1911,826,931,938320 DATA 2611,2618,3815,123400 REM Chaine de caracteres à afficher au Boot401 A$=A$+CHR$(27)+CHR$(96) 'tour noir402
A$=A$+CHR$(27)+CHR$(91) 'mode 80 colonnes403 A$=A$+CHR$(27)+ "Bienvenue sur la disquette HCL"404 A$=A$+CHR$(13)+CHR$(10) 'ENTREE405 A$=A$+CHR$(10)
'fleche vers bas406 A$=A$+CHR$(27)+CHR$(79) 'taille double407 A$=A$+"micro-news"408 A$=A$+CHR$(27)+CHR$(76) 'demi-taille409 RETURN Ce programme
va creer un fichier PREFBOOT.BINCe fichier sera implanté avec le programme PUTBOOT.BAS deja presentéet qui est de nouveau listé ci-dessous.PROGRAMME
PUTBOOT.BASExemple : Programme d implantation d un fichier executablesur un boot-block10 CLEAR,$HA1FF:CLS:SCREEN 7,0,020 LINEINPUT "fichier à
transformer en Boot :"; A$30 INPUT "le fichier est traité de $A200 à $A2FF. valeur du décalage au chargement (ou decalage nul avec ENT):" ;M$
: IF M$="" THEN M$="0"40 LOCATE,,0:M = VAL("$H"+M$): LOADM A$,M : M=$A200
RINT " traitement en cours" : FOR I = 0 TO 126 : POKE M+I,(256-PEEK(M+I)) AND 255 : S= S + PEEK(M+I):NEXT I
OKE M+I,(&H55-S) AND 25550 PRINT RINT "Insérez la disquette pour y mettre sur le Boot-block"; : PRINT" le fichier ";A$;"...":PRINT:A$=INPUT$(1)60 A$= DSKI$(0,20,2):IF MID$(A$,2,1)<>CHR$(255) THEN PRINT "ecriture
impossible:Boot-Block deja reservé" : END ELSE MID$(A$,2,1)=CHR$(254):DSKO$ 0,20,2,A$70 PRINT
SKO$ 0,0,1,"":POKE &H604F,INT(M/256) : POKE $H6050,M-256*INT(M/256):EXEC$HE82A ________________________________