DECLARE SUB tttt ()
DECLARE SUB printme ()
'This program is nearly finished, but it has a few bugs.  The password
'I chose is FREAK but you can change it by changing the value of checkpass$
'to anything you like.  This is V2.0 and it has added features from V1.0
'
'I wrote this program, but I ripped off SOME source code.  Explained in the
'CREDITS section.  Have fun and enjoy!!!!  :-)
'               KOCHO
DECLARE SUB info ()
DECLARE SUB create ()
DECLARE SUB decode ()
DECLARE SUB iwannaquit ()
DECLARE SUB printer ()
DECLARE SUB CODE ()
SCREEN 0
CLS
seconds = TIMER
PRINT "The date is:", DATE$, "  The time is:"; TIME$
checkpass$ = "FREAK"     ' This is the value of the password
BEEP
LOCATE 5, 20
COLOR 12
INPUT "Enter PASSWORD:", password$
IF password$ = checkpass$ THEN
        CLS
        LOCATE 5, 10
        BEEP
        COLOR 9
        PRINT "You are entering the most top secret program in the world."
        BEEP
        SLEEP
        CALL tttt
ELSE
        CLS
        LOCATE 5, 10
        COLOR 2
        PRINT "You have failed to gain access to this program."
        LOCATE 6, 10
        COLOR 10
        PRINT "You had better run before the police get you!!!"
        BEEP
END IF

SUB create
SCREEN 0
CLS
LOCATE 1, 1
COLOR 6
PRINT "TYPE IN THE MESSAGE YOU WANT TO CODE"
INPUT m$: LET L = LEN(m$)
IF INT(1 / 2) <> L / 2 THEN LET m$ = m$ + ""
FOR k = 1 TO LEN(m$) STEP 2
LET C$ = C$ + MID$(m$, k + 1, 1)
LET C$ = C$ + MID$(m$, k, 1)
NEXT k
CLS
PRINT : PRINT "CODED MESSAGE:"
PRINT : PRINT C$
SLEEP
CALL printme

END SUB

SUB decode
CLS
COLOR 3
LOCATE 1, 1: PRINT "TYPE IN THE CODE MESSAGE"
INPUT m$: LET L = LEN(m$)
IF INT(1 / 2) <> L / 2 THEN LET m$ = m$ + ""
FOR k = 1 TO LEN(m$) STEP 2
LET C$ = C$ + MID$(m$, k + 1, 1)
LET C$ = C$ + MID$(m$, k, 1)
NEXT k
CLS
PRINT : PRINT "DECODED MESSAGE:"
PRINT : PRINT C$
SLEEP
SLEEP
GOSUB printme

printme:
CLS
INPUT "Do you want to print your code?(Y/N)", P$
IF P$ = "y" THEN PRINT "Please turn printer on-line and press enter when ready..."; fart$
SLEEP 100
IF P$ = "y" AND fart$ = "" THEN LPRINT C$
IF P$ = "n" THEN END

END SUB

SUB printme
CLS
INPUT "Do you want to print your code?(Y/N)", P$
IF P$ = "Y" THEN PRINT "Please turn printer on-line and press enter when ready..."; fart$
SLEEP 100
IF P$ = "Y" AND fart$ = "" THEN LPRINT
CALL tttt
IF P$ = "N" THEN CALL tttt
END SUB

SUB tttt
begin:
CLS
SCREEN 13: s = 0: CLS : ti = 0: am = 0: dr = 0
COLOR 2

'LINE (1, 189)-(315, 20), 2, B
LOCATE 3, 10
PRINT "Kocho Software Presents:"
VIEW SCREEN (0, 0)-(319, 179)

LOCATE 1, 32

meny:
'CLS            
'SCREEN 7
COLOR 2
'LOCATE 1, 23
'PRINT "Code Masta 1000"
LOCATE 11, 10
COLOR 4 '2
PRINT "Choose with the arrows"
LOCATE 23, 11
COLOR 12 '2
PRINT "Confirm with <Enter>"
LINE (100, 170)-(220, 90), 2, B
'PAINT (150, 120), 4, 2
COLOR 7
LOCATE 16 - 1, 18
PRINT "Create"
LOCATE 17 - 1, 18
PRINT "Decode"
LOCATE 18 - 1, 18
PRINT "Info"
LOCATE 19 - 1, 18
PRINT "Credits"
COLOR 7
LOCATE 20 - 1, 18
PRINT "Quit"
DO
SELECT CASE INKEY$
CASE CHR$(0) + "H": GOSUB ner
CASE CHR$(0) + "P": GOSUB ner
CASE CHR$(113): SYSTEM
CASE ELSE
END SELECT
LOOP
ner:

