Home » Archimedes archive » Archimedes World » AW-1995-06_Disc2.adf » June95_2 » InTheMag/DrawBasic/PlayingCrd/Page_3
InTheMag/DrawBasic/PlayingCrd/Page_3
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
Tape/disk: | Home » Archimedes archive » Archimedes World » AW-1995-06_Disc2.adf » June95_2 |
Filename: | InTheMag/DrawBasic/PlayingCrd/Page_3 |
Read OK: | ✔ |
File size: | 58B4 bytes |
Load address: | 0000 |
Exec address: | 0000 |
File contents
Draw� Draw k � u � $ Trinity.Bold Corpus.Bold X �? � � l � � www���� B � � � � � � � l k � � ) www���� B p $ � $ � � p � p $ l � � u � �� B � � p � p � � � � � �S �E �< $� h� DrawBasic � �| �< $� �} DrawBasic � �| �< $� �} ��� �� �A m� �A T� �A $� �G $� tS $� �f $� �l <� �x m� �x �� �x �� �x �r �f tS �M �� �A �� �A � �� tS m� �f � @ �2 4] m� �f �� �f �2 4] m� tS �� tS �� tS ?� tS �� T� m� tS m� T� �� tS m� �f �� �f m� � �� �f �� � ?� �f �� tS �2 tS �� 4] m� tS m� 4] �2 tS m� �f �2 �f m� 4] �� �f �� 4] �2 �f �� tS �� tS �� � m� tS m� � ?� tS m� �f ?� �f m� T� �� �f �� T� �� �f �� tS m� tS �� �f m� tS m� �f �� tS m� �f �� �f m� tS �� �f �� tS m� �f � �Q > �� ]� DrawBasic � �Q > �� ]� ��� x� C c� %\ F� �\ �� mc �� 3o �� � ~� � �� C� � V� �f Qx a �w �U q �V De j� fS � �M �� �B x� C � `h �T �� � � @ / ;j L� � `h �f / ;j �� �m � �T � �T �� [ �� A� �� �m �� G� �� �g L� � �V ly �� 5� `h �f �r /� ڷ �l � �T 1 Ma :} �] �� �m &� �v 1 Ma L� � U *s &� �v `h �f :} �] U *s � �T �� �g �r /� �� �m �� 5� �� [ L� � ڷ �l �� G� `h �f �� A� �V ly � �T �� �m `h �f �� �m L� � � �T L� � `h �f �� �m `h �f � �T L� � � �& o? 5� �� DrawBasic � �& o? 5� �� ��� N� �D H� ev � Rw �� � �� ܉ �� � u� @� 3� �u Z� �: wt �4 �s * �k �+ 2` <S � gM y� �C N� �D � b= V �� ۔ � @ r nu ]x ۔ b= �b r nu �� � �� V �� V F� zb �{ ?� �� � �� # �| l{ ]x ۔ �) c� &� � b= �b ,R �� � qo �� V . �n �f |\ �� � � `� . �n ]x ۔ �� �{ � `� b= �b �f |\ �� �{ �� V �| l{ ,R �� �� � &� � F� zb ]x ۔ � qo �� # b= �b �{ ?� �) c� �� V �� � b= �b �� � ]x ۔ �� V ]x ۔ b= �b �� � b= �b �� V ]x ۔ � � �@ �� � DrawBasic � � �@ �� � ��� � �E � R� �� �� �� 3� 6� �� "Z �� �X >� @P Y� �D �� � %m � �k � Dc � �W �} �R 9M K� ~D � �E � � W �� ^� � @ �� �~ �H ^� � �[ �� �~ �� �� � W � W j� �i �o N� �� �� �� �" vw � �H ^� b� �g )% � �[ �1 �� V` �n � W �) S| �P �Y �� �� � �� �) S| �H ^� ܭ $� � �� � �[ �P �Y ܭ $� � W vw � �1 �� �� �� �g )% j� �i �H ^� V` �n �� �" � �[ �o N� b� � W �� �� � �[ �� �� �H ^� � W �H ^� � �[ �� �� � �[ � W �H ^� � H� �A � �� DrawBasic � H� �A � �� ��� �� 6G � é �� �� �� ڴ R� � ) �� @' 0� � �� � �� u� fb �� �` o� OW � L T| �R '~ �L � cE �� 6G � �� X x� � � @ �� � : � �� �Q �� � x� �� -� X -� X �� �p d o� x� �� i� �8 �p �� : � f� w� IA �5 �� �Q � -� �4 0j -� X �$ V� ; �T x� �� Zj [� �$ V� : � �� ӂ Zj [� �� �Q ; �T �� ӂ -� X �p �� � -� x� �� IA �5 �� �p : � �4 0j i� �8 �� �Q d o� f� w� -� X x� �� �� �Q x� �� : � -� X : � �� �Q x� �� �� �Q -� X : � � X� C �� �� DrawBasic � X� C �� �� ��� ,� �H �� B� �� �� �� b� �� �� �� �� 4� �� �� �� V� 6� LT �� R � H �� &= { R H} �L �� BF ,� �H � �� �X � �� � @ � m� �� �� �� �C � m� � �� c� �X c� �X � dw �X �� � �� + �M [h i� �� �� �� w� w 6C �� �C �� *� � pb c� �X � � �% hN � �� RL s� � � �� �� MS � RL s� �� �C �% hN MS � c� �X [h i� �� *� � �� w 6C � dw �� �� � pb + �M �� �C �X �� �� w� c� �X � �� �� �C � �� �� �� c� �X �� �� �� �C � �� �� �C c� �X �� �� � �� D B� }� DrawBasic � �� D B� }� ��� �� �I �� �� �� ?� ֺ �� x� c� ,� �� }� 9� ܶ � Y� �� 3� �B � =@ � �5 t� + �y �Q p| DL T� G �� �I � =� �Y �� �� � @ �� �� c� �� =� $3 �� �� �� Y� �� �Y �� �Y �� �} 9M �� �� Y� ]i �` �^ %� c� �� Ym �� �� �M =� $3 �� �� F� UW �� �Y � �� � ZF �� Y� - "� � �� c� �� P& �{ - "� =� $3 � ZF P& �{ �� �Y �^ %� �� �� �� Y� �� �M �� �} c� �� F� UW ]i �` =� $3 9M �� Ym �� �� �Y �� Y� =� $3 �� Y� c� �� �� �Y c� �� =� $3 �� Y� =� $3 �� �Y c� �� � l[ �D � h� DrawBasic � l[ �D � h� ��� � �J Ҡ �� ڥ �� ֬ � �� � � +� ݍ 3� �� /� �x � �h b. �c L+ �\ �b �x �P �{ �K � �G � �J � �q Z �� �� � @ �� � �� �q H �� � �� � �� Z �� Z �� �� :B e� �� � !R r �S � �� �= A� E� �T �q H ]� �� � �H �� Z � j� � �< �� � � R� � j� �� � �r � R� �q H � �< � �r �� Z �S � ]� �� �� � E� �T �� �� �� � �H !R r �q H :B e� �= A� �� Z �� � �q H �� � �� �� Z �� �q H �� � �q H �� Z �� � �6 �E ,� a� DrawBasic � �6 �E ,� a� ��� #� &L "� � � �� � � W �] X� )Z � oN 3� �D B� �B � > V 8 � �> � cw P �z LK \� �H #� &L � LM |Z �� �� � @ �j 4� MO �� LM z �j 4� �� � �� |Z �� |Z 7� X� �7 �� �� � �9 p� 7G � MO �� � � g� mX LM z h� �� ̍ V7 �� |Z � 5� �� {1 �� � �� �� � 5� MO �� M� 3f �� �� LM z �� {1 M� 3f �� |Z 7G � h� �� �� � g� mX 7� X� MO �� ̍ V7 �9 p� LM z �7 �� � � �� |Z �� � LM z �� � MO �� �� |Z MO �� LM z �� � LM z �� |Z MO �� � * �E �� a� DrawBasic � * �E �� a� ��� F� >M Ł \ B� 2 g� [, �� T5 �* � �& �� � � � u� W� � �� n Y� \� Kv 6O z �J Ɋ iI F� >M � �* �Z Bv �� � @ iP Y� �� �* �� iP Y� Bv �) à �Z à �Z c� ~� y- �� Bv �) � � �9 � �� q� 5� ]s �X �* �� ߀ Ӊ 1g �" à �Z � E� ,� �$ Bv �) �� �� � E� �� ң mV �� �� �* �� ,� �$ ң mV à �Z �9 � ߀ Ӊ Bv �) ]s �X c� ~� �� 1g �" � � �* �� y- �� q� 5� à �Z Bv �) �* �� Bv �) �� à �Z �� �* �� Bv �) �* �� à �Z �� � �� F �y u� DrawBasic � �� F �y u� ��� T� DN �o �/ t �3 -x y@ �o �H �� �� �� �� F� �� �� �� p� %� B� �� � r� n� � Eu DN qy J (� J T� DN � � �Z Kc � � @ �6 t� v� � � �� �6 t� Kc K< ́ �Z ́ �Z ,� +� �# �� Kc K< U B� �* � v� � � �{ jI )V � �� �g �t TB � ́ �Z �� �� �� � Kc K< a� 5� �� �� v� � �z ^C a� 5� � �� �� � �z ^C ́ �Z �* � �g �t Kc K< jI )V ,� +� v� � TB � U B� � �� �# �� � �{ ́ �Z Kc K< � �� Kc K< v� � ́ �Z v� � � �� Kc K< � �� ́ �Z v� � � Y� �E ?e �� DrawBasic � Y� �E ?e �� ��� N� 6O k\ �A @` 4F nc S sZ �Z G� ߳ � �� �� � N� � 3� f� \� � -� � (� k� St >M �x iI y� �J N� 6O � �� �Z �N f� � @ L �� Ǻ f� �� � L �� �N 7M � �Z � �Z �� W� � � �N 7M �� �� ) � Ǻ f� �� �i � P �� � �P �] p �� � �Z b� �� �� N �N 7M ܄ � b� �� Ǻ f� 8S $- ܄ � �� � �� N 8S $- � �Z ) � �P �] �N 7M � P �� W� Ǻ f� p �� �� �� �� � � � �� �i � �Z �N 7M �� � �N 7M Ǻ f� � �Z Ǻ f� �� � �N 7M �� � � �Z Ǻ f� � �� �E �O '� DrawBasic � �� �E �O '� ��� 6� P �G R !K �V KM �c �C �j �� :� � �� � ڨ �| N� �� M� � �� � � u� �� vs &L =x �H �� KK 6� P � �� |Z Q9 � � @ � �w R� � �� � � �w Q9 |\ �} |Z �} |Z �� �� a �� Q9 |\ �� �� u � R� � u\ dT � �F �� � a; �D �� a� �} |Z �� {� � �� Q9 |\ Rb �� �� {� R� � �- � Rb �� �� � � �� �- � �} |Z u � a; �D Q9 |\ � �F �� �� R� � �� a� �� �� �� � a �� u\ dT �} |Z Q9 |\ �� � Q9 |\ R� � �} |Z R� � �� � Q9 |\ �� � �} |Z R� � � y� �D �8 �� DrawBasic � y� �D �8 �� ��� � �P �1 �` �4 �e �5 �r �+ y �f ӎ �a � pT � GN �� �� y �� t m� �f � �` �r �J �w �G �� �K � �P � �� Z �" � � @ �� �l b] � �� �o �� �l �" j �{ Z �{ Z �� � � �� �" j E� r� � & b] � �3 �; �� H: �� �o ( ^* i� ų �{ Z B� � Z� �� �" j �? �� B� � b] � � �? �� �� �o Z� �� � �{ Z � & ( ^* �" j �� H: �� � b] � i� ų E� r� �� �o � �� �3 �; �{ Z �" j �� �o �" j b] � �{ Z b] � �� �o �" j �� �o �{ Z b] � � +� D ! I} DrawBasic � +� D ! I} ��� �Q � �m L �r e $� � � I9 �v 4 yy �& �y w! o �� �R � �M � n@ m� ; r �I Ew G )� CL �Q � v� �Y � g � @ �� G` @1 g v� �J �� G` � �u z �Y z �Y ?� �� � � � �u n� � �� �. @1 g � �� �* v� �J � � �� � z �Y q� �� C� 6� � �u \� q� �� @1 g �� �� \� v� �J C� 6� �� �� z �Y �� �. � � � �u �� �* ?� �� @1 g �� � n� � v� �J � � � z �Y � �u v� �J � �u @1 g z �Y @1 g v� �J � �u v� �J z �Y @1 g � �v C � Ba DrawBasic � �v C � Ba ��� �� R � �x � 2~ � ^� � � � F[ � �] U� �\ � �Q �| + �z �% u{ l _� � mq �H �v AF Q� �L �� R � %� �X =� �J � @ �� �Q 1 �J %� D$ �� �Q =� � 5x �X 5x �X �� �� r� �� =� � yw _� �� �5 1 �J �� @ � %� D$ � k� �� �m 5x �X :� 1� �� �� =� � �� 6� :� 1� 1 �J +� �� �� 6� %� D$ �� �� +� �� 5x �X �� �5 � k� =� � � �� �� 1 �J �� �m yw _� %� D$ r� �� �� @ 5x �X =� � %� D$ =� � 1 �J 5x �X 1 �J %� D$ =� � %� D$ 5x �X 1 �J � yf �A f� B DrawBasic � yf �A f� B ��� E� �R �� � �� �� �� �� p� 4� �� q< R� E> B� J< �� 1 l � ?j %� 6l � rw p� �p 5G �v bE r� �L E� �R � �| X �� �+ � @ � �A w� �+ �| I� � �A �� [� kv X kv X � � � � �� [� �Z m� R� �; w� �+ �� �� �] � �| I� M� :� �� H kv X �� �� �y -� �� [� 6� z� �� �� w� �+ 1� � 6� z� �| I� �y -� 1� � kv X R� �; M� :� �� [� �] � � � w� �+ �� H �Z m� �| I� � � �� �� kv X �� [� �| I� �� [� w� �+ kv X w� �+ �| I� �� [� �| I� kv X w� �+ � WY �@ �� � DrawBasic � WY �@ �� � ��� � �R `� � �� Ύ �� �� H� j� r� | �� � ث � � e �^ M� E] �� A` �� �k � �p �E Nv }D �� 8M � �R � �o W $� E � @ �� +0 R� E �o (� �� +0 $� 1� �t W �t W P� �� � v $� 1� �= 8� �� �? R� E �� �� �; ;� �o (� � $� |� � �t W � #� Jr !� $� 1� �� :� � #� R� E � 6n �� :� �o (� Jr !� � 6n �t W �� �? � $� $� 1� �; ;� P� �� R� E |� � �= 8� �o (� � v �� �� �t W $� 1� �o (� $� 1� R� E �t W R� E �o (� $� 1� �o (� �t W R� E � {O n? �� �� DrawBasic � {O n? �� �� ��� �� <S s� 8� _� � b� �� �� z� �� �� � �� T� �� |� �� �T � �S � �W |� Sc �� Kp �D v �C �� fM �� <S � f V � !� � @ �� �� !� f !� �� � �� s V s V � �� �� �j � �� �! ǥ y� ;B �� !� �� `� 9 R� f !� Y� Y� �r � s V � |� �l � � �� w� �� � |� �� !� �F w� �� f !� �l � �F s V y� ;B Y� Y� � �� 9 R� � �� �� !� �r � �! ǥ f !� �� �j �� `� s V � �� f !� � �� �� !� s V �� !� f !� � �� f !� s V �� !� � �H > 7� � DrawBasic � �H > 7� � ��� /� fS 3� S� �� 6� �� s� � ]� z � *t �� �g �� g ʽ �M � �M �y |R �m B^ �l !p C v �B �� �M /� fS � �_ �T �� h� � @ u � �x h� �_ w~ u � �� �� �q �T �q �T �w D� � 6_ �� �� $� G� 8C �x h� hr �l "� �� �_ w~ � t �e �� �q �T ~ �� �h �i �� �� �� �� ~ �� �x h� (l o �� �� �_ w~ �h �i (l o �q �T G� 8C � t �� �� "� �� �w D� �x h� �e �� $� �_ w~ � 6_ hr �l �q �T �� �� �_ w~ �� �� �x h� �q �T �x h� �_ w~ �� �� �_ w~ �q �T �x h� � �E �< ˆ � DrawBasic � �E �< ˆ � ��� ˁ tS Ɂ \� Ɂ D� �{ � p � �\ � �V � �J $� �J X� �J oS �J �M �P �A �\ �A p �A �u �A ˁ �M ˁ tS � �\ mS p \� � @ Qf �� �\ Z� �\ mS Qf �� p Z� p tS p tS p -� 2� sS p Z� /� \� p �B �\ Z� �\ �B p� U� �\ mS t� oS �\ &� p tS p �� Rf qS p Z� Qf Y� p �� �\ Z� �\ �� Qf Y� �\ mS Rf qS �\ �� p tS p �B t� oS p Z� p� U� p -� �\ Z� �\ &� /� \� �\ mS 2� sS �\ �B p tS p Z� �\ mS p Z� �\ Z� p tS �\ Z� �\ mS p Z� �\ mS p tS �\ Z� H @� �n X � ��� � � � r 2. A Pack of Cards � �� @N �- �H X @ � �� �H ��� 2 2 ( DEF >PackOfCards(x,y,width,height) H � @� �� � ��� 2 2 � LOCAL pack,card,i D � �] �� ��� 2 2 � �Group(pack) \ �� �o �- �� ��� 2 2 z card=>PlayingCard(x,y,width,height) D �� �> �� �` ��� 2 2 @ FOR i=1 TO 20 T �� � �y �& ��� 2 2 card=>Rotate(card,x,y,PI/40) <