10 I=10:H=1:J=0:G=0:F=0:B=0:D=0:K=0:L=0:M=0:Z=0
15 PRINT "HOW ABOUT INPUTTING A 225 GAME, DO THIS..."
16 PRINT "9,10,10,8,9,0,10,9,10,10,10,10,10,10,8,10,0,0"
20 INPUT":1";A:H=H+1:PRINT D; ":FRAME"; H
21 IF Z=1 THEN END              
22 IF A=I THEN F=F+1:M=A    
24 IF F=3 THEN D=D+30:F=2:GOTO 140   
25 IF B=I THEN D=D+A+10:J=J+1:B=0
26 IF F>1 THEN GOTO 140
27 IF H>=12 THEN K=2:H=10:GOTO 230
29 IF A=I THEN M=0:GOTO 20
30 INPUT "2";B:IF Z=1 THEN END
31 IF F=1 THEN GOTO 120
32 IF G=1 THEN GOTO 160
46 IF B<>I THEN D=D+B
47 IF H>=11 THEN H=10:L=1:GOTO 220
50 PRINT D; ":FRAME"; H
51 IF Z=1 THEN END
52 IF L=1 THEN H=11
55 IF H>10 THEN K=K+1:GOTO 180
56 IF K>0 THEN H=10:Z=1:GOTO 50
70 IF J>=1 THEN J=0: GOTO 210
80 M=0:GOTO 20
120 IF B=I THEN D=D+20:F=0:M=0:GOTO 47 
126 IF H=12 THEN D=D+B+10:F=0:M=0:GOTO 47
127 IF B<>I THEN D=D+B+10+B:F=0:M=0:GOTO 47
140 IF D=300 THEN H=11:L=1:K=1:GOTO 56
141 IF H=13 THEN H=11:L=1:K=2:M=0:GOTO 47
142 INPUT ":1ST.";A:H=H+1:IF Z=1 THEN END
145 IF A<>I THEN D=D+A+20:G=1:F=0:M=0:GOTO 30
147 IF A=I THEN F=F+1
150 GOTO 24
160 IF B=0 THEN H=11:L=1:K=2:GOTO 220
162 IF H=12 THEN GOTO 250
165 IF B<>I THEN D=D+B+10+B:F=0:G=0:M=0
167 IF B=I THEN D=D+20:F=0:G=0:M=0
170 GOTO 47
180 IF K>1 THEN H=10:Z=1:GOTO 50
181 IF M=I THEN GOTO 20
185 IF B=I THEN GOTO 20
190 IF A<>I THEN K=2
195 IF B<>I THEN K=3
200 GOTO 56
210 IF M=I THEN D=D+20:M=0:F=0:GOTO 47
213 IF H>=11 THEN H=11:L=1:K=2:GOTO 47
215 GOTO 20
220 IF M=I THEN D=D+A
225 GOTO 52
230 IF A<>I THEN H=12:K=1:Z=1:GOTO 30
235 IF M=I THEN K=2:GOTO 56
240 K=1:GOTO 50
250 IF B<>I THEN D=D+B+10:F=0:G=0:M=0
260 IF B=I THEN D=D+20:F=0:G=0:M=0
270 GOTO 47

_______________________________________


10 A=0:B=0:C=0:D=0:E=0:F=0:G=0:I=0:J=0:L=0
15 Print "HighMoon"
20 input "M. time in";J
25 input "Tot. days";B
35 B=B+J
37 IF J>=16 THEN B=B+3
38 IF J<=15 THEN B=B+2
39 IF J<=8 THEN B=B-1
40 A=B/29.52055
50 C=(A-INT(A))
60 D=C/.0367647058
70 E=(D-INT(D))-1
80 L=(D-E)-1
90 E=(L*52.9411)/60
100 C=(E-INT(E))-1
110 D=E-C
120 D=ABS(D)
121 D=INT(D)
122 IF D>=12 THEN print "PM ";
123 IF D<12 THEN print "AM ";
130 F=ABS(C)
140 G=F/.0189736039
160 G=INT(G)
180 IF D>12 THEN D=D-12
190 IF D>12 THEN goto 180
200 print D;" ";G
210 goto 10

_______________________________________

