Download it here: http://ceme.tech/DL2207

]]>20 years minus 7 days ago, I released my first ever TI-83 Plus RPG, Illusiat. Today, after over 16 years without releasing an original RPG for calculators, I am finally releasing a new one: Darkblasters!

Inspired by Lufia, Quest 64, Dragon Quest, Illusiat and Mana Force series, Darkblasters is a role-playing game meant to showcase pure TI-BASIC graphical capabilities while trying to keep speed as fast as possible. It features over 390 rooms to explore, NPC's, some items and magic spells, many monsters and sprite-based graphics. No ASM/Axe/Grammer lib were used, in order to ensure full compatibility with 15 MHz z80 calculator models that lacks official ASM support.

A long time ago, mankind became nearly extinct after the entire world population did the Tide Pod

eating challenge simultaneously. From the dead rose a new illness that transformed animals into

monsters and many humnan survivors into Darkblasters, evil mages that look like knights.

Today, the Darkblasters stole the three crystals protecting the Kingdom of Walritia. You must defeat

the mages before they take over the world.

Here are the download links:

https://www.ticalc.org/archives/files/fileinfo/476/47684.html

https://tiplanet.org/forum/archives_voir.php?id=2790407

https://www.cemetech.net/downloads/files/2178/x2423

Also some map tiles are actually 3 or 4 bytes large, since some tokens are 2 bytes.

]]>-There are now two actual monsters

-You start with 500 HP instead of 300

-All battle commands and enemy moves are implemented, except one boss attack pattern.

-You can now activate switches to open new paths

-NPC's are implemented, including those who give items.

-You can grab items from the ground.

-Some random optimizations to save space or increase speed, because the game is over 11 KB now.

I made a Youtube video:

https://www.youtube.com/watch?v=UCM-IucyDcY

Back in late 2012, when the TI-84 Plus C Silver Edition color screen z80 calculator got announced, I wanted to experiment with layered text sprites, often referred to as dual-layer ASCII sprites. Games like Serenity and Metroid Pi used this technique, although the latter did not use the shifted method. In the process, I wanted to attempt making an RPG like Illusiat 6/Nemesiat, but with larger maps while being (hopefully) smaller.

I eventually got the color calculator model before pushing this RPG engine further, so only the walking engine was done and in 2014 it was posted in Omnimaga downloads section. I have recently uploaded it to TI-Planet, Cemetech and Ticalc.org as well.

https://tiplanet.org/forum/archives_voir.php?id=2790407

https://www.cemetech.net/downloads/files/2178/x2410

https://www.ticalc.org/archives/files/fileinfo/476/47676.html

Almost 9 years later, it's being revived as Darkblasters! It will feature four dungeons, a town and a forest, some magic spells and items, but no shop and in-game currency. There will be no experience points, so your max HP/MP will go up every battle, along with your skill points. Magic will get stronger the more you use it. You'll also not be able to enter buildings in the town, but you will be able to talk to NPC's.

My goals:

-Keep the game and its RAM usage as small as possible

-Hopefully keep it in one file, unlike my entire RPG calculatography.

-Make sure that the speed remains fast enough for 15 MHz calcs. 83+ will be playable, but not the most optimal experience.

-Keep compatibility with the TI-82 Advanced and TI-84 Plus-T models. (This is why the game remains in pure TI-BASIC)

Screenshot showing some of the event sprites that you will be able to interact with. Collision might be tricky for some of those, though… (the game detects any sprite where the top-left-most pixel is turned ON as a solid object)

https://i.imgur.com/F0hSnZU.gif

Battles are currently disabled, since they just endlessly play one of the magic animation.

EDIT: New screenshots:

]]>-Changed Holy animation to show crosses instead of the letter I.

-Updated cutscene after you get four crystal shards to look better and be fullscreen, fixing a bug introduced in v4.3 in the process.

-After opening a treasure chest the screen no longer reloads entirely. Only the part erased by the text box is reloaded.

