Subject: Re: [stella] I need Help ON QBASIC From: braves4515@xxxxxxx Date: Sun, 21 Oct 2001 21:09:35 EDT |
'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
Current Thread |
---|
|
<- Previous | Index | Next -> |
---|---|---|
Re: [stella] I need Help ON QBASIC, Roger Williams | Thread | Re: [stella] I need Help ON QBASIC, braves4515 |
Re: [stella] I need Help ON QBASIC, braves4515 | Date | Re: [stella] I need Help ON QBASIC, braves4515 |
Month |