home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magic Disk 64
/
Magic_Disk_64_90-09_1990_-_de_Side_B.d64
/
tage.init2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
3KB
|
97 lines
100 ifpeek(44)<>96thenload"tage.init",8
105 poke 53280,0:print "[147][158]";
110 print "[196]as [208]rogramm '[212]agebuch' benutzt einen"
115 print "veraenderten [218]eichensatz. [213]m besonders"
120 print "den [195]-128 zu unterstuetzen, habe ich"
125 print "einen [218]eichensatz geschrieben, der die"
130 print "beim [203]eyboard des [195]-128 bereits grau"
135 print "vorgedruckten [218]eichen unterstuetzt."
140 print "[200]ierbei wird groesstenteils eine [196][201][206]-"
145 print "[212]astatur erreicht, die alle [196]eutschen"
150 print "[211]onderlaute enthaelt."
155 print "[193]uf dem [195]-64 ist dies jedoch aeusserst"
160 print "stoerend, da u.a. auch z und y mit-"
165 print "einander vertauscht werden."
170 print
175 print "[196]amit die [195]-64 [194]esitzer jedoch weder"
180 print "auf die [196]eutschen [211]onderlaute ver-"
185 print "zichten muessen (wer moechte in sei-"
190 print "nem [212]agebuch schon dauernd ae ect."
195 print "stehen haben?), noch auf die unter-"
200 print "strichenen, laesst sich das '[212]agebuch'"
205 print "anpassen."
210 print:print:printspc(10)"taste"
215 poke 198,0:wait 198,1
220 print "[147][193]enderungen im [218]eichensatz :"
225 print"[207]riginal [221][195]128-[214]ers.[221][195] 64-[214]ers."
230 print"[192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][192]
235 [153]" : (NULL) oe (NULL) oe
240 print" ; [221] ae [221] ae
245 [153]" @ (NULL) ue (NULL) ue
250 print" ^ [221] -- [221] sz
255 [153]" * (NULL) + (NULL) --
260 print" shift * [221] * [221] --
265 [153]" + (NULL) sz (NULL) --
270 print" < [221] ; [221] ;
275 [153]" > (NULL) : (NULL) :
280 print" c= + a [221] < [221] <
285 [153]" c= + s (NULL) > (NULL) >
290 print" c= + z [221] [ [221] --
295 [153]" c= + x (NULL) ] (NULL) --
300 print" y [221] z [221] --
305 [153]" z (NULL) y (NULL) --
310 print:print"c= : commodore-taste"
315 print"-- : keine aenderung"
320 print:printspc(10)"taste"
325 poke 198,0:wait 198,1
330 print "[147][194]itte waehlen [211]ie jetzt..."
335 print"[194]esitzen [211]ie einen.."
340 print"1) [195]ommodore 128/128d"
345 print "2) [195]ommodore 64"
350 input " [215]aehlen [211]ie 1 oder 2";ve:ifve<>1andve<>2then330
355 print "[194]itte warten...":re=1
360 sys 57812"tagebuch",8
365 poke780,0:poke781,1:poke782,8
370 sys 65493:goto 530
375 if ve=1 then 395
380 re=2:sys 57812"texte.com",8
385 poke780,0:poke781,8:poke782,41
390 sys 65493:goto 530
395 a$="char128":if ve=2 then a$="char064":poke 9488,43
400 re=3:sys 57812(a$),8,1
405 poke 780,0
410 sys 65493:goto 530
415 lo=peek(174)+2:hi=peek(175):iflo>255thenlo=lo-256:hi=hi+1
420 print:print"[194]itte legen [211]ie die [218]ieldiskette ein."
425 print""spc(10)"taste"
430 poke 198,0:wait 198,1:re=4
435 n$="tagebuch 128":if ve=2 then n$="tagebuch 64"
440 sys 57812(n$),8,1
445 poke2,1:poke3,8:poke780,2:poke781,225:poke782,44
450 sys 65496:goto 530
455 re=5:n$="chargen":sys57812(n$),8,1
460 poke2,0:poke3,192:poke780,2:poke781,lo:poke782,hi
465 sys 65496:goto 530
470 print "[196]as [208]rogramm '[212]agebuch' wurde"
475 print "ordnungsgemaess gespeichert.
480 [153] "(NULL)iel (NULL)pass mit dem '(NULL)agebuch' wuenscht"
485 [153] ""[166]5)"ascrank (NULL)ilhofer"
490 [153] ""[166]8)"right$ch gruesse"
495 [153] ""[166]10)"(NULL)elanie mid$ansen!":[153]""
500 [153]"(NULL)ie koennen das (NULL)rogramm jetzt"
505 [139]ve[178]1[167][153]"im 64'er (NULL)oduswait"
510 [153]"mit":a$[178]"tagebuch 64":[139]ve[178]1[167]a$[178]"tagebuch 128"
515 [153]"(NULL)(NULL)atnstr$"[199](34);a$;[199](34)",8,1","laden"
520 [153]"und dann mit (NULL)(NULL)(NULL) starten."
525 [129]i[178]1[164]7:[135]a:[151]630[170]i,a:[130]:[151]198,7:[162]:[131]80,111,52,52,44,56,13
530 [159] 1,8,15:[132]1,fe,fe$,tr,se
535 [139] fe[179]20 [167] [160] 1:[137] 575
540 [153]:[153] "str$iskettenfehler :":[153]fe;fe$;tr;se
545 [139] re[179]4 [167] [153] "peekitte (NULL)uelldiskette einlegen":[137] 555
550 [153] "peekitte (NULL)ieldiskette einlegen"
555 [151] 198,0:[146] 198,1
560 [139] re[177]3 [167] [152]1,"s:"[170]n$
565 [160]1
570 [139] fe[177]20 [167] [145] re [137] 360,380,400,440,455
575 [145] re [137] 375,395,415,455,470