Hangman Program

Re: Hangman Program

Thu, 05 Nov 2020 00:33:56 +0000

not sure if it will help, but i have managed to reduce the size of the program

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.

Re: Hangman Program

Sun, 20 Sep 2020 00:35:55 +0000

Will do!

Re: Hangman Program

Sun, 20 Sep 2020 00:28:50 +0000

Cool program, Pixel Physics. I would also like to share a program of mine. If you're interested in a fast-scrolling asteroids game that will take about 5 minutes to type in on your calculator, search for my post "Downward Scrolling Technique for Asteroids Game" (The game is only tested on the TI-83+ calculator).

Hangman Program

Sat, 19 Sep 2020 23:23:43 +0000

This code has been modified since it's original upload.

Well, I know this is insanely long, but until I can figure out another way to share this, here is the source code for my long but well-furnished Hangman game for the Ti-83 Plus, Ti-84 Plus, and Ti-84 Plus SE.

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 Output(1,6,"] Output(2,6,"] Output(3,6,"] Output(4,6,"] Output(5,6,"] --- Output(6,6,"] Output(7,6,"] Output(8,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 Output(6,16,"[ Output(5,16,"[ Output(4,16,"[ Output(3,16,"[ 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

Note that all the boxes are the lowercase "n" symbol which is the first character under the letter N in the catalog.

For this to work, you need to either take ou the line that says prgmPPGLOGO or create program PPGLOGO which draws my logo.

Here is the source code for that:

0→Xmin 94→Xmax 0→Ymax 62→Ymin ClrDraw Line(11,17,20,17) Line(11,17,11,30) Line(11,30,14,30) Line(14,30,14,23) Line(14,23,20,23) Line(20,23,20,17) Line(14,19,17,19) Line(17,19,17,21) Line(17,21,14,21) Line(14,21,14,19) Line(22,19,25,19) Line(22,19,22,21) Line(25,19,25,21) Line(23,21,23,24) Line(24,21,24,24) Line(22,24,22,30) Line(25,24,25,30) Line(25,30,22,30) Line(27,25,27,24) Pt-On(28,24) Pt-On(31,24) Line(32,24,32,25) Line(32,29,32,30) Pt-On(31,30) Pt-On(28,30) Line(27,30,27,29) Line(29,25,30,25) Line(29,29,30,29) Line(28,26,28,28) Line(31,26,31,28) Line(34,24,34,30) Line(34,30,40,30) Line(40,30,40,24) Line(40,24,34,24) Line(36,26,38,26) Line(36,28,39,28) Line(42,17,45,17) Line(45,17,45,30) Line(45,30,42,30) Line(42,30,42,17) Line(16,33,16,46) Line(16,46,19,46) Line(19,46,19,39) Line(19,39,25,39) Line(25,39,25,33) Line(25,33,16,33) Line(19,35,22,35) Line(19,35,19,37) Line(19,37,22,37) Line(22,35,22,37) Line(27,33,27,46) Line(27,46,30,46) Line(30,46,30,43) Pt-On(31,43) Line(32,43,32,46) Line(32,46,34,46) Line(34,46,34,40) Line(34,40,30,40) Line(30,40,30,33) Line(30,33,27,33) Line(36,40,36,46) Line(36,46,42,46) Line(42,46,42,49) Line(42,49,36,49) Line(36,49,36,52) Line(36,52,45,52) Line(45,52,45,40) Line(45,40,42,40) Line(42,40,42,43) Line(42,43,39,43) Line(39,43,39,40) Line(39,40,36,40) Line(47,40,52,40) Line(52,40,52,46) Line(52,46,47,46) Line(47,46,47,40) Line(49,42,51,42) Line(48,44,50,44) Line(54,40,54,46) Line(54,46,57,46) Line(57,46,57,40) Line(55,40,55,37) Line(56,40,56,37) Line(54,37,54,35) Line(54,35,57,35) Line(57,35,57,37) Line(59,40,59,46) Line(59,46,62,46) Pt-On(62,45) Line(62,44,61,44) Pt-On(61,43) Line(61,42,62,42) Pt-On(62,41) Line(62,40,59,40) Line(64,40,69,40) Line(69,40,69,46) Line(64,46,69,46) Line(64,46,64,40) Line(66,42,68,42) Line(65,44,67,44) Line(48,48,51,48) Pt-On(52,49) Line(47,49,47,53) Line(48,54,51,54) Line(52,53,52,52) Line(50,51,51,51) Line(54,51,54,53) Pt-On(55,50) Line(55,54,56,54) Line(56,53,56,51) Line(58,50,58,54) Pt-On(59,50) Line(60,51,60,54) Pt-On(61,50) Line(62,50,62,54) Line(64,51,64,53) Line(65,50,66,50) Pt-On(67,51) Line(65,52,66,52) Line(65,54,66,54) Line(70,50,71,50) Pt-On(69,51) Line(70,52,71,52) Pt-On(72,53) Line(69,54,71,54) For(X,0,30) Pt-On(11,17) End For(X,0,30) Pt-On(2,8) End For(X,0,30) Pt-On(9,8) End For(X,0,30) Pt-On(15,9) End For(X,0,30) Pt-On(20,12) End For(X,0,30) Pt-On(23,16) End For(X,0,30) Pt-On(26,14) End For(X,0,30) Pt-On(30,11) End For(X,0,30) Pt-On(35,9) End For(X,0,30) Pt-On(41,8) End For(X,0,30) Pt-On(47,11) End For(X,0,30) Pt-On(51,15) End For(X,0,30) Pt-On(54,19) End For(X,0,30) Pt-On(55,25) End For(X,0,30) Pt-On(56,31) End For(X,0,30) Pt-On(60,28) End For(X,0,30) Pt-On(65,26) End For(X,0,30) Pt-On(71,26) End For(X,0,30) Pt-On(76,28) End Line(80,30,80,32) Line(81,30,81,35) Line(82,30,82,32) Line(80,34,82,34) Pt-On(80,36) Pt-On(82,36)

If you took the time to copy this down, I salute you for your effort. If this is too hard for you, then feel free to copy-paste it in an emulator. :)

I shall find a way soon to post a downloadable file with both these programs.