Cerca articoli...
Mini gallery
  • Eventi/brusaporto 2010
  • Eventi/brusaporto 2013
  • Meetings/2010-francomputer
  • Eventi/fvb2011
  • Hardware/flashrom99
  • Eventi/brusaporto 2010
  • Hardware/ti 994
  • Eventi/brusaporto 2013
  • Eventi/brusaporto 2014
  • Eventi/titreff2011
Storico articoli
Mailing list
Nome
Email
Iscrizione
Cancellazione
YouTube Channel
Facebook
PRINT AT subroutine in TI BASIC example - DevDemo

PRINT AT subroutine in TI BASIC example - DevDemo


Questa routine in TI BASIC ma compatibile con Extended BASIC anche, offre l'opportunità anche in BASIC di poter scrivere qualcosa a schermo dando le coordinate di Riga, Colonna.

Una volta assegnata la variabile A$, dopo il RUN la scritta verrà visualizzata lettera per lettera accompagnata da un suono.

Basta seguire l'esempio contenuto nel file .ZIP della sezione download e potrete migliorare l'aspetto dei vostri giochi o programmi.

 

Subroutine di Base Esempio + Subroutine
10000 ! SUBROUTINE PRINT AT
10010 R$=SEG$(A$,1,2)
10020 C$=SEG$(A$,3,2)
10030 R=VAL(R$)
10040 C=VAL(C$)
10050 FOR L=5 TO LEN(A$)
10060 A=ASC(SEG$(A$,L,1))
10070 CALL HCHAR(R,C,A,1)
10080 C=C+1
10090 IF A=32 THEN 10110
10100 CALL SOUND(10,1500,0)
10110 NEXT L
10120 RETURN

10 CALL CLEAR
21 A$="1203SEGUICI SU TI99IUC.IT!!  :-)"
100 GOSUB 10000
200 GOTO 200
...
...
10000 ! SUBROUTINE PRINT AT
10010 R$=SEG$(A$,1,2)
10020 C$=SEG$(A$,3,2)
10030 R=VAL(R$)
10040 C=VAL(C$)
10050 FOR L=5 TO LEN(A$)
10060 A=ASC(SEG$(A$,L,1))
10070 CALL HCHAR(R,C,A,1)
10080 C=C+1
10090 IF A=32 THEN 10110
10100 CALL SOUND(10,1500,0)
10110 NEXT L
10120 RETURN

 RISULTATO:
 

 

Codice Dev_XBDev12
Dettagli Digitale
Lingua ------ Anno 198?
Tipo Development
Categoria Software
Livello rarità C (Common Everyone has it; most people have several duplicates)
Costruttore Unknown
Commenti
Formato Cassette Tape / Floppy Disk
Linguaggio sviluppo Basic
Sviluppatore Unknown
Distributore o Editore Unknown
Sistema TI-99/4 - TI-99/4A
Voto UTENTI star ratingstar ratingstar ratingstar ratingstar rating (n/d) VOTO TI99IUC star ratingstar ratingstar ratingstar ratingstar rating (0.00)
Valutazione
Valore acquisto 0.00 Valore odierno 0
Galleria aste n/d
Note
Sfoglia on-line
Download   (---)-(Dev)-(PRINT_AT routine example)-(---)-(B)-(---)-(---).zip (14.64 KBytes)
Siti approfondimento n/d
Articoli correlati


Google Translate

Don't understand Italian? Choose your language!

Materiale TI99?

Vuoi aiutarmi preservare la storia del TI-99 ?

Se possiedi Materiale Italiano e non che riguarda il TI-99 e che vorresti condividere nella nostra Community... contattami e potermo inserirlo nel nostro Database Globale

Donazione

Se desideri sostenere questo sito puoi inviare una donazione.

Hot Links

TI-99 RELEATED

RETROCOMPUTING altro...

Copyright © 2013-2020 by TI99 I.U.C. - Tutti i diritti riservati - All rights reserved - Loghi e marchi sono di proprieta' dei rispettivi proprietari.
E' vietata la riproduzione integrale o parziale di contenuti o documenti previa autorizzazione.
Copyright   |    Privacy