REM 'I found this in yahoo questions, he wnated some help in why it did not run right'but I did not get the name of the poster, I start getting the problem on line 123'but enough runs that it looks interesting, also I remarked out a lot of lines,'so it would run, sort of,...we could mayne make it into something,...if anyone is'interested, and whoever started it, sorry I just did not know your name,but if you'claim it, I won't argue, I'll give credit where it is due.Thanks for the startSCREEN 12DIM stack(240000) AS INTEGERDIM SHARED c%, color%, ct, bnLOCATE 14, 31: PRINT "Let's stack a tower"SLEEP 1LOCATE 15, 18: INPUT "Would you like to read the instuctions (y/n)"; i$IF i$ = "y" OR i$ = "Y" THEN CALL instructLOCATE 16, 36: PRINT "Loading..."SLEEP 3CLSCALL backgroundc% = -45color% = 4bn = 456'clawCALL background'blank stackGET (250, 445)-(399, 100), stack()CLSclaw: CALL backgroundc% = c% + 1IF c% > 665 THEN c% = -25LINE (c%, 15)-(c% + 3, 40), 7, BFLINE (c% - 20, 40)-(c% + 23, 45), 4, BFLINE (c% - 10, 45)-(c% - 20, 65), 4, BFLINE (c% + 13, 45)-(c% + 23, 65), 4, BF'blockLINE (c% - 8, 47)-(c% + 11, 64), color%, BFCALL waitingCLSIF INKEY$ = " " THEN CALL blockdrop ELSE GOTO clawCALL colorsGOTO clawSUB background'exitIF INKEY$ = "e" THEN END'house 1LINE (0, 500)-(124, 330), 4, BFLINE (21, 360)-(41, 385), 0, BFLINE (83, 360)-(103, 385), 0, BFLINE (21, 420)-(41, 445), 0, BFLINE (83, 420)-(103, 445), 0, BF'exitIF INKEY$ = "e" THEN END'house 2LINE (125, 500)-(249, 200), 14, BFLINE (145, 240)-(165, 265), 0, BFLINE (207, 240)-(227, 265), 0, BFLINE (145, 300)-(165, 325), 0, BFLINE (207, 300)-(227, 325), 0, BFLINE (145, 360)-(165, 385), 0, BFLINE (207, 360)-(227, 385), 0, BFLINE (145, 420)-(165, 445), 0, BFLINE (207, 420)-(227, 445), 0, BF'exitIF INKEY$ = "e" THEN END'house 3LINE (250, 500)-(374, 250), 1, BFLINE (269, 290)-(289, 315), 0, BFLINE (331, 290)-(351, 315), 0, BFLINE (269, 350)-(289, 375), 0, BFLINE (331, 350)-(351, 375), 0, BFLINE (269, 410)-(289, 435), 0, BFLINE (331, 410)-(351, 435), 0, BF'exitIF INKEY$ = "e" THEN END'house 4LINE (375, 500)-(505, 200), 6, BFLINE (465, 240)-(485, 265), 0, BFLINE (395, 240)-(415, 265), 0, BFLINE (465, 300)-(485, 325), 0, BFLINE (395, 300)-(415, 325), 0, BFLINE (465, 360)-(485, 385), 0, BFLINE (395, 360)-(415, 385), 0, BFLINE (465, 420)-(485, 445), 0, BFLINE (395, 420)-(415, 445), 0, BF'exitIF INKEY$ = "e" THEN END'house 5LINE (506, 500)-(640, 325), 2, BFLINE (595, 360)-(615, 385), 0, BFLINE (526, 360)-(546, 385), 0, BFLINE (595, 420)-(615, 445), 0, BFLINE (526, 420)-(546, 445), 0, BF'exitIF INKEY$ = "e" THEN END'tower'platformLINE (347, 450)-(355, 490), 5, BFLINE (269, 450)-(277, 490), 5, BFLINE (259, 445)-(365, 460), 5, BF'claw lineLINE (0, 15)-(640, 15)'stack'PUT stack(), XOR'exitIF INKEY$ = "e" THEN ENDEND SUBSUB blockdropbn = bn - 18'fallingby% = 4722 LINE (c% - 8, by%)-(c% + 11, by% + 17), color%, BFby% = by% + 2CALL waitblockCLSCALL backgroundIF by% > bn - 5 THEN LINE (c% - 8, bn)-(c% + 11, bn - 17), color%, BF: GOTO 5GOTO 22'claw re-draw5 c% = -45'stackGET (250, 445)-(399, 100), stack()END SUBSUB instructCLSLOCATE 10, 8: PRINT "The goal of the game is simple. Just stack the blocks to the top."LOCATE 11, 6: PRINT "When the crane is over the base plate, hit spacebar to drop the block."LOCATE 12, 4: PRINT "If you miss the last block entirely, you will lose one of your three lives."LOCATE 13, 12: PRINT "If you hit the last block exactly, you score extra points."LOCATE 14, 6: PRINT "To exit the game, hit the spacebar then press 'e' as the block is falling."LOCATE 15, 29: PRINT "Press any key to continue."SLEEPEND SUBSUB waitingFOR t = 1 TO 350000NEXT tFOR t = 1 TO 350000NEXT tFOR t = 1 TO 350000NEXT tEND SUBSUB waitblockFOR t = 1 TO 320000NEXT tFOR t = 1 TO 320000NEXT tFOR t = 1 TO 320000NEXT tEND SUBSUB colorsRANDOMIZE TIMERcolor% = INT(RND * 15 + 1)IF color% = 0 THEN color% = color% + 2IF color% = 1 THEN color% = color% + 1END SUB
'PUT stack(), XOR
PUT stack(), XOR