'=========SCRIPT==
'BY C-SCRIPT
'BY SYLVEON
'=========SYSTEM==


SFI=PEEKL($E000)
SFII=PEEKL($E004)
SFIII=PEEKL($E008)
SFIV=PEEKL($E012)
SFV=PEEKL($E016)


COIN=PEEKL($E020)
BOAD=1
AP=RND(10)+1
BP=RND(10)+1
ANS=AP+BP
U=0

I=PEEKL($E024)

VERSION=5.0

SYLVEON$="SYLVEON"

R=RND(5)

X=76
Y=90


BG COPY 0,0,20,16 TO 0,0
SPRITE 0,X,Y,8
WAIT 18
SPRITE 0,X,Y,9
WAIT 20
SPRITE 0,X,Y,10
WAIT 19
SPRITE 0,X,Y,11
WAIT 20
SPRITE 0 PAL 2
SPRITE 0,X,Y,7 
WAIT 30
SPRITE OFF
CLS


DO
HOMEPAGE:
CLS
WAIT VBL
WINDOW 0,0,20,14,0
PRINT "=SCRIPT======SYSTEM="
PRINT "1:SETTINGS"
PRINT "2:INFORMATION"
PRINT "3:BROWSER"
PRINT "4:"
PRINT "5:"
PRINT "6:"
PRINT "7:"
WINDOW 0,15,19,1,0
INPUT A$
CLS

IF A$="1" THEN GOSUB SETTINGS
IF A$="2" THEN GOSUB INFORMATION
IF A$="3" THEN GOSUB BROWSER

'===========
IF A$="I" AND I=1 THEN GOSUB HOMEPAGE
IF A$="I" AND I=2 THEN GOSUB SETTINGS
IF A$="I" AND I=3 THEN GOSUB BANK 
'===========
POKEL $E000,SFI
POKEL $E004,SFII
POKEL $E008,SFIII
POKEL $E012,SFIV
POKEL $E016,SFV

POKEL $E020,COIN


POKEL $E024,I
LOOP
DO
SETTINGS:
SBF=SBF+COIN+AP+BP+ANS+BOAD
WINDOW 0,0,20,14,0
PRINT "=SCRIPT======SYSTEM="
PAL 1
PRINT "H:HOMEPAGE"
PAL 0
PRINT "1:STORAGE"
PRINT "2:QUICK KEYS"
PRINT "3:HOMEPAGE"
PRINT "010:RESET"
WINDOW 0,15,19,1,0
INPUT A$
CLS
IF A$="H" THEN GOSUB HOMEPAGE
IF A$="1" THEN GOSUB STORAGE
IF A$="2" THEN GOSUB QUICK_KEYS
IF A$="010" THEN 
 PAL 1
PRINT "   ?ARE YOU SURE?"
PAL 0
PRINT "        Y/N"
WINDOW 0,15,19,1,0
 INPUT A$
 CLS
IF A$="Y" THEN GOSUB RESET
IF A$="N" THEN GOSUB SETTINGS
END IF
'===========
IF A$="I" AND I=1 THEN GOSUB HOMEPAGE
IF A$="I" AND I=2 THEN GOSUB SETTINGS
IF A$="I" AND I=3 THEN GOSUB BANK 
'===========

POKEL $E000,SFI
POKEL $E004,SFII
POKEL $E008,SFIII
POKEL $E012,SFIV
POKEL $E016,SFV

POKEL $E020,COIN
POKEL $E024,I

LOOP
DO
INFORMATION:
WINDOW 0,0,20,14,0
PRINT "=SCRIPT======SYSTEM="
PAL 1
PRINT "H:HOMEPAGE"
PAL 0
PRINT "1:BANK"
PRINT "2:SYSTEM INFORMATION"
WINDOW 0,15,19,1,0
INPUT A$
CLS
'===========
IF A$="I" AND I=1 THEN GOSUB HOMEPAGE
IF A$="I" AND I=2 THEN GOSUB SETTINGS
IF A$="I" AND I=3 THEN GOSUB BANK 
'===========

IF A$="H" THEN GOSUB HOMEPAGE
IF A$="1" THEN GOSUB BANK
IF A$="2" THEN GOSUB VERSION
CLS

RETURN
LOOP
DO
STORAGE:
WINDOW 0,0,20,14,0
PRINT "=STORAGE=5"
PAL 3
PRINT "$COIN$   :$";COIN
PAL 0
PRINT "FILE I   :";SFI
PRINT "FILE II  :";SFII
PRINT "FILE III :";SFIII
PRINT "FILE IV  :";SFIV
PRINT "FILE V   :";SFV
PRINT "BANK FILE:";SBF
PRINT ""
PRINT "1:SETTINGS"
PAL 1
PRINT "010:RESET"
PAL 0

