home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 73 / 64er_Magazin_Sonderheft_73_19xx_Markt__Technik_de_Side_B.d64 / omni.abschluss (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  711b  |  13 lines
  1. 0 dim na$(4),su%(1,4):poke53272,48:poke56576,0:poke648,204:print"[147]"
  2. 1 poke53280,0:poke53281,0:open3,8,4,"omni.end,s,r":input#3,ms:fora=1toms
  3. 2 input#3,na$(a),su%(0,a),su%(1,a):nexta:input#3,sp:close3
  4. 3 print"   that's [158][169]     [146][169] [169][146][169]   [169][146][169] [169]    [146][169]
  5. 4 [153][163]12)"stepwaitstep   stepwaitstep   stepwaitstep stepwaitstep":[153][163]11)"stepwaitstep   step     waitstep step   waitstep"
  6. 5 [153][163]10)"stepwaitstep   stepwaitstep   stepwaitstep stepwaitstep":[153][163]9)"stepwaitstep   stepwaitstep   stepwaitstep step    waitstep   end..."
  7. 6 [153]"clr     name:            stufen:":[129]a[178]1[164]39:[153]"=";:[130]a:[153]
  8. 7 [153]"der gewinner ist:"[199](141)"   "na$(sp)[163]22)""su%(0,sp)"/sys"su%(1,sp)
  9. 8 [153]"clrdie ^brigen spieler waren:":[129]a[178]1[164]ms:[139]a[178]sp[167][130]a:[137]10
  10. 9 [153]"   "na$(a)[163]22)""su%(0,a)"/sys"su%(1,a):[130]a
  11. 10 [153]"cont (w) 1990  by christian  franzke (fsh) wait"
  12. 11 [151]198,0:[146]198,1:[153]"load tsch^ss..."
  13.