MDBASIC is an extension to the Commodore 64 BASIC V2.
MDBASIC version 24.05.31

Download the documentation file mdbasic.pdf for details.

Download Options:

1. mdbasic.d64 - A disk image that contains mdbasic.prg and a few testing/example programs & games
2. mdbasic.prg - The compiled executable program
3. mdbasic.asm - The source code

READY.
LOAD"MDBASIC.PRG",8,1
 
SEARCHING FOR MDBASIC.PRG
LOADING
READY.
SYS64738

* Displays memory address range after LOADing programs
* LOAD/SAVE directly to/from the text screen, bitmap or character definition memory
* SAVE custom address range using existing SAVE command
* Binary, Hexadecimal and Octal contant values in expressions and VAL strings
* 8 assignable function keys each with up to 15 characters
* Exit quote and insert mode using key combination CTRL-Commodore
* Freeze LISTing by holding down the shift key

SAVE49152,53247,"HIRAM",8 :' BINARY SAVE OF 4K HIRAM
RUN "MYPRG",8             :' LOAD AND RUN MYPRG FROM DISK
RENUM 100,10              :' RENUMBER PRG START AT 100 INC BY 10
FILES                     :' LIST ALL FILES ON DEVICE 8
FILES"M*",9               :' LIST FILES STARTING WITH "M" ON DEVICE 9
KEY LIST                  :' DISPLAY FUNCTION KEY ASSIGNMENTS
KEY 2,"RUN"+CHR$(13)      :' ASSIGN FUNCTION KEY 2
DUMP LIST                 :' PRINT BASIC PROGRAM ON PRINTER
AUTO 10                   :' AUTO LINE NUMBERING INC BY 10
DELETE 150-170            :' DELETE PROGRAM LINES 150 TO 170 INCLUSIVELY
TRACE                     :' RUN PROGRAM WITH TRACE ENABLED

