Archive for July 2nd, 2008
Dragster
Posted by: programmervb on: July 2, 2008
329 FOR I = 1 TO 4000: NEXT I
400 LET O = 50
410 GOTO 2460
420 VIEW: CLS : COLOR 7
430 VIEW SCREEN (20, 80)-(620, 260), 1, 9
440 FOR I = 1 TO 5000: NEXT I
450 VIEW SCREEN (15, 85)-(615, 270), 2, 10
460 FOR I = 1 TO 5000: NEXT I
470 VIEW SCREEN (10, 90)-(610, 280), [...]
Birthday
Posted by: programmervb on: July 2, 2008
‘****************************************************************************
‘Program title: Birthdays Recorder
‘****************************************************************************
SCREEN 0
TYPE Birthday
firstname AS STRING * 15
lastname AS STRING * 30
bday AS STRING * 10
END TYPE
DIM birday AS Birthday
start:
CLS
a$ = “”
c = 0
WHILE a$ <> CHR$(13)
COLOR 7, 0
LOCATE 5, 10
PRINT “***********************************************************”
LOCATE 6, 30
PRINT “The Birthdays Recorder”
LOCATE 7, 10
PRINT “***********************************************************”
IF c = 0 THEN
LOCATE 11, 30
COLOR 15, 7
PRINT “N”;
COLOR 0, 7
PRINT “EW ENTRY”
LOCATE [...]
Flickr Photos
|
