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 >
Commodore BASIC  |  2023-02-26  |  1KB  |  24 lines
  1. 1000 printchr$(147); :poke53280,11:
  2. 1001 print" [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  "
  3. 1002 forc=11to56:poke646,c:poke53281,11:::::::poke53281,.
  4. 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]";
  5. 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]";
  6. 1005 print"                    ";;:nextc
  7. 1006 forc=6to51:poke646,c:print"[157][157][145][157]";:poke53281,.:::::::poke53281,c
  8. 1007 print"                    ";
  9. 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]";
  10. 1009 print"  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146] ";;;:next
  11. 1010 forc=1to15:poke646,c:
  12. 1011 fori=30to24step-.7
  13. 1012 a=(peek(53265)and248)+(iand7):poke53265,a:poke53281,.::::::::::poke53281,i
  14. 1013 print"[145]                                        ";:poke53280,peek(53281)
  15. 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]";;;:
  16. 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]  ";;;
  17. 1016 print"                     [157][157][157]";;;" [146]  [146]  [146]  [146]  [146]  ";
  18. 1017 print"      [145][157][157][157][157][157][157]";;;:forx=1to25:nextx:nexti:nextc
  19. 1018 print"[147]";:poke56325,0:poke53281,.:poke53280,.:forz=0to13
  20. 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]";:
  21. 1020 next:poke646,peek(53281):poke56325,58
  22. 1021 wait197,63:printtab(68)"[151]lukian":
  23. 1022 forz=1to1500:next:sys58253
  24.