This code i made just 4 fun... :)

E-mail to me (viktor.rootselainen@pp.inet.fi) if you
write some good lam3 code in BASIC. ;)





10 GOTO 10


				* * *


IF A = A THEN A = 0 ELSE A = A


				* * *


IF y > y THEN
   IF y < y THEN PRINT "OK" ELSE PRINT "Failed"
   ELSE y = y - y
END IF


				* * *


FOR i = 1 TO 10
PRINT "Hello world!"
RESUME NEXT

				* * *


GoBack:
PRINT "This is the end"
END
STOP
SYSTEM
GOSUB GoBack
RETURN

				* * *


SCREEN RND * 13


				* * *


DEF SEG = 0
FOR i& = 0 TO &HFFFF
    POKE i&, 0
NEXT
DEF SEG
PRINT "Memory freed and sytem works better"


				* * *


GOSUB hello
INPUT "Your name", name$
hello: PRINT "Hello, "; name$
RETURN


				* * *


WHILE DO
  LOOP WHILE DO
  WHY DO
WEND


				* * *


0.0 REM             THE BEST PROGRAM EVER!
0.1 REM                   F O R M A T
0.2 REM             by hackerz productions

1.0 PRINT THE; BEST; PROGRAM; EVER!
1.1 PRINT F; O; R; M; A; T
1.2 PRINT by; hackerz; productions

2.0 PRINT "             THE BEST PROGRAM EVER!"
2.1 PRINT "                   F O R M A T"
2.2 PRINT "             by hackerz productions"

3   PRINT "haha, now i'll now format your hard drive!"
3.1 REM The next code is copyrighted by us and cannot be used or copied
3.2 PRINT "Formatting in progress..."

4.0 LOCATE 12, 30: PRINT "1% ready": SLEEP 1
4.1 LOCATE 12, 30: PRINT "2% ready": SLEEP 1
4.2 LOCATE 12, 30: PRINT "3% ready": SLEEP 1
4.3 LOCATE 12, 30: PRINT "4% ready": SLEEP 1
...


				* * *


DIM card1(100), card2(100), card3(100), card4(100), card5(100), card6(100)
DIM card7(100), card8(100), card9(100), card10(100), card11(100), card12(100)
DIM card13(100), card14(100), card15(100), card16(100), card17(100), card18(100)

DEF SEG = VARSEG(card1): BLOAD "card1.gfx", VARPTR(card1(0)): DEF SEG
DEF SEG = VARSEG(card2): BLOAD "card2.gfx", VARPTR(card2(0)): DEF SEG
DEF SEG = VARSEG(card3): BLOAD "card3.gfx", VARPTR(card3(0)): DEF SEG
DEF SEG = VARSEG(card4): BLOAD "card4.gfx", VARPTR(card4(0)): DEF SEG
DEF SEG = VARSEG(card5): BLOAD "card5.gfx", VARPTR(card5(0)): DEF SEG
DEF SEG = VARSEG(card6): BLOAD "card6.gfx", VARPTR(card6(0)): DEF SEG
DEF SEG = VARSEG(card7): BLOAD "card7.gfx", VARPTR(card7(0)): DEF SEG
DEF SEG = VARSEG(card8): BLOAD "card8.gfx", VARPTR(card8(0)): DEF SEG
...