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 |