WINDOW 0,15,19,1,0
INPUT A$
CLS
IF A$="1" THEN GOSUB SETTINGS
IF A$="010" THEN 
 PAL 1
PRINT "   ?ARE YOU SURE?"
PAL 0
PRINT "        Y/N"
WINDOW 0,15,19,1,0
 INPUT A$
 CLS
IF A$="Y" THEN GOSUB RESET
IF A$="N" THEN GOSUB SETTINGS
END IF
'===========
IF A$="I" AND I=1 THEN GOSUB HOMEPAGE
IF A$="I" AND I=2 THEN GOSUB SETTINGS
IF A$="I" AND I=3 THEN GOSUB BANK 
'===========
LOOP
DO
BANK:
WINDOW 0,0,20,14,0

PRINT "=SCRIPT======SYSTEM="
PRINT "=BANK OF ALAN DOVER="
PRINT "COIN:$";COIN
PRINT "1:MINE"
PAL 1
PRINT "H:HOMEPAGE"
PAL 0


PRINT "010:NAME?"

WINDOW 0,15,19,1,0
INPUT A$
CLS
IF A$="1" THEN GOSUB MINE


IF A$="H" THEN GOSUB HOMEPAGE
IF A$="010" THEN GOSUB BOD
'===========
IF A$="I" AND I=1 THEN GOSUB HOMEPAGE
IF A$="I" AND I=2 THEN GOSUB SETTINGS
IF A$="I" AND I=3 THEN GOSUB BANK 
'===========
LOOP




DO
RESET:
SFI=0
SFII=0
SFIII=0
SFIV=0
SFV=0
I=0
COIN=0
PRINT "THE END"
PRINT "-SCRIPT PROGRAM"
PRINT ""
PRINT "BY C-SCRIPT OR C.R"
PRINT "V:";VERSION
PRINT "THANKS TIMO KLOSS"
PRINT "WILL HAVE MORE SOON!"

POKEL $E000,SFI
POKEL $E004,SFII
POKEL $E008,SFIII
POKEL $E012,SFIV
POKEL $E016,SFV

POKEL $E020,COIN

POKEL $E024,I

END
LOOP

DO 
BOD:
WINDOW 0,0,20,14,0
PRINT "=SCRIPT======SYSTEM="

PRINT "A FRIEND NAMED A CARTHAT AND I ADDED    DOVER"

WINDOW 0,15,19,1,0
INPUT A
CLS
GOSUB BANK
LOOP

DO
CLS
QUICK_KEYS:
WINDOW 0,0,20,14,0
PRINT "=SCRIPT======SYSTEM="
PRINT "0 MEANS UNASSIGNED"
PRINT "I:";I
PRINT "MORE SOON"
PRINT "H:HOMEPAGE"
WINDOW 0,15,19,1,0
INPUT A$
CLS

IF A$="I" THEN 
PRINT "I:TO WHAT?"
PRINT "1:HOMEPAGE"
PRINT "2:SETTINGS"
PRINT "3:BANK"
INPUT A$

IF A$="1" THEN
  I=1
  POKEL $E024,I
END IF

IF A$="2" THEN
  I=2
  POKEL $E024,I
END IF

IF A$="3" THEN
  I=3
  POKEL $E024,I
END IF
END IF
IF A$="H" THEN GOSUB HOMEPAGE

LOOP

DO
IF A$="I" AND I=1 THEN GOSUB HOMEPAGE
IF A$="I" AND I=2 THEN GOSUB SETTINGS
IF A$="I" AND I=3 THEN GOSUB BANK 

LOOP


DO
VERSION:
WINDOW 0,0,20,14,0
PRINT "=SCRIPT======SYSTEM="
PRINT "BY:C-SCRIPT OR C.R"
PRINT "BY:";SYLVEON$
PRINT "VERSION:";VERSION
WINDOW 0,15,19,1,0
INPUT A$
CLS
GOSUB HOMEPAGE
LOOP

DO
BROWSER:
WINDOW 0,0,20,14,0
PRINT "=SCRIPT======SYSTEM="
PRINT "!!!COMING SOON BY!!!"
PAL 1
PRINT "      ";SYLVEON$
PAL 0
WINDOW 0,15,19,1,0
INPUT A$
CLS
GOSUB HOMEPAGE
LOOP

DO
MINE:
WINDOW 0,0,20,14,0
PRINT "=SCRIPT======SYSTEM="
PRINT "COIN:$";COIN
PAL 1
PRINT "101:HOME"
PAL 0
AP=RND(10)+1
BP=RND(10)+1
ANS=AP+BP

PRINT "SOLVE:"
PRINT AP;"+";BP;"=?"

INPUT U

IF U=101 THEN GOSUB HOMEPAGE

IF U=ANS THEN
  PRINT "CORRECT!"
  COIN=COIN+2
