home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CS / CSCD039A.d64 / none shall pass (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  991 b   |  22 lines
  1. 0 DEFFNR(R)=RND(.)*R+1:GOTO10
  2. 1 IFLEN(Z$)<=WTHENPRINTZ$;:RETURN
  3. 2 FORI=WTO.STEP-1:IFMID$(Z$,I,1)<>" "THENNEXT
  4. 3 PRINTLEFT$(Z$,I):Z$=MID$(Z$,I+1):GOTO1
  5. 10 PRINT"[147][157]";:W=POS(.)
  6. 11 PRINT" NONE SHALL PASS! ":PRINT" [206][205][206][205]  [167]":PRINT"[206][205][206][205][206][205] [186]":PRINT"[205] [205][206] [206]":PRINT" [205]  [206]":PRINT"  [205][206]
  7. 12 [134]A$(99):[129]I[178]1[164]19:[135]A$(I):[130]:[129]I[178]20[164]90[169]10:[135]A$(I):[129]J[178]1[164]9:A$(I[170]J)[178]A$(I)[170]A$(J):[130]:[130]
  8. 20 Z$[178]"NONE SHALL PASS UNLESS HE ANSWERS ME RIGHT. TELL ME YOUR AGE":[141]1
  9. 21 [133]A%:[139]A%[179]2[176]A%[177]130[167]90
  10. 22 M[178]10:N[178]M:[139]A%[177]11[167]M[178]20:N[178]12:[139]A%[177]15[167]M[178]99
  11. 23 Y$[178]"WHAT IS ":[139]A%[179]8[167]30
  12. 25 F1%[178][165]R(M):F2%[178][165]R(N)
  13. 26 Z$[178]Y$[170]A$(F1%)[170]" TIMES "[170]A$(F2%):[141]1:[133]P:[139]P[179][177]F1%[172]F2%[167]90
  14. 30 T1%[178][165]R(M):T2%[178][165]R(T1%):[139]T2%[178]0[167]30
  15. 31 Z$[178]Y$[170]A$(T2%)[170]" FROM "[170]A$(T1%):[141]1:[133]S:[139]S[179][177]T1%[171]T2%[167]90
  16. 35 A1%[178][165]R(M):A2%[178][165]R(M):[139]A1%[170]A2%[178]0[167]35
  17. 36 Z$[178]"TELL ME THE SUM OF "[170]A$(A1%)[170]" AND "[170]A$(A2%):[141]1:[133]A:[139]A[179][177]A1%[170]A2%[167]90
  18. 80 Z$[178]"YOU MAY PASS!":[141]1:[128]
  19. 90 Z$[178]"THAT'S NOT CORRECT!":[141]1:[128]
  20. 100 [131]ONE,TWO,THREE,FOUR,FIVE,SIX,SEVEN,EIGHT,NINE,TEN,ELEVEN,TWELVE,THIRTEEN,FOURTEEN,FIFTEEN,SIXTEEN,SEVENTEEN,EIGHTEEN,NINETEEN
  21. 101 [131]TWENTY,THIRTY,FOURTY,FIFTY,SIXTY,SEVENTY,EIGHTY,NINETY
  22.