rem BF.BAS
rem Hobby Basic's internal Brainfuck interpreter
rem Print "brainfuck" with a linefeed
script$ = '>++++[>++++++<-]>-[[<+++++>>+<-]>-]<<[<]>>>>--.<<<-.>>>-.<.<.>---.<<+++.>>>++.<<---.[>]<<.'
screen 80,25,300
color 0,7
cls
title 'Hobby Basic''s internal Brainfuck interpreter'
pen 6
print script$
print
pen 7
BF(script$)
inkey
end
rem Hobby Basic's internal Brainfuck interpreter
rem Display Sierpinski triangle
url$ = 'http://brainfuck.org/sierpinski.b'
load url$,script$
if V0 = -1
print 'url error' : pause : end
endif
screen 80,47,300
color 0,7
cls
title 'Hobby Basic''s internal Brainfuck interpreter'
pen 6
print script$
print
pen 7
BF(script$)
inkey
end
rem Who's online
s1$ = 'block-footer-counter'
s2$ = '</span>'
s3$ = ' '
s4$ = '/members/'
s5$ = 'listInline--comma'
s6$ = '</ul>'
source$ = GETSRC('https://retromaniax.gr/')
title 'Retromaniax.gr'
screen 80,25,1000
cursor 1,25
color 0,7
cls
a$ = ''
a = FIND(source$,s1$)
if ~a then ? s1$ : end
a = a + LEN(s1$) + 2
b = FIND(source$,s2$,a)
if ~b then ? s2$ : end
for n = 0 to b-2 : a$ = a$ + source$(a+n) : next
total$ = REPLACE(a$,s3$,'')
? 'Μέλη online' : ?
a = FIND(source$,s5$)
if ~a then ? 'Δεν υπάρχουν μέλη τώρα online' : goto @f
b = FIND(source$,s6$,a)
if ~b then ? s6$ : end
source1$ = MID(source$,a,b)
dim member$[1] : a = 1 : idx = 0
do
p = FIND(source1$,s4$,a)
if ~p then break
a = a + p + LEN(s4$) - 1
b = FIND(source1$,'.',a)
if ~b then break
b$ = TRIM(0,MID(source1$,a,b-1))
if LEN(b$) and ASC(b$(1)) <> '%'
member$[].delete idx
member$[].insert idx, b$
idx = idx + 1
endif
a = a + b
until ~p
for idx = 0 to LEN(member$[])-1 : ? member$[idx] : next
@@# ? : ? total$
inkey
end
if LEN(b$) and ASC(b$(1)) <> '%' if LEN(b$)
dim a[3] = 1, 2, 3
dim a$[3] = 'One', 'Two', 'Three' dim a[] = 1, 2, 3
dim a$[] = 'One', 'Two', 'Three' dim member$[1] : a = 1 : idx = 0 dim member$[] : a = 1 : idx = 0 mytext$ = 'ab'
b$ = 'abc'
c$ = 'ab'
? MATCH(mytext$,'abcd',b$,c$) ! prints 3 μετρητής = 0
while μετρητής < 10
? μετρητής
μετρητής++
endw
rem Who's online
s1$ = 'block-footer-counter'
s2$ = '</span>'
s3$ = ' '
s4$ = '/members/'
s5$ = 'listInline--comma'
s6$ = '</ul>'
source$ = GETSRC('https://retromaniax.gr/')
title 'Retromaniax.gr'
screen 80,25,1000
cursor 1,25
color 0,7
cls
a$ = ''
a = FIND(source$,s1$)
if ~a then ? s1$ : end
a = a + LEN(s1$) + 2
b = FIND(source$,s2$,a)
if ~b then ? s2$ : end
for n = 0 to b-2 : a$ = a$ + source$(a+n) : next
total$ = REPLACE(a$,s3$,'')
? 'Μέλη online' : ?
a = FIND(source$,s5$)
if ~a then ? 'Δεν υπάρχουν μέλη τώρα online' : goto @f
b = FIND(source$,s6$,a)
if ~b then ? s6$ : end
source1$ = MID(source$,a,b)
dim member$[] : a = 1 : idx = 0
do
p = FIND(source1$,s4$,a)
if ~p then break
a = a + p + LEN(s4$) - 1
b = FIND(source1$,'.',a)
if ~b then break
b$ = TRIM(0,MID(source1$,a,b-1))
if LEN(b$)
member$[].delete idx
member$[].insert idx, b$
idx = idx + 1
endif
a = a + b
until ~p
for idx = 0 to LEN(member$[])-1 : ? member$[idx] : next
@@# ? : ? total$
inkey
PROMPT(caption$,string$) --> string V0 a$ = prompt('Hello','Please enter your name')
if LEN(a$) > 0
print 'Hello ',a$
endif
screen 80,25,300
cursor 0,0
color 0,0
cls
w = 8
h = 5
px = 0
py = 0
for n = 15 to 0 step -1
color n,0
x = ((n%4)*w)+2
y = ((n/4)*h)+2
paint x,y,w,h,' ',1
at x+(w/2),y+(h/2),n
next
K# inkey
if (V2 = 37 and px < 3) then M(1,0,-1,0,w)
if (V2 = 39 and px > 0) then M(-1,0,1,0,w)
if (V2 = 38 and py < 3) then M(0,1,0,-1,h)
if (V2 = 40 and py > 0) then M(0,-1,0,1,h)
if V0 = 27 then end else goto K
sub M(a,b,c,d,r)
px = px + a
py = py + b
x = (px*w)+2
y = (py*h)+2
for n = 0 to r-1
move x,y,w,h,x+c,y+d
x = x + c
y = y + d
wait 10
next
ends
j = 7
r = 2
l = 5
m = 1
dim a[80]
screen 80,25
cursor 0,0
color 0,7
cls
do
for i = 0 to 79
if a[i] <> ' '
a[i] = 33 + (j+i*i)%30
if ~((i*i+r)%71) then pen 7 else pen 2
endif
? chr(a[i]),
next
j = j + 31
r = r + 17
l = l + 47
m = m + 67
a[j%80] = '_'
a[r%80] = ' '
a[l%80] = '_'
a[m%80] = ' '
wait 10
until key(27)
end
a$=""
a$=a$+"██████████▄▄▄ ▄▄▄▄█████████"+EOL$
a$=a$+"█████▀▀ ▀▀ ▀▀ ▀██"+EOL$
a$=a$+"███▀ ▀"+EOL$
a$=a$+"▀▀ ▄ ▄█████▄▄ ▄▄█████▄ ▄ "+EOL$
a$=a$+" █▄▄█████▀█ ▀ ▀ ███▀███▄▄█ "+EOL$
a$=a$+" ▄▄█ ████▄█ ███▄██ █▄▄ "+EOL$
a$=a$+" ▄█ ▀█▄███ █▄███▀ █▄ "+EOL$
a$=a$+"▄ ▄███▄ ▄███▄ "+EOL$
a$=a$+"█ █ "+EOL$
a$=a$+"█ █▀▄ "+EOL$
a$=a$+"█ █▀ ▄"+EOL$
a$=a$+"█▀▄ ▄██"+EOL$
a$=a$+"█ ▀▄ ▀▄▄▄▀ ▄▀ ██"+EOL$
a$=a$+"██ ▀▄ ▄▀ ██"+EOL$
a$=a$+"███ ▀▄ ▄▀ ███"+EOL$
a$=a$+"███ ▀▄▄ ▄▄▀ ███"+EOL$
cursor 0,0
color 0,0
cls
color 12,0
print a$
do
flip 0,0,32,16,0
wait 250
until KEY(27)
end
screen 80,32
cursor 0,0
color 0,0
cls
dim a[8] = 70,70,57,52,41,28,26,20
for n = 0 to 7
color n+5,n+5
paint 0,n*4,a[n],3,' ',1
print at a[n]+1,n*4+1,a[n]
next
inkey
end
