Accueil > Réalisations > Publications > Ouvrages > Ouvrage sur la HP28 c/s > Voyage au centre de la HP28 c/s : lire le livre en ligne

Voyage au centre de la HP28 c/s : lire le livre en ligne

mardi 27 juin 2006, par Paul Courbis

Si vous ne voulez pas télécharger l’ensemble de l’ouvrage, vous pouvez le lire en ligne ici...

Si vous désirez une version papier, un « reprint » est disponible via Amazon !

Voyage28 - page 130 - Courbis, acteur de l'Internet depuis 1988
Section prcdente : Interfaces d Page prcdente Sommaire Page suivante Section suivante : Des idées !

Interfaces d'entrées / sorties

(c) Courbis www.courbis.fr   Page 127  2] PROGRAMME DE RECEPTION SUR APPLE II ( Le programme en langage machine de l'apple 'REC..' est ne'cessaire).  RECAPPLE 10  PRINT CHR$(4)'BLOAD REC..'15  GOTO 1000  20  POKE 3*256+16*5+2,425  POKE 771,15: POKE 772,0 30  CALL 76840  L=0: W=1 50  FOR X=0 TO 460  L=L+W*PEEK(AD+X):W=W*16 70  NEXT75  PRINT 'SIZE= ';L 80  LE=2*L85  POKE 771,LE-256*INT(LE/256) 90  POKE 772,INT(LE/256)95  POKE -16295,0: POKE -16296,0 100 CALL 768110 RETURN  500 HOME: PRINT '28 LINK': PRINT '(C) S.LALANDE & P.COURBIS'505 PRINT: PRINT: PRINT 'PRET A RECEVOIR....' 510 AD=32*256: GOSUB 20515 N$= '' 520 A=PEEK(AD+4)+16*PEEK(AD+5)530 FOR X=0 TO A-1 540 N$= N$+ B$( PEEK(AD+6+2*X) + 16 * PEEK(AD+7+2*X) )550 NEXT 560 PRINT 'NAME= ';N$600 PRINT 'SAUVEGARDE' 610 D$=CHR$(4): PRINT D$;'BSAVE';N$;',A$2000,L'; STR$(LE)680 PRINT 'OBJET=' 690 AD= AD + 2 * A + 8700 FOR X=0 TO L-A-5 710 PRINT A$( PEEK(AD+2*X) + 16 * PEEK(AD+2*X+1) );720 NEXT 800 PRINT: PRINT810 PRINT 'ENCORE ? (O/N) ';: GET A$ 820 IF A$<>'N' THEN GOTO 500900 END  1000 DIM A$(256): RESTORE1010 FOR I=0 TO 255 1020 IF I=10 THEN A$(I)= CHR$(13): NEXT1030 IF I<32 THEN A$(I)= '.': NEXT 1040 IF I<96 THEN A$(I)= CHR$(I): NEXT1050 IF I=96 OR I>122 AND I < 148 THEN READ C$: A$(I)=C$: NEXT 1060 IF I<123 THEN A$(I)= CHR$(I-32): NEXT1070 IF I>148 THEN A$(I)= '.': NEXT 1100 DIM B$(256)1110 FOR I=O TO 255 1120 IF I>32 AND I<96 THEN B$(I)= CHR$(I): NEXT1130 IF I>96 AND I<123 THEN B$(I)= CHR$(I-32): NEXT 1140 B$(I)= ' ': NEXT1150 GOTO 500 1200 DATA '`','(','!',')','-','#',' ','/','*','V','S','E','D','#','&','=<','>=','#','A','->','<- ','U','LF',''',  '<<','>>'  V28 #3 (C) 2001 www.courbis.com 8/03/2001, 12:45127
Section prcdente : Interfaces d Page prcdente Sommaire Page suivante Section suivante : Des idées !
© Courbis 1988-2010
Tous droits réservés
Permalien
Faire un don avec Paypal Le livre est entièrement gratuit mais vous pouvez
avec Paypal pour participer aux frais d'hébergement de ce site... Merci !

Messages

Un message, un commentaire ?

modération a priori

Ce forum est modéré a priori : votre contribution n’apparaîtra qu’après avoir été validée par un administrateur du site.

Qui êtes-vous ?
Votre message

Pour créer des paragraphes, laissez simplement des lignes vides.

Les spams donneront systématiquement lieu à dépôt de plainte. Les messages peu aimables ou comportant trop de fautes d'orthographe seront purement et simplement supprimés sans publication.
ipv6 ready ipv6 test
Suivre ce site :
Recommander cette page :
Bookmark and Share
Traduire :