'SCREEN 7
LINE (100, 170)-(220, 90), 2, B
'PAINT (150, 120), 4, 2
COLOR 14
LOCATE 16 - 1, 18
PRINT "Create"
COLOR 7
LOCATE 17 - 1, 18
PRINT "Decode"
LOCATE 18 - 1, 18
PRINT "Info"
COLOR 7
LOCATE 19 - 1, 18
PRINT "Credits"
LOCATE 20 - 1, 18
PRINT "Quit"
DO
SELECT CASE INKEY$
CASE CHR$(0) + "H": GOSUB avslut
CASE CHR$(0) + "P": GOSUB upp
CASE CHR$(13): GOSUB start
CASE CHR$(113): SYSTEM
CASE ELSE
END SELECT
LOOP

upp:

'SCREEN 7
LINE (100, 170)-(220, 90), 2, B
'PAINT (150, 120), 4, 2
COLOR 7
LOCATE 16 - 1, 18
PRINT "Create"
LOCATE 17 - 1, 18
COLOR 14
PRINT "Decode"
LOCATE 18 - 1, 18
COLOR 7
PRINT "Info"
COLOR 7
LOCATE 19 - 1, 18
PRINT "Credits"
LOCATE 20 - 1, 18
PRINT "Quit"
DO
SELECT CASE INKEY$
CASE CHR$(0) + "H": GOSUB ner
CASE CHR$(0) + "P": GOSUB cr
CASE CHR$(64): SOUND 1000, 1: SOUND 10000, 1: SOUND 5000, 1: cheat% = 1: LOCATE 1, 1: COLOR 4: PRINT "You're invurnable!": SLEEP 3
CASE CHR$(113): SYSTEM
CASE CHR$(13): GOSUB info
CASE ELSE
END SELECT
LOOP

cr:
'SCREEN 7
LINE (100, 170)-(220, 90), 2, B
'PAINT (150, 120), 4, 2
COLOR 7
LOCATE 16 - 1, 18
PRINT "Create"
LOCATE 17 - 1, 18
COLOR 7
PRINT "Decode"
LOCATE 18 - 1, 18
COLOR 14
PRINT "Info"
COLOR 7
LOCATE 19 - 1, 18
PRINT "Credits"
LOCATE 20 - 1, 18
PRINT "Quit"
DO
SELECT CASE INKEY$
CASE CHR$(0) + "H": GOSUB upp
CASE CHR$(0) + "P": GOSUB options
CASE CHR$(13): GOSUB credits
CASE CHR$(113): SYSTEM
CASE ELSE
END SELECT
LOOP

options:
DO
LINE (100, 170)-(220, 90), 2, B
'PAINT (150, 120), 4, 2
COLOR 7
LOCATE 16 - 1, 18
PRINT "Create"
LOCATE 17 - 1, 18
COLOR 7
PRINT "Decode"
LOCATE 18 - 1, 18
PRINT "Info"
LOCATE 19 - 1, 18
COLOR 14
PRINT "Credits"
LOCATE 20 - 1, 18
COLOR 7
PRINT "Quit"
SELECT CASE INKEY$
CASE CHR$(0) + "H": GOSUB cr
CASE CHR$(0) + "P": GOSUB avslut
CASE CHR$(13): GOSUB op
CASE CHR$(113): SYSTEM
CASE ELSE
END SELECT
LOOP

