'
'                                KAMSOFT'S
'                              ETCH-A-SKETCH
'                                VER. 3.0
'
'
'                          PROGRAMMED BY KAM FLYNN
'         PRODUCED AND DISTRIBUTED BY KAMSOFT, INC. (SAME DIFFERENCE)
'
'
'
'
'
'
'                  PRESS 'ALT' + 'F' + 'X' TO RETURN TO DOS
'
'
'
'
'
DECLARE SUB KAMSOFT ()
DECLARE SUB INTROSOUND ()
SCREEN 8
COLOR 15, 1
CALL KAMSOFT
CALL INTROSOUND
CLS
PRINT
PRINT "WELCOME TO KAMSOFT'S ETCH-A-SKETCH, VERSION 3.0!"
PRINT
PRINT "INSTRUCTIONS:"
PRINT "MAKE SURE 'CAPS LOCK' IS OFF!"
PRINT "F1 CLEARS THE SCREEN."
PRINT "F2 CHANGES COLOR TO RED."
PRINT "F3 CHANGES THE COLOR TO BLUE."
PRINT "F4 CHANGES THE COLOR TO GREEN."
PRINT "F5 CHANGES THE COLOR TO YELLOW."
PRINT "F6 CHANGES THE COLOR TO WHITE."
PRINT "F7 CALLS HELP"
PRINT "PRESS 8 ON THE CALCULATOR KEY PAD TO DRAW UP."
PRINT "PRESS 4 ON THE KEYPAD TO DRAW LEFT."
PRINT "THE 6 KEY DRAWS RIGHT."
PRINT "THE 2 KEY DRAWS DOWN."
PRINT "F10 QUITS."
PRINT
PRINT "PRESS 'K' TO DRAW."
DO
LOOP UNTIL INKEY$ = CHR$(75) OR INKEY$ = CHR$(107)
CLS
PRINT
PRINT "WHAT COLOR DO YOU WANT THE BACKGROUND TO BE?"
PRINT "TYPE 1 FOR BLACK"
PRINT "TYPE 2 FOR RED"
PRINT "TYPE 3 FOR BLUE"
PRINT "TYPE 4 FOR GREEN"
PRINT "TYPE 5 FOR WHITE"
PRINT "TYPE 6 FOR CYAN"
INPUT A%
IF A% = 1 THEN COLOR 0, 1
IF A% = 2 THEN COLOR 15, 4
IF A% = 3 THEN COLOR 15, 1
IF A% = 4 THEN COLOR 4, 10
IF A% = 4 THEN GOSUB Black
IF A% = 5 THEN COLOR 0, 15
IF A% = 5 THEN GOSUB Black
IF A% = 6 THEN COLOR 4, 3
IF A% = 6 THEN GOSUB Black
CLS
KEY(1) ON
KEY(2) ON
KEY(3) ON
KEY(4) ON
KEY(5) ON
KEY(6) ON
KEY(7) ON
KEY(10) ON
KEY(11) ON
KEY(12) ON
KEY(13) ON
KEY(14) ON
DO
ON KEY(1) GOSUB ClearScreen
ON KEY(2) GOSUB Red
ON KEY(3) GOSUB Blue
ON KEY(4) GOSUB Green
ON KEY(5) GOSUB Yellow
ON KEY(6) GOSUB White
ON KEY(7) GOSUB Help
ON KEY(10) GOSUB EndSketch
ON KEY(11) GOSUB DrawUp
ON KEY(12) GOSUB DrawLeft
ON KEY(13) GOSUB DrawRight
ON KEY(14) GOSUB DrawDown
LOOP

DrawUp:
  DRAW "U3"
  RETURN

DrawLeft:
  DRAW "L3"
  RETURN

DrawRight:
  DRAW "R3"
  RETURN

DrawDown:
  DRAW "D3"
  RETURN
 
ClearScreen:
  CLS
  RETURN

Red:
  DRAW "C4"
  RETURN

Blue:
  DRAW "C1"
  RETURN

Green:
  DRAW "C10"
  RETURN

Yellow:
  DRAW "C14"
  RETURN

