Atari 8-bit Source code

0 POKE 580,​1:​POKE 82,​0:​DIM level$(255),​l(16,​8),​wid(10),​x(10),​y(10):​level$="<8<<<<<8<808,​ w6>ZZ;.;x@":​GRAPHICS 3:​POKE 710,​0:​COLOR 1:​FOR y=0 TO 2
1 FOR x=0 TO 9:​PLOT x*2+11,​y*2:​NEXT x:​NEXT y:​COLOR 0:​PLOT 25,​0:​PLOT 25,​2:​COLOR 2:​REPEAT:​READ x,​y:​IF x<0:​PLOT ABS(x)+11,​y:​ELSE:​DRAWTO x+11,​y:​ENDIF:​PAUSE 5:​UNTIL (x=16 AND y=4):​TRAP #run
2 PRINT " Easy Glasses House Four":​PRINT " City Cross Key Holes":​PRINT " Skull Yorgle Level editor":​INPUT "Level";level:​CLS:​FOR i=1 TO 10:​READ w,​x,​y:​wid(i)=w:​x(i)=x:​y(i)=y:​NEXT i:​DO:​GRAPHICS 3:​POKE 710,​0:​POKE 752,​1
3 IF level=0 AND remaining=0:​PRINT ,​"Design your own level!":​PRINT " to plot/erase,​ holdto play":​PAUSE 30:​x=4:​y=4:​btime=TIME:​mtime=TIME:​oc=0:​WHILE 2-done-b:​IF TIME-btime>10:​btime=TIME:​b=1-b:​COLOR b*2-oc*b:​PLOT x,​y:​ENDIF:​S=STICK(0)
4 dy=((S=13)-(S=14))*2:​dx=((S=7)-(S=11))*2:​ny=y+dy:​nx=x+dx:​ny=y+dy*((ny>3) AND (ny<19)):​nx=x+dx*((nx>3) AND (nx<35)):​IF TIME-mtime>20 AND (dx OR dy):​COLOR oc:​PLOT x,​y:​x=nx:​y=ny:​LOCATE x,​y,​oc:​COLOR 2:​PLOT x,​y:​mtime=TIME:​ENDIF
5 IF STRIG(0)=0:​mtime=TIME:​oc=1-oc:​remaining=remaining+(oc*2-1):​REPEAT:​UNTIL STRIG(0):​IF TIME-mtime>60:​done=1:​POKE 712,​180:​POKE 710,​180:​PAUSE 10:​POKE 712,​0:​POKE 710,​0:​ENDIF:​ENDIF:​WEND:​x(0)=x:​y(0)=y:​FOR x=0 TO 15
6 FOR y=0 TO 7:​LOCATE 4+x*2,​4+y*2,​oc:​l(x,​y)=oc>0:​NEXT y:​NEXT x:​ENDIF:​remaining=0:​o=0:​IF level=0:​FOR x=0 TO 15:​FOR y=0 TO 7:​oc=l(x,​y):​COLOR oc:​PLOT 4+x*2,​4+y*2:​remaining=remaining+oc:​NEXT y:​NEXT x:​x=x(0)
7 y=y(0):​CLS:​PRINT " to retry level,​ for menu":​ELSE:​FOR i=0 TO level-1:​o=o+wid(i):​NEXT i:​COLOR 1:​wid=wid(level):​FOR y=1 TO wid:​oc=ASC(level$(o+y)):​bit=0.5:​FOR x=0 TO 7:​bit=bit*2:​IF (oc&bit=bit):​PLOT y*2+18-wid,​x*2+3
8 remaining=remaining+1:​ENDIF:​NEXT x:​NEXT y:​x=x(level)*2+20-wid:​y=y(level)*2+3:​ENDIF:​btime=TIME:​mtime=TIME:​original=remaining:​PAUSE 30:​WHILE remaining>1:​IF TIME-btime>60:​btime=TIME:​b=1-b:​COLOR b*2:​PLOT x,​y:​ENDIF:​S=STICK(0):​dy=((S=13)-(S=14)):​dx=((S=7)-(S=11))
9 ny=y+dy:​nx=x+dx:​n2y=y+dy*2:​n2x=x+dx*2:​LOCATE nx,​ny,​c:​LOCATE n2x,​n2y,​c2:​IF TIME-mtime>20:​IF c2=1 AND c=0:​POKE 77,​0:​COLOR 2:​PLOT x,​y:​PLOT nx,​ny:​PLOT n2x,​n2y:​x=n2x:​y=n2y:​remaining=remaining-1:​mtime=TIME:​pitch=255-(255/original)*remaining:​SOUND 0,​pitch,​10,​1:​ELSE:​IF dx OR dy
10 POKE 712,​6:​POKE 710,​6:​PAUSE 5:​POKE 712,​0:​POKE 710,​0:​mtime=TIME:​SOUND 0,​pitch,​2,​8:​PAUSE 10:​ENDIF:​SOUND:​ENDIF:​ENDIF:​IF STRIG(0)=0:​EXIT:​ENDIF:​WEND:​SOUND:​IF remaining=1:​PRINT:​PRINT ,​" Well done!":​FOR x=0 TO 255:​POKE 709,​x:​PAUSE 1
11 NEXT x:​IF level=0:​RUN:​ENDIF:​level=(level+1) MOD 11:​ENDIF:​LOOP:​PRINT "All respect to Howard Scott Warshaw,​ to whom my Yorgle easter egg is dedicated. Good luck to all the 2022 NOMAM entrants!"
12 # run:​RUN:​DATA -2,​0,​0,​0,​0,​2,​2,​2,​2,​4,​0,​4,​-4,​0,​4,​4,​-8,​0,​6,​0,​6,​4,​8,​4,​8,​2,​-10,​0,​10,​4,​-12,​0,​12,​4,​14,​4,​-18,​0,​16,​0,​16,​2,​18,​2,​18,​4,​16,​4,​7,​2,​2,​7,​2,​2,​4,​1,​4,​6,​5,​5,​9,​0,​0,​7,​5,​3,​10,​4,​3,​6,​0,​1,​5,​0,​0,​16,​4,​2