Any questions please ask. btw, != is doesnt equal to. Hahve fun and Good luck!
Here's da code!
Code: Select all
10 CLS
20 AButton# = 0
30 CDown# = 1
40 CRight# = 2
50 CLeft# = 3
60 CUp# = 4
63 Print "A-" AButton# "CD-" CDown# "CR-" CRight# "CL-" CLeft# "CU-" CUp#
67 Input Nothing$
70 If CUp# < 255 And != CUp# - 1 Or CLeft# - 1 Or CRight# -1 Or CDown# - 1 Or AButton# - 1 Then CUp# = CUp# + 1 And Goto 63
80 If CUp# < 254 And = CUp# - 1 Or CLeft# - 1 Or CRight# -1 Or CDown# - 1 Or AButton# - 1 Then CUp# = CUp# + 2 And Goto 63 Else CUp = 0
90 If CLeft# < 255 And != CUp# - 1 Or CLeft# - 1 Or CRight# -1 Or CDown# - 1 Or AButton# - 1 Then CLeft# = CLeft# + 1 And Goto 63
100 If CLeft# < 254 And = CUp# - 1 Or CLeft# - 1 Or CRight# -1 Or CDown# - 1 Or AButton# - 1 Then CLeft# = CLeft# + 2 And Goto 63 Else CLeft = 0
110 If CRight# < 255 And != CUp# - 1 Or CLeft# - 1 Or CRight# -1 Or CDown# - 1 Or AButton# - 1 Then CRight# = CRight# + 1 And Goto 63
120 If CRight# < 254 And = CUp# - 1 Or CLeft# - 1 Or CRight# -1 Or CDown# - 1 Or AButton# - 1 Then CRight# = CRight# + 2 And Goto 63 Else CRight = 0
130 If CDown# < 255 And != CUp# - 1 Or CLeft# - 1 Or CRight# -1 Or CDown# - 1 Or AButton# - 1 Then CDown# = CDown# + 1 And Goto 63
140 If CDown# < 254 And = CUp# - 1 Or CLeft# - 1 Or CRight# -1 Or CDown# - 1 Or AButton# - 1 Then CDown# = CDown# + 2 And Goto 63 Else CDown = 0
150 If AButton# < 255 And != CUp# - 1 Or CLeft# - 1 Or CRight# -1 Or CDown# - 1 Or AButton# - 1 Then AButton# = AButton# + 1 And Goto 63
160 If AButton# < 254 And = CUp# - 1 Or CLeft# - 1 Or CRight# -1 Or CDown# - 1 Or AButton# - 1 Then AButton# = AButton# + 2 And Goto 63 Else Goto 10