home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / games / dis595.d64 / kassetteninhalt (.txt) < prev    next >
Commodore BASIC  |  1995-07-31  |  940b  |  40 lines
  1. 10 REM *** (C)'84 BY A. KNIPSCHILD ***
  2. 15 :
  3. 20 PRINT"[147]AUSGABE AUF D[146]RUCKER"
  4. 30 PRINT"ODER B[146]ILDSCHIRM ?"
  5. 40 POKE198,0:WAIT198,1:GETA$
  6. 50 IFA$="D"THENDV=4:GOTO80
  7. 60 IFA$="B"THENDV=0:GOTO80
  8. 70 GOTO16
  9. 80 C=56328:POKEC+7,PEEK(C+7)AND127
  10. 90 POKEC+6,PEEK(C+6)OR128:POKEC+3,0
  11. 100 TM=1856:ZM=416:T1=900:Z1=242
  12. 110 A=(TM-((T1*ZM)/Z1))/(ZM^2-(Z1*ZM))
  13. 120 B=(T1/Z1)-(Z1*A)
  14. 130 PRINT"[147]CASSETTENINHALT:[154]"
  15. 140 PRINT"PRESS PLAY[146] ON TAPE"
  16. 150 WAIT1,48,48:PRINT"[147]"
  17. 160 IFDV=4THENOPEN1,4:CMD1
  18. 170 POKEC+2,M:POKEC+1,S:POKEC,0
  19. 180 OPEN2,1,0:CLOSE2
  20. 190 M=PEEK(C+2):S=PEEK(C+1)
  21. 200 T=(INT(M/16)*10+M-INT(M/16)*16)*60
  22. 210 T=T+INT(S/16)*10+S-INT(S/16)*16-18
  23. 220 Z=INT((-B+SQR(B^2+4*A*T))/(2*A))
  24. 230 Z=Z-INT(Z/110):IFZ<0THENZ=0
  25. 240 Z$=RIGHT$("000"+MID$(STR$(Z),2),3)
  26. 250 A$="":FORI=0TO15
  27. 260 A$=A$+CHR$(PEEK(I+833)):NEXT
  28. 270 A$=A$+"[146][154]"
  29. 280 BY=PEEK(831)+256*PEEK(832)
  30. 290 BY=BY-PEEK(829)-256*PEEK(830)
  31. 300 PG$="???"
  32. 310 IFPEEK(828)=1THENPG$="PGM":GOTO340
  33. 320 IFPEEK(828)=4THENPG$="FILE":GOTO340
  34. 330 IFPEEK(828)=3THENPG$="MPGM"
  35. 340 PRINTZ$TAB(4)A$;
  36. 350 IFPG$<>"FILE"THENPRINTTAB(22)BY;
  37. 360 IFPG$<>"FILE"THENPRINTTAB(28)"BYTES";
  38. 370 PRINTTAB(35)PG$
  39. 380 GOTO170
  40.