home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V3D09.D64 / .ask.42000 < prev    next >
Encoding:
Text File  |  2019-04-13  |  389 b   |  21 lines
  1.  
  2.  
  3. 42000 REM" ┴SK (Y,N) RETURN X=0 (ABORT), X=1 (Y), X=2 (N)       (├) ┴.═ILLETT.
  4. 42020 B$="YN"
  5. 42099 :
  6. 42100 REM" ┴SK (B$) - GEN PURPOSE, RETURN X=0 (ABORT), X=1,2,3..
  7. 42120 PRINT" ("B$") ?  Æ¥";
  8. 42140 B$=""+B$
  9. 42160 : GET A$
  10. 42180 : FOR X=1 TO LEN(B$)
  11. 42200 :    IF A$=MID$(B$,X,1) THEN 42260
  12. 42220 : NEXT X
  13. 42240 GOTO 42160
  14. 42260 PRINT A$;" "
  15. 42280 X=X-1
  16. 42300 RETURN
  17. 42499 :
  18.  
  19. READY.
  20.  
  21.