White:
  DRAW "C15"
  RETURN

Black:
  DRAW "c0"
  RETURN

Help:
  CLS
  PRINT
  PRINT "INSTRUCTIONS:"
  PRINT "MAKE SURE 'CAPS LOCK' IS OFF!"
  PRINT "F1 CLEARS THE SCREEN."
  PRINT "F2 CHANGES COLOR TO RED."
  PRINT "F3 CHANGES THE COLOR TO BLUE."
  PRINT "F4 CHANGES THE COLOR TO GREEN."
  PRINT "F5 CHANGES THE COLOR TO YELLOW."
  PRINT "F6 CHANGES THE COLOR TO WHITE."
  PRINT "F7 CALLS HELP"
  PRINT "PRESS 8 ON THE CALCULATOR KEY PAD TO DRAW UP."
  PRINT "PRESS 4 ON THE KEYPAD TO DRAW LEFT."
  PRINT "THE 6 KEY DRAWS RIGHT."
  PRINT "THE 2 KEY DRAWS DOWN."
  PRINT "F10 QUITS."
  PRINT
  PRINT "PRESS 'K' TO DRAW."
  DO
  LOOP UNTIL INKEY$ = CHR$(107)
  CLS
  RETURN

EndSketch:
  CLS
  COLOR 15, 1
  PRINT
  PRINT
  PRINT
  PRINT "END ETCH-A-SKETCH? (Y OR N)"
  INPUT A$
  IF A$ = "N" THEN RETURN
  END

SUB INTROSOUND
PLAY "T180L32>>>BAGFEDC<BAGFEDC<BAGFEDC<BAGFEDC<BAGFEDC<BAGFEDC"
END SUB

SUB KAMSOFT
CLS
AA$ = "E15F7L14R14F8"
BB$ = "U15R10D7L10R15D8L15R15"
CC$ = "R15L15U15R15L15D15R15"
DD$ = "U15R5F5D5G5L5BR10"
EE$ = "U15R15L15D7R10L10D8R15"
FF$ = "U15R15L15D7R7L7D8BR15"
GG$ = "U15R15D3U3L15D15R15U5L5R5D5"
HH$ = "U15D7R15U7D15"
II$ = "U15D15"
JJ$ = "U5D5R10U15R2L4R2D15"
KK$ = "U15D7E7G7F8"
LL$ = "U15D15R10"
MM$ = "U15F8E8D15"
NN$ = "U15F15U15D15"
OO$ = "U15R15D15L15R15"
PP$ = "U15R10D7L10D8BR10"
QQ$ = "U15R15D15H4F8H4L15R15"
RR$ = "U15R8D7L8F8"
SS$ = "BU15R15L15D7R15D8L15R15"
TT$ = "BR7U15L7R14L7D15BR7"
UU$ = "U15BR15D15L15R15"
VV$ = "BU15D10F5E5U10D10G5BR5"
WW$ = "BU15F15E7F7E15BD15"
XX$ = "BU15F15BU15G15BR15"
YY$ = "BR10U5H10BR20G10D5BR10"
ZZ$ = "R15L15E15L15BD15R15"
DRAW "BM0,0BL100BD100"
FOR A% = 0 TO 110
DRAW "C1"
DRAW KK$         '8
DRAW "BR10"      '18
DRAW AA$         '48
DRAW "BR10"      '58
DRAW MM$         '74
DRAW "BR10"      '84
DRAW SS$         '99
DRAW "BR10"      '109
DRAW OO$         '124
DRAW "BR10"      '134
DRAW FF$         '149
DRAW "BR10"      '159
DRAW TT$         '173
DRAW "BL170"
DRAW "C15"
DRAW KK$         '8
DRAW "BR10"      '18
DRAW AA$         '48
DRAW "BR10"      '58
DRAW MM$         '74
DRAW "BR10"      '84
DRAW SS$         '99
DRAW "BR10"      '109
DRAW OO$         '124
DRAW "BR10"      '134
DRAW FF$         '149
DRAW "BR10"      '159
DRAW TT$         '173
DRAW "BL173"
PLAY "T240P64"
NEXT A%
END SUB