10 A=0:C=0:D=0:F=0:B=0:X=0:J=0:E=0
20 PRINT "NUMBERS: INPUT 5 SINGLE DIGITS"
30 A=A+1:B=A+7:D=B
40 PRINT " GAME "; A;
50 INPUT J:X=X+1
60 C=C+J:IF X<5 THEN GOTO 50
70 X=0
80 IF B=38 THEN PRINT "THIS GAME IS OVER":GOTO 10
90 E=E+1
100 GOSUB 300
150 IF E<4 THEN GOTO 250
200 IF F=1 THEN PRINT "WINNER 1"
210 IF F=2 THEN PRINT "WINNER 2"
220 IF F=3 THEN PRINT "WINNER 3"
230 IF F=4 THEN PRINT "WINNER 4"
250 IF E=4 THEN E=0:C=0:GOTO 30
260 C=0
270 PRINT "PLAYER "; E+1;
280 GOTO 50
300 IF C=D THEN F=1
310 IF C=D-1 THEN F=2
320 IF C=D-2 THEN F=3
330 IF C=D-3 THEN F=4
340 RETURN

______________________________________

1 PRINT "Clear All?,0: Enter 0, accept
again
Enter 0, accept
enter total charges; no tax, accept
enter 2 if total charge is to have tax added; 1 if not, accept
enter tax % .065, accept
enter amount received, accept
enter 1 to re-do or 2 to go on, accept
enter cost of items sold, accept
enter approx. daily business expences, accept
enter 1 to review; 0 to continue, accept
enter 0 or 2, accept
enter 1 or 2, accept"

5 GOTO 209
10 X=0:T=0:G=0:A=0:B=0:Q=0:D=0:E=0:H=0:P=0:R=0:S=0:U=0:C=0:J=0:O=0
11 F=0:K=0:Y=0:W=0:M=0:Z=0:A$="":B$="":N=0:V=0:Y=0:Q=0:K=0:I=0:L=0
15 INPUT "TYPE 1,FOR DAILY TOTALS";Q:IF Q=1 THEN GOTO 187
17 REM MODE 7 TURN ON PAPER PRINT OUT
20 INPUT "ITEM CHARGE BEFORE TAX";X:K=K+X:H=X
21 REM MODE 8 TURN OFF PAPER PRINT OUT
22 INPUT "IF NON-TAXABLE,1";J
23 IF J=1 THEN GOTO 30
24 IF S>0 THEN GOTO 27  rem tax percentage has been input
25 INPUT "TAX%,.065";S
27 X=(X*S)+X:GOSUB 500 REM MODE 7 PAPER PRINT AMT+TAX,X MODE 8
28 PRINT "AMT+TAX"; X;
30 F=X-H REM MODE 7
32 INPUT "AMT REC";T  REM MODE 8
35 INPUT "RE-DO AMT REC,1";E:IF E=1 THEN K=K-X:F=F-S:GOTO 28
41 B=0:B=INT(T-X)
51 A=0:A=(T-X)-B
60 IF A<.25 THEN GOTO 90
70 O=O+1:A=A-.25
80 GOTO 60
90 IF A<.10 THEN GOTO 120
100 D=D+1:A=A-.10
110 GOTO 90
120 IF A<.05 THEN GOTO 150
130 N=N+1:A=A-.05
140 GOTO 120
150 P=A*100:IF P<0 THEN A=0
159 REM MODE 7
160 PRINT "CHANGE="; B; "$ "; O; "Q'S "; D; "DIMES "; N; "NICKEL"
170 PRINT " "; P; "PENNIES ";
174 REM MODE 8
175 INPUT "RE-DO All,1";E:IF E=1 THEN K=K-X:F=F-S:B=0:Q=0:D=0:N=0:P=0:R=0:U=0:A$="":B$="":V=0:X=0
176 IF E=1 THEN GOTO 20
180 REM MODE 7
181 INPUT "COST OF ITEM";Y
182 REM MODE 8
183 I=I+F
185 Y=ABS((K+F)-Y)+W
186 C=C+1
187 W=Y
188 REM MODE 7
190 PRINT "GROSS PROFIT"; W
192 PRINT "TOTAL TAX"; I
193 PRINT "TOTAL RECIPTS"; C
194 IF L>0 THEN 196   rem daily expences already has input
195 INPUT "DAILY EXPENCES";L
196 IF W>L THEN M=(W-I-L):GOTO 198   rem W=profit with tax I=tax L=expences
197 IF W<L THEN M=(L-W+I):GOTO 199
198 PRINT "NET PROFIT"; M:GOTO 209
199 PRINT "NET LOSS"; M:GOTO 209
200 REM MODE 8
209 INPUT "CLEAR ALL,O";Z:IF Z=0 THEN GOTO 10
212 GOTO 15    
500 R=INT(X)   REM SUB ROUTING TO REMOVE FRACTION OF CENT
510 U=X-R:R=0    
520 A$=STR$(U):B$=MID$(A$,5):V=VAL(B$)
530 R=V*.0001:X=X-R
540 RETURN

