home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 4 / 64er_Magazin_Sonderheft_04_86-04_1986_Markt__Technik_de_Disk_2_of_2_Side_A.d64 / 85 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  49 lines
  1. 10 poke648,4:print"[147]":poke53272,21:poke56576,151:poke53265,peek(53265)and239:fori=1to8
  2. 20 poke53281,0:poke53280,0
  3. 30 ifpeek(53265)<>139then30
  4. 40 poke53281,11:poke53280,11
  5. 50 ifpeek(53265)<>139then50
  6. 60 poke53281,12:poke53280,12
  7. 70 ifpeek(53265)<>139then70
  8. 80 poke53281,15:poke53280,15
  9. 90 ifpeek(53265)<>139then90
  10. 100 poke53281,1:poke53280,1
  11. 110 ifpeek(53265)<>139then110
  12. 120 poke53281,15:poke53280,15
  13. 130 ifpeek(53265)<>139then130
  14. 140 poke53281,12:poke53280,12
  15. 150 ifpeek(53265)<>139then150
  16. 160 poke53281,11:poke53280,11
  17. 170 ifpeek(53265)<>139then170
  18. 180 poke53281,0:poke53280,0
  19. 190 ifpeek(53265)<>139then190
  20. 200 next:poke53280,6:poke53281,14:print"[147]"
  21. 210 poke53265,peek(53265)or16
  22. 220 print"[147][154]          s i e g e r l i s t e         ";
  23. 230 print"                                        "
  24. 240 fori=55296to55376:pokei,6:fork=1to30:nextk,i
  25. 250 dima$(10):open4,8,4,"86,p,r"
  26. 260 print"1. ";:input#4,a$(1):printa$(1)
  27. 270 print"2. ";:input#4,a$(2):printa$(2)
  28. 280 print"3. ";:input#4,a$(3):printa$(3)
  29. 290 print"4. ";:input#4,a$(4):printa$(4)
  30. 300 print"5. ";:input#4,a$(5):printa$(5)
  31. 310 print"6. ";:input#4,a$(6):printa$(6)
  32. 320 print"7. ";:input#4,a$(7):printa$(7)
  33. 330 print"8. ";:input#4,a$(8):printa$(8)
  34. 340 print"9. ";:input#4,a$(9):printa$(9)
  35. 350 print"1o. ";:input#4,a$:printa$:close4
  36. 360 print"ihr name ? ";:poke204,0
  37. 370 getr$:ifr$=""then370
  38. 380 ifr$=chr$(13)andlen(in$)>0then430
  39. 390 ifr$=chr$(20)andlen(in$)>0thenin$=left$(in$,len(in$)-1):printr$;:goto370
  40. 400 if(r$<"a"orr$>"z")andr$<>"."and(r$<"1"orr$>"0")andr$<>" "then370
  41. 410 iflen(in$)+1>32then370
  42. 420 printr$;:in$=in$+r$:goto370
  43. 430 poke204,1:print" ":close4:open1,8,15,"s:86":close1:open4,8,4,"86,p,w"
  44. 440 print#4,in$:fori=1to9:print#4,a$(i):next:close4:print"[147]"
  45. 450 ifpeek(53265)<>155then450
  46. 460 poke53281,0:poke53280,0
  47. 470 print"[147][144]l[207]"chr$(34)"82"chr$(34)",8":print"run"
  48. 480 poke631,19:poke632,13:poke633,13:poke198,3:new
  49.