printalt.bas

来自「82 sample programs written in BASCOM-805」· BAS 代码 · 共 32 行

'------------------------------------------------------
'                (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