Welcome, Guest. Please login or register.


Author Topic: BASNUM Basic number generator (Read 4778 times)

Offline TMTLOGIC

  • Beginner
  • *
  • Posts: 42
  • Country: nl
    • www.tmtlogic.com
BASNUM Basic number generator
« on: 2020.October.17. 15:07:54 »

Easy and fast way to write basic programs on the PC.

Line numbers can be replaced by Labels.

Example input code: 

'*****************************************************************************************
'      TMTLOGIC
'
'      Basnum test program
'      Thanks to Frits h
'
'       Written for the Enterprise computer

'       pc dos prompt:
'      basnum.exe testprog.bng testprog.asc
'
'*****************************************************************************************

'      ------- System --------

bit0                  EQU         1
bit1                  EQU         2
bit2                  EQU         4
bit3                  EQU         8
bit4                  EQU         16
bit5                  EQU         32
bit6                  EQU         64
bit7                  EQU         128


char(tab)               EQU          9
char(spc)               EQU         32   
char(#)               EQU         35

number               EQU          5
label                  EQU         "This is an test"

'       ------- Main program -------

'*****************************************************************************************
main               REM    program
               
                  LET T

mainLoop            FOR T = 1 TO number
                     PRINT label
                     GOSUB prnSpace
                  NEXT
                  
                  GOTO mainLoop
                  
                  
prnSpace            REM print space

                  PRINT CHR$(char(spc))
                  RETURN
                  
                  END            
'*****************************************************************************************

Generate this :

10 REM  program
20 LET T;
30 FOR T = 1 TO 5
40 PRINT "This is an test"
50 GOSUB 80
60 NEXT
70 GOTO 30
80 REM print space
90 PRINT CHR$(32)
100 RETURN
110 end




WWW.TMTLOGIC.COM