home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 3 #9 / Commodore_Disk_User_Vol.3_9_1990_-.d64 / .ask.42000 < prev    next >
Text File  |  2022-10-26  |  389b  |  21 lines
  1.  
  2.  
  3. 42000 rem" Ask (y,n) return x=0 (abort), x=1 (y), x=2 (n)       (C) A.Millett.
  4. 42020 b$="yn"
  5. 42099 :
  6. 42100 rem" Ask (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.