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
|