1: ' 2: ' KAMSOFT'S 3: ' ETCH-A-SKETCH 4: ' VER. 3.0 5: ' 6: ' 7: ' PROGRAMMED BY KAM FLYNN 8: ' PRODUCED AND DISTRIBUTED BY KAMSOFT, INC. (SAME DIFFERENCE) 9: ' 10: ' 11: ' 12: ' 13: ' 14: ' 15: ' PRESS 'ALT' + 'F' + 'X' TO RETURN TO DOS 16: ' 17: ' 18: ' 19: ' 20: ' 21: DECLARE SUB KAMSOFT () 22: DECLARE SUB INTROSOUND () 23: SCREEN 8 24: COLOR 15, 1 25: CALL KAMSOFT 26: CALL INTROSOUND 27: CLS 28: PRINT 29: PRINT "WELCOME TO KAMSOFT'S ETCH-A-SKETCH, VERSION 3.0!" 30: PRINT 31: PRINT "INSTRUCTIONS:" 32: PRINT "MAKE SURE 'CAPS LOCK' IS OFF!" 33: PRINT "F1 CLEARS THE SCREEN." 34: PRINT "F2 CHANGES COLOR TO RED." 35: PRINT "F3 CHANGES THE COLOR TO BLUE." 36: PRINT "F4 CHANGES THE COLOR TO GREEN." 37: PRINT "F5 CHANGES THE COLOR TO YELLOW." 38: PRINT "F6 CHANGES THE COLOR TO WHITE." 39: PRINT "F7 CALLS HELP" 40: PRINT "PRESS 8 ON THE CALCULATOR KEY PAD TO DRAW UP." 41: PRINT "PRESS 4 ON THE KEYPAD TO DRAW LEFT." 42: PRINT "THE 6 KEY DRAWS RIGHT." 43: PRINT "THE 2 KEY DRAWS DOWN." 44: PRINT "F10 QUITS." 45: PRINT 46: PRINT "PRESS 'K' TO DRAW." 47: DO 48: LOOP UNTIL INKEY$ = CHR$(75) OR INKEY$ = CHR$(107) 49: CLS 50: PRINT 51: PRINT "WHAT COLOR DO YOU WANT THE BACKGROUND TO BE?" 52: PRINT "TYPE 1 FOR BLACK" 53: PRINT "TYPE 2 FOR RED" 54: PRINT "TYPE 3 FOR BLUE" 55: PRINT "TYPE 4 FOR GREEN" 56: PRINT "TYPE 5 FOR WHITE" 57: PRINT "TYPE 6 FOR CYAN" 58: INPUT A% 59: IF A% = 1 THEN COLOR 0, 1 60: IF A% = 2 THEN COLOR 15, 4 61: IF A% = 3 THEN COLOR 15, 1 62: IF A% = 4 THEN COLOR 4, 10 63: IF A% = 4 THEN GOSUB Black 64: IF A% = 5 THEN COLOR 0, 15 65: IF A% = 5 THEN GOSUB Black 66: IF A% = 6 THEN COLOR 4, 3 67: IF A% = 6 THEN GOSUB Black 68: CLS 69: KEY(1) ON 70: KEY(2) ON 71: KEY(3) ON 72: KEY(4) ON 73: KEY(5) ON 74: KEY(6) ON 75: KEY(7) ON 76: KEY(10) ON 77: KEY(11) ON 78: KEY(12) ON 79: KEY(13) ON 80: KEY(14) ON 81: DO 82: ON KEY(1) GOSUB ClearScreen 83: ON KEY(2) GOSUB Red 84: ON KEY(3) GOSUB Blue 85: ON KEY(4) GOSUB Green 86: ON KEY(5) GOSUB Yellow 87: ON KEY(6) GOSUB White 88: ON KEY(7) GOSUB Help 89: ON KEY(10) GOSUB EndSketch 90: ON KEY(11) GOSUB DrawUp 91: ON KEY(12) GOSUB DrawLeft 92: ON KEY(13) GOSUB DrawRight 93: ON KEY(14) GOSUB DrawDown 94: LOOP 95: 96: DrawUp: 97: DRAW "U3" 98: RETURN 99: 100: DrawLeft: 101: DRAW "L3" 102: RETURN 103: 104: DrawRight: 105: DRAW "R3" 106: RETURN 107: 108: DrawDown: 109: DRAW "D3" 110: RETURN 111: 112: ClearScreen: 113: CLS 114: RETURN 115: 116: Red: 117: DRAW "C4" 118: RETURN 119: 120: Blue: 121: DRAW "C1" 122: RETURN 123: 124: Green: 125: DRAW "C10" 126: RETURN 127: 128: Yellow: 129: DRAW "C14" 130: RETURN 131: 132: White: 133: DRAW "C15" 134: RETURN 135: 136: Black: 137: DRAW "c0" 138: RETURN 139: 140: Help: 141: CLS 142: PRINT 143: PRINT "INSTRUCTIONS:" 144: PRINT "MAKE SURE 'CAPS LOCK' IS OFF!" 145: PRINT "F1 CLEARS THE SCREEN." 146: PRINT "F2 CHANGES COLOR TO RED." 147: PRINT "F3 CHANGES THE COLOR TO BLUE." 148: PRINT "F4 CHANGES THE COLOR TO GREEN." 149: PRINT "F5 CHANGES THE COLOR TO YELLOW." 150: PRINT "F6 CHANGES THE COLOR TO WHITE." 151: PRINT "F7 CALLS HELP" 152: PRINT "PRESS 8 ON THE CALCULATOR KEY PAD TO DRAW UP." 153: PRINT "PRESS 4 ON THE KEYPAD TO DRAW LEFT." 154: PRINT "THE 6 KEY DRAWS RIGHT." 155: PRINT "THE 2 KEY DRAWS DOWN." 156: PRINT "F10 QUITS." 157: PRINT 158: PRINT "PRESS 'K' TO DRAW." 159: DO 160: LOOP UNTIL INKEY$ = CHR$(107) 161: CLS 162: RETURN 163: 164: EndSketch: 165: CLS 166: COLOR 15, 1 167: PRINT 168: PRINT 169: PRINT 170: PRINT "END ETCH-A-SKETCH? (Y OR N)" 171: INPUT A$ 172: IF A$ = "N" THEN RETURN 173: END 174: 175: SUB INTROSOUND 176: PLAY "T180L32>>>BAGFEDC<BAGFEDC<BAGFEDC<BAGFEDC<BAGFEDC<BAGFEDC" 177: END SUB 178: 179: SUB KAMSOFT 180: CLS 181: AA$ = "E15F7L14R14F8" 182: BB$ = "U15R10D7L10R15D8L15R15" 183: CC$ = "R15L15U15R15L15D15R15" 184: DD$ = "U15R5F5D5G5L5BR10" 185: EE$ = "U15R15L15D7R10L10D8R15" 186: FF$ = "U15R15L15D7R7L7D8BR15" 187: GG$ = "U15R15D3U3L15D15R15U5L5R5D5" 188: HH$ = "U15D7R15U7D15" 189: II$ = "U15D15" 190: JJ$ = "U5D5R10U15R2L4R2D15" 191: KK$ = "U15D7E7G7F8" 192: LL$ = "U15D15R10" 193: MM$ = "U15F8E8D15" 194: NN$ = "U15F15U15D15" 195: OO$ = "U15R15D15L15R15" 196: PP$ = "U15R10D7L10D8BR10" 197: QQ$ = "U15R15D15H4F8H4L15R15" 198: RR$ = "U15R8D7L8F8" 199: SS$ = "BU15R15L15D7R15D8L15R15" 200: TT$ = "BR7U15L7R14L7D15BR7" 201: UU$ = "U15BR15D15L15R15" 202: VV$ = "BU15D10F5E5U10D10G5BR5" 203: WW$ = "BU15F15E7F7E15BD15" 204: XX$ = "BU15F15BU15G15BR15" 205: YY$ = "BR10U5H10BR20G10D5BR10" 206: ZZ$ = "R15L15E15L15BD15R15" 207: DRAW "BM0,0BL100BD100" 208: FOR A% = 0 TO 110 209: DRAW "C1" 210: DRAW KK$ '8 211: DRAW "BR10" '18 212: DRAW AA$ '48 213: DRAW "BR10" '58 214: DRAW MM$ '74 215: DRAW "BR10" '84 216: DRAW SS$ '99 217: DRAW "BR10" '109 218: DRAW OO$ '124 219: DRAW "BR10" '134 220: DRAW FF$ '149 221: DRAW "BR10" '159 222: DRAW TT$ '173 223: DRAW "BL170" 224: DRAW "C15" 225: DRAW KK$ '8 226: DRAW "BR10" '18 227: DRAW AA$ '48 228: DRAW "BR10" '58 229: DRAW MM$ '74 230: DRAW "BR10" '84 231: DRAW SS$ '99 232: DRAW "BR10" '109 233: DRAW OO$ '124 234: DRAW "BR10" '134 235: DRAW FF$ '149 236: DRAW "BR10" '159 237: DRAW TT$ '173 238: DRAW "BL173" 239: PLAY "T240P64" 240: NEXT A% 241: END SUB 242: |