Random demo
Random software
Random game
  • Entry name:
     Magicke okenko 
  • Category:
    Demos/Intros
  • Publisher/Developer:
    Flop 1
  • Media format:
    Diskette
  • Programming language:
    Turbo Basic XL
Magicke okenko Magicke okenko Magicke okenko Magicke okenko Magicke okenko Magicke okenko Magicke okenko Magicke okenko Magicke okenko
Listing 1
1 REM *******************************
3 REM * MAGIC WINDOW DEMO -TURBOBAS *
5 REM * z casopisu PAGE 6 *
7 REM * Magicke okenko *
8 REM * [ AK Trebic ] *
9 REM *******************************
10 DIM PM$(1024),​B$(38),​C$(42),​BLANK$(42)
20 EXEC SET_UP
30 FOR I=1 TO 2
40 ? #6;" * PAGE 6 MAGAZINE *";
50 ? #6;" *...TURBO BASIC...*";
60 ? #6;" *.MAGICKE OKENKO..*";
70 ? #6;" *...DEMO...DEMO...*";
80 ? #6;" *ATARI KLUB TREBIC*";
90 NEXT I
100 ------------------------------
110 DO
120 H=1:​X=48:​X1=44:​Y1=536:​Y=22
130 PM$(Y,​Y+42)=C$:​PM$(Y1,​Y1+38)=B$
140 FOR Y=30 TO 174 STEP 8:​Y1=Y1+8
150 # HORIZONTAL
160 IF PEEK(53279)<>7 THEN EXEC SLOW
170 X=X+H:​X1=X1+H:​POKE 53248,​X:​POKE 53250,​X1
180 IF X>220:​H=-1:​SOUND 0,​8,​10,​4:​GO# VERTICAL
190 ENDIF
200 IF X<12:​H=1:​SOUND 0,​16,​10,​4:​GO# VERTICAL
210 ELSE
220 SOUND 0,​X,​8,​2
230 GO# HORIZONTAL
240 ENDIF
250 # VERTICAL
260 PM$(Y,​Y+42)=C$:​PM$(Y1,​Y1+38)=B$
270 NEXT Y:​PM$(Y,​Y+42)=BLANK$:​PM$(Y1,​Y1+38)=BLANK$
280 LOOP
290 ------------------------------
300 PROC SLOW
310 SOUND:​PAUSE 3
320 ENDPROC
330 ------------------------------
340 PROC SET_UP
350 GRAPHICS 18:​POKE 559,​62:​I=PEEK(106)-16
360 POKE 704,​116:​POKE 706,​198:​POKE 710,​0:​POKE 712,​0:​POKE 709,​222:​POKE 708,​0
370 POKE 54279,​I:​POKE 53277,​3:​VT=DPEEK(134)
380 AT=DPEEK(140):​OFF=I*256+1024-AT:​DPOKE VT+2,​OFF:​POKE 53256,​3:​POKE 53258,​3
390 PM$(1)="":​PM$(1024)="":​PM$(2)=PM$:​BLANK$=PM$
400 B$="??????????????????????"
410 C$=""
420 Y1=536:​Y=22
430 POKE 623,​2
440 ENDPROC	

This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page, please contact me immediatelly so I can remove it!