___________________________________________

  'tinyBasic.iBas
    ' ---
    ' tinyBasic v1.0
    ' Copyleft 2005 by Laurent DUVEAU
    ' http://www.aldweb.com/
    ' an iziBasic sample program
    ' Ported to Liberty BASIC by Carl Gundel
    ' and Scott McLaughlin
    ' [[http://www.libertybasic.com/|http://www.libertybasic.com]]
    ' ---
    ' A temp
    ' B temp
    ' C character index in line
    ' E line number for error msg
    ' I temp (loops)
    ' L number of lines
    ' N number
    ' S expression stack index
    ' T temp
    ' V variable index
    ' A$ temp
    ' B$ temp
    ' C$ character
    ' D$ single statement
    ' E$ error message
    ' G$ string code (")
    ' H$ HALT code (Line Feed)
    ' I$-R$ Help
    ' Z$=A$(26) statement input

call image "gdklogo2.gif"

    DIM A$(125) ' [27-125] = 99 program lines
    DIM A(82) ' [27-52] = 26 variables
    ' [53-82] = 30 items math stack
    A$(9)="BYE, CLEAR, CLS, END"
    A$(10)="HELP, MEM, NEW, RUN"
    A$(11)="GOTO | LOAD | SAVE <exp>"
    A$(12)="IF <exp> THEN <statement>"
    A$(13)="INPUT <var>"
    A$(14)="[LET] <var>=<exp>"
    A$(15)="LIST [<exp>|PAUSE]"
    A$(16)="PRINT <exp|str>[,<exp|str>][;]"
    A$(17)="REM <any>"
    TRUE = 1
    FALSE = 0
    'BEGIN
    G$=CHR$(34) : H$=CHR$(10)
    ' B=FILEEXISTS("tinyBas0")
    ' IF B=TRUE THEN
    ' Z$="load0:run"
    ' GOTO _AutoRun
    ' END IF
[Ready]
    IF E$<>"" THEN
        IF E>0 THEN
            E$="#Err in "+STR$(E)+": "+E$
        ELSE
            E$="#Err: "+E$
        END IF
        PRINT E$ : E$=""
    END IF
    PRINT "Ready"
[Input]
    LINE INPUT Z$
    A$(26)=Z$
[AutoRun]
    L=26 : C=1 : GOSUB [GetNumber] : E=N
    IF N=0 THEN
        IF C$="" THEN [Ready]
        GOTO [NextStatement]
    ELSE
        GOSUB [EnterLine]
        IF E$<>"" THEN [Ready]
        GOTO [Input]
    END IF
[Exec]
    GOSUB [GetNumber] : E=N
[NextStatement]
    'A$=INKEY$
    'IF A$=H$ THEN
    '    A$="Break in "+STR$(E,0)
    '    PRINT A$ : GOTO [Ready
    'END IF
    GOSUB [GetLabel]
    IF E$<>"" THEN [Ready]
    SELECT CASE D$
        CASE "if"
        GOSUB [GetExpression]
        IF E$<>"" THEN [Ready]
        IF N<1 THEN
            B$=A$(L) : C=LEN(B$)+1
            GOTO [FinishStatement]
        END IF
        GOSUB [GetLabel]
        IF E$<>"" THEN [Ready]
        IF D$<>"then" THEN
            E$="'THEN' expected"
            GOTO [Ready]
        END IF
        GOTO [NextStatement]
        CASE "rem"
        B$=A$(L) : C=LEN(B$)+1
        GOTO [FinishStatement]
        CASE "input"
        GOSUB [GetVar]
        IF E$<>"" THEN [Ready]
        INPUT N : A(V)=N
        GOTO [FinishStatement]
        CASE "print"
[Print]
        GOSUB [SkipSpace]
        GOSUB [GetChar]
        IF C$=G$ THEN
            B$=""