-Fixed graphs being drawn over the CW splash screen.

-Fixed leveling up bug introduced at an unknown time.

-After some magic animations such as Flare and Blitz, the sprites re-appears faster now.

-Using lightning-based magic spells while in the swamp now causes you to take damage as well.

-The main character sprite now faces all four directions while walking.

-The magic casting animation is now shorter.

-Fixed display bug in the 3rd dungeon

-Added map walkthrough in mapsWalkthrough.zip file included with the game. The password is the name of the final boss in lowercase letters.

-Changed many magic spell and battle command icons.

-Cleaned up the code a little bit.

]]>

If you were planning to try the second quest, then I'd recommend waiting until version 4.1 comes out, because 4.1 adds treasure chests in almost all dungeons, and they respawn after exiting the dungeon like in Final Fantasy: Mystic Quest/Mystic Quest Legend for the Super Nintendo (which means the save data remains unchanged), so it will be easier to stock up on items and gold to fight those boss-like enemies (in one of the new dungeon, almost every random encounter is like a boss fight).

I also need to fix a background color bug with the final boss (the backdrop turns cyan after casting Omega during his first form and pink when doing it during his second form).

My Discord name is DJ Omnimaga#3630 btw ^^ . I also used to have pictures of all game maps (except the bonus dungeons), but I'm not sure where they're located anymore. I know I posted them on CodeWalrus but SMF search engine is garbage.

EDIT I did find some very early alpha version of First Fantasy II from 2016 that also uses CE Textlib, though, on CW forums. I uploaded it on TI-Planet at https://tiplanet.org/forum/archives_voir.php?id=2710181 but I had more recent screenshots afterward of versions I lost, such as this one:

And I had even planned to reduce map tiles to 3 rectangles plus the background for faster loading speed. I never got past alpha stages, though, and lost my progress.

]]>I gotta keep up with the newer versions lol

I probably should update my editor, maybe we can collaborate in discord?

I have some questions I'd like to ask ya DJ about it UwU

]]>Also good news, version 4.0 is out!

-Four bonus dungeons added via an entirely new quest unlocked at the end of the original

-Some graphical improvements in dungeons and the village

-Title screen copyright layout changed and reduced in size

-In-game controls that are displayed on-screen now shows up as button icons for better readability.

-Fixed save loading bug introduced in 3.1.

-Some dungeon colors and graphics changed.

-If a second quest is started after beating the game, a star now appears besides the save file on the title screen.

-The last error mentioned in the previous version changes might have finally been fixed once and for all.

https://tiplanet.org/forum/archives_voir.php?id=185757 (I also uploaded it on ticalc.org and Cemetech)

]]>Thanks,

CalcNerd

]]>The following screenshots did not have the crystal shard and orb displayed in the game menu but they still shows some updates: ]]>

Here is the optimized code:

`StoreGDB 1 ClrDraw AxesOff ⁻10→Ymin 10→Ymax ⁻10→Xmin 10→Xmax 4→H {0,0,0,0→L₁ Horizontal 7.5 Horizontal ⁻8 Text(1,0,"ABACUS- TATERTOMORROW Text(57,0,"EXIT COUNT: Line(⁻6,Ymin,⁻6,⁻8.5 For(A,1,4) For(B,20,80) Pxl-On(12A+3,B End For(B,1,9) For(C,1,5) Pxl-On(12A+C,20+2B End End End Lbl A Text(12H,8,"> Text(57,45,L₁(1),L₁(2),L₁(3),L₁(4 0→A While not(A getKey→A End Text(12H,8," " If A=11 Goto D If A=25 H-1→H If A=34 H+1→H If not(H 4→H If H>4 1→H If A=26 and 9>L₁(H Then 1+L₁(H→L₁(H If 0≠L₁(H Then For(A,12H-2,12H+2) If 12H≠A Then Pxl-Off(A+3,40-L₁(H)2 Pxl-On(A+3,80-L₁(H)2 End End End End If A=24 and 0≠L₁(H Then ⁻1+L₁(H→L₁(H For(A,12H-2,12H+2) If 12H≠A Then Pxl-On(A+3,40-L₁(H)2-2 Pxl-Off(A+3,80-L₁(H)2-2 End End End Goto A Lbl D ClrDraw RecallGDB 1 DelVar GDB1"`

