Atari 8-bit Source code

0 GRAPHICS 18:​DIM A$(3),​W$(20),​R$(20),​K$(1),​T$(20):​POKE 756,​PEEK(756)+2:​DATA |12,​|13,​|14,​|15,​|16,​07,​17,​27,​.,​22,​.,​11,​21,​31,​41,​|42,​o43,​.,​43,​.,​|44,​.,​34,​.,​54,​.,​35,​.,​55,​..
1 # B:​POKE 708,​0:​W=0:​Q=RND(0)*53:​RESTORE 1:​FOR I=0 TO Q:​READ W$:​NEXT I:​RESTORE 0:​FOR I=1 TO LEN(W$):​W$(I,​I)=CHR$(ASC(W$(I,​I))-1):​NEXT I:​REM 2014 by Jakub Husak
2 POSITION 8,​1:​? #6;"do not let to hang me up":​R$="":​FOR I=1 TO LEN(W$):​R$(I,​I)=CHR$(148):​NEXT I:​A$="":​K$=INKEY$:​GO# L
3 # M:​GOSUB 7:​DATA BUBSJ,​DJUZMFTT,​TBMUXBUFS,​QSPNPEFSO,​QSFUFOEFS,​BNVTFS,​BUBSJ,​DBSUSJEHF,​KPZTUJDL,​USBNJFM,​HFOFSBUPS,​KBLVC,​IVTBL,​ESBDPOVT,​GSBDUBMVT
4 # L:​IF LEN(A$)=2:​POSITION 2,​11:​? #6;"hanging hanging":​GOSUB 9:​GO# B:​ENDIF:​GOSUB 8:​T$=R$:​DATA QPTJUJPO,​UIFPMPHZ,​UFDIOPMPHZ,​TQFDUSPMPHZ,​TFJTNPMPHJTU
5 K$=INKEY$:​IF LEN(K$)=0:​GOTO 5:​ENDIF:​FOR I=1 TO LEN(W$):​IF K$=W$(I,​I):​R$(I,​I)=CHR$(ASC(K$)+128):​ENDIF:​NEXT I:​DATA NJOFSBMJTFS,​EBSXJOJTU,​DPOUSPMMFS,​SFXSJUFS
6 T=INSTR(R$,​CHR$(148)):​IF T=0:​POSITION 1,​11:​? #6;"thank you for life":​GOSUB 9:​GO# B:​ENDIF:​IF R$<>T$:​GO# L:​ENDIF:​GO# M:​DATA QSPNJTFF,​FOEPSTPS,​TQFMVOLFS,​TUSJQUFBTFS
7 # D:​READ A$:​IF LEN(A$)<3:​RETURN:​ENDIF:​COLOR ASC(A$(1,​1)):​PLOT VAL(A$(2,​2)),​VAL(A$(3,​3)):​GO# D:​DATA DPOWFSUFS,​QMBOFUPJE,​QSPGFTTPS,​VOEFSXPSL,​QPMBSJTF,​PSUIPEPY,​QIPOPHSBN,​CPEZHVBSE,​VONFBTVSFE
8 # P:​POSITION 10-LEN(W$)/2,​9:​? #6;R$:​IF W=0:​RETURN:​ENDIF:​PAUSE 150:​? #6;CHR$($7D):​RETURN:​DATA DPOUJOFOU,​PWFSSBOL,​FMBTUJD,​OJHIUJOHBMF,​XFBUIFSQSPPG,​HMPCFUSPUUJOH,​NJTGPDVTFE,​QSPEVDUJPO,​DPNJDBM
9 # R:​W=1:​FOR I=1 TO LEN(W$):​R$(I,​I)=CHR$(ASC(W$(I,​I))+128):​NEXT I:​GO# P:​DATA FYPSDJTU,​HVBSBOUFF,​FKFDUJPO,​LJOFUJD,​VOEFSDMPUI,​QSPQZMFOF,​IJTUPHSBN