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 >
Wrap
Commodore BASIC
|
2022-10-26
|
3KB
|
107 lines
5 dim p$(17),x(17),ad(17)
6 fort=0to17:readp$(t),x(t),ad(t)
7 ad(t)=ad(t)+47104:next
10 za$(1)="(1-[194]yte-[218]ahl) "
11 za$(2)="(2-[194]yte-[218]ahl) "
12 za$(3)="(on/off) "
13 za$(4)="(turbo/serial)"
19 poke53281,0:poke53280,0
20 printchr$(14)"[147][154][193]ss[194]laster+[211]ystem [208]refs[201]nstall[146]";
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]"
40 gosub4000
50 gosub5000
60 print"[215]erte aendern [j/n]?"
65 geta$:ifa$="j"then70
66 ifa$<>"n"then65
67 goto6000
70 gosub3500:gosub5000:ed=1
75 fort=0to17:w=t
76 print""p$(t);za$(x(t)):gosub5025
78 print"[145]";:gosub2000
79 forx=20to24:poke781,x:sys59903:nextx
80 pokead(t),lo:ifx(t)=2thenpokead(t)+1,hi
85 next:goto50
1000 data"[210][193][205]-[211]tart :",2,2063
1010 data"[210][193][205]-[197]nde :",2,2065
1020 data"[207]pcodetabulator :",1,2194
1030 data"[205]nemnonictabul. :",1,2195
1040 data"[195]ommenttabulator:",1,2196
1050 data"[198]astscrollspeed :",1,2197
1060 data"[193]rrowspeed :",1,2198
1070 data"[194]ordercolour :",1,2199
1080 data"[194]ackgroundcolour:",1,2200
1090 data"[211]criptcolour :",1,2201
1100 data"[195]ursorcolour :",1,2202
1110 data"[193]rrowcolour :",1,2203
1115 data"[205]enuelinecolour :",1,2204
1120 data"[208]reftakemode :",1,2207
1125 data"[207]bjectdrive :",1,2208
1130 data"[214]isfastload(*2) :",3,2206
1140 data"[193]ssemblermode :",4,2180
1150 data"[204]ongassembly :",3,2205
2000 rem input
2020 poke19,1:inputza$:poke19,0:print
2030 onx(t)goto2100,2200,2300,2400
2100 rem ein-byte-zahl
2110 gosub3000:ifhi>0then 2000
2120 return
2200 rem zwei-byte-zahl
2210 goto3000:rem return
2300 rem on/off
2310 hi=0:ifza$="off"thenlo=0:return
2315 ifza$<>"on"thengoto2000
2320 lo=1:return
2400 hi=0:lo=asc(za$+chr$(0)):iflo<84andlo>85then2000
2410 return
3000 rem hexdez wandler
3010 z=0:b=16
3020 ifleft$(za$,1)<>"$"thenb=10:goto3030
3025 za$=right$(za$,len(za$)-1)
3030 fors=1tolen(za$):h=asc(mid$(za$,s))-48:z=z*b+h+7*(h>9):next
3050 hi=int(z/256):lo=z-hi*256
3060 return
3100 rem dezhex wandler
3110 za$="":forp=0to0:z=z/16:s=(z-int(z))*16:za$=chr$(55+s+7*(s<10))+za$:p=-z
3115 next:za$="$"+za$
3120 return
3500 rem loescher
3510 forx=2to24:poke781,x:sys59903:next:return
3600 rem waiter
3610 poke198,0:wait198,1:poke198,0:return
4000 rem loadprefs
4010 gosub3500:print " [194]itte [193]ss[194]laster+ [196]iskette einlegen!":gosub3600
4015 gosub3500:print " [194]itte warten!"
4020 open2,8,2,"bed,p,r":ifst=0then4026
4025 close2:goto4000
4026 y=49163
4030 get#2,a$:a=asc(a$+chr$(0))
4040 pokey,a:y=y+1
4050 ifst=0then4030
4060 close2:return
5000 rem printprefs
5010 gosub3500:print"" :ed=0
5020 forw=0to17:print" "p$(w);
5025 za=peek(ad(w)):ifx(w)=2thenza=za+256*peek(ad(w)+1):z=za:gosub3100:printza$
5030 ifx(w)<>3then5040
5031 ifpeek(ad(w))=0thenprint"off":goto5050
5032 print"on"
5040 ifx(w)<>4then5050
5041 ifpeek(ad(w))=asc("s")thenprint"serial":goto5050
5042 print"turbo"
5050 ifx(w)=1thenprintza
5052 ifedthenreturn
5055 next:return
6000 rem prefssave
6010 print"[201]n diesem [218]ustand abspeichern[j/n]?"
6020 geta$:ifa$="j"then6100
6030 ifa$<>"n"then6020
6040 end
6100 gosub3500:print"[194]itte warten..."
6110 open1,8,15,"s:bed":close1
6120 open2,8,2,"bed,p,w"
6130 print#2,chr$(13)chr$(8);
6140 z=49165
6150 print#2,chr$(peek(z));:z=z+1
6160 ifz<ythen6150
6170 close2:print"[147][198]ertig..."