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
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 !
 |
 |
 |
 |
 |
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](/Book/Voyage28/130.gif)
|
||||
|
|
|
|
|
Tous droits réservés
Permalien
Messages
1. traduction anglaise de Voyage au centre de la HP28 c/s, 14 décembre 2017, 16:57, par Mike Pouchak
Bonjour Paul Corbis,
Je suis intéressé à obtenir une traduction anglaise de
« Voyage au centre de la HP28 c / s »
Connaissez-vous des travaux dans ce domaine ?
Connaissez-vous d’autres versions en anglais ?
Je pourrais être enclin à produire une traduction très limitée de sujets clés tels que l’index et la table des matières pour aider à ma compréhension à des fins privées.
Merci,
Mike Pouchak
Minnesota, USA
1. traduction anglaise de Voyage au centre de la HP28 c/s, 14 décembre 2017, 20:14, par Paul Courbis
Just sent you an email ;-)