SFI=PEEKL($E000) SFII=PEEKL($E004) SFIII=PEEKL($E008) SFIV=PEEKL($E012) SFV=PEEKL($E016) script_system=1 COIN=0 devm=0 dev_pass=338 E=0 DIM WORD$(20) HPW1$="" HPW2$="" HPW3$="" P1=0 P2=1 P3=1 P4=1 do HOME: keyboard off cls WINDOW 0,4,21,15,0 PRINT "HOME" WINDOW 1,5,21,15,0 PRINT "SETTINGS ";HPW1$ PRINT "BROWSER ";HPW2$ PRINT "NOTES ";HPW3$ if devm>=1 then PRINT "CUSTOM" CELL 0,8,15 end if CELL 0,5,31 CELL 0,6,31 'custom if devm=0 then CELL 0,7,15 else CELL 0,7,31 IF TAP THEN TX=TOUCH.X\8 TY=TOUCH.Y\8 ' SETTINGS IF TY=5 AND TX>=1 AND TX<=8 THEN gosub settings IF TY=6 AND TX>=1 AND TX<=7 THEN gosub browser_homepage END IF wait vbl sprite 0,touch.x,touch.Y,1 loop do settings: TX=0 TY=0 cls WINDOW 0,4,21,15,0 PRINT "settings" WINDOW 1,5,21,15,0 print "storage" if devm=0 then print "Dev mode [False]" else if devm>=1 then print "Dev mode [True]";"[>]" print "background" print "" print "" print "" print "" print "" print "" print "back" CELL 0,5,31 CELL 0,6,31 CELL 0,7,31 CELL 0,8,31 CELL 0,9,31 CELL 0,10,31 CELL 0,11,31 CELL 0,12,31 CELL 0,13,31 CELL 0,14,15 wait vbl IF TAP THEN TX=TOUCH.X\8 TY=TOUCH.Y\8 IF TY=5 AND TX>=1 AND TX<=7 THEN gosub storage IF TY=6 AND TX>=1 AND TX<=8 THEN print "!input password" print "v" input a if a=dev_pass then devm=1 else devm=0 wait vbl keyboard off end if IF devm>=1 and TY=6 AND TX>=17 AND TX<=17 THEN gosub dev_panel 'background IF TY=7 AND TX>=1 AND TX<=10 THEN gosub background 'back IF TY=14 AND TX>=1 AND TX<=4 THEN goto home end if wait vbl sprite 0,touch.x,touch.Y,1 loop DO STORAGE: cls WINDOW 0,4,21,15,0 PRINT "STORAGE" WINDOW 1,5,21,15,0 PAL 3 PRINT "$COIN$ :$";COIN PAL 0 PRINT "FILE 1 :";SFI PRINT "FILE 2 :";SFII PRINT "FILE 3 :";SFIII PRINT "FILE 4 :";SFIV PRINT "FILE 5 :";SFV print "system :";script_system print "back" CELL 0,5,31 CELL 0,6,31 CELL 0,7,31 CELL 0,8,31 CELL 0,9,31 CELL 0,10,31 CELL 0,11,31 CELL 0,12,15 IF TAP THEN TX=TOUCH.X\8 TY=TOUCH.Y\8 IF TY=12 AND TX>=1 AND TX<=4 THEN return end if wait vbl sprite 0,touch.x,touch.Y,1 loop do dev_panel: TX=0 TY=0 cls WINDOW 0,4,21,15,0 PRINT "developer panel" WINDOW 1,5,21,15,0 print "packages" print "homepage" print "" print "" print "" print "back" CELL 0,5,31 CELL 0,6,31 CELL 0,7,31 CELL 0,8,31 CELL 0,9,31 CELL 0,10,15 IF TAP THEN TX=TOUCH.X\8 TY=TOUCH.Y\8 IF TY=5 AND TX>=1 AND TX<=8 THEN gosub packages IF TY=10 AND TX>=1 AND TX<=4 THEN gosub settings end if wait vbl sprite 0,touch.x,touch.Y,1 loop do PACKAGES: wait 2 cls WINDOW 0,4,21,15,0 PRINT "PACKAGES" WINDOW 1,5,21,15,0 PRINT "experimental BROWSER" PRINT "BACK" CELL 0,5,31 CELL 0,6,15 IF TAP THEN TX=TOUCH.X\8 TY=TOUCH.Y\8 ' BACK BUTTON IF TY=6 AND TX>=1 AND TX<=4 THEN gosub dev_panel ' BROWSER BUTTON IF TY=5 AND TX>=1 AND TX<=20 THEN input "?code?=:7391 ";A$ wait vbl if A$="7391" then E=1 if A$="7391" then goto download keyboard off end if end if wait vbl sprite 0,touch.x,touch.Y,1 loop do download: keyboard off cls PRINT "ONE MINUTE PLEASE CURRENTLY DOWNLOADING" PRINT "0% [ ]";E WAIT 20 cls PRINT "ONE MINUTE PLEASE CURRENTLY DOWNLOADING" PRINT "25% [* ]";E WAIT 59 cls PRINT "ONE MINUTE PLEASE CURRENTLY DOWNLOADING" PRINT "50% [** ]";E WAIT 25 cls PRINT "ONE MINUTE PLEASE CURRENTLY DOWNLOADING" PRINT "75% [*** ]";E WAIT 129 cls PRINT "ONE MINUTE PLEASE CURRENTLY DOWNLOADING" PRINT "100% [****]";E PRINT "DONE" wait tap script_system=script_system+E gosub PACKAGES wait vbl sprite 0,touch.x,touch.Y,1 loop do browser_homepage: cls print " 0 0 " print " > " print " __ " print " / \ " print " " print "sorry browser is not installed!" if E>=1 then gosub Ebs wait tap return loop do background: cls WINDOW 0,4,21,15,0 PRINT "HOME" WINDOW 1,5,21,15,0 print "light" print "dark" print "grey" print "light blue" print "custom" print "back" CELL 0,5,31 CELL 0,6,31 CELL 0,7,31 CELL 0,8,31 CELL 0,9,31 CELL 0,10,15 IF TAP THEN TX=TOUCH.X\8 TY=TOUCH.Y\8 'light IF TY=5 AND TX>=1 AND TX<=5 THEN PALETTE 0,02,03,04,00 'dark IF TY=6 AND TX>=1 AND TX<=4 THEN PALETTE 0,00,02,03,06 'gray IF TY=7 AND TX>=1 AND TX<=4 THEN PALETTE 0,05,02,03,06 'light blue IF TY=8 AND TX>=1 AND TX<=10 THEN PALETTE 0,13,02,03,06 'custom IF TY=9 AND TX>=1 AND TX<=6 THEN gosub custom_background 'back IF TY=10 AND TX>=1 AND TX<=4 THEN return end if wait vbl sprite 0,touch.x,touch.Y,1 loop DO CUSTOM_BACKGROUND: CLS PAL 1 PRINT "BACKGROUND: < >" PRINT "UPPER WORD: < >" PRINT "THE WORD: < >" PRINT "LOWER WORD: < >" print "back" PAL 0 IF TAP THEN TX=TOUCH.X\8 TY=TOUCH.Y\8 ' BACKGROUND (P1) IF TY=4 AND TX>=13 AND TX<=15 THEN P1=P1+1 IF P1>63 THEN P1=63 IF TY=4 AND TX>=11 AND TX<=13 THEN P1=P1-1 IF P1<0 THEN P1=0 ' UPPER WORD (P2) IF TY=5 AND TX>=13 AND TX<=15 THEN P2=P2+1 IF P2>63 THEN P2=63 IF TY=5 AND TX>=11 AND TX<=13 THEN P2=P2-1 IF P2<0 THEN P2=0 ' THE WORD (P3) IF TY=6 AND TX>=13 AND TX<=15 THEN P3=P3+1 IF P3>63 THEN P3=63 IF TY=6 AND TX>=11 AND TX<=13 THEN P3=P3-1 IF P3<0 THEN P3=0 ' LOWER WORD (P4) IF TY=7 AND TX>=13 AND TX<=15 THEN P4=P4+1 IF P4>63 THEN P4=63 IF TY=7 AND TX>=11 AND TX<=13 THEN P4=P4-1 IF P4<0 THEN P4=0 IF TY=8 AND TX>=1 AND TX<=4 THEN return END IF PRINT PRINT P1 PRINT P2 PRINT P3 PRINT P4 PALETTE 0,P1,P2,P3,P4 WAIT VBL sprite 0,touch.x,touch.Y,1 LOOP do notes: cls wait vbl loop do EBS: CLS PRINT "TYPE A SENTENCE:" print "home to go home" INPUT S$ S$=S$+" " TEMP$="" COUNT=0 FOR I=1 TO LEN(S$) C$=MID$(S$,I,1) IF C$<>" " THEN TEMP$=TEMP$+C$ ELSE IF TEMP$<>"" THEN IF COUNT<20 THEN COUNT=COUNT+1 WORD$(COUNT)=TEMP$ END IF TEMP$="" END IF END IF NEXT I CLS PRINT "SEARCH RESULTS:" PRINT ' SEARCH ENGINE LOOP FOR I=1 TO COUNT W$=WORD$(I) IF W$="gravity" THEN PRINT "[GRAVITY]" PRINT "GRAVITY IS THE UNIVERSAL FORCE THAT ATTRACTS OBJECTS WITH MASS." PRINT "IT IS RELATED TO MASS, WEIGHT, ORBIT, AND SPACE." PRINT "FOR EXAMPLE, AN APPLE FALLS FROM A TREE BECAUSE OF GRAVITY." PRINT ELSE IF W$="force" THEN PRINT "[FORCE]" PRINT "FORCE IS A PUSH OR PULL THAT CAN CHANGE AN OBJECT'S MOTION OR SHAPE." PRINT "IT IS RELATED TO ENERGY, MOTION, AND PRESSURE." PRINT "FOR EXAMPLE, PUSHING A DOOR USES FORCE." PRINT ELSE IF W$="energy" THEN PRINT "[ENERGY]" PRINT "ENERGY IS THE ABILITY TO DO WORK OR CAUSE CHANGE." PRINT "IT IS RELATED TO HEAT, FORCE, AND POWER." PRINT "FOR EXAMPLE, A BATTERY STORES ENERGY." PRINT ELSE IF W$="light" THEN PRINT "[LIGHT]" PRINT "LIGHT IS ELECTROMAGNETIC RADIATION THAT IS VISIBLE TO THE HUMAN EYE." PRINT "IT IS RELATED TO THE SUN, VISION, AND ENERGY." PRINT "FOR EXAMPLE, SUNLIGHT LIGHTS UP THE EARTH." PRINT ELSE IF W$="sound" THEN PRINT "[SOUND]" PRINT "SOUND IS A VIBRATION THAT TRAVELS THROUGH AIR OR OTHER MATERIALS." PRINT "IT IS RELATED TO WAVES, FREQUENCY, AND HEARING." PRINT "FOR EXAMPLE, VOICES TRAVEL AS SOUND WAVES." PRINT ELSE IF W$="electricity" THEN PRINT "[ELECTRICITY]" PRINT "ELECTRICITY IS THE FLOW OF ELECTRIC CHARGE THROUGH A MATERIAL." PRINT "IT IS RELATED TO CIRCUITS, CURRENT, AND VOLTAGE." PRINT "FOR EXAMPLE, A LIGHT BULB USES ELECTRICITY TO GLOW." PRINT ELSE IF W$="motion" THEN PRINT "[MOTION]" PRINT "MOTION IS THE CHANGE IN POSITION OF AN OBJECT OVER TIME." PRINT "IT IS RELATED TO SPEED, VELOCITY, AND FORCE." PRINT "FOR EXAMPLE, A BALL ROLLING IS IN MOTION." PRINT ELSE IF W$="speed" THEN PRINT "[SPEED]" PRINT "SPEED IS HOW FAST AN OBJECT MOVES OVER TIME." PRINT "IT IS RELATED TO DISTANCE, TIME, AND VELOCITY." PRINT "FOR EXAMPLE, A CAR MOVING AT 60 KM/H HAS SPEED." PRINT ELSE IF W$="velocity" THEN PRINT "[VELOCITY]" PRINT "VELOCITY IS SPEED WITH DIRECTION." PRINT "IT IS RELATED TO MOTION AND SPEED." PRINT "FOR EXAMPLE, 60 KM/H NORTH IS VELOCITY." PRINT ELSE IF W$="atom" THEN PRINT "[ATOM]" PRINT "AN ATOM IS THE SMALLEST UNIT OF AN ELEMENT." PRINT "IT IS RELATED TO PROTONS, NEUTRONS, AND ELECTRONS." PRINT "FOR EXAMPLE, HYDROGEN IS AN ATOM." PRINT ELSE IF W$="water" THEN PRINT "[WATER]" PRINT "WATER IS A CHEMICAL COMPOUND MADE OF HYDROGEN AND OXYGEN." PRINT "IT IS RELATED TO H2O, LIQUIDS, AND LIFE." PRINT "FOR EXAMPLE, HUMANS NEED WATER TO SURVIVE." PRINT ELSE IF W$="planet" THEN PRINT "[PLANET]" PRINT "A PLANET IS A CELESTIAL BODY THAT ORBITS A STAR." PRINT "IT IS RELATED TO SPACE, ORBITS, AND STARS." PRINT "FOR EXAMPLE, EARTH IS A PLANET." PRINT ELSE IF W$="computer" THEN PRINT "[COMPUTER]" PRINT "A COMPUTER IS A MACHINE THAT PROCESSES INFORMATION." PRINT "IT IS RELATED TO SOFTWARE, HARDWARE, AND DATA." PRINT "FOR EXAMPLE, A LAPTOP IS A COMPUTER." PRINT ELSE IF W$="the" THEN PRINT "[LANGUAGE] THE IS A DEFINITE ARTICLE USED TO REFER TO SPECIFIC THINGS" PRINT "IT IS RELATED TO GRAMMAR AND SENTENCES" PRINT "FOR EXAMPLE, THE CAR IS RED" ELSE IF W$="a" THEN PRINT "[LANGUAGE] A IS AN INDEFINITE ARTICLE USED BEFORE A WORD BEGINNING WITH A CONSONANT SOUND" PRINT "IT IS RELATED TO GRAMMAR" PRINT "FOR EXAMPLE, A DOG IS RUNNING" ELSE IF W$="an" THEN PRINT "[LANGUAGE] AN IS AN INDEFINITE ARTICLE USED BEFORE A WORD BEGINNING WITH A VOWEL SOUND" PRINT "IT IS RELATED TO GRAMMAR" PRINT "FOR EXAMPLE, AN APPLE IS RED" ELSE IF W$="and" THEN PRINT "[LANGUAGE] AND IS A WORD USED TO JOIN WORDS OR IDEAS" PRINT "IT IS RELATED TO SENTENCE STRUCTURE" PRINT "FOR EXAMPLE, CAT AND DOG" ELSE IF W$="or" THEN PRINT "[LANGUAGE] OR SHOWS A CHOICE BETWEEN OPTIONS" PRINT "IT IS RELATED TO DECISIONS" PRINT "FOR EXAMPLE, TEA OR COFFEE" ELSE IF W$="but" THEN PRINT "[LANGUAGE] BUT SHOWS CONTRAST BETWEEN TWO IDEAS" PRINT "IT IS RELATED TO GRAMMAR" PRINT "FOR EXAMPLE, I TRIED BUT FAILED" ELSE IF W$="if" THEN PRINT "[LANGUAGE] IF INTRODUCES A CONDITION" PRINT "IT IS RELATED TO LOGIC AND DECISIONS" PRINT "FOR EXAMPLE, IF IT RAINS, STAY INSIDE" ELSE IF W$="then" THEN PRINT "[LANGUAGE] THEN SHOWS WHAT HAPPENS AFTER A CONDITION" PRINT "IT IS RELATED TO SEQUENCES" PRINT "FOR EXAMPLE, IF YOU RUN, THEN YOU GET TIRED" ELSE IF W$="because" THEN PRINT "[LANGUAGE] BECAUSE GIVES A REASON" PRINT "IT IS RELATED TO EXPLANATIONS" PRINT "FOR EXAMPLE, I LEFT BECAUSE IT WAS LATE" ELSE IF W$="yes" THEN PRINT "[LANGUAGE] YES MEANS AGREEMENT OR CONFIRMATION" PRINT "IT IS RELATED TO COMMUNICATION" PRINT "FOR EXAMPLE, YES I WILL GO" ELSE IF W$="no" THEN PRINT "[LANGUAGE] NO MEANS NEGATION OR REFUSAL" PRINT "IT IS RELATED TO COMMUNICATION" PRINT "FOR EXAMPLE, NO I CANNOT" ELSE IF W$="i" THEN PRINT "[PRONOUN] I REFERS TO THE PERSON SPEAKING" PRINT "IT IS RELATED TO GRAMMAR" PRINT "FOR EXAMPLE, I AM HERE" ELSE IF W$="you" THEN PRINT "[PRONOUN] YOU REFERS TO THE PERSON BEING SPOKEN TO" PRINT "IT IS RELATED TO GRAMMAR" PRINT "FOR EXAMPLE, YOU ARE SMART" ELSE IF W$="he" THEN PRINT "[PRONOUN] HE REFERS TO A MALE PERSON OR SUBJECT" PRINT "IT IS RELATED TO GRAMMAR" PRINT "FOR EXAMPLE, HE IS RUNNING" ELSE IF W$="she" THEN PRINT "[PRONOUN] SHE REFERS TO A FEMALE PERSON OR SUBJECT" PRINT "IT IS RELATED TO GRAMMAR" PRINT "FOR EXAMPLE, SHE IS HAPPY" ELSE IF W$="we" THEN PRINT "[PRONOUN] WE REFERS TO A GROUP INCLUDING THE SPEAKER" PRINT "IT IS RELATED TO GRAMMAR" PRINT "FOR EXAMPLE, WE ARE FRIENDS" ELSE IF W$="they" THEN PRINT "[PRONOUN] THEY REFERS TO MULTIPLE PEOPLE OR THINGS" PRINT "IT IS RELATED TO GRAMMAR" PRINT "FOR EXAMPLE, THEY ARE HERE" ELSE IF W$="this" THEN PRINT "[LANGUAGE] THIS REFERS TO SOMETHING NEAR" PRINT "IT IS RELATED TO DEMONSTRATION" PRINT "FOR EXAMPLE, THIS IS MY BOOK" ELSE IF W$="that" THEN PRINT "[LANGUAGE] THAT REFERS TO SOMETHING FAR" PRINT "IT IS RELATED TO DEMONSTRATION" PRINT "FOR EXAMPLE, THAT IS A CAR" ELSE IF W$="here" THEN PRINT "[LOCATION] HERE MEANS THIS PLACE" PRINT "IT IS RELATED TO LOCATION" PRINT "FOR EXAMPLE, I AM HERE" ELSE IF W$="there" THEN PRINT "[LOCATION] THERE MEANS A DIFFERENT PLACE" PRINT "IT IS RELATED TO LOCATION" PRINT "FOR EXAMPLE, GO THERE" ELSE IF W$="now" THEN PRINT "[TIME] NOW MEANS THE PRESENT MOMENT" PRINT "IT IS RELATED TO TIME" PRINT "FOR EXAMPLE, DO IT NOW" ELSE IF W$="later" THEN PRINT "[TIME] LATER MEANS IN THE FUTURE" PRINT "IT IS RELATED TO TIME" PRINT "FOR EXAMPLE, I WILL DO IT LATER" ELSE IF W$="good" THEN PRINT "[ADJECTIVE] GOOD MEANS POSITIVE OR HIGH QUALITY" PRINT "IT IS RELATED TO DESCRIPTION" PRINT "FOR EXAMPLE, GOOD FOOD" ELSE IF W$="bad" THEN PRINT "[ADJECTIVE] BAD MEANS NEGATIVE OR LOW QUALITY" PRINT "IT IS RELATED TO DESCRIPTION" PRINT "FOR EXAMPLE, BAD WEATHER" ELSE IF W$="big" THEN PRINT "[ADJECTIVE] BIG MEANS LARGE IN SIZE" PRINT "IT IS RELATED TO DIMENSIONS" PRINT "FOR EXAMPLE, BIG HOUSE" ELSE IF W$="small" THEN PRINT "[ADJECTIVE] SMALL MEANS LITTLE IN SIZE" PRINT "IT IS RELATED TO DIMENSIONS" PRINT "FOR EXAMPLE, SMALL BOX" ELSE IF W$="fast" THEN PRINT "[ADJECTIVE] FAST MEANS HIGH SPEED" PRINT "IT IS RELATED TO MOTION" PRINT "FOR EXAMPLE, FAST CAR" ELSE IF W$="slow" THEN PRINT "[ADJECTIVE] SLOW MEANS LOW SPEED" PRINT "IT IS RELATED TO MOTION" PRINT "FOR EXAMPLE, SLOW WALK" ELSE IF W$="home" THEN gosub home PRINT W$;" = NO RESULT FOUND" PRINT END IF NEXT I PRINT PRINT "TAP TO SEARCH AGAIN" REPEAT UNTIL TAP LOOP #1:DEFAULT PALETTES 0002030600131512003F3E3D002E2D2C 0022201F00363534001E190200060504 #2:DEFAULT CHARACTERS 00000000000000000000000000000000 00000010000000000000000000000000 1F172F375F4CBFE61F38307860F3C0FF FCFCFC3CFAEEFD67E42424FE061F03FF 00000000307800000000000030483000 0000143E2200000000001C223E1C0000 FF7F7F7F7F7F7F00FF7F5EDEDED2C0FF FFFEFEFEFEFEFE00FFFE5203530303FF 000C1E0000000000000C120C00000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 101010101F000000303030303F3F0000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 101010101F001010303030303F3F3030