[NextChar]
            C=C + 1 : C$=MID$(A$,C,1)
            IF C$="" THEN
                E$="Unterminated string"
                GOTO [Ready]
            ELSE
                IF C$<>G$ THEN
                    B$=B$+C$
                    GOTO [NextChar]
                END IF
            END IF
            C=C + 1 : C$=MID$(A$,C,1)
            IF C$=G$ THEN
                B$=B$+C$
                GOTO [NextChar]
            END IF
            PRINT B$;
        ELSE
            GOSUB [GetExpression]
            IF E$<>"" THEN [Ready]
            B=N1
            IF B=N THEN
                PRINT N;"*";
            ELSE
                PRINT N;
            END IF
        END IF
        GOSUB [SkipSpace]
        GOSUB [GetChar]
        IF C$="," THEN C = C + 1 : GOTO [Print]
        GOSUB [SkipSpace]
        GOSUB [GetChar]
        IF C$<>";" THEN
            PRINT
        ELSE
            C = C + 1
        END IF
        GOTO [FinishStatement]
        CASE "clear"
        FOR I=27 TO 52 : A(I)=0 : NEXT I
        GOTO [FinishStatement]
        CASE "run"
        FOR I=27 TO 52 : A(I)=0 : NEXT I
        L=27 : C=1
        GOTO [FinishStatement2]
        CASE "goto"
        GOSUB [GetExpression]
        IF E$<>"" THEN [Ready]
        IF E>=N THEN L=27
        C=1 : T=N
[NextGoto]
        IF L=126 THEN
            E$="Line not found"
            GOTO [Ready]
        END IF
        GOSUB [GetNumber]
        IF N=T THEN E=N : GOTO [NextStatement]
        L=L + 1 : C=1
        GOTO [NextGoto]
        CASE "new"
        FOR I=27 TO 125 : A$(I)="" : NEXT I
        FOR I=27 TO 52 : A(I)=0 : NEXT I
        IF E=0 THEN [FinishStatement]
        GOTO [Ready]
        CASE "cls"
        CLS : GOTO [FinishStatement]
        CASE "help"
        FOR I=9 TO 18
            B$=A$(I) : PRINT B$
        NEXT I
        GOTO [FinishStatement]
        CASE "mem"
        B=126
        FOR I=27 TO 125
            diffI = 152 - I 'Cheating here
            B$=A$(diffI) : IF B$="" THEN B=diffI
        NEXT I
        B=126-B : PRINT B;"*";
        PRINT " lines free"
        GOTO [FinishStatement]
        CASE "end"
        GOTO [Ready]
        CASE "bye"
        GOTO [ExitTinyBAS]
        CASE "list"
        GOSUB [GetNumber] : T=N : A=L : I=C
        IF T=0 THEN
            GOSUB [GetLabel]
            IF E$="" AND D$="pause" THEN I=C
            E$=""
        END IF
        FOR L=27 TO 125
            C=1 : GOSUB [GetNumber]
            B=(T=0) OR (N=T)
            IF B=TRUE THEN
                IF A$<>"" THEN
                    PRINT A$
                    IF D$="pause" THEN
                        B = (L-26) mod 10
                        IF B=0 THEN PRINT "Pause..."; : INPUT AAA$
                    END IF
                END IF
            END IF
        NEXT L
        L=A : C=I
        GOTO [FinishStatement]
        CASE "save"
        PRINT "SAVE, TBD"
        ' GOSUB [GetExpression]
        ' IF E$<>"" THEN [Ready]
        ' A$="tinyBas"+STR$(N) : A=FALSE
        ' OPEN A$ FOR OUTPUT AS #1
        ' FOR I=27 TO 125
        ' B$=A$(I)
        ' IF B$<>"" THEN PRINT #1,B$ : A=TRUE
        ' NEXT I
        ' CLOSE #1
        ' IF A=FALSE THEN KILL A$
        ' GOTO [FinishStatement]
        CASE "load"
        PRINT "LOAD, TBD"
        ' GOSUB [GetExpression]
        ' IF E$<>"" GOTO [Ready]
        ' A$="tinyBas"+STR$(N,0)
        ' B=FILEEXISTS(A$)
        ' IF B=FALSE THEN
        ' E$="File "+A$+" not found"
        ' GOTO [Ready]
        ' END IF
        ' OPEN A$ FOR INPUT AS #1
        ' B=FALSE : I=27
        ' WHILE B=FALSE
        ' B=EOF(#1)
        ' INPUT #1,B$ : A$(I)=B$ : I=I+1
        ' WEND
        ' CLOSE #1
        ' WHILE I<=125
        ' A$(I)="" : I=I+1
        ' WEND
        ' IF E=0 THEN [FinishStatement]
        ' GOTO [Ready]
        CASE "let"
        GOSUB [GetLabel]
        IF E$<>"" THEN [Ready]
    END SELECT
    GOSUB [ReturnVar]
    IF E$<>"" THEN [Ready]
    GOSUB [SkipSpace]
    GOSUB [GetChar]
    IF C$<>"=" THEN
        E$="'=' expected"
        GOTO [Ready]
    END IF
    C=C + 1 : T=V
    GOSUB [GetExpression]
    IF E$<>"" THEN [Ready]
    A(T)=N
