Atari 8-bit Source code

10 GOSUB 32200:​REM INICIALIZACE PMW
11 REM ***** UKAZKA *****
12 OPEN #1,​4,​0,​"K:​"
13 FOR T=2 TO 18:​POSITION T,​T:​PRINT "PMsoft (c) 1989":​NEXT T
20 DIM B$(40),​C$(220)
21 B$=" PMsoftware| | (c) 1989| | present"
25 DIM D$(53),​E$(190)
30 D$="  | v.1/0 (c)1989| | | |for ATARI 800/130"
31 DIM F$(30),​G$(248)
32 F$="|1)|2)|3)|4)|5)|6)|7)"
100 A=USR(ADR(A$),​3,​8,​26,​8,​ADR(C$),​ADR(B$))
110 A=USR(ADR(A$),​7,​7,​18,​10,​ADR(E$),​ADR(D$))
120 A=USR(ADR(A$),​14,​2,​9,​20,​ADR(G$),​ADR(F$))
130 A=USR(ADR(A$),​14,​2,​9,​20,​ADR(G$))
140 GET #1,​K
190 A=USR(ADR(A$),​7,​7,​18,​10,​ADR(E$))
195 GET #1,​K
200 A=USR(ADR(A$),​3,​8,​26,​8,​ADR(C$))
210 GET #1,​K
220 GOTO 100
9999 END
32200 ? ""
32201 A=1536:​Q=0:​RESTORE
32202 READ C:​IF C>-1 THEN POKE A,​C:​Q=Q+C:​A=A+1:​GOTO 32202
32203 IF Q<>32674 THEN ? "":​STOP
32204 DIM A$(56)
32205 A$="hhhhhhhhhhhhh [ ` [`"
32206 DATA 165,​89,​133,​216,​165,​88,​133,​215,​164,​225
32207 DATA 24,​136,​48,​8,​105,​40,​144,​248,​230,​216
32208 DATA 208,​244,​101,​224,​133,​215,​144,​2,​230,​216
32209 DATA 96,​32,​0,​6,​169,​81,​160,​0,​145,​215
32210 DATA 164,​226,​169,​69,​145,​215,​32,​225,​6,​166
32211 DATA 227,​202,​202,​32,​213,​6,​160,​0,​169,​124
32212 DATA 145,​215,​164,​226,​145,​215,​202,​208,​240,​32
32213 DATA 213,​6,​169,​90,​160,​0,​145,​215,​164,​226
32214 DATA 169,​67,​145,​215,​32,​225,​6,​32,​140,​6
32215 DATA 96,​32,​0,​6,​166,​227,​164,​226,​165,​228
32216 DATA 208,​7,​177,​213,​145,​215,​56,​176,​8,​177
32217 DATA 215,​145,​213,​169,​0,​145,​215,​136,​16,​234
32218 DATA 164,​226,​200,​152,​24,​101,​213,​133,​213,​144
32219 DATA 2,​230,​214,​32,​213,​6,​202,​208,​213,​96
32220 DATA 32,​0,​6,​32,​213,​6,​230,​215,​208,​2
32221 DATA 230,​216,​160,​0,​132,​229,​132,​230,​164,​229
32222 DATA 177,​218,​201,​124,​240,​29,​201,​252,​240,​37
32223 DATA 168,​42,​42,​42,​42,​41,​3,​170,​152,​41
32224 DATA 159,​29,​73,​251,​164,​230,​145,​215,​230,​229
32225 DATA 230,​230,​56,​176,​219,​169,​0,​230,​229,​133
32226 DATA 230,​32,​213,​6,​76,​158,​6,​32,​248,​242
32227 DATA 133,​0,​96,​24,​165,​215,​105,​40,​133,​215
32228 DATA 144,​2,​230,​216,​96,​169,​82,​136,​240,​4
32229 DATA 145,​215,​208,​249,​96,​-1
32230 RETURN	

• Download link 1