home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 58 / Tiger_Disk_058_19xx_Tiger-Crew-Disk_de_Side_B.d64 / basic-part-file (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  44 lines
  1. 10 goto40
  2. 20 poke214,c:poke211,d:sys58640:print""a$(b)"[146]":return
  3. 30 poke214,c:poke211,d:sys58640:printa$(b):return
  4. 40 dim a$(20)
  5. 50 dataa a a a a,b b b b b,c c c c c,d d d d d,e e e e e,f f f f f
  6. 60 datag g g g g,h h h h h,i i i i i,j j j j j,k k k k k,prg.-ende
  7. 70 fora=1to12:reada$(a):next
  8. 80 b$=" m e n u e [146][157][157][157][157][157][157][157][157][157][157][157][145][175][175][175][175][175][175][175][175][175][175][175]":b=1:c=8:d=6
  9. 90 print"[147]"tab(14)b$""
  10. 100 fora=1to6:printtab(6)a$(a)tab(24)a$(a+6):print:next
  11. 110 print""tab(4)" wahl mit joystick # 2 + feuer [146]"
  12. 120 printtab(8)" oder cursor + return [146]"
  13. 130 gosub20
  14. 140 getc$
  15. 150 j=peek(56320)
  16. 160 if(jand16)=0thenc$=chr$(13):rem return
  17. 170 if(jand2)=0thenc$="":rem runter
  18. 180 if(jand1)=0thenc$="[145]":rem hoch
  19. 190 if(jand8)=0thenc$="":rem rechts
  20. 200 if(jand4)=0thenc$="[157]":rem links
  21. 210 ifc$=chr$(13)then290
  22. 220 ifc$=""andc<18thengosub30:c=c+2:b=b+1:gosub20:goto140
  23. 230 ifc$=""andc=18thengosub30:c=c-10:b=b-5:gosub20:goto140
  24. 240 ifc$="[145]"andc>8thengosub30:c=c-2:b=b-1:gosub20:goto140
  25. 250 ifc$="[145]"andc=8thengosub30:c=c+10:b=b+5:gosub20:goto140
  26. 260 ifc$=""andd=6thengosub30:d=24:b=b+6:gosub20:goto140
  27. 270 ifc$="[157]"andd=24thengosub30:d=6:b=b-6:gosub20:goto140
  28. 280 goto140
  29. 290 ifb=12then430
  30. 300 ifb<10thenonbgosub320,330,340,350,360,370,380,390,400:goto90
  31. 310 ifb>9thenon(b-9)gosub410,420:goto90
  32. 320 print"[147]dies ist programm aaaaa":poke198,0:wait198,1:poke198,0:return
  33. 330 print"[147]dies ist programm bbbbb":poke198,0:wait198,1:poke198,0:return
  34. 340 print"[147]dies ist programm ccccc":poke198,0:wait198,1:poke198,0:return
  35. 350 print"[147]dies ist programm ddddd":poke198,0:wait198,1:poke198,0:return
  36. 360 print"[147]dies ist programm eeeee":poke198,0:wait198,1:poke198,0:return
  37. 370 print"[147]dies ist programm fffff":poke198,0:wait198,1:poke198,0:return
  38. 380 print"[147]dies ist programm ggggg":poke198,0:wait198,1:poke198,0:return
  39. 390 print"[147]dies ist programm hhhhh":poke198,0:wait198,1:poke198,0:return
  40. 400 print"[147]dies ist programm iiiii":poke198,0:wait198,1:poke198,0:return
  41. 410 print"[147]dies ist programm jjjjj":poke198,0:wait198,1:poke198,0:return
  42. 420 print"[147]dies ist programm kkkkk":poke198,0:wait198,1:poke198,0:return
  43. 430 print"[147]dies ist prg.-ende !":poke198,0:wait198,1:poke198,0:end
  44.