home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 September / 64er_Magazin_88-09_1988_Markt__Technik_de_Side_A.d64 / tronload (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  715b  |  19 lines
  1. 100 ifa=0thenpoke56,32:clr:a=1:load"ultimate tron",8,1
  2. 110 gosub270:print"[147] ultimate [212][210][207][206]   by [207]liver [211]tiller 1988"
  3. 120 data links,oben,rechts,unten
  4. 130 print"[211]teuerung: (1)  <q> und <stop>"
  5. 140 printspc(11)"(2)  <=>[160]und <^>"
  6. 150 printspc(11)"(3)  joy.port 1"
  7. 160 printspc(11)"(4)  joy.port 2"
  8. 170 fort=0to3:reada$:print"spieler nr.";t+1;" startposition ";a$
  9. 180 input"name <return>=ext.nicht ";n$(t):ifn$(t)=""thens(t)=0:goto200
  10. 190 input"steuerung (1-4)";s(t):p=p+1
  11. 200 next
  12. 210 print:ifp>2thenprint"nun vereinbaren, wer zusammenspielt  und"
  13. 220 print"bereitmachen und [212]aste druecken"
  14. 230 wait198,1
  15. 240 sys49152,s(0),s(1),s(2),s(3):gosub270:print"[147][211]ieger ist: "n$(peek(2))
  16. 250 input"noch ein [211]piel (j/n)   j[157][157][157]";j$:ifj$="j"then210
  17. 260 print"see you again in ultimate [212][210][207][206] [201][201]":end
  18. 270 poke53281,0:poke53280,5:poke788,52:return
  19.