home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / sh6x / sh65b.d64 / cross.demo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  318b  |  20 lines
  1. 5 REM X=2
  2. 10 DIMA$(100),B(20),C%(20)
  3. 20 FORI=1TO20:B(I)=I:NEXT
  4. 30 FORJ=1TO20
  5. 40 PRINT" WERT NR."J;:INPUTA$(J)
  6. 50 IF A$(J)="X" THEN J=20
  7. 60 NEXT J
  8. 70 INPUT"PRG.NAME = "; NA$
  9. 80 OPEN2,8,2,NA$+",P,W"
  10. 90 FORX=1TOJ
  11. 100 PRINT#2,A$(J)
  12. 110 NEXT
  13. 120 CLOSE2
  14. 130 INPUT"AUSWAHL =";AW$:AW=VAL(AW$)
  15. 140 ON AW GOSUB 1000,2000,3000
  16. 150 END
  17. 1000 PRINTAW:X=1:RETURN
  18. 2000 PRINTAW:X=2:RETURN
  19. 3000 PRINTAW:X=3:RETURN
  20.