home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Light
/
Light_Vol.1_June_1992_Datasphere_Publications_Disk_1_of_2_Side_B.d64
/
banks
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
34 lines
10 poke53280,5:poke53281,11:print"[147]","[157][157][205]emory [211]election [208]rogram
11 [153]" (NULL)ritten by mid$ason ascinch (len) lenstr$(NULL)close1990
12 print"[155] [213]se '$' prefix for hexadecimal numbers
13 [153]"sys valnter start location of",," screen memory",,," :open1024cmdcmdcmdcmd";
14 [159]1,0:[132]1,a$:[160]1:[153]:sm[178][197](a$):[139][200](a$,1)[179][177]"$"[167]17
15 a$[178][202](a$,2):[139]a$[178]""[167]10
16 [129]h[178]1[164][195](a$):v[178][198]([202](a$,h,1))[171]48:v[178]v[170]128[172](v[177]144):sm[178]sm[172]16[170]v[170](v[177]9)[172]7:[130]
17 [139]sm[177]64512[176](sm[179]3072[175]sm[179][177]1024)[167]10
18 [139]sm[173]1024[178][181](sm[173]1024)[167]20
19 [153]" def** (NULL)alue must be divisible by 1024 **":[129]t[178]1[164]1500:[130]:[137]10
20 [153]"sys valnter start location of character"," information (or bitmap data)
21 print" :[159]";:a$=" ":ifsm<16384thena$="4096 "
22 ifsm<49152andsm>32767thena$="36864"
23 printa$"[157][157][157][157][157]";:open1,0:input#1,a$:close1:print:cm=val(a$):ifleft$(a$,1)<>"$"then26
24 a$=mid$(a$,2):ifa$=""then10
25 forh=1tolen(a$):v=asc(mid$(a$,h,1))-48:v=v+128*(v>144):cm=cm*16+v+(v>9)*7:next
26 bc=int(cm/16384):bs=int(sm/16384):ifbc=bsthen28
27 print" [150]** [205]ust be in same bank **":fort=1to1500:next:goto10
28 ifcm/2048=int(cm/2048)then30
29 print" [150]** [214]alue must be divisible by 2048 **":fort=1to1500:next:goto10
30 print"[147]","[157][157][205]emory [211]election [208]rogram
31 [153]" (NULL)ritten by mid$ason ascinch (len) lenstr$(NULL)close1990
32 b$=mid$("[218]ero [207]ne [212]wo [212]hree",bs*5+1,5):r$="([213][196][199]s)
33 [139]cm[178]4096[176]cm[178]6144[176]cm[178]36864[176]cm[178]38912[167]r$[178]"((NULL)(NULL)(NULL) image)
34 vr=(sm-bs*16384)/64+(cm-bc*16384)/1024:pg=sm/256:pt=1016+sm
35 dd$="[208][197][197][203](56576)[193][206][196]252":ifbs<3thendd$="("+dd$+")[207][210]"+mid$(str$(3-bs),2)
36 print"[158] [211]elected [194]ank: [159]"b$,," [158][211]creen [205]emory: [159]"sm
37 print" [158][195]haracter [201]nfo: [159]"cm;r$:print"[155] [208][207][203][197] 56578, [208][197][197][203](56578)[207][210]3"
38 print" [208][207][203][197] 56576, "dd$:print" [208][207][203][197] 53272,"vr,,," [208][207][203][197] 648,"pg
39 print"[158] [211]prite [208]ointers:[159]"pt"[157]-"mid$(str$(pt+7),2):poke56295,10:c=62:a=0
40 poke2023,c:a=a+1:ifa=6thena=0:c=252-c
41 geta$:ifa$=""then40
42 run