home *** CD-ROM | disk | FTP | other *** search
/ Dark Star 2 / Dark_Star_02_1995_-_de_Side_A.d64 / intro_lukian (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  1KB  |  28 lines
  1. 0 print chr$(8)
  2. 1 print"[147]           ein tip von lukian           [146]"
  3. 2 poke56,076:clr:ti$="000003":wait161,1:
  4. 5 poke53280,.:poke53281,.:forf=1to10:poke646,f
  5. 10 forz=54272to54296:pokez,0 :next:s=54272:
  6. 15 pokes+24,15:pokes+5,9 :pokes+6,15
  7. 17 print"[164][175][185] was man gegen langeweile macht?? [185][175][164]";:ti$="000003":wait161,1
  8. 18 print"===== da wuesste ich schon was...: =====[145][145][145][145]";:nextf:
  9. 20 i=i+1:ifi=5then fort=1to5000:next:   pokes+24,0:goto90
  10. 25 readl,h,d :ifh<0goto80
  11. 30 pokes+4,h:pokes+1,l:pokes+4,33
  12. 34 print"[147][150]    besorg' dir mal 'ne gute disk !!   ";:forx=1tod:next
  13. 35 pokes+4,32:fort=1to45:next
  14. 36 print"   [223][169]                                [223][169] ";
  15. 50 data13,154,25,18,152,26,16,61,124,14,151,   300
  16. 51 data13,176,31,14,162,32,15,61,134,14,172,   102,15,171,400,-1,-1,-1
  17. 52 data15,179,33,16,161,34,17,63,130,15,175,  500
  18. 53 data24,154,35,26,153,35,24,71,124,19,152,300,17,36,500 ,-1,-1,-1
  19. 80 a=a+1:ifa=1then restore:goto25
  20. 81 ifa=2thenrestore:goto25
  21. 82 ifa=3then:  goto25
  22. 83 ifa=4then:a=0:goto20
  23. 90 print"[147] zum beispiel      [151]d a r k   s t a r "
  24. 100 print" bei:            sven t e w e s"
  25. 101 print"[156]                 am lullberg 29"
  26. 102 print"           34434 borgentreich-borgholz";
  27. 103 poke161,0:poke162,0:wait161,1: print:load"boot intro",8,1
  28.