home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 September / 64er_Magazin_87-09_1987_Markt__Technik_de_Side_A.d64 / grafik-lader.c16 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  75 lines
  1. 10 rem*****lader c-16*****
  2. 11 (NULL)1,1:(NULL)0
  3. 12 rem
  4. 13 gosub 60000:sys 4577:sys4352,60000,60100
  5. 20 run30
  6. 30 print"[147]"
  7. 40 printtab(10)"lader - c16
  8. 45 [153] ""
  9. 50 [153] "1.bilder sichern
  10. 60 print "2.bilder laden
  11. 70 [153] "3.bilder sehen
  12. 80 print "4.inhaltsverzeichnis
  13. 85 [153] "5.programm beenden
  14. 90 rem
  15. 95 get(NULL) a :ifa<1ora>5thenrun30
  16. 97 jmp a*100
  17. 100 input"[147]bildname";b$
  18. 110 input"schirmnummer";n
  19. 120 sys 4530,""+b$,(n+1)*8192+((n=1)*8192),(n+2)*8192+((n=1)*8192),8:run 30
  20. 200 input"[147]bildname";b$
  21. 210 input"schirmnummer";n
  22. 220 sys 4545,""+b$,(n+1)*8192+((n=1)*8192),0,8:run30
  23. 300 input"[147]schirmnummer";nr
  24. 310 (NULL)1: sys 4629,nr:get(NULL) a$:(NULL)0:run30
  25. 400 print"[147]":(NULL):get(NULL) a$:run30
  26. 500 end
  27. 60000 data20,91,94,20,e1,9d,20,3d, 832
  28. 60001 data8a,a5,5f,85,da,a5,60,85, 1143
  29. 60002 datadb,20,91,94,20,e1,9d,a5, 1123
  30. 60003 datada,a6,db,85,24,86,25,20, 975
  31. 60004 data3d,8a,90,15,a0,01,20,d1, 766
  32. 60005 data04,88,aa,d0,05,20,d1,04, 768
  33. 60006 dataf0,07,20,d1,04,85,5f,86, 854
  34. 60007 data60,a5,24,38,e5,5f,aa,a5, 1012
  35. 60008 data25,e5,60,a8,b0,1f,8a,18, 899
  36. 60009 data65,2d,85,2d,98,65,2e,85, 756
  37. 60010 data2e,a0,00,20,d1,04,91,24, 632
  38. 60011 datac8,d0,f8,e6,6b,e6,25,a5, 1425
  39. 60012 data2e,c5,25,b0,ee,20,18,88, 886
  40. 60013 dataa5,22,a6,23,18,69,02,85, 664
  41. 60014 data2d,90,01,e8,86,2e,60,18, 722
  42. 60015 dataa5,5f,69,0a,85,dc,a5,60, 989
  43. 60016 data69,00,85,dd,60,00,20,91, 732
  44. 60017 data94,20,2c,93,a5,62,85,af, 942
  45. 60018 dataa5,63,85,b0,a5,61,85,ab, 1139
  46. 60019 data20,91,94,20,14,93,20,e4, 784
  47. 60020 data9d,84,da,85,db,20,91,94, 1184
  48. 60021 data20,d2,9d,a9,02,85,ac,86, 1009
  49. 60022 dataae,60,20,86,11,85,ad,a9, 928
  50. 60023 datada,a6,14,a4,15,20,d8,ff, 1092
  51. 60024 data60,20,86,11,a9,00,85,ad, 754
  52. 60025 dataa6,da,a4,db,20,d5,ff,60, 1363
  53. 60026 data60,62,85,af,a5,63,85,b0, 1075
  54. 60027 dataa5,61,85,ab,20,d5,ff,00, 1066
  55. 60028 data00,a9,ec,8d,08,03,a9,11, 743
  56. 60029 data8d,09,03,60,a2,00,20,73, 558
  57. 60030 data04,dd,10,12,d0,17,e8,e0, 946
  58. 60031 data03,d0,f3,20,b7,fb,20,73, 1067
  59. 60032 data04,20,14,93,20,e4,9d,20, 652
  60. 60033 data50,8d,20,c1,fb,4c,d9,8b, 1129
  61. 60034 data4a,4d,50,50,00,20,91,94, 636
  62. 60035 data20,84,9d,e0,01,d0,06,a9, 929
  63. 60036 data08,8d,12,ff,60,e0,02,d0, 952
  64. 60037 data06,a9,18,8d,12,ff,60,e0, 933
  65. 60038 data03,d0,06,a9,20,8d,12,ff, 832
  66. 60039 data60,e0,04,d0,06,a9,28,8d, 888
  67. 60040 data12,ff,60,e0,05,d0,06,a9, 981
  68. 60041 data30,8d,12,ff,60,e0,06,d0, 996
  69. 60042 data05,a9,30,8d,12,ff,60,00, 732
  70. 60043 fort= 4352 to 4695 step8:p=0
  71. 60044 fori=0to7:reada$:a=(NULL)(a$):p=p+a:poket+i,a:nexti
  72. 60045 readr:ifp<>rthenprint"pruefsumenfehler in zeile"peek(63)+peek(64)*256:end
  73. 60046 next:print"datas richtig eingelesen !!!"
  74. 60100 return
  75.