home *** CD-ROM | disk | FTP | other *** search
/ Chaos 3 / Chaos_3_1997-06_-_de_Side_B.d64 / job.wert (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  490b  |  15 lines
  1. 5 dima(20),a$(20)
  2. 10 print"[147]":poke53281,0:poke53280,0:
  3. 20 open1,8,2,"job.s":input#1,ge,n$:close1
  4. 30 open1,8,2,"job.hi":fort=1to10:input#1,a$(t),a$(t):next:close1
  5. 40 fort=1to10
  6. 50 ifge=>a(t) andm=0 thenforn=10totstep-1:a$(n+1)=a$(n):a(n+1)=a(n):next:
  7. 51 ifge=>a(t)andm=0 thena$(t)=n$:a(t)=ge:m=1
  8. 55 next:print"            [158]hiscore-list"
  9. 60 :print"      name"tab(27)"bargeld"
  10. 70 fort=1to10:print"     "a$(t)tab(25)a(t)"dm" :next
  11. 80 open1,8,15:print#1,"s:job.hi":close1
  12. 90 open1,8,2,"job.hi,p,w":fort=1to10:print#1,a(t):print#1,a$(t):next:close1
  13. 100 geta$:ifa$<>" "then100
  14. 110 load"job for news",8,1
  15.