home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CS / DISK3.D81 / b.wraptor (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.2 KB  |  31 lines
  1. 63000 DV=PEEK(186):IFDV<8THENDV=8
  2. 63010 DELAY=116:POKE53280,0:POKE53281,0
  3. 63020 PRINT"[147]";
  4. 63030 FORI=8TO23:PRINT"[169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]";:NEXT
  5. 63040 PRINT"":FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
  6. 63050 POKE214,9:PRINT"[145]"TAB(2)"[153][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  7. 63060 FORI=1TO11:PRINTTAB(2)"[159]                                    [155][146][223]":NEXT
  8. 63070 PRINTTAB(2)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146][155][223]"
  9. 63080 PRINT"[155][169][169][169][169][169][169][169][151][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223]"
  10. 63090 POKE214,10:PRINT"[145][159]";
  11. 63100 FORI=1TO11:READA$
  12. 63110 PRINTSPC(20-LEN(A$)/2)""A$:A$="":NEXT
  13. 63120 DELAY=DELAY+1:J=PEEK(56320)AND16:GETA$:IF(A$="")ANDJ<>0ANDDEL<116THEN63120
  14. 63130 A$="WRAPTOR.O"
  15. 63140 DATA"[215] [210] [193] [208] [212] [207] [210] !","BY [194]ILL [204]UCIER"
  16. 63150 DATA"  ([195])1995 BY [202]&[198] [208]UBLISHING, [201]NC."
  17. 63160 DATA"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]
  18. 63170 [131]"   (null)HIS IS THE COPYRIGHTED WORK OF
  19. 63180 DATA"[202]&[198] [208]UBLISHING, [201]NC, [206][207][212] INTENDED
  20. 63190 [131]"FOR DISTRIBUTION AS PUBLIC DOMAIN ","OR SHAREWARE.  ASCOR INFORMATION ON
  21. 63200 DATA"[204][207][193][196][211][212][193][210] AND [204][207][193][196][211][212][193][210] PRODUCTS,   "
  22. 63210 DATA"CALL [211][207][198][212][196][201][211][203] [195]USTOMER SERVICE AT"
  23. 63220 DATA"1-800-594-3370 OR 1-318-221-8718
  24. 63230 [129]I[178]DV[164]DV:[160]2:[159]2,I,2:[160]2:[139]ST[167]63250
  25. 63240 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]63260
  26. 63250 [130]:[153]""A$" NOT FOUND!":[151]186,8:[128]
  27. 63260 Q$[178][199](34):[151]646,[194](53281):[153]"";
  28. 63270 [153]"P(null)2048,0:P(null)44,8:P(null)43,1:P(null)56,160:P(null)55,0:CLR:L(null)"Q$A$Q$","I
  29. 63280 [153]"R(null):";:[151]631,13:[151]632,145:[151]633,145:[151]634,145
  30. 63290 [151]635,145:[151]636,13:[151]198,6
  31.