avslut:
'SCREEN 7
LINE (100, 170)-(220, 90), 2, B
'PAINT (150, 120), 4, 2
COLOR 7
LOCATE 16 - 1, 18
PRINT "Create"
LOCATE 17 - 1, 18
COLOR 7
PRINT "Decode"
LOCATE 18 - 1, 18
COLOR 7
PRINT "Info"
LOCATE 19 - 1, 18
COLOR 7
PRINT "Credits"
LOCATE 20 - 1, 18
COLOR 14
PRINT "Quit"
DO
SELECT CASE INKEY$
CASE CHR$(0) + "H": GOSUB options
CASE CHR$(0) + "P": GOSUB ner
CASE CHR$(13): GOSUB Quit
CASE CHR$(113): SYSTEM
CASE ELSE
END SELECT
LOOP
credits:
COLOR 5
PRINT "This game was programmed by EA Software. But that's not the whole truth."
PRINT "We're so honest that we admit that we have ripped some source codes that are"
PRINT "to advanced for us. The ripped codes are the wave player programmes in the"
PRINT "beginning and in the end of this game. We've also ripped the gray letters"
PRINT "saying X9 that were on the screen a few seconds ago and the Final Fantasy"
PRINT "music at the end. Now we feel much more honest! So, you can ripp this code if "
PRINT "you want to, but please remember to put a little EA-symbol somewhere in your "
PRINT "programme. EA Software needs some PR. Stop listening to my chatting and play "
PRINT "the game!"
PRINT "Please report any software piracy to jag„ren@skvallerbyt.ta"
PRINT "Call 071-666666 for software support"
PRINT "Copyright by EA Software© 1996 all rights reserved"
PRINT "X9-Spacequest© is a trademark of EA Software©"
PRINT "Press your favorite button!"
SLEEP 715360000
'end
GOSUB begin
info:


COLOR 2
BEEP
CALL decode
GOSUB begin
Quit:
CLS
INPUT "Are you really sure? (y/n) ", jen$
IF jen$ = "n" OR jen$ = "N" THEN
GOSUB begin
END IF
IF jen$ = "y" OR jen$ = "Y" THEN
INPUT "Are you reeaally, reeeaaally sure? (y/n) ", jen$
IF jen$ = "n" OR jen$ = "N" THEN
GOSUB begin
END IF
IF jen$ = "y" OR jen$ = "Y" THEN
CLS
LOCATE 1
PRINT "Wait, CM 1000 is reconfiguring the system memory..."
SLEEP 4
LOCATE 2
PRINT "Now you can use your computer as a toaster."
SLEEP 5
CLS
SYSTEM
END IF
END IF

op:
'cls
IF cheat% = 0 THEN
gugg5$ = "n"
END IF
lad1% = 158
lad2% = 115
lad3% = 158
lad4% = 115
DO
SCREEN 13

'LINE (80, 60)-(238, 170), 2, B


LINE (ABS(lad1%), ABS(lad2%))-(ABS(lad3%), ABS(lad4%)), 2, B

lad1% = lad1% - 1
lad3% = lad3% + 1
LOOP UNTIL lad1% = 80



DO


'LINE (80, 60)-(238, 170), 2, B


LINE (ABS(lad1%), ABS(lad2%))-(ABS(lad3%), ABS(lad4%)), 2, B

lad2% = lad2% - 1
lad4% = lad4% + 1
LOOP UNTIL lad4% = 170

IF tpo% = 0 THEN
gugg2% = 3
gugg3% = 2
gugg% = 3
gugg4$ = "y"
gugg3$ = "y"
gugg5$ = "n"
gugg6$ = "n"
END IF
tpo% = 1
sid% = 210
upp = 74
CLS
DO
'fart% = gugg2%
fps% = gugg%
armor% = gugg3%

'Rymdskeppet
LINE (sid% + 3, upp - 1)-(sid% - 4, upp + 1), fps%, BF
'f”nster
LINE (sid%, upp)-(sid% + 1, upp - 1), fps% - 1, BF

'Vingar
LINE (sid% - 6, upp - 4)-(sid% - 4, upp + 4), fps%, BF
'Upp spets
LINE (sid% - 6, upp - 4)-(sid% - 1, upp - 4), 8
'Ner spets
LINE (sid% - 3, upp + 4)-(sid% - 1, upp + 4), 8
'Kanonen
LINE (sid% + 4, upp)-(sid% + 6, upp), 8



LINE (80, 60)-(238, 170), 2, B
LOCATE 10, 17
COLOR 7
IF uen% = 1 THEN COLOR 14
PRINT "Color"; gugg%

LOCATE 11, 17
COLOR 7
IF uen% = 2 THEN COLOR 14
PRINT "Speed"; gugg2%

