dim P1$(22)
dim P2$(22)
dim P3$(22)
dim P4$(22)
dim P5$(22)
REM flowing pattern analasis tool kit
REM magical flowers structure data grid
REM readable frequencies timer exploit force
REM massive trigger pusher full blast
REM smart automatic decryption meter brain
REM bursting worlds atomic facts robot
REM simple frog building computer program
REM basic media animated dazzle magic
REM even infinity answers level scale
REM creative language invention vortex map
REM static lightning warp utility core
REM video symbol math zero orbit
REM debug challenge crush big limits
REM useful real dream shapes objects
REM family cells father scripting producer
REM activate startup abyss boot byte
REM super productive evolving stages package
REM future mesh coils formula factory
REM tiny sector write assembler os
REM easy basic compiler raw hex
REM origional jewl compact new fusion
REM wild ideas recreate old formats
P1$(001) = "flowing"
P1$(002) = "magical"
P1$(003) = "readable"
P1$(004) = "massive"
P1$(005) = "smart"
P1$(006) = "bursting"
P1$(007) = "simple"
P1$(008) = "basic"
P1$(009) = "even"
P1$(010) = "creative"
P1$(011) = "static"
P1$(012) = "video"
P1$(013) = "debug"
P1$(014) = "useful"
P1$(015) = "family"
P1$(016) = "activate"
P1$(017) = "super"
P1$(018) = "future"
P1$(019) = "tiny"
P1$(020) = "easy"
P1$(021) = "origional"
P1$(022) = "wild"
REM ========================================================================
P2$(001) = "pattern"
P2$(002) = "flowers"
P2$(003) = "frequencies"
P2$(004) = "trigger"
P2$(005) = "automatic"
P2$(006) = "worlds"
P2$(007) = "frog"
P2$(008) = "media"
P2$(009) = "infinity"
P2$(010) = "language"
P2$(011) = "lightning"
P2$(012) = "symbol"
P2$(013) = "challenge"
P2$(014) = "real"
P2$(015) = "cells"
P2$(016) = "startup"
P2$(017) = "productive"
P2$(018) = "mesh"
P2$(019) = "sector"
P2$(020) = "basic"
P2$(021) = "jewl"
P2$(022) = "ideas"
REM ========================================================================
P3$(001) = "analasis"
P3$(002) = "structure"
P3$(003) = "timer"
P3$(004) = "pusher"
P3$(005) = "decryption"
P3$(006) = "atomic"
P3$(007) = "building"
P3$(008) = "animated"
P3$(009) = "answers"
P3$(010) = "invention"
P3$(011) = "warp"
P3$(012) = "math"
P3$(013) = "crush"
P3$(014) = "dream"
P3$(015) = "father"
P3$(016) = "abyss"
P3$(017) = "evolving"
P3$(018) = "coils"
P3$(019) = "write"
P3$(020) = "compiler"
P3$(021) = "compact"
P3$(022) = "recreate"
REM ========================================================================
P4$(001) = "tool"
P4$(002) = "data"
P4$(003) = "exploit"
P4$(004) = "full"
P4$(005) = "meter"
P4$(006) = "facts"
P4$(007) = "computer"
P4$(008) = "dazzle"
P4$(009) = "level"
P4$(010) = "vortex"
P4$(011) = "utility"
P4$(012) = "zero"
P4$(013) = "big"
P4$(014) = "shapes"
P4$(015) = "scripting"
P4$(016) = "boot"
P4$(017) = "stages"
P4$(018) = "formula"
P4$(019) = "assembler"
P4$(020) = "raw"
P4$(021) = "new"
P4$(022) = "old"
REM ========================================================================
P5$(001) = "kit"
P5$(002) = "grid"
P5$(003) = "force"
P5$(004) = "blast"
P5$(005) = "brain"
P5$(006) = "robot"
P5$(007) = "program"
P5$(008) = "magic"
P5$(009) = "scale"
P5$(010) = "map"
P5$(011) = "core"
P5$(012) = "orbit"
P5$(013) = "limits"
P5$(014) = "objects"
P5$(015) = "producer"
P5$(016) = "byte"
P5$(017) = "package"
P5$(018) = "factory"
P5$(019) = "OS"
P5$(020) = "hex"
P5$(021) = "fusion"
P5$(022) = "formats"
REM ========================================================================
print "Facts Lab Version 1.0 By Atomic_Bios"
KMD$ = COMMAND$
KMD$ = LTRIM$(KMD$)
MAX = VAL(KMD$)
IF MAX = 0 THEN
print "usage: facts times"
print "times is the number of facts you want"
END
ENDIF
Intro:
Main:
randomize
for Ha = 1 to MAX
R0 = rnd(0)
R0 = R0 mod 22
R0 = R0 + 1
R1 = rnd(0)
R1 = R1 mod 22
R1 = R1 + 1
R2 = rnd(0)
R2 = R2 mod 22
R2 = R2 + 1
R3 = rnd(0)
R3 = R3 mod 22
R3 = R3 + 1
R4 = rnd(0)
R4 = R4 mod 22
R4 = R4 + 1
print P1$(R0);
print " ";
print P2$(R1);
print " ";
print P3$(R2);
print " ";
print P4$(R3);
print " ";
print P5$(R4);
print ""
REM ========================================================================
next Ha
END
REM ========================================================================