home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1994 April / 64er_Magazin_94-04_1994_Markt__Technik_de_Side_A.d64 / prereferences (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1994-01-01  |  2.6 KB  |  107 lines
  1. 5 dim p$(17),x(17),ad(17)
  2. 6 fort=0to17:readp$(t),x(t),ad(t)
  3. 7 ad(t)=ad(t)+47104:next
  4. 10 za$(1)="(1-[194]yte-[218]ahl) "
  5. 11 za$(2)="(2-[194]yte-[218]ahl) "
  6. 12 za$(3)="(on/off)      "
  7. 13 za$(4)="(turbo/serial)"
  8. 19 poke53281,0:poke53280,0
  9. 20 printchr$(14)"[147][154][193]ss[194]laster+[211]ystem           [208]refs[201]nstall[146]";
  10. 30 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  11. 40 gosub4000
  12. 50 gosub5000
  13. 60 print"[215]erte aendern [j/n]?"
  14. 65 geta$:ifa$="j"then70
  15. 66 ifa$<>"n"then65
  16. 67 goto6000
  17. 70 gosub3500:gosub5000:ed=1
  18. 75 fort=0to17:w=t
  19. 76 print""p$(t);za$(x(t)):gosub5025
  20. 78 print"[145]";:gosub2000
  21. 79 forx=20to24:poke781,x:sys59903:nextx
  22. 80 pokead(t),lo:ifx(t)=2thenpokead(t)+1,hi
  23. 85 next:goto50
  24. 1000 data"[210][193][205]-[211]tart       :",2,2063
  25. 1010 data"[210][193][205]-[197]nde        :",2,2065
  26. 1020 data"[207]pcodetabulator :",1,2194
  27. 1030 data"[205]nemnonictabul. :",1,2195
  28. 1040 data"[195]ommenttabulator:",1,2196
  29. 1050 data"[198]astscrollspeed :",1,2197
  30. 1060 data"[193]rrowspeed      :",1,2198
  31. 1070 data"[194]ordercolour    :",1,2199
  32. 1080 data"[194]ackgroundcolour:",1,2200
  33. 1090 data"[211]criptcolour    :",1,2201
  34. 1100 data"[195]ursorcolour    :",1,2202
  35. 1110 data"[193]rrowcolour     :",1,2203
  36. 1115 data"[205]enuelinecolour :",1,2204
  37. 1120 data"[208]reftakemode    :",1,2207
  38. 1125 data"[207]bjectdrive     :",1,2208
  39. 1130 data"[214]isfastload(*2) :",3,2206
  40. 1140 data"[193]ssemblermode   :",4,2180
  41. 1150 data"[204]ongassembly    :",3,2205
  42. 2000 rem input
  43. 2020 poke19,1:inputza$:poke19,0:print
  44. 2030 onx(t)goto2100,2200,2300,2400
  45. 2100 rem ein-byte-zahl
  46. 2110 gosub3000:ifhi>0then 2000
  47. 2120 return
  48. 2200 rem zwei-byte-zahl
  49. 2210 goto3000:rem return
  50. 2300 rem on/off
  51. 2310 hi=0:ifza$="off"thenlo=0:return
  52. 2315 ifza$<>"on"thengoto2000
  53. 2320 lo=1:return
  54. 2400 hi=0:lo=asc(za$+chr$(0)):iflo<84andlo>85then2000
  55. 2410 return
  56. 3000 rem hexdez wandler
  57. 3010 z=0:b=16
  58. 3020 ifleft$(za$,1)<>"$"thenb=10:goto3030
  59. 3025 za$=right$(za$,len(za$)-1)
  60. 3030 fors=1tolen(za$):h=asc(mid$(za$,s))-48:z=z*b+h+7*(h>9):next
  61. 3050 hi=int(z/256):lo=z-hi*256
  62. 3060 return
  63. 3100 rem dezhex wandler
  64. 3110 za$="":forp=0to0:z=z/16:s=(z-int(z))*16:za$=chr$(55+s+7*(s<10))+za$:p=-z
  65. 3115 next:za$="$"+za$
  66. 3120 return
  67. 3500 rem loescher
  68. 3510 forx=2to24:poke781,x:sys59903:next:return
  69. 3600 rem waiter
  70. 3610 poke198,0:wait198,1:poke198,0:return
  71. 4000 rem loadprefs
  72. 4010 gosub3500:print "  [194]itte [193]ss[194]laster+ [196]iskette einlegen!":gosub3600
  73. 4015 gosub3500:print "             [194]itte warten!"
  74. 4020 open2,8,2,"bed,p,r":ifst=0then4026
  75. 4025 close2:goto4000
  76. 4026 y=49163
  77. 4030 get#2,a$:a=asc(a$+chr$(0))
  78. 4040 pokey,a:y=y+1
  79. 4050 ifst=0then4030
  80. 4060 close2:return
  81. 5000 rem printprefs
  82. 5010 gosub3500:print"" :ed=0
  83. 5020 forw=0to17:print"        "p$(w);
  84. 5025 za=peek(ad(w)):ifx(w)=2thenza=za+256*peek(ad(w)+1):z=za:gosub3100:printza$
  85. 5030 ifx(w)<>3then5040
  86. 5031 ifpeek(ad(w))=0thenprint"off":goto5050
  87. 5032 print"on"
  88. 5040 ifx(w)<>4then5050
  89. 5041 ifpeek(ad(w))=asc("s")thenprint"serial":goto5050
  90. 5042 print"turbo"
  91. 5050 ifx(w)=1thenprintza
  92. 5052 ifedthenreturn
  93. 5055 next:return
  94. 6000 rem prefssave
  95. 6010 print"[201]n diesem [218]ustand abspeichern[j/n]?"
  96. 6020 geta$:ifa$="j"then6100
  97. 6030 ifa$<>"n"then6020
  98. 6040 end
  99. 6100 gosub3500:print"[194]itte warten..."
  100. 6110 open1,8,15,"s:bed":close1
  101. 6120 open2,8,2,"bed,p,w"
  102. 6130 print#2,chr$(13)chr$(8);
  103. 6140 z=49165
  104. 6150 print#2,chr$(peek(z));:z=z+1
  105. 6160 ifz<ythen6150
  106. 6170 close2:print"[147][198]ertig..."
  107.