0 SCREEN CLR              :' CLEAR TEXT SCREEN
1 BITMAP CLR              :' CLEAR BITMAP
2 VOICE CLR               :' CLEAR SID REGISTERS
5 ON ERROR GOTO 100       :' WHEN ERROR OCCURS GOTO LINE 100
7 DISK"S0:MYPRG"          :' ERASE FILE MYPRG
8 POKE 1024 TO 2023,1     :' POKE ADDRESS RANGE WITH VALUE 1
9 DUMP"HELLO THERE"       :' PRINT EXPRESSION TO PRINTER
10 SPRITE 0,1             :' MAKE SPRITE 0 VISIBLE
11 SPRITE 1,1,6,0,13,1,3  :' SPRITE 1 VISIBLE, BLUE, MC OFF, PTR 13, ABOVE FOREGND, FULL EXPAND
12 MOVE 0,50,24           :' LOCATE SPRITE 0 AT COORD 50,24
13 MOVE1 TO 159,99,50     :' SLIDE SPRITE 1 TO CENTER SCREEN AT SPEED 50
14 MOVE0,0,0TO511,255     :' MOVE SPRITE 0 FROM TOP LEFT TO BOTTOM RIGHT, SLOWEST SPEED
15 PLAYSPRITE0,92,99,5    :' ANIMATE SPRITE 0 WITH PTRS 92 TO 99 WITH 5 JIFFIES BETWEEN FRAMES
19 X = $C000: B=%10101010 :' HEX $, BINARY % AND OCTAL @ IN EXPRESSIONS
20 BITMAP 0,15            :' SHOW BITMAP IN HIRES MODE WITH LIGHT GRAY BKGD
21 BITMAP 1, 0            :' SHOW BITMAP IN MULTICOLOR MODE WITH BLACK BKGD
22 MAPCOL 2, 1, 6         :' SELECT COLORS FOR BITMAP PLOTING
23 PLOT 16,10,1,1         :' PLOT A POINT
25 DRAW "R60,D55,L60,U55" :' DRAW A 60x55 RECTANGLE RELATIVE TO LAST PLOTTED POINT
30 CIRCLE 48,37,23,18     :' DRAW A CIRCLE CTR 48,37 X-SIZE 23, Y-SIZE 18
34 PAINT 48,27,1,1        :' PAINT INSIDE CIRCLE
35 TEXT 0,0,"MARK"        :' TEXT ON BITMAP W/DEFAULT CHRSET & SIZING
36 DUMP SCREEN            :' PRINT TEXT SCREEN TO PRINTER
38 DUMP BITMAP            :' PRINT BITMAP TO PRINTER
39 TEXT                   :' RETURN TO TEXT MODE
40 PLAY "AA#BB-CC#DD#F@"  :' PLAY NOTES IN BACKGROUND REPEATEDLY
41 PLAY OFF               :' TURN OFF BACKGROUND PLAY
42 PLAY "!ABC>ABC>ABC"    :' PLAY NOTES IN FOREGROUND GOING UP IN OCTAVE
43 VOICE 1,1000           :' SET VOICE 1 PITCH TO 1000HZ
44 WAIT 60                :' PAUSE FOR 60 JIFFIES (1 SEC)
45 ENVELOPE 1,0,0,15,0    :' SET VOICE 1 ATTACK/DECAY/SUSTAIN/RELEASE
48 FILTER 500, 15, 1      :' LOW PASS FILTER, CUTOFF=500Hz
50 X1 = ROUND(0.125, 2)   :' X1 = 0.13
51 X2 = ROUND(121, -3)    :' X2 = 100
52 IF A THEN 100 ELSE 200 :' ELSE TO HANDLE FALSE CONDITION
55 PRINT PTR(X1)          :' DISPLAY MEM LOC OF VAR X1
56 J = JOY(1)             :' VALUE OF JOYSTICK 1 OF 2
57 P = POT(1)             :' VALUE OF PADDLE 1 OF 4
58 N = PEN(0);PEN(1)      :' DISPLAY THE LIGHT PEN X & Y COORDINATES
59 SWAP J,P               :' SWAP VALUES IN VARS J,P
60 LOCATE 10,5: PRINT"*"; :' POSITION CRSR FOR PRINT
61 C% = INF(0)            :' PHYSICAL COLUMN OF CURSOR
62 TIME$="00:00:00"       :' SET REAL-TIME CLOCK TO 12AM
63 PRINT TIME$, TIME      :' DISPLAY TIME STRING AND NUM SECONDS SINCE MIDNIGHT
70 PRINT INSTR("MARK D. BOWREN",".") :' PRINT INDEX OF PERIOD IN STR
75 PRINT INSTR(2,"TEST THIS INSTR","IS") :' INDEX OF "IS" START AT IDX 2
80 KEY CLR                :' CLEAR KEYBOARD BUFFER
81 KEY WAIT A$            :' WAIT FOR KEY IN BUFFER THEN GET INTO A$
82 KEY"OK"                :' PUT KEYS IN KEYBOARD BUFFER
83 LINE INPUT A$          :' TAKE INPUT FROM KEYBOARD TILL ENTER KEY PRESSED
84 LINE INPUT#1,A$        :' READ LINE FROM FILE 1 TERMINATED BY CR
85 SCROLL 0,0 TO 39,24    :' SCROLL WHOLE SCREEN UP 1 CHAR, NO WRAPPING (DEFAULTS)
90 DESIGN NEW             :' COPIES CHARACTER SET FOR DESIGN MODE
91 DESIGN ON              :' SWITCH TO REDEFINED CHAR MODE ON
92 DESIGN 1,0, 0,0,0,8,8,0,0,0 :' "A" NOW LOOKS LIKE A DOT
93 DESIGN OFF             :' RETURN TO NORMAL TEXT MODE
95 RUN "PROG2",8          :' LOAD AND RUN ANOTHER PROGRAM
96 SYS $FFD2,ASC("A")     :' CALL ML SUBROUTINE WITH OPTIONAL A,X,Y,P REGISTER VALUES
99 END
100 PRINT "ERROR #";ERROR(0);" LINE #";ERROR(1)
105 IF ERROR(0) = 20 THEN RESUME NEXT :' DIV BY 0, SKIP ERRORED STMT
110 IF ERROR(0) = 29 THEN RESUME 65   :' LOAD ERR, CONT AT LINE 65
115 IF ERROR(0) = 15 THEN RESUME      :' OVERFLOW, TRY STMT AGAIN
120 ERROR 11                          :' RAISE SYNTAX ERROR

B1 = %00001111     :'DECIMAL VALUE OF 15 FROM BINARY CONSTANT %00001111
B2 = VALB("1111")  :'DECIMAL VALUE OF 15 FROM BINARY STRING "1111"
SYS $C000,0        :'CALL TO ADDRESS 49152 WITH ACCUMULATOR LOADED WITH ZERO
H = VALH("C000")   :'DECIMAL VALUE OF 49152 FROM HEX STRING "C000"
O = @20            :'DECIMAL VALUE 16 FROM OCTAL CONSTANT @20
O = VALO("10")     :'DECIMAL VALUE 8 FROM OCTAL STRING "10"
X = !X             :'SAME AS X = NOT X

SAVE"SCREEN",8,16   :'SAVES ALL TEXT WITH COLOR FROM CURRENT TEXT SCREEN
SAVE"CHRSET",8,17   :'SAVES THE CURRENT DESIGN OF CHARACTERS ASSUMING DESIGN IS APPLIED
SAVE"BITMAP",8,18   :'SAVES CURRENT BITMAP IMAGE WITH COLOR MODE
LOAD"SCREEN",8,16   :'LOADS SAVED SCREEN TEXT AND COLOR INTO CURRENT SCREEN
LOAD"CHRSET",8,17   :'LOADS CUSTOM DEFINED CHARSET, NEEDS DESIGN ON TO SEE
LOAD"BITMAP",8,18   :'LOADS BITMAP IMAGE AND DISPLAYS IT