home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 July / 64er_Magazin_85-07_1985_Markt__Technik_de.d64 / lader.terminal (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  74 lines
  1. 10 rem written by peter falk
  2. 20 :
  3. 30 poke840,0:rem sekundaer-adresse
  4. 40 poke841,27:poke842,32:poke843,84:poke844,0:poke845,0:rem drucker-parameter
  5. 50 :
  6. 60 poke 55,79:poke 56,60:rem speicher-
  7. 70 poke643,79:poke644,60:rem grenze
  8. 80 clr                  :rem auf 15439
  9. 90 poke838,6:poke839,15:rem farben
  10. 100 poke53280,peek(838):poke53281,peek(839)
  11. 110 g%=100*0.23:poke828,g%:rem gebuehren-einheit
  12. 120 print"[144][147]";chr$(14);chr$(8)
  13. 130 gosub350:gosub600:poke650,128
  14. 140 poke832,80:rem pufferanfang
  15. 150 poke833,60:rem bei 15440
  16. 160 print"[147]     *******************************"
  17. 170 print"     *                             *"
  18. 180 print"     *   [211] [213] [208] [197] [210] - [212] [197] [210] [205]  64   *"
  19. 190 print"     *   [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]   *"
  20. 200 print"     *                             *"
  21. 210 print"     *    [215]ritten by [208]eter [198]alk    *"
  22. 220 print"     *                             *"
  23. 230 print"     *    (c) 64'er  1985          *"
  24. 240 print"     *                             *"
  25. 250 print"     *******************************"
  26. 260 print"        (1) - [212]erminalprogramm"
  27. 270 print"        (2) - [197]ditor"
  28. 280 print"        (0) - [208]rogramm beenden"
  29. 290 getq$:ifq$<>"0"andq$<>"1"andq$<>"2"then290
  30. 300 ifq$="0"thenend
  31. 310 print"              [204]oading..."
  32. 320 ifq$="1"thenload"terminal",8
  33. 330 ifq$="2"thenload"editor",8
  34. 340 :
  35. 350 rem * peek+poke fuer ueberl. ram *
  36. 360 data165,20,72,165,21,72,32,247,183,120,165,1,41,252,133,1,160,0,177,20
  37. 370 data168,165,1,9,3,133,1,88,104,133,21,104,133,20,76,162,179,32,253,174
  38. 380 data32,138,173,32,247,183,32,253,174,32,158,183,120,169,52,133,1,138,160
  39. 390 data0,145,20,169,55,133,1,88,96
  40. 400 fori=698to765:reada:pokei,a:next
  41. 410 poke785,186:poke786,2
  42. 420 :
  43. 430 rem * load *
  44. 440 data160,0,169,8,32,180,255,169,98,32,150,255,173,64,3,133,174,173,65
  45. 450 data3,133,175,32,19,238,145,174,230,174,208,2,230,175,169,208,197,175
  46. 460 data208,8,169,0,133,174,169,224,133,175,165,175,240,4,36,144,80,223
  47. 470 data165,174,141,64,3,165,175,141,65,3,32,171,255,96,0
  48. 480 fori=848to917:reada:pokei,a:next
  49. 490 :
  50. 500 rem * directory *
  51. 510 data169,36,133,251,169,251,133,187,169,0,133,188,169,1,133,183,169,8
  52. 520 data133,186,169,96,133,185,32,213,243,165,186,32,180,255,165,185,32,150
  53. 530 data255,169,0,133,144,160,3,132,251,32,165,255,133,252,164,144,208,47
  54. 540 data32,165,255,164,144,208,40,164,251,136,208,233,166,252,32,205,189
  55. 550 data169,32,32,210,255,32,165,255,166,144,208,18,170,240,6,32,210,255
  56. 560 data76,226,3,169,13,32,210,255,160,2,208,198,32,66,246,96
  57. 570 fori=918to1022:reada:pokei,a:next
  58. 580 return
  59. 590 :
  60. 600 rem * f-tasten laden *
  61. 610 open1,8,2,"f-tasten,s,r"
  62. 620 open2,8,15
  63. 630 input#2,f
  64. 640 iff=0thenprint"  [196]ie [198]unktionstasten werden geladen."
  65. 650 print"            [194]itte warten..."
  66. 660 iff=0then700
  67. 670 fors=54000to54559
  68. 680 sys735,s,13:next
  69. 690 goto720
  70. 700 fors=54000to54559
  71. 710 get#1,a$:sys735,s,asc(a$):next
  72. 720 close1:close2
  73. 730 return
  74.