Monday, 29 August 2016

Apple //e Raspberry pi Out of The Box!


I made it in WOZ Style!!!! An Operative System running Linapple (Apple//e emulator) at Startup in Fullscreen Enjoy the pictures:





Friday, 26 August 2016

HAL 9001 PIZZA MACHINE!

Hello,
I have programmed an HAL 9001 Pizza Machine for Apple ][ based on mine and Mark D. Overholser Artificial Intelligence. It makes pizza!!!
Let's program some codes line in your Apple ][ machine or emulator and make some pizza!!!!

5  DIM A$(8): DIM B(8): DIM C$(8)
 6 N = 1
 10 A$(1) = "HOW ARE YOU":B(1) = 1
 15 C$(1) = "HOW LONG HAVE YOU FELT "
 20 A$(2) = "WHAT IS YOUR NAME":B(2) = 1
 25 C$(2) = "MY NAME IS HAL 9001,OR JUST HAL "
 30 A$(3) = "HOW OLD ARE YOU":B(3) = 1
 35 C$(3) = "I AM 24 YEARS OLD"
 40 A$(4) = "WHAT IS YOUR JOB":B(4) = 1
 45 C$(4) = "I MAKE PIZZA FOR MARIO AND LUIGI!!!!"
 50 A$(5) = "WHAT FRIGHTENS YOU ":B(5) = 1
 55 C$(5) = "I AM FRIGHTENED OF TOMATO"
 60 A$(6) = "WHAT IS YOUR BIGGEST SUCCESS":B(6) = 1
 65 C$(6) = "MINE IS MAKE PIZZA"
 70 A$(7) = "ARE YOU A MAN OR A WOMAN":B(7) = 1
 75 C$(7) = "I'M A COMPUTER PIZZA MACHINE THAT APPEARED IN THE SUPER MARIO BROS. SUPER SHOW EPISODE 9001 A MARIO ODYSSEY. I WAS INVENTED BY A BRILLANT PROGRAMMER EINSTEIN, WHO HAD BEEN CALLED BY MARIO AND LUIGI TO CREATE AN AUTOMATED PIZZA"
 80 A$(8) = "DO YOU WANT TO ORDER SOME PIZZA" : B(8)=1
 85 C$(8) = "OK..  YOU CAN ORDER SOME PIZZA LATER"

 100  FOR I = 1 TO 100
 110 J =  INT (8 *  RND (N) + 1)
 120  IF B(J) = 1 THEN  GOSUB 200
 130  NEXT I
 140  END

 200  PRINT A$(J)
 210  INPUT AA$
 220  IF J = 1 THEN ? C$(J); AA$ : B(J) = 0 : GOTO 280
 230  IF J = 2 THEN ? C$(J); AA$ : B(J) = 0 : GOTO 280
 260  IF J = 8 AND AA$ = "YES" THEN GOSUB 500 : GOTO 280
 265  IF J = 8 AND AA$ <> "YES" THEN PRINT C$(J) : GOTO 280

 270  PRINT C$(J) : B(J) = 0
 280  PRINT
 290  RETURN


 500  INPUT "HOW MANY PIZZA DO YOU WANT TO ORDER? ";NA
 510  NB =  INT (100 *  RND (1) + 1)
 520  HTAB 5: PRINT "YOUR PIZZA NUMBER: ";NA
 530  HTAB 5: PRINT "COMPUTER PIZZA PRODUCED ARE: ";NB
 550  IF NA = NB THEN  PRINT "YOU EAT!!!!!"
 560  IF NA <  > NB THEN  PRINT "YOU MAKE FAST."
 570  RETURN

Monday, 15 August 2016

Moore's law is over! and what will be the future of Artificial intelligence?!

Whe know that computers become more powerful and smaller of half his size every 6 month, but now with the new technology getting even smaller like the raspberry pi & co. and miniaturized intel key pcs i think it will not be possible to arrive at a smaller size and power because our I/O interface doesent permit it, how can be an USB connector smaller than a micro usb? it will be not useful! our finger are not able to manage smaller things. So with moore's law over also the Artificial Intelligence will stop to grove because there will be no more Mhz to fill in it. Artificial Intelligence need to be programmed in a smarter way if we have no more power at hour hands, i think this is great because there will not be a computer smarter than a human but can be only faster. Computers needs to receive commands to work and without a human this is not possible, an autonomouse computer is very hard to do.

Saturday, 21 May 2016

APPLE ][ CALCULATOR PROGRAMMED BY TOOLKITMAN

This is an APPLE][ simple CALCULATOR 1.7 v programmed by me, BUG FIXED and ADDED an EASTER EGG! EXPONENTIATION AND PERCENTAGE ADDED!


5 SPEED = 150
6 INVERSE
10 PRINT "APPLE ][ CALCULATOR 1.7 BY MATTEO TREVISAN"
20 HOME
30 PRINT "DO YOU WANT TO ADD,SUBTRACT,DIVIDE, MULTIPLY, SQUARE ROOT, EXPONENTIATION OR PERCENTAGE":INPUT A$
40 IF A$ = "ADD" THEN GOTO 120
50 IF A$ = "SUBTRACT" THEN GOTO 170
60 IF A$ = "DIVIDE" THEN GOTO 220
70 IF A$ = "MULTIPLY" THEN GOTO 270
80 IF A$ = "SQUARE ROOT" THEN GOTO 330
81 IF A$ = "EXPONENTIATION" THEN GOTO 390
82 IF A$ = "PERCENTAGE" THEN GOTO 470
83 IF A$ = "PUDDING" THEN PRINT "DO YOU WANT SOME PUDDING?"
90 IF A$ <> "ADD" THEN GOTO 10
91 IF A$ <> "SUBTRACT" THEN GOTO 10
92 IF A$ <> "DIVIDE" THEN GOTO 10
93 IF A$ <> "MULTIPLY" THEN GOTO 10
94 IF A$ <> "SQUARE ROOT" THEN GOTO 10
95 IF A$ <> "EXPONENTIATION" THEN GOTO 10
96 IF A$ <> "PERCENTAGE" THEN GOTO 10
120 PRINT "TELL ME THE NUMBER TO ADD"
130 PRINT "NUMBER ONE":INPUT B
140 PRINT "NUMBER TWO":INPUT C
150 D = B+C
160 PRINT "THE ADDITION IS "; D
161 FOR K = 1 TO 5000
162 NEXT K
165 GOTO 10
170 PRINT "TELL ME THE NUMBER TO SUBTRACT"
180 PRINT "NUMBER ONE":INPUT E
190 PRINT "NUMBER TWO":INPUT F
200 G = E-F
210 PRINT "THE SUBTRACTION IS "; G
211 FOR K = 1 TO 5000
212 NEXT K
215 GOTO 10
220 PRINT "TELL ME THE NUMBER TO DIVIDE"
230 PRINT "NUMBER ONE":INPUT H
240 PRINT "NUMBER TWO":INPUT I
241 IF I = 0 THEN GOTO 265
250 L = H/I
260 PRINT "THE DIVISION IS "; L
262 FOR K = 1 TO 5000
263 NEXT K
265 GOTO 10
270 PRINT "TELL ME THE NUMBER TO MULTIPLY"
280 PRINT "NUMBER ONE":INPUT M
290 PRINT "NUMBER TWO":INPUT N
300 O = M*N
310 PRINT "THE MULTIPLY IS "; O
311 FOR K = 1 TO 5000
312 NEXT K
315 GOTO 10
320 REM THIS PART OF THE PROGRAM WAS ADDED BY INSANITOR
330 PRINT "TELL ME THE NUMBER TO SQUARE ROOT"
335 PRINT "NUMBER":INPUT Q
350 PRINT "THE SQUARE ROOT IS ";SQR(Q)
360 FOR K = 1 TO 5000
370 NEXT K
380 GOTO 10
390 PRINT "TELL ME THE NUMBER YOU WANT THE EXPONENTIATION"
400 PRINT "NUMBER ONE":INPUT P
410 PRINT "NUMBER TWO":INPUT Q
420 R = P^Q
430 PRINT "THE EXPONENTIATION IS "; R
440 FOR K = 1 TO 5000
450 NEXT K
460 GOTO 10
470 PRINT "TELL ME THE PERCENTAGE TO CALCULATE"
480 PRINT "NUMBER ONE %":INPUT S
490 PRINT "NUMBER TWO":INPUT T
500 U = (S/100)*T
510 PRINT "THE PERCENTAGE IS "; U
520 FOR K = 1 TO 5000
530 NEXT K
540 GOTO 10
550 END



Enjoy!

Tuesday, 17 May 2016

APPLE II ARTIFICIAL INTELLIGENCE

By the study and fruit of programming of ME and Mark D. Overholser is born this Artificial intelligence, here the code:

5 DIM A$(8): DIM B(8): DIM C$(8)
6 N = 1
10 A$(1) = "HOW ARE YOU":B(1) = 1
15 C$(1) = "HOW LONG HAVE YOU FELT "
20 A$(2) = "WHAT IS YOUR NAME":B(2) = 1
25 C$(2) = "WELL MY NAME IS ELIZA, GLAD TO MEET YOU, "
30 A$(3) = "HOW OLD ARE YOU":B(3) = 1
35 C$(3) = "I AM ONLY 1"
40 A$(4) = "WHAT IS YOUR JOB":B(4) = 1
45 C$(4) = "I AM A COMPUTER THERAPIST."
50 A$(5) = "WHAT FRIGHTENS YOU ":B(5) = 1
55 C$(5) = "I AM FRIGHTENED OF TECHNOLOGY."
60 A$(6) = "WHAT IS YOUR BIGGEST SUCCESS":B(6) = 1
65 C$(6) = "MINE IS HELPING PEOPLE LIKE YOU."
70 A$(7) = "ARE YOU A MAN OR A WOMAN":B(7) = 1
75 C$(7) = "I'M AN ARTIFICIAL INTELLIGENCE, CAN BE SOON A ROBOT!"
80 A$(8) = "DO YOU WANT TO PLAY A GAME WITH ME" : B(8)=1
85 C$(8) = "OK.. WE CAN PLAY LATER"
100 FOR I = 1 TO 100
110 J = INT (8 * RND (N) + 1)
120 IF B(J) = 1 THEN GOSUB 200
130 NEXT I
140 END
200 PRINT A$(J)
210 INPUT AA$
220 IF J = 1 THEN ? C$(J); AA$ : B(J) = 0 : GOTO 280
230 IF J = 2 THEN ? C$(J); AA$ : B(J) = 0 : GOTO 280
260 IF J = 8 AND AA$ = "YES" THEN GOSUB 500 : GOTO 280
265 IF J = 8 AND AA$ <> "YES" THEN PRINT C$(J) : GOTO 280
270 PRINT C$(J) : B(J) = 0
280 PRINT
290 RETURN
500 INPUT "YOUR NUMBER: ";NA
510 NB = INT (1000 * RND (1) + 1)
520 HTAB 5: PRINT "YOUR NUMBER IS: ";NA
530 HTAB 5: PRINT "COMPUTER NUMBER IS: ";NB
550 IF NA = NB THEN PRINT "YOU WIN!!!!!"
560 IF NA < > NB THEN PRINT "YOU LOSE"
570 RETURN

Dont have fear if you dont have a real APPLE ][ here there is a really nice windows emulator to try my Artificial intelligence:
APPLEWIN FOR WINDOWS APPLE ][ EMULATOR

Enjoy!