LOCATE 12, 17
COLOR 7
IF uen% = 3 THEN COLOR 14
PRINT "Armor"; gugg3%
COLOR 7

LOCATE 13, 11
PRINT "Horizontal asteroids"
IF uen% = 4 THEN COLOR 14
IF gugg4$ = "y" THEN
LOCATE 14, 18
PRINT "(yes)"
END IF
IF gugg4$ = "n" THEN
LOCATE 14, 19
PRINT "(no)"
END IF


LOCATE 15, 13
COLOR 7

PRINT "Flying into the"

LOCATE 16, 13
PRINT "screen asteroids"
IF uen% = 5 THEN COLOR 14
IF gugg3$ = "y" THEN
LOCATE 17, 18
PRINT "(yes)"
END IF
IF gugg3$ = "n" THEN
LOCATE 17, 19
PRINT "(no)"
END IF

LOCATE 18, 16
COLOR 7

PRINT "Laser-noise"
IF uen% = 6 THEN COLOR 14

IF gugg6$ = "y" THEN
LOCATE 19, 18
PRINT "(yes)"
END IF
IF gugg6$ = "n" THEN
LOCATE 19, 19
PRINT "(no)"
END IF

LOCATE 20, 19
COLOR 7
IF uen% = 7 THEN COLOR 14
PRINT "Done"


SELECT CASE INKEY$
CASE CHR$(0) + "P": uen% = uen% + 1
IF uen% > 7 THEN uen% = 1
CASE CHR$(0) + "H": uen% = uen% - 1
IF uen% < 1 THEN uen% = 7
CASE CHR$(13): GOSUB choise
CASE ELSE
END SELECT
LOOP UNTIL INKEY$ = CHR$(27)
GOSUB begin

choise:
IF uen% = 1 THEN
DO
LOCATE 10, 17
COLOR 14
INPUT "Color ", gugg%
fps% = gugg%
LOOP WHILE gugg% < 0 OR gugg% > 15
END IF
IF uen% = 2 THEN
LOCATE 11, 17
COLOR 14
INPUT "Speed ", gugg2%
fart% = gugg2%
END IF
IF uen% = 3 THEN
DO
LOCATE 12, 17
COLOR 14
INPUT "Armor ", gugg3%
LOOP WHILE gugg3% < 0 OR gugg3% > 100
armor% = gugg3%
END IF
IF uen% = 4 THEN
IF gugg4$ = "y" THEN
gugg4$ = "n"
RETURN
END IF
IF gugg4$ = "n" THEN
gugg4$ = "y"
RETURN
END IF
END IF
IF uen% = 5 THEN
IF gugg3$ = "y" THEN
gugg3$ = "n"
RETURN
END IF
IF gugg3$ = "n" THEN
gugg3$ = "y"
RETURN
END IF
END IF
IF uen% = 6 THEN
IF gugg6$ = "y" THEN
gugg6$ = "n"
RETURN
END IF
IF gugg6$ = "n" THEN
gugg6$ = "y"
RETURN
END IF
END IF

IF uen% = 7 THEN
CLS
DO


'LINE (80, 60)-(238, 170), 2, B


LINE (ABS(lad1%), ABS(lad2%))-(ABS(lad3%), ABS(lad4%)), 2, B

lad1% = lad1% + 1
lad3% = lad3% - 1
LOOP UNTIL lad1% = 158



DO


'LINE (80, 60)-(238, 170), 2, B


LINE (ABS(lad1%), ABS(lad2%))-(ABS(lad3%), ABS(lad4%)), 2, B

lad2% = lad2% + 1
lad4% = lad4% - 1
LOOP UNTIL lad4% = 115
fart% = gugg2%
maxspeed% = gugg2%
GOSUB begin
END IF


RETURN
'CASE CHR$(0) + "K": GOSUB left
'CASE CHR$(0) + "M": GOSUB right
cheater:
IF uen% = 7 THEN
LOCATE 1, 1
SOUND 1000, 1
SOUND 10000, 1
SOUND 5000, 1
COLOR 4
PRINT "Very happy ammo added."
SLEEP 2
laser% = 1500
laser2% = 1500
nailammo% = 3000
trammo% = 3000
ammo2% = 100
ammo3% = 1000
END IF


start:
SCREEN 13
CLS
CALL create
END SUB