That doesnt work
heres the programim working on
BASIC2.BAS
now i cant get it to add 15 points to the score and add 1 to WARP: (ONLY WHEN THE MAN TOUCHES THE WARP CIRCLE)
this is the problem i run into maybe you can fool around with it and help me with it
'STARTING
SCREEN 7, , 1, 0: AA = 7: BB = 10
PCOPY 0, 1: PCOPY 1, 0
DO
SCREEN , , 3, 0
PCOPY 3, 1
FOR N = 1 TO 100
NEXT N
Z = Z + 1
COLOR Z, 0
LOCATE 3, 10: PRINT " MAD ATARIAN"
LOCATE 6, 10: PRINT " BY ATARI70s"
LOCATE 9, 3: PRINT " Copywrited 2002 ATARI INC. "
LOCATE 12, 6: PRINT " ALL RIGHTS RESERVED"
LOCATE 15, 10: PRINT "For Use On The ATARI 8-BIT Systems"
LOCATE 19, 4: PRINT "One Player Use With Joystick"
LOCATE 22, 7: PRINT "E-Mail BRAVES4515@xxxxxxx"
IF Z = 14 THEN Z = 1
GOSUB 40
LOOP WHILE INKEY$ = ""
GOTO ST
40 SCREEN , , 2, 0
AA = AA + 7: CC = CC + 5: DD = DD + 5
PCOPY 3, 2
SW$ = "C14R4U1R1L1U1L4D1R3L4C9U2L1D4R1U2L3BR10BD1"
DRAW "BM" + STR$(AA) + "," + STR$(BB) + SW$
DRAW "BM" + STR$(CC) + "," + STR$(DD) + SW$
PCOPY 2, 0
SCREEN , , 0, 0
IF AA = 301 THEN AA = 0: BB = BB + 20
IF BB = 210 THEN BB = 10
IF DD = 200 THEN DD = 10: CC = CC + 5
IF CC = 300 THEN CC = 0
RETURN
'GAME STARTS
ST: RANDOMIZE TIMER
SCREEN 7, 0, 1, 0
PCOPY 1, 0
PCOPY 0, 1
SC = 101: P = 1: x = 30: Y = 80: PU = 1: PD = 1: Carts = 0:
100
BG1L$ = "c1d4r2u4l2r1d5c4r1d1l3u1r1bu5br1c1l2u4r4d4l1u4l1d4l1u4u1c6l2u3r5d3l1u3l1d3l1u3l1d3bu2c0r1"
BG2L$ = "c1d4r2u4l2r1d5c4r1d1l3u1r1bu5br1c2l2u4r4d4l1u4l1d4l1u4u1c6l2u3r5d3l1u3l1d3l1u3l1d3bu2c0r1"
BG3L$ = "c1d4r2u4l2r1d5c4r1d1l3u1r1bu5br1c3l2u4r4d4l1u4l1d4l1u4u1c6l2u3r5d3l1u3l1d3l1u3l1d3bu2c0r1"
BG4L$ = "c1d4r2u4l2r1d5c4r1d1l3u1r1bu5br1c4l2u4r4d4l1u4l1d4l1u4u1c6l2u3r5d3l1u3l1d3l1u3l1d3bu2c0r1"
BG5L$ = "c1d4r2u4l2r1d5c4r1d1l3u1r1bu5br1c5l2u4r4d4l1u4l1d4l1u4u1c6l2u3r5d3l1u3l1d3l1u3l1d3bu2c0r1"
BG6L$ = "c1d4r2u4l2r1d5c4r1d1l3u1r1bu5br1c7l2u4r4d4l1u4l1d4l1u4u1c6l2u3r5d3l1u3l1d3l1u3l1d3bu2c0r1"
BG1$ = "bd4bl2c1u4r2d4l2r1u4r1r1d1r3u1l2d4r1u4r1d4u4d4d1c4l2d1r2bl4l2u1r2bu4c1u1c1l2u4r6d4l5u3r4d2l3u1r2u3c6r2u3l6d3r1u3r1d3r1u3r3d2l1u2l1d2bu1c0r1bl4r1"
BG2$ = "bd4bl2c1u4r2d4l2r1u4r1r1d1r3u1l2d4r1u4r1d4u4d4d1c4l2d1r2bl4l2u1r2bu4c1u1c2l2u4r6d4l5u3r4d2l3u1r2u3c6r2u3l6d3r1u3r1d3r1u3r3d2l1u2l1d2bu1c0r1bl4r1"
BG3$ = "bd4bl2c1u4r2d4l2r1u4r1r1d1r3u1l2d4r1u4r1d4u4d4d1c4l2d1r2bl4l2u1r2bu4c1u1c3l2u4r6d4l5u3r4d2l3u1r2u3c6r2u3l6d3r1u3r1d3r1u3r3d2l1u2l1d2bu1c0r1bl4r1"
BG4$ = "bd4bl2c1u4r2d4l2r1u4r1r1d1r3u1l2d4r1u4r1d4u4d4d1c4l2d1r2bl4l2u1r2bu4c1u1c4l2u4r6d4l5u3r4d2l3u1r2u3c6r2u3l6d3r1u3r1d3r1u3r3d2l1u2l1d2bu1c0r1bl4r1"
BG5$ = "bd4bl2c1u4r2d4l2r1u4r1r1d1r3u1l2d4r1u4r1d4u4d4d1c4l2d1r2bl4l2u1r2bu4c1u1c5l2u4r6d4l5u3r4d2l3u1r2u3c6r2u3l6d3r1u3r1d3r1u3r3d2l1u2l1d2bu1c0r1bl4r1"
BG6$ = "bd4bl2c1u4r2d4l2r1u4r1r1d1r3u1l2d4r1u4r1d4u4d4d1c4l2d1r2bl4l2u1r2bu4c1u1c7l2u4r6d4l5u3r4d2l3u1r2u3c6r2u3l6d3r1u3r1d3r1u3r3d2l1u2l1d2bu1c0r1bl4r1"
P1$ = "c1d4r2u4l2r1d5c4r2d1l3u1r1bu5c20l2u4r4d4l1u4l1d4l1u4u1c6l1u3r5d3l1u3l1d3l1u3l1d3bu2br2c0r1"
P2$ = "c1bd4bl4e4r2g4l2e4r2f4l2h4r1f4h4g4d1c4r2d1l3u1r1br10l3d1r3bu6bl6c20l2u4r4d4l1u4l1d4l1u4u1c6l1u3r5d3l1u3l1d3l1u3l1d3bu2br2c0r1"
P3$ = "c1d4r2u4l2r1d5c4r1d1l3u1r1bu5br1c20l2u4r4d4l1u4l1d4l1u4u1c6l2u3r5d3l1u3l1d3l1u3l1d3bu2c0r1"
P4$ = "c1bd4bl4e4r2g4l2e4r2f4l2h4r1f4h4g4d1c4r1d1l3u1r1br10l3d1r3bu6bl5c20l2u4r4d4l1u4l1d4l1u4u1c6l2u3r5d3l1u3l1d3l1u3l1d3bu2c0r1"
P5$ = "bd4bl2c1u4r2d4l2r1u4r1r1d1r3u1l2d4r1u4r1d4u4d4d1c4l2d1r2bl4l2u1r2bu4c1u1c20l2u4r6d4l5u3r4d2l3u1r2u3c6r2u3l6d3r1u3r1d3r1u3r3d2l1u2l1d2bu1c0r1bl4r1"
P5A$ = "bd4bl2c1u4r2d4l2r1u4r1r1d1r3u1l2d4r1u4r1d4u4d4d1c4l2d1r2bl4l2u1r2bu4c1u1c4l2u4r6d4l5u3r4d2l3u1r2u3c6r2u3l6d3r1u3r1d3r1u3r3d2l1u2l1d2bu1c0r1bl4r1"
P6$ = "bd4bl2c1u4r2d4l2r1u4r1r1d1br3bu1bl2bd4br1bu4br1bd4bu4bd4bd1c4bl2bd1br2bl4l2u1r2bu4c1u1c20l2u4r6d4l5u3r4d2l3u1r2u3c6r2u3l6d3r1u3r1d3r1u3r3d2l1u2l1d2bu1c0r1bl4r1 "
P7$ = "bd4bl2c1bu4br2bd4bl2br1bu4br1r1d1r3u1l2d4r1u4r1d4u4d4bd1c4l2d1r2bl4bl2bu1br2bu4c1u1c20l2u4r6d4l5u3r4d2l3u1r2u3c6r2u3l6d3r1u3r1d3r1u3r3d2l1u2l1d2bu1c0r1bl4r1 "
P8$ = "bd4bl2c1u4r2d4l2r1u4r1r1d1r3u1l2d4r1u4r1d4u4d4d1c4l2d1r2bl4l2u1r2bu4c1u1c20l2u4r6d4l5u3r4d2l3u1r2u3c6r2u3l6d3r1u3r1d3r1u3r3d2l1u2l1d2bu1"
P9$ = "bd4bl2c1u4r2d4l2r1u4r1r1d1br3bu1bl2bd4br1bu4br1bd4bu4bd4bd1c4bl2bd1br2bl4l2u1r2bu4c1u1c20l2u4r6d4l5u3r4d2l3u1r2u3c6r2u3l6d3r1u3r1d3r1u3r3d2l1u2l1d2bu1"
P10$ = "bd4bl2c1bu4br2bd4bl2br1bu4br1r1d1r3u1l2d4r1u4r1d4u4d4bd1c4l2d1r2bl4bl2bu1br2bu4c1u1c20l2u4r6d4l5u3r4d2l3u1r2u3c6r2u3l6d3r1u3r1d3r1u3r3d2l1u2l1d2bu1"
GOSUB 5
SCREEN , , 3, 0
PCOPY 3, 1
CLS
'OUTSIDE
IF SC < 101 THEN LINE (16, 10)-(305, 180), 2, B: LINE (15, 150)-(305, 150), 2: PAINT (16, 100), 2: LINE (15, 10)-(305, 180), 6, B: LINE (15, 150)-(305, 150), 6
IF SC < 101 THEN LINE (44, 69)-(304, 69), 0: LINE (16, 91)-(304, 91), 0: LINE (149, 11)-(149, 149), 0: LINE (171, 11)-(171, 149), 0: LINE (16, 70)-(304, 90), 8, BF: LINE (150, 11)-(170, 149), 8, BF
IF SC < 101 THEN LINE (110, 150)-(110, 180), 6: LINE (200, 150)-(200, 180), 6
IF SC = 1 THEN DRAW "BM60,69C4U12L5E5R20F5L5D12L20": PAINT (61, 68), 4: DRAW "BM60,69C0U12L5E5R20F5L5D12L20R7U7R6D7L4BU4R1BU8R15L25":
IF SC = 21 THEN DRAW "BM60,69C5U12L5E5R20F5L5D12L20": PAINT (61, 68), 5: DRAW "BM60,69C0U12L5E5R20F5L5D12L20R7U7R6D7L4BU4R1BU8R15L25":
IF SC = 12 THEN DRAW "BM60,69C4U12L5E5R20F5L5D12L20": PAINT (61, 68), 4: DRAW "BM60,69C0U12L5E5R20F5L5D12L20R7U7R6D7L4BU4R1BU8R15L25":
IF SC = 3 THEN DRAW "BM60,69C3U12L5E5R20F5L5D12L20": PAINT (61, 68), 3: DRAW "BM60,69C0U12L5E5R20F5L5D12L20R7U7R6D7L4BU4R1BU8R15L25":
IF SC = 23 THEN DRAW "BM60,69C1U12L5E5R20F5L5D12L20": PAINT (61, 68), 1: DRAW "BM60,69C0U12L5E5R20F5L5D12L20R7U7R6D7L4BU4R1BU8R15L25":
IF SC = 25 THEN DRAW "BM60,69C5U12L5E5R20F5L5D12L20": PAINT (61, 68), 5: DRAW "BM60,69C0U12L5E5R20F5L5D12L20R7U7R6D7L4BU4R1BU8R15L25":
IF SC = 44 THEN DRAW "BM60,69C3U12L5E5R20F5L5D12L20": PAINT (61, 68), 3: DRAW "BM60,69C0U12L5E5R20F5L5D12L20R7U7R6D7L4BU4R1BU8R15L25":
IF SC = 42 THEN DRAW "BM60,69C11U12L5E5R20F5L5D12L20": PAINT (61, 68), 11: DRAW "BM60,69C0U12L5E5R20F5L5D12L20R7U7R6D7L4BU4R1BU8R15L25":
IF SC = 6 THEN DRAW "BM60,69C1U12L5E5R20F5L5D12L20": PAINT (61, 68), 1: DRAW "BM60,69C0U12L5E5R20F5L5D12L20R7U7R6D7L4BU4R1BU8R15L25":
IF SC = 56 THEN DRAW "BM60,69C1U12L5E5R20F5L5D12L20": PAINT (61, 68), 1: DRAW "BM60,69C0U12L5E5R20F5L5D12L20R7U7R6D7L4BU4R1BU8R15L25":
IF SC = 26 THEN DRAW "BM60,69C4U12L5E5R20F5L5D12L20": PAINT (61, 68), 4: DRAW "BM60,69C0U12L5E5R20F5L5D12L20R7U7R6D7L4BU4R1BU8R15L25":
IF SC = 28 THEN DRAW "BM60,69C3U12L5E5R20F5L5D12L20": PAINT (61, 68), 3: DRAW "BM60,69C0U12L5E5R20F5L5D12L20R7U7R6D7L4BU4R1BU8R15L25":
IF SC = 58 THEN DRAW "BM60,69C5U12L5E5R20F5L5D12L20": PAINT (61, 68), 5: DRAW "BM60,69C0U12L5E5R20F5L5D12L20R7U7R6D7L4BU4R1BU8R15L25":
IF SC = 19 THEN DRAW "BM60,69C11U12L5E5R20F5L5D12L20": PAINT (61, 68), 11: DRAW "BM60,69C0U12L5E5R20F5L5D12L20R7U7R6D7L4BU4R1BU8R15L25":
IF SC = 49 THEN DRAW "BM60,69C11U12L5E5R20F5L5D12L20": PAINT (61, 68), 11: DRAW "BM60,69C0U12L5E5R20F5L5D12L20R7U7R6D7L4BU4R1BU8R15L25":
IF SC = 30 THEN DRAW "BM60,69C1U12L5E5R20F5L5D12L20": PAINT (61, 68), 1: DRAW "BM60,69C0U12L5E5R20F5L5D12L20R7U7R6D7L4BU4R1BU8R15L25":
IF SC < 11 THEN DRAW "C0BM16,70D20R1U20R1D20"
IF SC > 50 THEN DRAW "C0BM304,70D20L1U20L1D20"
IF T = 1 THEN DRAW "C0BM150,149R20U1L20U1R20"
IF S = 1 THEN DRAW "C0BM150,11R20D1L20D1R20"
'INSIDE
IF SC > 100 THEN LINE (15, 10)-(305, 180), 8, B: LINE (15, 150)-(305, 150), 8: PAINT (16, 100), 8: LINE (15, 10)-(305, 180), 6, B: LINE (15, 150)-(305, 150), 6
IF SC = 142 THEN CIRCLE (100, 100), 10, 14: PAINT (100, 100), 14
IF SC = 119 THEN CIRCLE (100, 100), 10, 12: PAINT (100, 100), 12
IF SC = 132 THEN CIRCLE (100, 100), 10, 13: PAINT (100, 100), 13
PCOPY 3, 0
SCREEN , , 0, 0
1
SCREEN , , 2, 0
PCOPY 3, 2
IF P = 1 THEN DRAW "bm" + STR$(x) + "," + STR$(Y) + P1$
IF P = 2 THEN DRAW "bm" + STR$(x) + "," + STR$(Y) + P2$
IF P = 3 THEN DRAW "bm" + STR$(x) + "," + STR$(Y) + P3$
IF P = 4 THEN DRAW "bm" + STR$(x) + "," + STR$(Y) + P4$
IF P = 5 THEN DRAW "bm" + STR$(x) + "," + STR$(Y) + P5$
IF P = 6 THEN DRAW "bm" + STR$(x) + "," + STR$(Y) + P6$
IF P = 7 THEN DRAW "bm" + STR$(x) + "," + STR$(Y) + P7$
IF P = 8 THEN DRAW "bm" + STR$(x) + "," + STR$(Y) + P8$
IF P = 9 THEN DRAW "bm" + STR$(x) + "," + STR$(Y) + P9$
IF P = 10 THEN DRAW "bm" + STR$(x) + "," + STR$(Y) + P10$
IF SC < 101 THEN LOCATE 1, 8: PRINT "High Score Is: "; U
IF SC < 101 THEN LOCATE 20, 4: PRINT "NAME:ALEX"; : LOCATE 22, 4: PRINT ; "WARP:"; W; ;
IF SC < 101 THEN LOCATE 20, 16: PRINT "Carts:"; F: LOCATE 22, 15: PRINT "STEPS"; R
R = R + 1 'increment steps
U = E + 1
E = R - 1'increment score
W = W
IF SC < 101 THEN LOCATE 21, 29: PRINT "Score: ";
IF SC < 101 THEN LOCATE 22, 29: PRINT ""; E
E = R + W
F = F * 0
PCOPY 2, 0
SCREEN , , 0, 0
IF P = 2 THEN P = 1: FOR N = 1 TO 1000: NEXT N: x = x + 5: GOTO 1
IF P = 4 THEN P = 3: FOR N = 1 TO 1000: NEXT N: x = x - 5: GOTO 1
IF P = 9 OR P = 10 THEN P = 8: FOR N = 1 TO 1000: NEXT N: Y = Y - 5: GOTO 1
IF P = 6 OR P = 7 THEN P = 5: FOR N = 1 TO 1000: NEXT N: Y = Y + 5: GOTO 1
IF ST = 0 THEN ST = 1: GOSUB 6
IF SC = 112 THEN T = 5: GOSUB 6: SC = 12: x = 70: Y = 80: P = 1: GOTO 100
IF SC = 123 AND BG1 = 0 THEN T = 11: GOSUB 6: BG1 = 1: SC = 23: x = 70: Y = 80: P = 1: GOTO 100
IF SC = 106 AND BG2 = 0 THEN T = 15: GOSUB 6: BG2 = 1: SC = 6: x = 70: Y = 80: P = 1: GOTO 100
IF SC = 156 AND BG3 = 0 THEN T = 19: GOSUB 6: BG3 = 1: SC = 56: x = 70: Y = 80: P = 1: GOTO 100
IF SC = 130 AND BG4 = 0 THEN T = 23: GOSUB 6: BG4 = 1: SC = 30: x = 70: Y = 80: P = 1: GOTO 100
IF SC = 149 AND BG5 = 0 AND LV = 5 THEN T = 27: GOSUB 6: BG5 = 1: SC = 49: x = 70: Y = 80: P = 1: GOTO 100
IF SC = 126 AND BG6 = 0 AND LV = 6 THEN T = 31: GOSUB 6
2
IF SC > 100 THEN GOTO 3
IF SETCOLOR = 4 THEN F = F + 10
A$ = INKEY$
IF A$ = "S" THEN GOTO 9
IF A$ = "L" THEN GOTO 9
IF A$ = "Q" THEN END
IF A$ = CHR$(0) + "K" AND SC > 10 AND x = 20 THEN SC = SC - 10: x = 300: P = 3: GOTO 100
IF A$ = CHR$(0) + "M" AND SC < 51 AND x = 300 THEN SC = SC + 10: x = 20: P = 1: GOTO 100
IF A$ = CHR$(0) + "H" AND S = 0 AND Y = 20 THEN SC = SC + 1: Y = 140: P = 8: GOTO 100
IF A$ = CHR$(0) + "P" AND T = 0 AND Y = 140 THEN SC = SC - 1: Y = 20: P = 5: GOTO 100
IF A$ = CHR$(0) + "M" AND x < 300 AND Y = 80 THEN P = 2: FOR N = 1 TO 1000: NEXT N: x = x + 5: GOTO 1
IF A$ = CHR$(0) + "K" AND x > 20 AND Y = 80 THEN P = 4: FOR N = 1 TO 1000: NEXT N: x = x - 5: GOTO 1
IF A$ = CHR$(0) + "P" AND Y < 140 AND x = 160 AND PD = 2 THEN P = 7: FOR N = 1 TO 1000: NEXT N: Y = Y + 5: PD = 1: GOTO 1
IF A$ = CHR$(0) + "P" AND Y < 140 AND x = 160 AND PD = 1 THEN P = 6: FOR N = 1 TO 1000: NEXT N: Y = Y + 5: PD = 2: GOTO 1
IF A$ = CHR$(0) + "H" AND Y > 20 AND x = 160 AND PU = 2 THEN P = 10: FOR N = 1 TO 1000: NEXT N: Y = Y - 5: PU = 1: GOTO 1
IF A$ = CHR$(0) + "H" AND Y > 20 AND x = 160 AND PU = 1 THEN P = 9: FOR N = 1 TO 1000: NEXT N: Y = Y - 5: PU = 2: GOTO 1
IF A$ = CHR$(0) + "H" AND Y = 80 AND x = 70 THEN GOSUB 4
GOTO 2
3
GOSUB 3.5
A$ = INKEY$
IF A$ = "Q" THEN END
IF A$ = CHR$(0) + "M" AND x < 300 THEN P = 2: FOR N = 1 TO 1000: NEXT N: x = x + 5: GOTO 1
IF A$ = CHR$(0) + "K" AND x > 20 THEN P = 4: FOR N = 1 TO 1000: NEXT N: x = x - 5: GOTO 1
IF A$ = CHR$(0) + "P" AND Y < 140 AND PD = 2 THEN P = 7: FOR N = 1 TO 1000: NEXT N: Y = Y + 5: PD = 1: GOTO 1
IF A$ = CHR$(0) + "P" AND Y < 140 AND PD = 1 THEN P = 6: FOR N = 1 TO 1000: NEXT N: Y = Y + 5: PD = 2: GOTO 1
IF A$ = CHR$(0) + "H" AND Y > 20 AND PU = 2 THEN P = 10: FOR N = 1 TO 1000: NEXT N: Y = Y - 5: PU = 1: GOTO 1
IF A$ = CHR$(0) + "H" AND Y > 20 AND PU = 1 THEN P = 9: FOR N = 1 TO 1000: NEXT N: Y = Y - 5: PU = 2: GOTO 1
IF A$ = CHR$(0) + "P" AND Y = 140 THEN P = 1: SC = SC - 100: x = 70: Y = 80: GOTO 100
GOTO 2
W = 1 * 15
3.5
IF SC = 121 AND x = 100 AND Y = 100 AND SW1 = 0 THEN AA = AA + 1: SW1 = 1: LOCATE 21, 17: PRINT "Got Common Cart": SLEEP: GOTO 100
IF SC = 103 AND x = 100 AND Y = 100 AND AR1 = 0 THEN AA = AA + 2: AR1 = 1: LOCATE 21, 17: PRINT "Got Common Cart": SLEEP: GOTO 100
IF SC = 125 AND x = 100 AND Y = 100 AND SW2 = 0 THEN AA = AA + 3: SW2 = 1: LOCATE 21, 17: PRINT "Got Common Cart": SLEEP: GOTO 100
IF SC = 144 AND x = 100 AND Y = 100 AND AR2 = 0 THEN AA = AA + 4: AR2 = 1: LOCATE 21, 17: PRINT "Got Common Cart": SLEEP: GOTO 100
IF SC = 158 AND x = 100 AND Y = 100 AND SW3 = 0 THEN AA = AA + 5: SW3 = 1: LOCATE 21, 17: PRINT "Got Common Cart": SLEEP: GOTO 100
IF SC = 128 AND x = 100 AND Y = 100 AND AR3 = 0 THEN AA = AA + 6: AR3 = 1: LOCATE 21, 17: PRINT "Got Common Cart": SLEEP: GOTO 100
IF SC = 142 AND x = 100 AND Y = 100 THEN SC = 119: x = 100: Y = 110: P = 5: LOCATE 21, 19: PRINT "WARPED 15 POINT BONUS"; W; : GOTO 100
IF SC = 119 AND x = 100 AND Y = 100 THEN SC = 142: x = 100: Y = 110: P = 5: LOCATE 21, 19: PRINT "WARPED 15 POINT BONUS"; W; : GOTO 100
RETURN
4
IF SC = 1 OR SC = 21 OR SC = 12 OR SC = 3 OR SC = 23 OR SC = 42 OR SC = 44 OR SC = 25 OR SC = 26 OR SC = 6 OR SC = 56 OR SC = 28 OR SC = 58 OR SC = 19 OR SC = 49 OR SC = 30 THEN SC = SC + 100: P = 8: Y = 140: x = 160: GOTO 100
RETURN
5
S = 0: T = 0
IF SC = 1 OR SC = 11 OR SC = 21 OR SC = 31 OR SC = 41 OR SC = 51 THEN T = 1
IF SC = 10 OR SC = 20 OR SC = 30 OR SC = 40 OR SC = 50 OR SC = 60 THEN S = 1
RETURN
6
SCREEN , , 3, 0: PCOPY 3, 1
PCOPY 3, 0: SCREEN , , 0, 0
IF T > -1 AND T < 5 THEN DRAW "BM30,80" + P1$
IF T > 4 AND T < 11 THEN DRAW "BM160,130" + P8$: DRAW "BM160,50" + P5A$
IF T > 10 AND T < 15 THEN DRAW "BM160,130" + P8$: DRAW "BM160,50" + BG1$
IF T > 14 AND T < 19 THEN DRAW "BM160,130" + P8$: DRAW "BM160,50" + BG2$
IF T > 18 AND T < 23 THEN DRAW "BM160,130" + P8$: DRAW "BM160,50" + BG3$
IF T > 22 AND T < 27 THEN DRAW "BM160,130" + P8$: DRAW "BM160,50" + BG4$
IF T > 26 AND T < 31 THEN DRAW "BM160,130" + P8$: DRAW "BM160,50" + BG5$
IF T > 30 AND T < 35 THEN DRAW "BM160,130" + P8$: DRAW "BM160,50" + BG6$: DRAW "BM250,30" + P5$
IF T > 34 AND T < 40 THEN DRAW "BM160,130" + P8$: DRAW "BM180,130" + P8$:
T = T + 1
IF T = 1 THEN T$ = "YOU READ IN YOUR HOUSE ONE DAY THAT"
IF T = 2 THEN T$ = "THE TOWN YOU LIVE IN HAS A BIG SALE"
IF T = 3 THEN T$ = "ON CLASSIC VIDEO GAMES."
IF T = 4 THEN T$ = "SINCE YOU'RE SEARCHING FOR MANY"
IF T = 5 THEN T$ = "ATARI GAME PROGRAMS TO FINISH YOUR"
IF T = 6 THEN T$ = "COLLECTION. "
IF T = 7 THEN T$ = "YOU DECIDE TO GO OUT AND LOOK"
IF T = 8 THEN T$ = "AROUND AND GRAB AS MUCH AS YOU CAN."
IF T = 9 THEN RETURN
IF T = 10 THEN T$ = "Hint ,YOU GET MORE BONUS POINTS "
IF T = 11 THEN T$ = "WHEN YOU COLLECT MORE CARTS"
IF T = 19 THEN BG$ = BG1L$: HHP = BG1HP: GOSUB 7: Time = Time - 1: Points = 0 * LV: RETURN
IF T = 20 THEN T$ = " "
IF T = 21 THEN T$ = " "
IF T = 22 THEN T$ = " "
IF T = 23 THEN BG$ = BG2L$: HHP = BG2HP: GOSUB 7: LV = LV + 1: HP = LV * 20: RETURN
IF T = 24 THEN T$ = " Did You Know"
IF T = 25 THEN T$ = " WWW.ATARIAGE.COM"
IF T = 26 THEN T$ = " Is the # 1 Site for things Atari."
IF T = 27 THEN BG$ = BG1L$: HHP = BG1HP: GOSUB 7: LV = LV + 1: HP = LV * 20: RETURN
IF T = 28 THEN T$ = " The Inhouse Name For The 2600"
IF T = 29 THEN T$ = "Was As STELLA."
IF T = 31 THEN BG$ = BG4L$: HHP = BG4HP: GOSUB 7: LV = LV + 1: HP = LV * 20: RETURN
IF T = 32 THEN T$ = "In 1973 Atari Came Out With PONG"
IF T = 33 THEN T$ = "This Was The First Arcade Hit For"
IF T = 34 THEN T$ = "ATARI."
IF T = 35 THEN BG$ = BG5L$: HHP = BG5HP: GOSUB 7: LV = LV + 1: HP = LV * 20: RETURN
IF T = 36 THEN T$ = "The First Atari 8 - BIT System"
IF T = 37 THEN T$ = "Was Released In 1979,"
IF T = 38 THEN T$ = "The Official Title Was Atari400"
IF T = 39 THEN BG$ = BG6L$: HHP = BG6HP: GOSUB 7: GOTO 6
IF T = 40 THEN T$ = "Home Brew Games Are Games That"
IF T = 41 THEN T$ = "Were Produced After Atari's Selloff"
IF T = 42 THEN T$ = "In 1997. Long Live The Atari.JP "
IF T = 43 THEN END
FOR XE = 1 TO LEN(T$): LOCATE 21, 4: PRINT LEFT$(T$, XE): FOR YE = 1 TO 500: NEXT YE: NEXT XE: SLEEP
GOTO 6
7
CLS
FOR NJ = 1 TO 10000
NEXT NJ
GOTO 113
113
CLS
RETURN
8
OPEN "O", 1, "MADAT.SAV": WRITE #1, SC, x, Y, SW, AR, LV, HP, BG1, BG2, BG3, BG4, BG5, BG6, PU, PD, BG1HP, BG2HP, BG3HP, BG4HP, BG5HP, BG6HP, P, AR1, AR2, AR3, SW1, SW2, SW3, ST
CLOSE #1
GOTO 100
9
OPEN "I", 1, "MADAT.SAV": INPUT #1, SC, x, Y, SW, AR, LV, HP, BG1, BG2, BG3, BG4, BG5, BG6, PU, PD, BG1HP, BG2HP, BG3HP, BG4HP, BG5HP, BG6HP, P, AR1, AR2, AR3, SW1, SW2, SW3, ST
CLOSE #1
GOTO 100
