home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 6 / 64er_Magazin_Sonderheft_06_86-06_1986_Markt__Technik_de_Disk_1_of_3_Side_A.d64 / titel (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  451b  |  17 lines
  1. 10 (NULL)14,0:(NULL)1:poke53280,0:(NULL)1:(NULL)1:(NULL)1:(NULL)
  2. 20 a$="grafik 2000"
  3. 30 fori=1tolen(a$)
  4. 40 (NULL)i,0:ifi>6then(NULL)i-1,0
  5. 50 (NULL)1,3,3,8,0,i*26-15,60,mid$(a$,i,1)
  6. 60 next
  7. 70 (NULL):(NULL)100:(NULL)2:(NULL):(NULL)2:(NULL)1
  8. 80 fori=5to319step5:(NULL)i,100,4,4:next
  9. 85 (NULL)0,95,319,105,0,35:(NULL)1:(NULL)1:(NULL)1
  10. 90 (NULL)13,0
  11. 100 (NULL)1,1,1,0,8,108,140,"[208]roduced 1984"
  12. 110 (NULL)1,1,1,0,16,145,160,"by"
  13. 120 (NULL)1,2,1,4,14,65,180,"[198]rank [194]rendel"
  14. 125 (NULL)
  15. 130 poke198,0:wait198,1:poke198,0:(NULL)32,110:poke53280,6:poke53281,6
  16. 140 print"[147][158]bitte 'window'+return eingeben!"
  17.