`ZoomSto AxesOff ClrDraw prgmPPGLOGO For(X,1,100 Pt-On(56,31 End ClrDraw Line(7,2,11,2 Line(12,3,12,4 Line(8,3,8,7 Line(9,5,11,5 Line(7,8,9,8 Line(13,8,15,8 Line(14,7,14,6 Pxl-On(4,14 Line(17,4,17,5 Line(19,4,19,5 Line(19,7,19,8 Line(17,8,17,7 Pxl-On(6,18 Line(23,8,22,8 Line(21,7,21,5 Line(22,6,24,6 Pxl-On(5,24 Line(23,4,22,4 Line(26,8,28,8 Line(27,7,27,2 Pxl-On(3,26 Line(31,8,33,8 Line(32,7,32,3 Line(31,2,35,2 Line(36,3,36,4 Line(35,5,33,5 Line(37,8,38,8 Line(38,7,38,2 Pxl-On(2,37 Pxl-On(5,39 Line(40,6,40,8 Line(42,10,43,10 Line(44,9,44,4 Pxl-On(8,43 Line(42,7,42,5 Pxl-On(4,41 Line(48,4,47,4 Pxl-On(5,46 Line(46,6,47,6 Pxl-On(7,48 Line(47,8,46,8 Line(50,8,52,8 Line(51,7,51,6 Pxl-On(4,51 Line(56,8,55,8 Line(54,7,54,5 Line(55,4,56,4 Pxl-On(5,56 Pxl-On(7,56 Text(3,58,"S Line(62,2,68,2 Line(63,3,64,3 Pxl-On(3,68 Line(63,4,63,7 Line(64,8,67,8 Line(68,6,68,10 Pxl-On(10,67 Line(69,5,66,5 Pxl-On(6,66 Line(71,5,71,7 Line(72,8,73,8 Line(73,7,73,5 Line(73,4,72,4 Line(75,4,75,8 Pxl-On(5,76 Line(77,6,77,8 Pxl-On(5,78 Line(79,4,79,8 Line(82,4,83,4 Pxl-On(5,84 Line(84,6,82,6 Line(81,5,81,7 Line(82,8,83,8 Text(3,86,"S Line(36,12,36,15 Line(37,14,38,14 Pxl-On(13,38 Line(38,12,37,12 Line(40,12,40,15 Line(41,12,42,12 Pxl-On(13,42 Pxl-On(14,41 Pxl-On(15,42 Line(44,12,44,15 Line(45,15,45,14 Pxl-On(12,45 Line(47,12,48,12 Pxl-On(13,47 Pxl-On(14,48 Line(48,15,47,15 Line(51,12,50,12 Line(50,13,50,15 Line(51,15,51,14 Line(53,12,53,15 Line(54,13,54,14 Line(55,13,55,15 Line(56,12,58,12 Line(57,13,57,15 Line(60,12,61,12 Pxl-On(13,60 Pxl-On(14,61 Line(61,15,60,15 Line(4,18,4,36 Line(5,37,5,17 Line(6,17,6,37 Line(7,36,7,18 Line(8,26,8,27 Line(9,26,9,27 Line(10,18,10,36 Line(11,37,11,17 Line(12,17,12,37 Line(13,36,13,18 Line(16,23,16,36 Line(17,37,17,21 Line(18,37,18,19 Line(19,18,19,36 Line(20,17,20,20 Line(21,17,21,20 Line(21,26,21,27 Line(20,27,20,26 Line(22,18,22,36 Line(23,37,23,19 Line(24,21,24,37 Line(25,36,25,23 Line(28,18,28,36 Line(29,37,29,17 Line(30,17,30,37 Line(31,36,31,18 Line(32,25,32,27 Line(33,28,33,26 Line(34,36,34,18 Line(35,17,35,37 Line(36,37,36,17 Line(37,18,37,36 Line(40,36,40,18 Line(41,17,41,37 Line(42,37,42,17 Line(43,17,43,37 Line(44,37,44,36 Line(44,19,44,17 Line(45,17,45,20 Line(45,29,45,30 Line(45,36,45,37 Line(46,37,46,35 Line(46,31,46,28 Line(46,20,46,17 Line(47,17,47,21 Line(47,28,47,37 Line(48,37,48,28 Line(48,21,48,17 Line(49,18,49,20 Line(49,29,49,36 Line(52,36,52,18 Line(53,17,53,37 Line(54,37,54,17 Line(55,18,55,36 Line(56,25,56,19 Line(57,20,57,26 Line(58,36,58,21 Line(59,22,59,37 Line(60,37,60,22 Line(61,21,61,36 Line(62,26,62,20 Line(63,19,63,25 Line(64,18,64,36 Line(65,37,65,17 Line(66,17,66,37 Line(67,36,67,18 Line(70,23,70,36 Line(71,37,71,21 Line(72,19,72,37 Line(73,36,73,18 Line(74,17,74,20 Line(75,20,75,17 Line(74,26,74,27 Line(75,27,75,26 Line(76,18,76,36 Line(77,37,77,19 Line(78,21,78,37 Line(79,36,79,23 Line(82,18,82,36 Line(83,37,83,17 Line(84,17,84,37 Line(85,36,85,18 Line(86,25,86,27 Line(87,28,87,26 Line(88,18,88,36 Line(89,37,89,17 Line(90,17,90,37 Line(91,36,91,18 Text(39,23,"3-LETTER WORDS Text(57,81,"v6.0 Repeat G≠0 For(A,1,50 randInt(1,2 End getKey→G Text(51,27,"[Press Enter] For(A,1,50 randInt(1,2 End getKey→G Text(51,27," " End Lbl M Menu("Hangman Menu ","Play Game",P,"Help",H,"Quit",Q Lbl H ClrDraw Text(0,30,"Help Menu Text(6,0,"--------------------------------------------------- Text(10,0,"To begin the game, press any Text(16,0,"letter key. Text(24,0,"To quit the game at any time, Text(30,0,"press the [CLEAR] key. Text(38,0,"To return to the menu, press Text(44,0,"the [ENTER] key. Text(51,0,"Support: Text(57,0,"Ti.PPG.help@Gmail.com Pause Goto M Lbl P Lbl A ClrHome Output(1,1," A B Output(2,1,"C D E Output(3,1,"FGHIJ Output(4,1,"K L M Output(5,1,"NOPQR Output(6,1,"S T U Output(7,1," V W Output(8,1,"X Y Z For(X,1,8 // X be replaced with any other variable Output(X,6,"] End Output(5,6,"] --- randInt(1,38)→ DelVar A DelVar B DelVar C DelVar D DelVar E DelVar F DelVar G DelVar H DelVar I DelVar J DelVar K DelVar L DelVar M DelVar N DelVar O DelVar P DelVar Q DelVar R DelVar S DelVar T DelVar U DelVar V DelVar W DelVar X DelVar Y DelVar Z If =1 Goto 1 If =2 Goto 2 If =3 Goto 3 If =4 Goto 4 If =5 Goto 5 If =6 Goto 6 If =7 Goto 7 If =8 Goto 8 If =9 Goto 9 If =10 Goto 10 If =11 Goto 11 If =12 Goto 12 If =13 Goto 13 If =14 Goto 14 If =15 Goto 15 If =16 Goto 16 If =17 Goto 17 If =18 Goto 18 If =19 Goto 19 If =20 Goto 20 If =21 Goto 21 If =22 Goto 22 If =23 Goto 23 If =24 Goto 24 If =25 Goto 25 If =26 Goto 26 If =27 Goto 27 If =28 Goto 28 If =29 Goto 29 If =30 Goto 30 If =31 Goto 31 If =32 Goto 32 If =33 Goto 33 If =34 Goto 34 If =35 Goto 35 If =36 Goto 36 If =37 Goto 37 If =38 Goto 38 Lbl 1 1→C 2→A 3→T 0→ Goto 99 Lbl 2 1→B 2→A 3→T 0→ Goto 99 Lbl 3 1→R 2→A 3→T 0→ Goto 99 Lbl 4 1→E 2→M 3→U 0→ Goto 99 Lbl 5 1→D 2→O 3→G 0→ Goto 99 Lbl 6 1→A 2→P 3→E 0→ Goto 99 Lbl 7 4→E 3→L 0→ Goto 99 Lbl 8 1→H 2→E 3→N 0→ Goto 99 Lbl 9 1→A 2→S 3→P 0→ Goto 99 Lbl 10 1→P 2→I 3→G 0→ Goto 99 Lbl 11 1→H 2→O 3→G 0→ Goto 99 Lbl 12 1→E 2→L 3→K 0→ Goto 99 Lbl 13 1→C 2→U 3→B 0→ Goto 99 Lbl 14 1→D 2→O 3→E 0→ Goto 99 Lbl 15 1→K 2→I 3→D 0→ Goto 99 Lbl 16 1→R 2→A 3→M 0→ Goto 99 Lbl 17 1→Y 2→A 3→K 0→ Goto 99 Lbl 18 1→A 2→G 3→E 0→ Goto 99 Lbl 19 1→B 2→A 3→G 0→ Goto 99 Lbl 20 1→A 2→S 3→H 0→ Goto 99 Lbl 21 1→B 2→A 3→Y 0→ Goto 99 Lbl 22 1→B 2→O 3→T 0→ Goto 99 Lbl 23 1→B 2→U 3→G 0→ Goto 99 Lbl 24 1→C 2→A 3→B 0→ Goto 99 Lbl 25 1→B 2→E 3→D 0→ Goto 99 Lbl 26 1→C 2→O 3→P 0→ Goto 99 Lbl 27 1→D 2→A 3→Y 0→ Goto 99 Lbl 28 1→C 2→A 3→P 0→ Goto 99 Lbl 29 1→C 2→O 3→D 0→ Goto 99 Lbl 30 1→D 2→E 3→N 0→ Goto 99 Lbl 31 1→D 2→E 3→W 0→ Goto 99 Lbl 32 1→E 2→A 3→R 0→ Goto 99 Lbl 33 1→E 2→L 3→M 0→ Goto 99 Lbl 34 1→F 2→A 3→N 0→ Goto 99 Lbl 35 1→F 2→I 3→B 0→ Goto 99 Lbl 36 1→F 2→I 3→G 0→ Goto 99 Lbl 37 1→F 2→R 3→Y 0→ Goto 99 Lbl 38 1→G 2→A 3→S 0→ Goto 99 Lbl 99 Repeat θ≠0 getKey→θ End If θ=45 Then Lbl Q ClrHome ClrDraw ZoomRcl AxesOn ClrHome Stop End If θ=41 and A=1 Then Output(5,8,"A Output(1,2," Z+1→Z End If θ=41 and A=2 Then Z+1→Z Output(5,9,"A Output(1,2," End If θ=41 and A=3 Then Z+1→Z Output(5,10,"A Output(1,2," End If θ=41 and A=0 Then Output(1,2," +1→ End If θ=42 and B=1 Then Output(5,8,"B Output(1,4," Z+1→Z End If θ=42 and B=2 Then Output(5,9,"B Output(1,4," Z+1→Z End If θ=42 and B=3 Then Output(5,10,"B Output(1,4," Z+1→Z End If θ=42 and B=0 Then Output(1,4," " +1→ End If θ=43 and C=1 Then Output(5,8,"C Output(2,1," Z+1→Z End If θ=43 and C=2 Then Output(5,9,"C Output(2,1," Z+1→Z End If θ=43 and C=3 Then Output(5,10,"C Output(2,1," Z+1→Z End If θ=43 and C=0 Then Output(2,1," +1→ End If θ=51 and D=1 Then Output(5,8,"D Output(2,3," Z+1→Z End If θ=51 and D=2 Then Output(5,9,"D Output(2,3," Z+1→Z End If θ=51 and D=3 Then Output(5,10,"D Output(2,3," Z+1→Z End If θ=51 and D=0 Then Output(2,3," +1→ End If θ=52 and E=1 Then Output(5,8,"E Output(2,5," Z+1→Z End If θ=52 and E=2 Then Output(5,9,"E Output(2,5," Z+1→Z End If θ=52 and E=3 Then Output(5,10,"E Output(2,5," Z+1→Z End If θ=52 and E=4 Then Output(5,8,"EE Output(2,5," Z+2→Z End If θ=52 and E=0 Then Output(2,5," +1→ End If θ=53 and F=1 Then Output(5,8,"F Output(3,1," Z+1→Z End If θ=53 and F=2 Then Output(5,9,"F Output(3,1," Z+1→Z End If θ=53 and F=3 Then Output(5,10,"F Output(3,1," Z+1→Z End If θ=53 and F=0 Then Output(3,1," +1→ End If θ=54 and G=1 Then Output(5,8,"G Output(3,2," Z+1→Z End If θ=54 and G=2 Then Output(5,9,"G Output(3,2," Z+1→Z End If θ=54 and G=3 Then Output(5,10,"G Output(3,2," Z+1→Z End If θ=54 and G=0 Then Output(3,2," +1→ End If θ=55 and H=1 Then Output(5,8,"H Output(3,3," Z+1→Z End If θ=55 and H=2 Then Output(5,9,"H Output(3,3," Z+1→Z End If θ=55 and H=3 Then Output(5,10,"H Output(3,3," Z+1→Z End If θ=55 and H=0 Then Output(3,3," +1→ End If θ=61 and I=1 Then Output(5,8,"I Output(3,4," Z+1→Z End If θ=61 and I=2 Then Output(5,9,"I Output(3,4," Z+1→Z End If θ=61 and I=3 Then Output(5,10,"I Output(3,4," Z+1→Z End If θ=61 and I=0 Then Output(3,4," +1→ End If θ=62 and J=1 Then Output(5,8,"J Output(3,5," Z+1→Z End If θ=62 and J=2 Then Output(5,9,"J Output(3,5," Z+1→Z End If θ=62 and J=3 Then Output(5,10,"J Output(3,5," Z+1→Z End If θ=62 and J=0 Then Output(3,5," +1→ End If θ=63 and K=1 Then Output(5,8,"K Output(4,1," Z+1→Z End If θ=63 and K=2 Then Output(5,9,"K Output(4,1," Z+1→Z End If θ=63 and K=3 Then Output(5,10,"K Output(4,1," Z+1→Z End If θ=63 and K=0 Then Output(4,1," +1→ End If θ=64 and L=1 Then Output(5,8,"L Output(4,3," Z+1→Z End If θ=64 and L=2 Then Output(5,9,"L Output(4,3," Z+1→Z End If θ=64 and L=3 Then Output(5,10,"L Output(4,3," Z+1→Z End If θ=64 and L=0 Then Output(4,3," +1→ End If θ=65 and M=1 Then Output(5,8,"M Output(4,5," Z+1→Z End If θ=65 and M=2 Then Output(5,9,"M Output(4,5," Z+1→Z End If θ=65 and M=3 Then Output(5,10,"M Output(4,5," Z+1→Z End If θ=65 and M=0 Then Output(4,5," +1→ End If θ=71 and N=1 Then Output(5,8,"N Output(5,1," Z+1→Z End If θ=71 and N=2 Then Output(5,9,"N Output(5,1," Z+1→Z End If θ=71 and N=3 Then Output(5,10,"N Output(5,1," Z+1→Z End If θ=71 and N=0 Then Output(5,1," +1→ End If θ=72 and O=1 Then Output(5,8,"O Output(5,2," Z+1→Z End If θ=72 and O=2 Then Output(5,9,"O Output(5,2," Z+1→Z End If θ=72 and O=3 Then Output(5,10,"O Output(5,2," Z+1→Z End If θ=72 and O=0 Then Output(5,2," +1→ End If θ=73 and P=1 Then Output(5,8,"P Output(5,3," Z+1→Z End If θ=73 and P=2 Then Output(5,9,"P Output(5,3," Z+1→Z End If θ=73 and P=3 Then Output(5,10,"P Output(5,3," Z+1→Z End If θ=73 and P=0 Then Output(5,3," +1→ End If θ=74 and Q=1 Then Output(5,8,"Q Output(5,4," Z+1→Z End If θ=74 and Q=2 Then Output(5,9,"Q Output(5,4," Z+1→Z End If θ=74 and Q=3 Then Output(5,10,"Q Output(5,4," Z+1→Z End If θ=74 and Q=0 Then Output(5,4," +1→ End If θ=75 and R=1 Then Output(5,8,"R Output(5,5," Z+1→Z End If θ=75 and R=2 Then Output(5,9,"R Output(5,5," Z+1→Z End If θ=75 and R=3 Then Output(5,10,"R Output(5,5," Z+1→Z End If θ=75 and R=0 Then Output(5,5," +1→ End If θ=81 and S=1 Then Output(5,8,"S Output(6,1," Z+1→Z End If θ=81 and S=2 Then Output(5,9,"S Output(6,1," Z+1→Z End If θ=81 and S=3 Then Output(5,10,"S Output(6,1," Z+1→Z End If θ=81 and S=0 Then Output(6,1," +1→ End If θ=82 and T=1 Then Output(5,8,"T Output(6,3," Z+1→Z End If θ=82 and T=2 Then Output(5,9,"T Output(6,3," Z+1→Z End If θ=82 and T=3 Then Output(5,10,"T Output(6,3," Z+1→Z End If θ=82 and T=0 Then Output(6,3," +1→ End If θ=83 and U=1 Then Output(5,8,"U Output(6,5," Z+1→Z End If θ=83 and U=2 Then Output(5,9,"U Output(6,5," Z+1→Z End If θ=83 and U=3 Then Output(5,10,"U Output(6,5," Z+1→Z End If θ=83 and U=0 Then Output(6,5," +1→ End If θ=84 and V=1 Then Output(5,8,"V Output(7,2," Z+1→Z End If θ=84 and V=2 Then Output(5,9,"V Output(7,2," Z+1→Z End If θ=84 and V=3 Then Output(5,10,"V Output(7,2," Z+1→Z End If θ=84 and V=0 Then Output(7,2," +1→ End If θ=85 and W=1 Then Output(5,8,"W Output(7,4," Z+1→Z End If θ=85 and W=2 Then Output(5,9,"W Output(7,4," Z+1→Z End If θ=85 and W=3 Then Output(5,10,"W Output(7,4," Z+1→Z End If θ=85 and W=0 Then Output(7,4," +1→ End If θ=91 and X=1 Then Output(5,8,"X Output(8,1," Z+1→Z End If θ=91 and X=2 Then Output(5,9,"X Output(8,1," Z+1→Z End If θ=91 and X=3 Then Output(5,10,"X Output(8,1," Z+1→Z End If θ=91 and X=0 Then Output(8,1," +1→ End If θ=92 and Y=1 Then Output(5,8,"Y Output(8,3," Z+1→Z End If θ=92 and Y=2 Then Output(5,9,"Y Output(8,3," Z+1→Z End If θ=92 and Y=3 Then Output(5,10,"Y Output(8,3," Z+1→Z End If θ=92 and Y=0 Then Output(8,3," +1→ End If θ=93 Then Output(8,5," +1→ End If =1 Then Output(7,12,"I---I End If =2 Then For(X,3,6 // X can be replaced with any other variable Output(X,16,"[ End Output(2,16,"I End If =3 Then Output(2,13,"1-- End If =4 Then Output(3,13,"T End If =5 Then Output(4,13,"O End If =6 Then Output(5,12,".U. End If =7 Then Output(6,13,"^ Goto 98 End If Z=3 Then Goto 97 End Goto 99 Lbl 98 If A=1 Output(5,8,"A If B=1 Output(5,8,"B If C=1 Output(5,8,"C If D=1 Output(5,8,"D If E=1 Output(5,8,"E If F=1 Output(5,8,"F If G=1 Output(5,8,"G If H=1 Output(5,8,"H If I=1 Output(5,8,"I If J=1 Output(5,8,"J If K=1 Output(5,8,"K If L=1 Output(5,8,"L If M=1 Output(5,8,"M If N=1 Output(5,8,"N If O=1 Output(5,8,"O If P=1 Output(5,8,"P If Q=1 Output(5,8,"Q If R=1 Output(5,8,"R If S=1 Output(5,8,"S If T=1 Output(5,8,"T If U=1 Output(5,8,"U If V=1 Output(5,8,"V If W=1 Output(5,8,"W If X=1 Output(5,8,"X If Y=1 Output(5,8,"Y If A=2 Output(5,9,"A If B=2 Output(5,9,"B If C=2 Output(5,9,"C If D=2 Output(5,9,"D If E=2 Output(5,9,"E If F=2 Output(5,9,"F If G=2 Output(5,9,"G If H=2 Output(5,9,"H If I=2 Output(5,9,"I If J=2 Output(5,9,"J If K=2 Output(5,9,"K If L=2 Output(5,9,"L If M=2 Output(5,9,"M If N=2 Output(5,9,"N If O=2 Output(5,9,"O If P=2 Output(5,9,"P If Q=2 Output(5,9,"Q If R=2 Output(5,9,"R If S=2 Output(5,9,"S If T=2 Output(5,9,"T If U=2 Output(5,9,"U If V=2 Output(5,9,"V If W=2 Output(5,9,"W If X=2 Output(5,9,"X If Y=2 Output(5,9,"Y If A=2 Output(5,10,"A If B=3 Output(5,10,"B If C=3 Output(5,10,"C If D=3 Output(5,10,"D If E=3 Output(5,10,"E If F=3 Output(5,10,"F If G=3 Output(5,10,"G If H=3 Output(5,10,"H If I=3 Output(5,10,"I If J=3 Output(5,10,"J If K=3 Output(5,10,"K If L=3 Output(5,10,"L If M=3 Output(5,10,"M If N=3 Output(5,10,"N If O=3 Output(5,10,"O If P=3 Output(5,10,"P If Q=3 Output(5,10,"Q If R=3 Output(5,10,"R If S=3 Output(5,10,"S If T=3 Output(5,10,"T If U=3 Output(5,10,"U If V=3 Output(5,10,"V If W=3 Output(5,10,"W If X=3 Output(5,10,"X If Y=3 Output(5,10,"Y Output(1,8,"YOU LOST! Output(7,1," [PRESS ENTER] Pause Menu("Play Again?","Yes",A,"No",B Lbl 97 Output(1,8,"YOU WON! Output(7,1," [PRESS ENTER] Pause Menu("Play Again?","Yes",A,"No",B Lbl B ClrDraw AxesOn ZoomRcl ClrHome`

and for the subprogram, you can ditch the closing parenthesis. ]]>

Circle(0,0,30,{i ]]>

`{2→L₁ 3→J Prompt X Repeat X=dim(L₁ If 1=max(gcd(J,L₁:augment(L₁,{J→L₁ J+2→J End`

it's size is 56 bytes according to my TI-83 ]]>