comment %
 Demo program assembled with the NewBasic assembler
 (C)opyright  1984-2003  Forever Young Software
 Benjamin David Lunt
 13 Jan 2003

 Please note that if you use the 16-bit version, you will
 need to change the '>>' on line 24 below to a '>'

 I also changed the "pause routine" to look at the timer tick
 at 0040:006Ch, since my laptop with Phoenix BIOS 4.0 rel 6.0
 does not support the INT 15h, service 86h pause service. :(
 If you have a faster machine and the text below scrolled by
 quite quickly before, but now it is fine, please let me know.
 I would be interested in knowing what BIOS version you have.
%

One    equ  01h                         ; test EQU
.model tiny                             ; create COM file
.external prtstring                     ; include the code for prtstring
.186                                    ; allow 186 intructions
.stack 64                               ; make the stack 64+ bytes
.code                                   ; start of code segment
           .start                       ; write startup code (set sp)
           mov  ah,One                  ; turn off cursor (test EQU)
           mov  ch,00100000b            ; bit number 5 (test BIN num)
           int  10h                     ;
           mov  ax,offset cs:msg1       ; string output (test offset cs:)
           push ax                      ; use library function (prtstring)
           call prtstring               ;
scrolls:   mov  dx,offset scrllmsg      ; scroll section
           mov  ah,(09h+9>>1)           ; = 09h (test the math part)
           int  21h                     ;
           mov  si,dx                   ; move scrllmsg into si from dx above
           mov  di,dx                   ; move desination into di
           lodsb                        ; move 1st letter -> al move si to 2nd letter (save letter)
           mov  cx,'M'                  ; do it 77 times (test ischar)
           rep
           movsb                        ; move from source to destination
           stosb                        ; store string byte into destination (saved letter)
           mov  cx,2                    ;
           call sec_delay               ; pause execution
           mov  ah,06h                  ; see if key pressed
           mov  dl,0FFh                 ;
           int  21h                     ;
           jz   short scrolls           ; loop if no key pressed (test 'short')
           call PrtThnx                 ; test calling proc and ret - endp
           mov  dx,offset @label        ; Move down a line (test unique name)
           mov  ah,09h                  ;
           int  21h                     ;
           cs:                          ; test cs: (same as mov  ah,cs:One1)
           mov  ah,One1                 ; turn on cursor (test mem ref)
           mov  ah,cs:One1              ; turn on cursor (test mem ref w/OvrR)
           mov  cs:One1,ah              ; just testing seg override
           push 0607h                   ; test the push of a const
           pop  cx                      ; cx = 0607h start = 6  finish = 7
           int  10h                     ;
.OPTON                                  ; optimiser on
           int  20h                     ; if optimize & .START not used, then
                                        ;  will be changed to:  RET
.OPTOFF                                 ; optimiser off


PrtThnx    proc near uses all           ; check the all keyword
           mov  dx,offset ThnkS
           mov  ah,09
           call PrtThnx1
           ret
           endp

PrtThnx1   proc near uses ax            ; check the nesting of uses
           int  21h
           ret
           endp

; on entry, cx = X/18.2 seconds to wait (cx = 18 = 1 second)
sec_delay  proc near uses ax es
           xor  ax,ax
           mov  es,ax
outerloop: mov  ax,es:[046Ch]
innerloop: cmp  ax,es:[046Ch]
           je   short innerloop
           loop outerloop
           ret
sec_delay  endp

One1       db   01h
msg1       db   13,0Ah
           db    'Ι'
           dup   38,'Ν'       ; test DUP
           db    '»',13,10
           db   'Ί              NewBasic++              Ί',13,10
           db   'Ί        Forever Young Software        Ί',13,10
           db   'Ί          Benjamin David Lunt         Ί',13,10
           db   'Ί                  ',157,'                   Ί',13,10
           db   'Ί         copyright  1984-2003         Ί',13,10
           db   'Ί           version 00.25.75           Ί',13,10
           db   'ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ',13,10,0
scrllmsg   db   157
           db   '  NewBasic++  **  Forever Young Software  **  Benjamin David Lunt  **  2002 '
           db   157,13,36
@label     db   13,10,36     ; test unique name
ThnkS      db   13,10,10,"      Forever Young thanks you...",36
.end