home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1985 August
/
64er_Magazin_85-08_1985_Markt__Technik_de.d64
/
hilfsprogramm
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
998b
|
40 lines
10 rem hilfsprogramm zum verschieben von hi-text
20 rem erst das grafikprogramm laden und evtl. vor dem ueberschreiben
30 rem durch basic schuetzen!
40 printchr$(147):print
50 print"diskette mit 'hi-text' einlegen
60 [153]
70 [153]"dann return druecken!"
80 [161]t$:[139]t$[179][177][199](13) [167] 80
90 sa[178][194](55)[170]256[172][194](56)[171]560
100 hs[178][181](sa[173]256):ls[178]sa[171]hs [172]256
110 [151]55,ls :[151]56,hs
120 [151]51,ls :[151]52,hs
130 [159] 1,8,2,"hi-text"
140 [161]#1,a$:[139]a$[178]"" [167] a$[178][199](0)
150 [161]#1,b$:[139]b$[178]"" [167] b$[178][199](0)
160 [129]i[178]0 [164]542
170 [161]#1,a$:[139]a$[178]"" [167] a$[178][199](0)
180 a[178][198](a$)
190 [151] sa[170]i,a
200 [130]
210 [160]1
300 [143] aenderung der sprungadressen
310 i [178]sa[170]515:ih[178][181](i[173]256):il[178]i[171]ih[172]256
320 e [178]sa[170] 85:eh[178][181](e[173]256):el[178]e[171]eh[172]256
330 s [178]sa[170] 76:sh[178][181](s[173]256):sl[178]s[171]sh[172]256
340 r [178]sa[170]275:rh[178][181](r[173]256):rl[178]r[171]rh[172]256
360 [151]sa[170] 77,il:[151]sa[170] 78,ih
370 [151]sa[170]120,il:[151]sa[170]121,ih
380 [151]sa[170]132,il:[151]sa[170]133,ih
390 [151]sa[170]144,il:[151]sa[170]145,ih
400 [151]sa[170]135,el:[151]sa[170]136,eh
410 [151]sa[170]322,sl:[151]sa[170]323,sh
420 [151]sa[170]434,sl:[151]sa[170]435,sh
430 [151]sa[170]513,rl:[151]sa[170]514,rh
450 [153][199](147)
460 [153]"hi-text ist jetzt im speicher!"
470 [153]
480 [153]"aufruf mit sys";sa
490 [162]