notwhoyouthink Posted January 1, 2018 Share Posted January 1, 2018 (edited) Little something to run on your TI for the first day of 2018. Ti Basic FIAD in zip (forum would not let me attach a file with out a extension...) 2018.zip Edited January 1, 2018 by notwhoyouthink 2 Quote Link to comment Share on other sites More sharing options...
+jedimatt42 Posted January 1, 2018 Share Posted January 1, 2018 Not long after the main show begins, I get an error: BAD LINE NUMBER IN 69 But before that, the effect was nice! Happy new years! -M@ Quote Link to comment Share on other sites More sharing options...
notwhoyouthink Posted January 1, 2018 Author Share Posted January 1, 2018 (edited) Fix it with 69 GOTO 62 before you run it. I made this in Magellan and tested it in classic99. I decided to RES 1,1 it before i shared it, but had no idea the goto would end up at some crazy line number when i did that. Sorry. Patched version: 1 DATA 32,24 2 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 3 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 4 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 5 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 6 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 7 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 8 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 9 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 10 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 11 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 12 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 13 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 14 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 15 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 16 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 17 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 18 DATA 32,32,32,32,50,50,50,50,32,32,32,48,48,48,48,32 19 DATA 32,32,49,49,32,32,32,56,56,56,56,32,32,32,32,32 20 DATA 32,32,32,32,32,32,32,32,50,32,48,32,32,32,32,48 21 DATA 32,49,49,49,32,32,56,32,32,32,32,56,32,32,32,32 22 DATA 32,32,32,32,32,32,32,32,50,32,48,32,32,32,32,48 23 DATA 32,32,49,49,32,32,56,32,32,32,32,56,32,32,32,32 24 DATA 32,32,32,32,50,50,50,50,32,32,48,32,32,32,32,48 25 DATA 32,32,49,49,32,32,32,56,56,56,56,32,32,32,32,32 26 DATA 32,32,32,50,32,32,32,32,32,32,48,32,32,32,32,48 27 DATA 32,32,49,49,32,32,56,32,32,32,32,56,32,32,32,32 28 DATA 32,32,32,50,32,32,32,32,32,32,48,32,32,32,32,48 29 DATA 32,32,49,49,32,32,56,32,32,32,32,56,32,32,32,32 30 DATA 32,32,32,32,50,50,50,50,32,32,32,48,48,48,48,32 31 DATA 32,49,49,49,49,32,32,56,56,56,56,32,32,32,32,32 32 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 33 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 34 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 35 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 36 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 37 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 38 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 39 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 40 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 41 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 42 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 43 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 44 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 45 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 46 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 47 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 48 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 49 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 50 CALL CLEAR 51 CALL COLOR(3,1,1) 52 CALL COLOR(4,1,1) 53 PRINT "LOADING ..." 54 RESTORE 1 55 READ W,H 56 FOR Y=1 TO H 57 FOR X=1 TO W 58 READ CP 59 CALL VCHAR(Y,X,CP) 60 NEXT X 61 NEXT Y 62 FOR X=3 TO 16 63 CALL SCREEN(X) 64 FOR Y=16 TO 3 STEP-1 65 CALL COLOR(3,Y,Y) 66 CALL COLOR(4,Y,Y) 67 NEXT Y 68 NEXT X 69 GOTO 62 And, just in case you want to bring in 2019 in the same fashion, here is a program for next year:2019.txt Edited January 1, 2018 by notwhoyouthink 1 Quote Link to comment Share on other sites More sharing options...
humeur Posted January 1, 2018 Share Posted January 1, 2018 Bonne année 2018 1 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.