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