home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 31 / Tiger_Disk_031_1996-10_Tiger-Crew-Disk_de_Side_B.d64 / eingabe-routine (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  46 lines
  1. 10 dimx$(100),x(100):poke53280,6
  2. 20 fort=1to100:x$(t)="/":x(t)=0:next
  3. 1000 e1=0:print"[147]    [158]menue":print"[153] 1 -> eingeben":print"[153] 2 -> ausgeben"
  4. 1010 geta$:ifa$<>"1"anda$<>"2"then1010
  5. 1020 ifa$="2"then1350
  6. 1030 print"[147]f1 - seite weiter":print"f3 - seite zurueck":print"f8 - ende"
  7. 1040 print"wahl mit cursor hoch / runter + return"
  8. 1050 print"return bei '/'    :    begriff eingeben"
  9. 1060 print"                     + punkte  eingeben"
  10. 1070 print"return bei begriff:    punkte  eingeben"
  11. 1080 poke198,0:wait198,1:poke198,0:print"[147]":f=1
  12. 1090 fort=fto100:printx$(t),t
  13. 1100 ift/23=int(t/23)thenz=t-22:gosub1150:print"[147]"
  14. 1110 next:ift=>100ande1=0thenz=t-8:gosub1150
  15. 1120 ife1=1then1000
  16. 1130 iff>1thenprint"[147]":goto1090
  17. 1140 goto1000
  18. 1150 a=1:d=0
  19. 1160 poke214,a:poke211,0:sys58640:print""x$(z)"[146]  "
  20. 1170 ifd>0thenpoke214,d:poke211,0:sys58640:printx$(c)"  "
  21. 1180 geta$:ifa$=""then1180
  22. 1190 ifa$=""anda<23thenc=z:d=a:a=a+1:z=z+1:goto1160
  23. 1200 ifa$=""anda=>23thenc=z:d=a:a=1:z=z-22:goto1160
  24. 1210 ifa$="[145]"anda>1thenc=z:z=z-1:d=a:a=a-1:goto1160
  25. 1220 ifa$="[145]"anda=<1thenc=z:d=a:a=a+22:z=z+22:goto1160
  26. 1230 ifa$=chr$(13)andx$(z)<>"/"thenp$="":goto1320
  27. 1240 ifa$=chr$(13)andx$(z)="/"andx$(z-1)="/"then1180
  28. 1250 ifa$=chr$(13)andx$(z)="/"thengosub1390:inputx$(z):p$="":goto1320
  29. 1260 ifa$=chr$(133)then1310
  30. 1270 ifa$=chr$(134)andt=>46andt<101thent=t-46:goto1310
  31. 1280 ifa$=chr$(134)andt=>100thenf=70:goto1310
  32. 1290 ifa$=chr$(140)thent=100:e1=1:goto1310
  33. 1300 goto1160
  34. 1310 return
  35. 1320 gosub1390:printtab(25);:input"punkte";p$
  36. 1330 p=val(p$):x(z)=x(z)+p
  37. 1340 gosub1390:printtab(25)"              ":goto1160
  38. 1350 print"[147]":fort=1to100:printx$(t),x(t)
  39. 1360 ift/23=int(t/23)thengosub1400
  40. 1370 next:ifa$=" "thenpoke198,0:wait198,1:poke198,0
  41. 1380 goto1000
  42. 1390 poke214,a:poke211,0:sys58640:return
  43. 1400 geta$:ifa$<>" "anda$<>chr$(140)then1400
  44. 1410 ifa$=chr$(140)thent=100
  45. 1420 print"[147]":return
  46.