Ti80.Online
Pour avoir plus de programmes, rendez-vous sur
http://www.ti80.online.fr
ti80@citeweb.net
CE PROGRAMME PERMET DE PAS FAIRE GRAND CHOSE. IL FAIT A PEU PRÈS LA
MÊME CHOSE QU'UN AFFICHEUR DE TÉLÉPHONE. JE L'AI CONÇU À LA SUITE
D'UNE DEMANDE DE SARAH POTVIN QUI AIME JOUER AU TÉLÉPHONE AVEC SA
CALCULATRICE.
-----------------------------------------------------------------------
SI VOUS ÉPROUVEZ DES PROBLÊMES VOUS POUVEZ ME CONTACTER PAR E-MAIL
OU PAR ICQ.
NOTEZ QUE PAR "ICQ" JE NE SUIS PAS LE SEUL UTILISATEUR DE MA FAMILLE
DEMANDEZ DONC SI C'EST MOI QUI EST PRÉSENT!
-----------------------------------------------------------------------
FAIT PAR DAVID GAGNON
adjudant.gagnon@caramail.com
TELEPHO VERSION 1.02
ICQ:77754519
21:40 00-05-16
PROGRAME ADAPTÉ POUR LA TI-80
-----------------------------------------------------------------------
CLÉ DE SIGNIFICATION
~ EST LA TOUCHE "STO>"
! EST CETTE TOUCHE DANS LE MENU [MATH]
-----------------------------------------------------------------------
TAILLE: 524
BOGUE(S) CONNU(S): AUCUN
-----------------------------------------------------------------------
DISP "FAIT PAR:"
DISP "DAVID GAGNON"
DISP "TELEPHON V1.00"
LBL A
CLRHOME
DISP "DRING DRING"
DISP " "
DISP " "
DISP " "
69!
69!
69!
DISP "DRING DRING"
PAUSE
LBL B
DISP "VOUS AVEZ"
DISP "UN APPEL DE"
PAUSE
RANDINT (1,5)~X
IF X=1
GOTO 1
IF X=2
GOTO 2
IF X=3
GOTO 3
IF X=4
GOTO 4
IF X=5
GOTO 5
STOP
LBL 1
DISP "NOM"
DISP "DAVID GAGNON"," "
DISP "NO DE TEL:"
DISP "tapez un N° de téléphone"
PAUSE
GOTO Z
LBL 2
DISP "NOM"
DISP "LOUIS MEROZ"," "
DISP "NO DE TEL:"
DISP "tapez un N° de téléphone"
PAUSE
GOTO Z
LBL 3
DISP "NOM"
DISP "DANY GAUTHIER"," "
DISP "NO DE TEL:"
DISP "tapez un N° de téléphone"
PAUSE
GOTO Z
LBL 4
DISP "NOM"
DISP "JOE BLACK"," "
DISP "NO DE TEL:"
DISP "tapez un N° de téléphone"
PAUSE
GOTO Z
LBL 5
DISP "NOM"
DISP "ADELAR GODBOUT"," "
DISP "NO DE TEL:"
DISP "tapez un N° de téléphone"
PAUSE
GOTO Z
LBL Z
CLRHOME
DISP "LA COMMUNICATION"
DISP "EST ROMPUE"
DISP " "," "," "
69!
69!
69!
DISP "AU REVOIR!"
STOP