[FinishStatement]
    GOSUB [SkipSpace]
    GOSUB [GetChar]
    IF C$=":" THEN
        C = C + 1 : GOTO [NextStatement]
    ELSE
        IF C$<>"" THEN
            E$="End of statement expected"
            GOTO [Ready]
        END IF
    END IF
    IF L=26 THEN [Ready]
    L=L + 1 : C=1
    IF L=126 THEN
        E$="Program Overflow"
        GOTO [Ready]
    END IF
[FinishStatement2]
    B$=A$(L)
    IF B$="" THEN [Ready]
    GOTO [Exec]
[ExitTinyBAS]
    PRINT "Thanks for using Tiny BASIC."
    END
[EnterLine]
    L=27 : C=1 : T=N
[NextLine]
    GOSUB [GetNumber]
    B=(N<T) AND (N<>0) AND (L<126)
    IF B=TRUE THEN
        L=L + 1 : C=1 : GOTO [NextLine]
    END IF
    IF L=126 THEN
        E$="Program Overflow"
        GOTO [EndEnterLine]
    END IF
    IF T<>N THEN
        FOR I=L to 125
            diffI = (125+L)-I
            B=diffI-1 : A$(diffI)=A$(B)
        NEXT I
    END IF
    A$(L)=Z$
    GOSUB [SkipSpace]
    IF C$="" THEN
        FOR I=L TO 124
            B=I+1 : A$(I)=A$(B)
        NEXT I
    END IF
[EndEnterLine]
    RETURN
[GetExpression]
    A(53)=0 : S=53
    GOSUB [BoolExpression]
    N=A(S) : GOTO [EndExpression]
[BoolExpression]
    GOSUB [AddExpression]
    GOSUB [SkipSpace]
    GOSUB [GetChar]
[NextBool]
    SELECT CASE C$
        CASE "="
        C = C + 1 : GOSUB [AddExpression]
        B=S-1 : A(B)=A(B)=A(S) : S = S - 1
        CASE ">"
        C = C + 1 : GOSUB [GetChar]
        IF C$="=" THEN
            C = C + 1 : GOSUB [AddExpression]
            B=S-1 : A(B)=A(B)>=A(S) : S = S - 1
        ELSE
            GOSUB [AddExpression]
            B=S-1 : A(B)=A(B)>A(S) : S = S - 1
        END IF
        CASE "<"
        C = C + 1 : GOSUB [GetChar]
        SELECT CASE C$
            CASE "="
            C = C + 1 : GOSUB [AddExpression]
            B=S-1 : A(B)=A(B)<=A(S) : S = S - 1
            CASE ">"
            C = C + 1 : GOSUB [AddExpression]
            B=S-1 : A(B)=A(B)<>A(S) : S = S - 1
            CASE ELSE
            GOSUB [AddExpression]
            B=S-1 : A(B)=A(B)<A(S) : S = S - 1
        END SELECT
    END SELECT
    GOSUB [SkipSpace]
    GOSUB [GetChar]
    B=ASC(C$) : B=(B>=60) AND (B<=62)
    IF B=TRUE THEN [NextBool]
    GOTO [EndExpression]
[AddExpression]
    GOSUB [MulExpression]
    GOSUB [SkipSpace]
    GOSUB [GetChar]
[NextAdd]
    SELECT CASE C$
        CASE "+"
        C = C + 1 : GOSUB [MulExpression]
        B=S-1 : A(B)=A(B)+A(S) : S = S - 1
        CASE "-"
        C = C + 1 : GOSUB [MulExpression]
        B=S-1 : A(B)=A(B)-A(S) : S = S - 1
    END SELECT
    GOSUB [SkipSpace]
    GOSUB [GetChar]
    B=ASC(C$) : B=(B=43) OR (B=45)
    IF B=TRUE THEN [NextAdd]
    GOTO [EndExpression]
[MulExpression]
    GOSUB [GroupExpression]
    GOSUB [SkipSpace]
    GOSUB [GetChar]
