06-11-2023, 05:25 PM
I'm going through this old BASIC book to sanity-check BAM's implementation of BASIC statements and functions.
From the Handbook of BASIC: for the IBM PC, XT, AT, PS/2, and compatibles (chapter starting on page 42), 1988
( https://archive.org/details/handbookofbasicf00schn ), I'm happy to find that the code samples work A-1 in BAM:
From the Handbook of BASIC: for the IBM PC, XT, AT, PS/2, and compatibles (chapter starting on page 42), 1988
( https://archive.org/details/handbookofbasicf00schn ), I'm happy to find that the code samples work A-1 in BAM:
Code: (Select All)
again:
SCREEN 1 : CIRCLE (160, 100), 23
PRINT "SCREEN 1 : CIRCLE (160, 100), 23"
_delay 1.5
SCREEN 2 : CIRCLE (160, 100), 23
PRINT "SCREEN 2 : CIRCLE (160, 100), 23"
_delay 1.5
' NOTE: BAM requires a space where a parameter is omitted
SCREEN 1 : CIRCLE (160, 110),150,1, , ,.45
PRINT "SCREEN 1" : PRINT "CIRCLE (160, 110),150,1, , ,.45"
_delay 1.5
SCREEN 1 : CIRCLE (160, 120),70,2, , ,1.4
PRINT "SCREEN 1" : PRINT "CIRCLE (160, 120),70,2, , ,1.4"
_delay 1.5
SCREEN 1
CIRCLE (50, 160), 25, ,-.8,-5.5
CIRCLE (200, 160), 25
CIRCLE (200, 160),20, ,4, 5.5, .4
CIRCLE (192,152),1
CIRCLE (210,152),1
_delay 1.5
SCREEN 1
FOR I = 10 TO 70 STEP 5
CIRCLE (200,120), I
NEXT I
_delay 1.5
SCREEN 1
CIRCLE (70, 125), 45,2,-1,6,2
CIRCLE (180,125), 35, ,0,3.14
CIRCLE (250,126), 30, ,-.0000001,-1.57
_delay 1.5
SCREEN 1
FOR I = .1 TO 2 STEP .3
CIRCLE (160,120),50, , , ,I
NEXT I
_delay 1.5
GOTO again