SHARE
TWEET

Untitled

a guest Nov 13th, 2016 207 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ClrDraw
  2.  
  3.  
  4. Lbl A
  5.     Disp "1=e","2=E"
  6.     Prompt A,B,C,D,E,F,G,H
  7.  
  8.     If A+B=2 Then
  9.         A+B→X
  10.         Goto B
  11.     Else
  12.         Goto L
  13.     End
  14.  
  15.  
  16. Lbl L
  17.     If A+B=3 Then
  18.         A+B→X
  19.         Goto B
  20.     Else
  21.         Goto K
  22.     End
  23.  
  24.  
  25. Lbl K
  26.     If A+B=4 Then
  27.         A+B→X
  28.         Goto B
  29.     Else
  30.         Disp "You did something wrong"
  31.     End
  32.  
  33.  
  34. Lbl B
  35.     If C+D=2 Then
  36.         C+D→Y
  37.         Goto C
  38.     Else
  39.         Goto P
  40.     End
  41.  
  42.  
  43. Lbl P
  44.     If A+B=3 Then
  45.         C+D→Y
  46.         Goto C
  47.     Else
  48.         Goto O
  49.     End
  50.  
  51.  
  52. Lbl O
  53.     If A+B=4 Then
  54.         C+D→Y
  55.         Goto C
  56.     Else
  57.         Disp"You did something wrong"
  58.     End
  59.  
  60.  
  61. Lbl C
  62.     If E+F=2 Then
  63.         E+F→Z
  64.         Goto D
  65.     Else
  66.         Goto U
  67.     End
  68.  
  69.  
  70. Lbl U
  71.     If E+F=3 Then
  72.         E+F→Z
  73.         Goto D
  74.     Else
  75.         Goto Q
  76.     End
  77.  
  78.  
  79. Lbl Q
  80.     If E+F=4 Then
  81.         E+F→Z
  82.         Goto D
  83.     Else
  84.         Disp"You did something wrong"
  85.     End
  86.  
  87.  
  88. Lbl D
  89.     If G+H=2 Then
  90.         G+H→θ
  91.         Goto θ
  92.     Else
  93.         Goto F
  94.     End
  95.  
  96.  
  97. Lbl F
  98.     If G+H=3 Then
  99.         G+H→θ
  100.         Goto θ
  101.     Else
  102.         Goto J
  103.     End
  104.  
  105.  
  106. Lbl J
  107.     If G+H=4 Then
  108.         G+H→θ
  109.         Goto θ
  110.     Else
  111.         Disp"You did something wrong"
  112.     End
  113.  
  114.  
  115. Lbl θ
  116.     ClrDraw
  117.  
  118.     TextColor(BLACK)
  119.     Text(1,1,"BY CHRIS MILER"
  120.     Line(­2,102,8,RED
  121.     Line(­10,82,8,RED
  122.     Line(­6,767
  123.     Line(­2,727
  124.     Line(2,7,27
  125.     Line(6,7,67
  126.     Line(9.9,7,9.97
  127.     Line(­97,9.97
  128.     Line(­9,5,9.9,5
  129.     Line(­9,2,9.9,2
  130.     Line(­91,9.91
  131.     Line(­94,9.84
  132.     Goto X
  133.  
  134.  
  135. Lbl X
  136.     If X=2 Then
  137.         TextColor(GREEN)
  138.         Text(25,65,"e"
  139.         TextColor(BLACK)
  140.         Text(50,65,"e"
  141.         Text(75,65,"e"
  142.         Text(100,65,"e"
  143.         Text(124,65,"e"
  144.         TextColor(GREEN)
  145.         Text(25,115,"e"
  146.         TextColor(BLACK)
  147.         Text(50,115,"e"
  148.         Text(75,115,"e"
  149.         Text(100,115,"e"
  150.         Text(124,115,"e"
  151.         TextColor(GREEN)
  152.         Text(25,165,"e"
  153.         TextColor(BLACK)
  154.         Text(50,165,"e"
  155.         Text(75,165,"e"
  156.         Text(100,165,"e"
  157.         Text(124,165,"e"
  158.         TextColor(GREEN)
  159.         Text(25,215,"e"
  160.         TextColor(BLACK)
  161.         Text(50,215,"e"
  162.         Text(75,215,"e"
  163.         Text(100,215,"e"
  164.         Text(124,215,"e"
  165.     Else
  166.         Goto Z
  167.  
  168.  
  169. Lbl Z
  170.     TextColor(GREEN)
  171.     Text(25,65,"E"
  172.     TextColor(BLACK)
  173.     Text(50,65,"E"
  174.     Text(75,65,"E"
  175.     Text(100,65,"E"
  176.     Text(124,65,"E"
  177.     TextColor(GREEN)
  178.     Text(25,115,"E"
  179.     TextColor(BLACK)
  180.     Text(50,115,"E"
  181.     Text(75,115,"E"
  182.     Text(100,115,"E"
  183.     Text(124,115,"E"
  184.     If X=3 Then
  185.         TextColor(GREEN)
  186.         Text(25,165,"e"
  187.         TextColor(BLACK)
  188.         Text(50,165,"e"
  189.         Text(75,165,"e"
  190.         Text(100,165,"e"
  191.         Text(124,165,"e"
  192.         TextColor(GREEN)
  193.         Text(25,215,"e"
  194.         TextColor(BLACK)
  195.         Text(50,215,"e"
  196.         Text(75,215,"e"
  197.         Text(100,215,"e"
  198.         Text(124,215,"e"
  199.     Else
  200.         TextColor(GREEN)
  201.         Text(25,165,"E"
  202.         TextColor(BLACK)
  203.         Text(50,165,"E"
  204.         Text(75,165,"E"
  205.         Text(100,165,"E"
  206.         Text(124,165,"E"
  207.         TextColor(GREEN)
  208.         Text(25,215,"E"
  209.         TextColor(BLACK)
  210.         Text(50,215,"E"
  211.         Text(75,215,"E"
  212.         Text(100,215,"E"
  213.         Text(124,215,"E"
  214.  
  215. #The part that doesn't seem to work is this:
  216.  
  217. If Y=2 Then
  218.     TextColor(GREEN)
  219.     Text(25,80,"n"
  220.     TextColor(BLACK)
  221.     Text(50,80,"n"
  222.     Text(75,80,"n"
  223.     Text(100,80,"n"
  224.     Text(124,80,"n"
  225.     TextColor(GREEN)
  226.     Text(25,130,"n"
  227.     TextColor(BLACK)
  228.     Text(50,130,"n"
  229.     Text(75,130,"n"
  230.     Text(100,130,"n"
  231.     Text(124,130,"n"
  232.     TextColor(GREEN)
  233.     Text(25,180,"n"
  234.     TextColor(BLACK)
  235.     Text(50,180,"n"
  236.     Text(75,180,"n"
  237.     Text(100,180,"n"
  238.     Text(124,180,"n"
  239.     TextColor(GREEN)
  240.     Text(25,230,"n"
  241.     TextColor(BLACK)
  242.     Text(50,230,"n"
  243.     Text(75,230,"n"
  244.     Text(100,230,"n"
  245.     Text(124,230,"n"
  246. Else
  247.     TextColor(GREEN)
  248.     Text(25,80,"N"
  249.     TextColor(BLACK)
  250.     Text(50,80,"N"
  251.     Text(75,80,"N"
  252.     Text(100,80,"N"
  253.     Text(124,80,"N"
  254.     TextColor(GREEN)
  255.     Text(25,130,"N"
  256.     TextColor(BLACK)
  257.     Text(50,130,"N"
  258.     Text(75,130,"N"
  259.     Text(100,130,"N"
  260.     Text(124,130,"N"
  261.    
  262.     If Y≠4
  263.         Then TextColor(GREEN)
  264.         Text(25,180,"n"
  265.         TextColor(BLACK)
  266.         Text(50,180,"n"
  267.         Text(75,180,"n"
  268.         Text(100,180,"n"
  269.         Text(124,180,"n"
  270.         TextColor(GREEN)
  271.         Text(25,230,"n"
  272.         TextColor(BLACK)
  273.         Text(50,230,"n"
  274.         Text(75,230,"n"
  275.         Text(100,230,"n"
  276.         Text(124,230,"n"
  277.     Else
  278.         TextColor(GREEN)
  279.         Text(25,180,"N"
  280.         TextColor(BLACK)
  281.         Text(50,180,"N"
  282.         Text(75,180,"N"
  283.         Text(100,180,"N"
  284.         Text(124,180,"N"
  285.         TextColor(GREEN)
  286.         Text(25,230,"N"
  287.         TextColor(BLACK)
  288.         Text(50,230,"N"
  289.         Text(75,230,"N"
  290.         Text(100,230,"N"
  291.         Text(124,230,"N"
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top