Happy New Year 2018!

[notwhoyouthink]

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

[+jedimatt42]

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@

[notwhoyouthink]

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

[humeur]

Bonne année 2018