home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 123 / Tiger_Disk_123_20xx_Tiger-Crew-Disk_de_Side_B.d64 / anfang (.txt) next >
Commodore BASIC  |  2023-02-26  |  2KB  |  36 lines
  1. 1 print"[147]":::::::::::poke53280,6:poke53281,6:gosub 19
  2. 2 :poke53280,.:poke53281,.:poke53265,80:forc=0to5:print"[147]";:poke646,c
  3. 3 print"                                        ";:poke53283,c:poke53284,c+1
  4. 4 print"  [160][160]         [160]                   [160] [160] [160] [160]";
  5. 5 print" [160]  [160]       [160] [160]                   [160] [160] [160] ";
  6. 6 print" [160]  [160]       [160]                    [160] [160] [160] [160]";
  7. 7 print" [160]  [160]       [160]                     [160] [160] [160] ";
  8. 8 print" [160][160][160][160] [160] [160][160] [160][160][160][160] [160][160][160]  [160] [160][160]  [160][160]    [160] [160] [160] [160]";
  9. 9 print" [160]  [160] [160][160] [160]  [160]      [160] [160][160] [160] [160]  [160]    [160] [160] [160] ";
  10. 10 print" [160]  [160] [160]  [160]  [160]   [160][160][160][160] [160]  [160] [160]  [160]   [160] [160] [160] [160]";
  11. 11 print" [160]  [160] [160]  [160]  [160]   [160]  [160] [160]  [160] [160]  [160]    [160] [160] [160] ";
  12. 12 print" [160]  [160] [160]  [160]  [160]   [160][160][160][160] [160]  [160]  [160][160][160]   [160] [160] [160] [160]";
  13. 13 print"                             [160]    [160] [160] [160] ";
  14. 14 print"                             [160]   [160] [160] [160] [160]";
  15. 15 print"   [196][197][201][206][197][210][160][212][201][199][197][210][160][196][201][211][203]      [160]  [160]    [160] [160] [160] ";
  16. 16 print"                           [160][160]    [160] [160] [160] [160]";
  17. 17 print"                                        ";:next:fort=1to1000:next
  18. 18 :print"[151]lukian":fort=1to300:next:goto29
  19. 19 forz=0to24:poke214,z :sys58732       :next:poke53265,80
  20. 20 poke56325,1:print"[147]";:poke53282,peek(53284)
  21. 21 print" [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160]";:poke53284,z+1
  22. 22 print"[160] [160][200][160][201][160][197][160][210][160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] ";:poke53284,peek(z)
  23. 23 print" [160] [160] [160] [160] [160] [160] [160] [160][201][160][211][160][212][160] [160] [160] [160] [160] [160] [160] [160] [160] [160]";:
  24. 24 print"[160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160][196][160][197][160][210][160] [160] [160] [160] [160] ";:poke53284,z+z
  25. 25 print" [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160]";:poke53284,peek(53282)
  26. 26 print"[160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] ";:poke56325,55:
  27. 27 poke53281,peek(53282):poke53280,peek(53281)
  28. 28 fort=1to1000:next:return
  29. 29 poke198,0:wait198,1:poke198,0
  30. 30 print"[147]":open1,8,0,"$":poke781,1:sys65478:geta$,a$:e$=chr$(0)
  31. 31 geta$,a$,h$,l$:ifstthensys65484:close1:goto35
  32. 32 printasc(h$+e$)+256*asc(l$+e$);
  33. 33 geta$,b$:ifa$thenprinta$b$;:goto33
  34. 34 printa$:goto31
  35. 35 poke198,0:wait198,1:poke198,0:print""
  36.