Welcome, Guest. Please login or register.


Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Topics - TMTLOGIC

Pages: [1]
1
Programming / 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





Pages: [1]