home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 16 / Tiger_Disk_016_19xx_Tiger-Crew-Disk_de_Side_A.d64 / tiger-disk (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  485b  |  19 lines
  1. 5 poke53280,.:poke53281,.
  2. 10 data1,4,0,2,65,240,251,0,4,0,2,65,240,2,51,32
  3. 20 data89,166,76,174,167,0,0,20,243,31
  4. 30 fori=.to24:poke54272+i,.:readx:poke54272+i,x:next
  5. 40 printchr$(147)
  6. 50 y$="       [156]also denkt daran :       ":x=5:gosub 90
  7. 60 y$="       neue tiger - disk  -      ":x=7:gosub90
  8. 70 y$="       [158]gibt's [153]in 4 wochen !      ":x=9:gosub90
  9. 80 poke198,0:wait198,1:list
  10. 90 x$=chr$(19):for xx=1tox:x$=x$+chr$(17):next
  11. 100 x=5+len(y$)
  12. 110 forl=0tox-5
  13. 120 :x=x-1
  14. 130 :yl$=left$(y$,l)
  15. 140 :printx$ tab(x-1) yl$
  16. 150 nextl
  17. 160 x=0:yl$=" ":y$=" "
  18. 170 return
  19.