home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 75 / 64er_Magazin_Sonderheft_75_19xx_Markt__Technik_de_Side_B.d64 / betrachter (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  65 lines
  1. 100 goto120
  2. 110 print"---------------------------------------":return
  3. 120 r=0:f1=0:f2=1:f3=2:f4=3:a(0)=2:a(1)=1:a(2)=0:a(3)=15:z=4
  4. 130 poke53280,0:poke53281,0:print"[155]"
  5. 140 printchr$(147)
  6. 150 input"filename";nm$:a=len(nm$)
  7. 160 la=12288
  8. 170 hi=int(la/256):lo=la-hi*256
  9. 180 fori=1toa
  10. 190 poke827+i,asc(mid$(nm$,i,1))
  11. 200 next
  12. 210 poke781,8:poke782,0:sys65466
  13. 220 poke780,a
  14. 230 poke781,60:poke782,3:sys65469
  15. 240 poke780,0:poke781,lo:poke782,hi
  16. 250 sys65493
  17. 260 poke174,peek(781):poke175,peek(782)
  18. 270 ifst<>64thenprint"fehler":end
  19. 280 print"[147]":gosub110:print"":gosub110
  20. 290 fori=0to255
  21. 300 poke1024+80+i,i
  22. 310 next
  23. 320 print
  24. 330 print"zeichensatz-betrachter                  ";
  25. 340 print""
  26. 350 print
  27. 360 print"f1 = cbm/standard   f2 = neu laden"
  28. 370 print"f3 = neue zeichen   f4 = programm ende"
  29. 380 print"f5 = multicolor
  30. 390 [153]"f7 = extended color
  31. 400 print
  32. 410 print"  1 = rahmenfarbe (53280)
  33. 420 [153]"  2 = farbe1      (53281)
  34. 430 print"  3 = farbe2      (53282)
  35. 440 [153]"  4 = farbe3      (53283)
  36. 450 print"  5 = farbe4      (53284)
  37. 460 [153]"  6 = zeichenfarbe   0- 63
  38. 470 print"  7 = zeichenfarbe  64-127
  39. 480 [153]"  8 = zeichenfarbe 128-191
  40. 490 print"  9 = zeichenfarbe 192-255
  41. 500 [151]53280,r:[151]53281,f1
  42. 510 [151]53282,f2:[151]53283,f3
  43. 520 [151]53284,f4
  44. 530 [139]z[177]3[167]570
  45. 540 [129]j[178]0[164]63
  46. 550 [151]55296[170]j[170]80[170](z[172]64),a(z)
  47. 560 [130]
  48. 570 [151]198,0:[146]198,1:[161]z$
  49. 580 [139]z$[178]"1"[167]z[178]4:r[178]r[170]1:[139]r[177]15[167]r[178]0:[137]500
  50. 590 [139]z$[178]"2"[167]z[178]4:f1[178]f1[170]1:[139]f1[177]15[167]f1[178]0:[137]500
  51. 600 [139]z$[178]"3"[167]z[178]4:f2[178]f2[170]1:[139]f2[177]15[167]f2[178]0:[137]500
  52. 610 [139]z$[178]"4"[167]z[178]4:f3[178]f3[170]1:[139]f3[177]15[167]f3[178]0:[137]500
  53. 620 [139]z$[178]"5"[167]z[178]4:f4[178]f4[170]1:[139]f4[177]15[167]f4[178]0:[137]500
  54. 630 [139]z$[178]"6"[167]z[178]0:a(0)[178]a(0)[170]1:[139]a(0)[177]15[167]a(0)[178]0:[137]500
  55. 640 [139]z$[178]"7"[167]z[178]1:a(1)[178]a(1)[170]1:[139]a(1)[177]15[167]a(1)[178]0:[137]500
  56. 650 [139]z$[178]"8"[167]z[178]2:a(2)[178]a(2)[170]1:[139]a(2)[177]15[167]a(2)[178]0:[137]500
  57. 660 [139]z$[178]"9"[167]z[178]3:a(3)[178]a(3)[170]1:[139]a(3)[177]15[167]a(3)[178]0:[137]500
  58. 670 [139] z$[178]"input"[167][151]53272,21:[151]53265,27:[151]53270,200
  59. 680 [139]z$[178]"dim"[167][151]53272,[194](53272)[175]240[176]12:z[178]4
  60. 690 [139]z$[178]"read"[167][151]53270,[194](53270)[175]239[176]16:[151]53265,27
  61. 700 [139]z$[178]"let"[167][151]53265,[194](53265)[175]191[176]64:[151]53270,200
  62. 710 [139]z$[178]"goto"[167][138]
  63. 720 [139]z$[178]"run"[167][128]
  64. 730 [137]500
  65.