#MKFiles 2	; to get files for emulator/calculator

;--------------------
; Jump over image
;--------------------

goto START

mydesk:
#LOADIMAGE 0 "atari.png"

START:

;--------------------
; Main Menu description
;--------------------

#MENU
	#CSTRING 1 "Atari ST"		; title
	#ICON 0 mydesk			; display the image
	#MATRIX 4 1			; define image as 4 columns and 1 row
	#BLOCKA disk 0 0		; block(0,0) run program disk
	#BLOCKA file 1 0		; block(1,0) run program file
	#BLOCKA fold 2 0		; block(2,0) run program fold
	#BLOCKA tras 3 0		; block(3,0) run program tras
	#ACTION "ShutDown" ProgEnd	; to exit
#ENDMENU

;--------------------
; The main loop here
;--------------------

#MENUMAINLOOP 7

;--------------------
; My subprograms
;--------------------

disk:
	#NUM dk_text

common:
	STO b				; store text address
	2 Exec \Cls			; clear screen and init x0y0
	@b EXEC \PrintStringP		; display text
	GRPH				; update screen
	GET \Time $0.0002 + sto b	; b = time + 2 seconds
	REPEAT
		GET \Time @b -		; wait 2 seconds
	UNTIL(x>=0)
	RTN

file:
	#NUM fl_text
	GOTO common

fold:
	#NUM fd_text
	GOTO common

tras:
	#NUM tr_text
	GOTO common


progend:
	STOP

dk_text: #TEXT0 "Disk Icon"
fl_text: #TEXT0 "File Icon"
fd_text: #TEXT0 "Folder Icon"
tr_text: #TEXT0 "Trash Icon"

	
