?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1. ;; Example of using BasicLib.asm
  2. ;;
  3. ;;     Using line numbers
  4. ;;
  5. ;; =============================
  6.  
  7.         INCLUDE BasicLib.asm
  8.  
  9.         LINE
  10.         db      cls,':'
  11.         db      restore : NUM restore_line
  12.         LEND
  13.  
  14. jump_here = line_number
  15.  
  16.         LINE : db read,'s$'             : LEND
  17.         LINE : db print,'s$;'           : LEND
  18.         LINE : db goto : NUM jump_here  : LEND
  19.  
  20. restore_line = line_number
  21.  
  22.         LINE : db data,'"Hello ","world ","!"' : LEND
  23.  
  24.  
  25. ;; Generated basic:
  26. ;;
  27. ;;   10 CLS : RESTORE 50
  28. ;;   20 READ s$
  29. ;;   30 PRINT s$;
  30. ;;   40 GO TO 20
  31. ;;   50 DATA "Hello ","world ","!"
  32.