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