[NextMul]
    SELECT CASE C$
        CASE "*"
        C = C + 1 : GOSUB [GroupExpression]
        B=S-1 : A(B)=A(B)*A(S) : S = S - 1
        CASE "/"
        C = C + 1 : GOSUB [GroupExpression]
        B=A(S)
        IF B=0 THEN
            IF E$="" THEN E$="Division by zero"
            S = S - 1 : GOTO [EndExpression]
        ELSE
            B=S-1 : A(B)=A(B)/A(S) : S = S - 1
        END IF
        CASE " "
        C = C + 1 : GOSUB [GroupExpression]
        B=A(S)
        IF B=0 THEN
            IF E$="" THEN E$="Division by zero"
            S = S - 1 : GOTO [EndExpression]
        ELSE
            B=S-1 : A(B)=A(B) mod A(S) : S = S - 1
        END IF
    END SELECT
    GOSUB [SkipSpace]
    GOSUB [GetChar]
    B=ASC(C$)
    B=(B=42) OR (B=47) OR (B=92)
    IF B=TRUE THEN [NextMul]
    GOTO [EndExpression]
[GroupExpression]
    GOSUB [SkipSpace]
    GOSUB [GetChar]
    SELECT CASE C$
        CASE "("
        C = C + 1 : GOSUB [BoolExpression]
        GOSUB [SkipSpace]
        GOSUB [GetChar]
        IF C$<>")" THEN
            IF E$="" THEN E$="Missing ')'"
            GOTO [EndExpression]
        END IF
        C = C + 1
        CASE ""
        IF E$="" THEN E$="Invalid Factor"
        CASE ELSE
        B=ASC(C$) : B=(B<48) OR (B>57)
        IF B=FALSE THEN
            GOSUB [GetNumber]
            S=S + 1 : A(S)=N
        ELSE
            GOSUB [GetLabel]
            IF E$<>"" THEN [EndExpression]
            B=LEN(D$)
            IF B=1 THEN
                GOSUB [ReturnVar]
                S=S + 1 : A(S)=A(V)
            ELSE
                SELECT CASE D$
                    CASE "ticks"
                    S=S + 1 : A(S)=TICKS
                    CASE "tickspersec"
                    S=S + 1 : A(S)=TICKSPERSEC
                    CASE ELSE
                    IF E$="" THEN E$="Function expected"
                END SELECT
            END IF
        END IF
    END SELECT
[EndExpression]
    RETURN
[GetNumber]
    GOSUB [SkipSpace]
    B$=""
[NextNumber]
    GOSUB [GetChar]
    IF C$="" THEN [GetNumberExit]
    B=ASC(C$)
    B=((B<48) OR (B>57)) AND (B<>46)
    IF B=TRUE THEN [GetNumberExit]
    B$=B$+C$ : C = C + 1 : GOTO [NextNumber]
[GetNumberExit]
    N=VAL(B$)
    RETURN
[GetVar]
    GOSUB [GetLabel]
    IF E$<>"" THEN [GetVarExit]
[ReturnVar]
    B=ASC(D$) : A=LEN(D$)
    A=(A<>1) OR (B<97) OR (B>122)
    IF A=FALSE THEN
        V=B-70
    ELSE
        IF E$="" THEN E$="Variable expected"
    END IF
[GetVarExit]
    RETURN
[GetLabel]
    GOSUB [SkipSpace]
    GOSUB [GetChar]
    D$=""
    IF C$="" THEN [GetLabelError]
    B=ASC(C$) : B=(B<97) OR (B>122)
    IF B=TRUE THEN [GetLabelError]
[GetNextLabel]
    D$=D$+C$ : C = C + 1
    GOSUB [GetChar]
    IF C$="" THEN [GetLabelExit]
    B=ASC(C$) : B=(B>=97) AND (B<=122)
    IF B=TRUE THEN [GetNextLabel]
    GOTO [GetLabelExit]
[GetLabelError]
    IF E$="" THEN E$="Invalid label"
[GetLabelExit]
    RETURN
[SkipSpace]
    GOSUB [GetChar]
    IF C$=" " THEN C = C + 1 : GOTO [SkipSpace]
    RETURN
[GetChar]
    A$=A$(L)
    C$=MID$(A$,C,1) : C$=LOWER$(C$)
    RETURN

sub image img$
base$="http://boughtupcom.freeservers.com/"
html "<img src="""+base$+img$+""" />"
end sub 

__________________________________________