Gaming and Fun

Dear Libstock Programmes who wants to progrm a pic like an Apple 1?

I have programmed an Apple //e like a way similar to an Apple 1 Computer in Applesoft Basic with some programs and games some made by me and a porting of rock paper scissors for Apple 1. My question is there is anyone here interested in porting in microBASIC for PIC this code?
This is the Apple //e Applesoft program:

10 FLASH
20 PRINT "@; @; @; @; @; @; @; @; @; @; @; @; @; "
30 PRINT "@; @; @; @; @; @; @; @; @; @; @; @; @; "
40 PRINT "@; @; @; @; @; @; @; @; @; @; @; @; @; "
50 PRINT "@; @; @; @; @; @; @; @; @; @; @; @; @; "
60 PRINT "@; @; @; @; @; @; @; @; @; @; @; @; @; "
70 PRINT "@; @; @; @; @; @; @; @; @; @; @; @; @; "
80 PRINT "@; @; @; @; @; @; @; @; @; @; @; @; @; "
90 PRINT "@; @; @; @; @; @; @; @; @; @; @; @; @; "
100 PRINT "@; @; @; @; @; @; @; @; @; @; @; @; @; "
110 PRINT "@; @; @; @; @; @; @; @; @; @; @; @; @; "
120 PRINT "@; @; @; @; @; @; @; @; @; @; @; @; @; "
130 PRINT "@; @; @; @; @; @; @; @; @; @; @; @; @; "
140 PRINT "@; @; @; @; @; @; @; @; @; @; @; @; @; "
150 PRINT "@; @; @; @; @; @; @; @; @; @; @; @; @; "
160 PRINT "@; @; @; @; @; @; @; @; @; @; @; @; @; "
170 PRINT "@; @; @; @; @; @; @; @; @; @; @; @; @; "
180 PRINT "@; @; @; @; @; @; @; @; @; @; @; @; @; "
190 PRINT "@; @; @; @; @; @; @; @; @; @; @; @; @; "
200 PRINT "@; @; @; @; @; @; @; @; @; @; @; @; @; "
210 PRINT "@; @; @; @; @; @; @; @; @; @; @; @; @; "
220 PRINT "@; @; @; @; @; @; @; @; @; @; @; @;"
221 INPUT A$
230 IF A$ = "R" THEN GOTO 235
232 IF A$ < > "R" THEN GOTO 221
235 NORMAL
240 PRINT "@ . . . . . . . . . . . . . . . . . . ."
250 PRINT ". . . . . . . . . . . . . . . . . . . ."
260 PRINT ". . . . . . . . . . . . . . . . . . . ."
270 PRINT ". . . . . . . . . . . . . . . . . . . ."
280 PRINT ". . . . . . . . . . . . . . . . . . . ."
290 PRINT ". . . . . . . . . . . . . . . . . . . ."
300 PRINT ". . . . . . . . . . . . . . . . . . . ."
310 PRINT ". . . . . . . . . . . . . . . . . . . ."
320 PRINT ". . . . . . . . . . . . . . . . . . . ."
330 PRINT ". . . . . . . . . . . . . . . . . . . ."
340 PRINT ". . . . . . . . . . . . . . . . . . . ."
350 PRINT ". . . . . . . . . . . . . . . . . . . ."
360 PRINT ". . . . . . . . . . . . . . . . . . . ."
370 PRINT ". . . . . . . . . . . . . . . . . . . ."
380 PRINT ". . . . . . . . . . . . . . . . . . . ."
390 PRINT ". . . . . . . . . . . . . . . . . . . ."
400 PRINT ". . . . . . . . . . . . . . . . . . . ."
410 PRINT ". . . . . . . . . . . . . . . . . . . ."
420 PRINT ". . . . . . . . . . . . . . . . . . . ."
430 PRINT ". . . . . . . . . . . . . . . . . . . ."
440 PRINT ". . . . . . . . . . . . . . . . . . . ."
450 PRINT ". . . . . . . . . . . . . . . . . ."
452 INPUT B$
460 IF B$ ="*" THEN GOTO 463
462 IF B$ < > "*" THEN GOTO 452
463 HOME
470 PRINT "\"
480 PRINT "@"
482 INPUT C$
490 IF C$ = "0 A9 0 AA 20 EF FF E8 8A 4C 2 0" THEN GOTO 2090
492 IF C$ = "0 300 R" THEN GOTO 482
493 IF C$ = "0 900 R" THEN GOTO 1020
494 IF C$ = "0 500 R" THEN GOTO 530
495 IF C$ = "0 700 R" THEN GOTO 910
496 IF C$ < > "0 A9 0 AA 20 EF FF E8 8A 4C 2 0" THEN GOTO 482
497 IF C$ < > "0 900 R" THEN GOTO 482
498 IF C$ < > "0 300 R" THEN GOTO 482
500 IF C$ < > "0 500 R" THEN GOTO 482
510 IF C$ < > "0 700 R" THEN GOTO 482
530 PRINT "APPLE II TRADITIONAL CALCULATOR BY MATTEO TREVISAN"
540 PRINT " "
550 PRINT " "
560 PRINT "NUMBER ONE": INPUT A
570 PRINT " "
580 PRINT " +"
590 PRINT " -"
600 PRINT " *"
610 PRINT " /"
620 INPUT A$
630 IF A$ = "+" THEN GOTO 670
640 IF A$ = "-" THEN GOTO 730
650 IF A$ = "*" THEN GOTO 790
660 IF A$ = "/" THEN GOTO 850
670 PRINT " +": INPUT B
680 C = A+B
690 PRINT " ="; C
700 FOR K = 1 TO 5000
710 NEXT K
720 GOTO 482
730 PRINT " -": INPUT E
740 F = A-E
750 PRINT " ="; F
760 FOR K = 1 TO 5000
770 NEXT K
780 GOTO 482
790 PRINT " *": INPUT G
800 H = A*G
810 PRINT " ="; H
820 FOR K = 1 TO 5000
830 NEXT K
840 GOTO 482
850 PRINT " /": INPUT I
860 L = A/I
870 PRINT " ="; L
880 FOR K = 1 TO 5000
890 NEXT K
900 GOTO 482
910 INPUT "SHALL WE PLAY A GAME: ";F$
920 IF F$ = "YES" THEN 950
930 PRINT "OK BYE BYE"
940 END
950 INPUT "YOUR NUMBER: ";A
960 B = INT (99 * RND (1) + 1)
970 HTAB 15: PRINT "YOUR NUMBER IS:"; A
980 HTAB 11: PRINT "COMPUTER NUMBER IS:";B
990 IF A = B THEN PRINT "YOU WIN!!!!!"
1000 IF A < > B THEN PRINT "YOU LOSE"
1010 GOTO 482
1020 PRINT "WELCOME TO ROCK PAPER SCISSORS"
1030 DIM V$(10)
1040 PRINT "ROCK OR PAPER OR SCISSORS": INPUT V$
1050 IF V$ = "ROCK" THEN 1080
1060 IF V$ = "PAPER" THEN 1150
1070 IF V$ = "SCISSORS" THEN 2020
1080 A= INT (2 * RND (1) + 1)
1090 IF A = 0 THEN 1110
1100 IF A = 1 THEN 1130
1110 PRINT "PAPER YOU LOSE"
1120 GOTO 1040
1130 PRINT "SCISSORS YOU WIN"
1140 GOTO 1040
1150 A= INT (2 * RND (1) + 1)
1160 IF A = 0 THEN 1180
1170 IF A = 1 THEN 2000
1180 PRINT "SCISSORS YOU LOSE"
1190 GOTO 1040
2000 PRINT "ROCK YOU WIN"
2010 GOTO 1040
2020 A = INT (2 * RND (1) + 1)
2030 IF A = 0 THEN 2050
2040 IF A = 1 THEN 2070
2050 PRINT "ROCK YOU LOSE"
2060 GOTO 1040
2070 PRINT "PAPER YOU WIN"
2080 GOTO 482
2090 HOME
2100 SPEED = 150
2110 PRINT "1234567890ABCDEFGHILMNOPQRSTYUVWZ!%&*_+"
2120 GOTO 2110

Thank you.

• Rating:

0