GOSUB 100 Clear Screen
GOSUB 110 Set Cursorposition to Variablen HO and VE
GOSUB 120 Read Cursorposition to Variablen HO and VE

GOSUB 200 Get keypress and return it in Variable IN$
         if N$ is empty no Key was pressed
GOSUB 210 Wait for keypress and return it in Variable IN$
GOSUB 250 "Beep"
GOSUB 260 Returns a Random Number between 0 and 1 in Variable RV
GOSUB 270 Get free memory and return it in FR
GOSUB 300 Change a number to a String Variablen SR ->SR$ (does not work on Pico)
GOSUB 310 Analog to GOSUB 300, Additional:
         Passing a fixed string length in the CT variable
         Passing the position of the decimal point in the variable CN
GOSUB 350 Print the Strings in Variable SR$ on the Printer
       
GOSUB 360 Send CR/LF on Printer

a$=CLR$(2,1)"Hello"CLR$(3,1)" Boys"

'Starfield by Juri Fossaroli
'PicomiteVGA version Martin Herhaus
Dim integer starx(50),stary(50),ox(50),oy(50)
Dim starz(50)
maxstar=30
MODE 2
Do
 Inc star,-1:If star<1 Then star=maxstar
 If starx(star)=0 Or stary(star)=0 Then
    starx(star)=Int(Rnd(1)*40)-20:stary(star)=Int(Rnd(1)*40)-20
    starz(star)=(Int(Rnd(1)*50)/100)+0.50
 EndIf
 Pixel ox(star),oy(star),0:Pixel 160,120,0
 x=(starx(star)/starz(star))+160
 y=(stary(star)/starz(star))+120
 If starz(star)>.3 Then cl=RGB(Cyan) Else cl=RGB(White)
 If starz(star)>.6 Then cl=RGB(BLUE)
 Inc starz(star),-0.02
 If x>5 And x<320 And y>5 And y<240 Then Pixel x,y,cl:ox(star)=x:oy(star)=y
 If x<=5 Or x>=320 Or y<=5 Or y>=240 Then starx(star)=0:stary(star)=0
Loop

SUB WRT TX$
 for n=1 to len (TX$)
   if mid$(TX$,N,1)="~" then
      FC=VAL mid$(TX$,N+2,1):BC=VAL mid$(TX$,N+2,1)
    COLOR (CL%(FC),CL%(BC)):n=n+3
    ELSE
      PRINT mid$(TX$,N,1);
    end if
 NEXT  
end sub

Function CLR$ (F,B)
CLR$="~"+str$(F)+str$(B)
end function

Sub bxf(x1,y1,x2,y2,co)
 Local integer ox=40,oy=12,w=x2-x1,h=y2-y1
 Box ox+x1,oy+y1,w,h,,co,co
End Sub

Sub bx(x1,y1,x2,y2,co)
 Local integer ox=40,oy=12,w=x2-x1,h=y2-y1
 Box ox+x1,oy+y1,w,h,,co
End Sub
'
Sub starfield
Inc star,-1:If star<1 Then star=maxstar
If starx(star)=0 Or stary(star)=0 Then
 starx(star)=Int(Rnd(1)*40)-20
 stary(star)=Int(Rnd(1)*40)-20
 starz(star)=(Int(Rnd(1)*50)/100)+0.50
EndIf
Pixel ox(star),oy(star),RGB(Black)
Pixel 160,120,RGB(Black)
x=(starx(star)/starz(star))+160
y=(stary(star)/starz(star))+88
If starz(star)>.3 Then cl=RGB(Cyan) Else cl=RGB(White)
If starz(star)>.6 Then cl=RGB(BLUE)
Inc starz(star),-0.02
If x>37 And x<270 And y>52 And y<156 Then Pixel x,y,cl:ox(star)=x:oy(star)=y
If x<=37 Or x>=270 Or y<=52 Or y>=156 Then starx(star)=0:stary(star)=0
End Sub