home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 15 / Tiger_Disk_015_19xx_Tiger-Crew-Disk_de_Side_A.d64 / M umdrehen N (.txt) next >
Encoding:
Commodore BASIC  |  1990-01-01  |  767 b   |  18 lines
  1. 1 rem ^-    >gemacht von  * lukian *
  2. 10 poke53280,.:poke53281,.:printchr$(147):poke36879,59:
  3. 12 dim a%(5,5):forn=0to4:reada%:forz=0to5:a%(n,z)=a%:nextz,n:data28,5,31,158,30
  4. 14 goto32
  5. 16 print"du kannst die diskette jetzt umdrehen!!":ti$="000002":wait161,1
  6. 18 forn=5to1step-1:printspc(1)"[144]";spc(10);"[145]":a$=mid$(str$(n),2):next
  7. 20 forn=0to2:forz=1to1:print:forq=0to4
  8. 22 printchr$(a%(n,q));"[147]he! schlaf nicht ein!":form=1to50step-10
  9. 24 print" ":nextm
  10. 26 print"wie lange willst du noch warten?[145][145][145][145][145][145][145][145][145][145][145][145]":nextq,z,n:return
  11. 28 forn=5to1step-1:a%(x,n)=a%(x,n-1):next:a%(x,0)=a%(x,5):return
  12. 30 forn=5to1step-1:a%(n,x)=a%(n-1,x):next:a%(0,x)=a%(5,x):return
  13. 32 gosub16:fory=0to2:x=int(9*rnd(1)):on1+4*rnd(1)gosub28,30:gosub20:nexty
  14. 34 geta$:ifa$="1"thensys65234:x=val(a$):ifa$="2"thenx= 5:ifx=0goto36
  15. 36 ifx>5thenx=x-6:gosub30:goto38:x=5-x:gosub28:
  16. 38 gosub20:print"[147]    du machst es nicht?      na,gut!   ":
  17. 40 ti$="000003":wait161,1:poke 1,54
  18.