home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 102
/
Tiger_Disk_102_20xx_Tiger-Crew-Disk_de_Side_B.d64
/
deyerendemo.
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
24 lines
1000 printchr$(147); :poke53280,11:
1001 print" [146] [146] [146] [146] [146] [146] [146] [146] [146] [146] [146] [146] [146] [146] [146] [146] [146] [146] "
1002 forc=11to56:poke646,c:poke53281,11:::::::poke53281,.
1003 print"[164][164][164][164][164][175][175][175][175][175][185][185][185][185][185][162][162][162][162][163][163][162][162][162][162][185][185][185][185][185][175][175][175][175][175][164][164][164][164][164]";
1004 print"[145] [145] [145] [145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145] [145]";
1005 print" ";;:nextc
1006 forc=6to51:poke646,c:print"[157][157][145][157]";:poke53281,.:::::::poke53281,c
1007 print" ";
1008 print"[157][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145] [145] [145]";;"[157][157][157]";
1009 print" [146] [146] [146] [146] [146] [146] [146] [146] [146] [146] [146] ";;;:next
1010 forc=1to15:poke646,c:
1011 fori=30to24step-.7
1012 a=(peek(53265)and248)+(iand7):poke53265,a:poke53281,.::::::::::poke53281,i
1013 print"[145] ";:poke53280,peek(53281)
1014 print"[145] [145] [145] [145] [145] [145] [145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145] [145] [145] [145] [145]";;;:
1015 print"[145] [145] [145] [145] [145] [145] [145] [145] [145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145][160][145] [145] [145] ";;;
1016 print" [157][157][157]";;;" [146] [146] [146] [146] [146] ";
1017 print" [145][157][157][157][157][157][157]";;;:forx=1to25:nextx:nexti:nextc
1018 print"[147]";:poke56325,0:poke53281,.:poke53280,.:forz=0to13
1019 print"[144][164][164][164][164][156][175][175][175][175][175][175][175][185][185][185][185][129][185][185][185][158][162][162][162][153][162][162][154][162][162][162][162] [218] e n d e [218] [146] [145]";:
1020 next:poke646,peek(53281):poke56325,58
1021 wait197,63:printtab(68)"[151]lukian":
1022 forz=1to1500:next:sys58253