Subversion Repositories Shiroi

Rev

Rev 33 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 33 Rev 35
Line 1... Line 1...
1 
/* $Id: basic.c 33 2024-09-01 09:24:55Z nishi $ */
 1 
/* $Id: basic.c 35 2024-09-01 15:14:41Z nishi $ */
2 
 
 2 
 
3 
#include "dri/text.h"
 3 
#include "dri/text.h"
4 
#include "dri/video.h"
 4 
#include "dri/video.h"
5 
#include "dri/math.h"
 5 
#include "dri/math.h"
6 
 
 6 
 
7 
#include "mem.h"
 7 
#include "mem.h"
8 
#include "char.h"
 8 
#include "char.h"
9 
 
 9 
 
- 
 
 10 
#define VERSION "0.0"
10 
#define LINE_BUFFER_SIZE 512
 11 
#define LINE_BUFFER_SIZE 512
11 
#define BUFFER_SIZE (1024 * 24)
 12 
#define BUFFER_SIZE (1024 * 24)
12 
 
 13 
 
13 
unsigned char basicbuffer[BUFFER_SIZE];
 14 
unsigned char basicbuffer[BUFFER_SIZE];
14 
char linebuf[LINE_BUFFER_SIZE];
 15 
char linebuf[LINE_BUFFER_SIZE];
Line 377... Line 378...
377 
		return 0;
 378 
		return 0;
378 
	}
 379 
	}
379 
}
 380 
}
380 
 
 381 
 
381 
void basic(void){
 382 
void basic(void){
- 
 
 383 
	int i;
382 
	clear();
 384 
	clear();
383 
 
 385 
 
- 
 
 386 
	putstr(PLATFORM);
384 
	putstr("Shiroi Microcomputer BASIC\r\n");
 387 
	putstr("   Krakow BASIC V");
- 
 
 388 
	putstr(VERSION);
- 
 
 389 
	putstr("\r\n");
385 
	putstr("Copyright 2024 by Nishi\r\n");
 390 
	putstr("Copyright 2024 by: Nishi.\r\n");
- 
 
 391 
	putstr("                   penguin2233.\r\n\r\n ");
386 
	putnum(BUFFER_SIZE);
 392 
	putnum(BUFFER_SIZE);
387 
	putstr(" bytes free\r\n");
 393 
	putstr(" bytes free\r\n");
- 
 
 394 
	putstr("\r\n");
388 
 
 395 
 
389 
	int i;
 - 
 
390 
	for(i = 0; i < BUFFER_SIZE; i++){
 396 
	for(i = 0; i < BUFFER_SIZE; i++){
391 
		basicbuffer[i] = 0;
 397 
		basicbuffer[i] = 0;
392 
	}
 398 
	}
393 
	putstr("Ready\r\n");
 399 
	putstr("Ready\r\n");
394 
 
 400