home *** CD-ROM | disk | FTP | other *** search
/ Publication 3 / Publication_03_1996_High-Tech_de_Side_A.d64 / game-manager_001 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  23 lines
  1. 0 poke775,.:print"[144][147]":poke53280,.:poke53281,.:ifa=0thena=1:load"game-manager/003",8,1
  2. 1 ifa=1thena=2:load"game-manager/002",8,1
  3. 2 ifa=2thena=3:poke56578,peek(56578)or3:poke56576,148:poke648,204:poke53272,57
  4. 3 print"[147]":open2,8,2,"game-manager/005,s,r":input#2,na$,nb$,nc$,nd$,ne$,nf$,ng$,nh$,ni$,nj$,na,nb,nc,nd,ne,nf,ng,nh,ni:input#2,nj:close2:sys49152:goto8
  5. 4 print"           []]^[]]/[206][209][210][207][206]]]^":ifc=1thenprint"[145]";
  6. 5 print"           _[219]_<>?_[211][208][211]?_[219]
  7.            !"chr$(34)"$#![192][193][194]![215][215][215][194]![174][216]":ifc=1thenprint"[145]";
  8. 6 print"           %&.'%[195][196][197]%[213][212][214][197]%&.[176]
  9.            ()),[198][199][200][201][198][199][200][201][198]))[217]":ifc=1thenprint"[145]";
  10. 7 print"             [205]*[203][204][205]*[203][204]
  11.               +[202]manager+[202]":return
  12. 8 print"[154]          baertram der arabaer
  13. [159]          proudly presents his
  14.       written in 1993 by baertram
  15. [153]             of the dreams
  16. 9 [129]b[178]1[164]15:[151]646,b:[141]4:[161]a$:[139]a$[178]""[167][130]:[137]9
  17. 10 [139]a$[178]" "[167]13
  18. 11 [139]a$[178]"input"[167]15
  19. 12 [130]:[137]9
  20. 13 [158]50706:[153]"load":[141]4:b[178]b[170]1:[139]b[178]16[167]b[178]1
  21. 14 [151]646,b:[153]"               loading...":[151]828,.:[153]"
  22. stopload"[199](34)"game-manager/006"[199](34)",8,1
  23. run":[151]631,13:[151]632,13:[151]198,2:[153]"";:[128]
  24. 15 [153]"":[129]b[178]1[164]6:[153]"                                        ";:[130]b:[153]"":[129]b[178]1[164]11:[153]"                                        ";:[130]b:[153]"sys      die top ten vom game-manager
  25. ";:[129]b[178]1[164]15:[151]646,b:[153]"frefre";:[130]b:[153]"
  26. 16 print"       "na$:print"[145][154]       "nb$:print"[159]       "nc$:print"[145][156]       "nd$:print"       "ne$:print"[145][150]       "nf$:print"       "ng$:print"[145][153]       "nh$:print"[158]       "ni$:print"[145]       "nj$:print"[145][145][145][145][145][145][145][145][145][145]"na:print"[145][154]"nb
  27. 17 print"[159]"nc:print"[145][156]"nd:print""ne:print"[145][150]"nf:print""ng:print"[145][153]"nh:print"[158]"ni
  28. 18 print"[145]"nj
  29. 19 geta$:ifa$=""then19
  30. 20 ifa$=" "thenc=.:goto13
  31. 21 goto19
  32.