ELSE
  PRINT "WRONG!"
  PRINT "ANSWER WAS:";ANS
  COIN=COIN-2
END IF
POKEL $E020,COIN
WAIT 60
CLS
WINDOW 0,15,19,1,0
CLS
LOOP

DO
HOMESETT:
WINDOW 0,0,20,14,0
PRINT "=SCRIPT======SYSTEM="
PRINT "1:BACKGROUND"

WINDOW 0,15,19,1,0
INPUT A$
CLS
IF A$="1" THEN 
PRINT "1:BLUE"


END IF
LOOP

#1:MAIN PALETTES
003F2A1500303F20000B0317003C3E00
003F2A15003F2A15003F2A15003F2A15

#2:MAIN CHARACTERS
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000102442810000000000000000000
00000080800000000000000000000000
000000C0C00000000000001010000000
000000C2C20000000000001A1A000000
000000C3C30000000000001B1B000000
FF80BFA0A0A0A0A0FF80808080808080
FF00FF0000000000FF00000000000000
FF00FF0000000000FF00000000000000
FF01FD0505050505FF01010101010101
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
A0A0A0A0A0A0A0A08080808080808080
003E7F3C1E077F3E00001F001901033E
00333B3FBF3F391000000800400C1810
05058585858585850101818181818181
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
A1A0A0A0A0A0A0A08080808080808080
007E7F7C3E077F3EFF001F003801033E
003C7E7F777F3F9EFF0018110119031E
45050505050505058101010101010101
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
A0A0A0A0A0BF80FF80808080808080FF
0000000000FF00FF00000000000000FF
0000000000FF00FF00000000000000FF
0505050505FD01FF01010101010101FF
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00181C1C1C0C180C00000404040C000C
006C7E36120000000000121212000000
00247E3F367E3F120000001B12001B12
00083E3F1E3F1F040000000710011704
0062753A142E57230000113204081123
001C3E3A7E773A1D00000A021013001D
00181C3C180000000000040C18000000
000C1E3C38180C060000060C08000006
0030180C0E1E3C180000000002060C18
0000241A7E3F2C120000000200270812
0000181C7E3F1C0C000000040027040C
00000000181C3C180000000000040C18
000000007E3F000000000000003F0000
0000000000181C0C000000000000040C
00060F1E3C787020000003060C183020
003C7E7F777F3F1E000018110119031E
00183C1C1C1C7E3F000004040404003F
003C7E3F1E3C7E3F00001833060C003F
003C7E3F06673F1E000018330001031E
0066777F3F0707030000110139010103
007E7F7C3E077F3E00001F003801033E
001C3E7C7E773F1E00000E001811031E
007E3F0F1E3C381800003903060C0818
003C7E3F7E773F1E000018031811031E
003C7E3F1F673F1E000018011901031E
000000180C180C00000000000C000C00
000000180C183C18000000000C000C18
00000C1E3C180C06000000060C000006
0000007E3F7E3F00000000003F003F00
000030180C1E3C180000000000060C18
003C7E3F1E0C180C00001833060C000C
003C7E7F7F773C1E000018111117001E
00183C7E7F7F77330000001801191133
007C7E7F7E777F3E000018031811033E
003C7E7370763F1E000018131010031E
00787C76777F7E3C000010101113063C
007E7F787C707E3F00001F001C10003F
007E7F787C70703000001F001C101030
003C7E7E77773F1E00001E101111031E
0066777F7F7777330000110119111133
003C1E1C1C1C3C1E000006040404001E
001E0F0707673F1E000009010101031E
00667F7E7C7C76330000130604101033
0060707070707E3F000010101010003F
0042677F7F7F77330000010101191133
0066777F7F7777330000010111111133
003C7E7777773F1E000018111111031E
007C7E7F7E707030000018031E101030
003C7E777B7D3E1F000018111111001F
007C7E7F7E7C76330000180306101033
003E7F3C1E077F3E00001F001801033E
007E3F1C1C1C1C0C000027040404040C
0066777777773F1E000011111111031E
00667777773F1E0C000011111103060C
0066777F7F7F73210000110101193121
00663F1E3C7E77330000030600181133
0066773F1E1C1C0C000011030604040C
007E3F1E3C787E3F000033060C18003F
003C3E3838383C1E00000E080808001E
006030180C0603010000000000000101
003C1E0E0E0E3E1E000012020202021E
00183C7E330000000000001833000000
0000000000007E3F000000000000003F

#3:MAIN BG
00001410000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
0000000000000000000000000C020D02
0E020F02000000000000000000000000
00000000000000000000000000000000
000000001C021D021E021F0200000000
00000000000000000000000000000000
0000000000000000000000002C022D02
2E022F02000000000000000000000000
00000000000000000000000000000000
000000003C023D023E023F0200000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000

