printalt.bas

82 sample programs written in BASCOM-8051 for 8051 developement

'------------------------------------------------------
'                (c) 1998-2000 MCS Electronics
' demo that shows PRINT in combinatin with ALTAIR ROM
'------------------------------------------------------


'Ejemplo de programa que transmite por el puerto serie


$romstart = &H8000                      'Inicio de la ROM
$ramstart = &HF000                      'Inicio de la XRAM
$ramsize = &H1000                       'Tama駉 de la XRAM


$noinit                                 'No configuro puerto serie

Inicio:
Dim S As String * 12

Do
    Print "Hola"
    Wait 1
    Input "Name " , S
    Print S

    CPL P3.5
    Wait 1
Loop
End