pahinayay ug computer

[fish]

---

dili man gyud requirement sa vista ang 64bit nga processor... pero recommended specs siya.

[james_h_winters]

wahehehe... our first computer was an hp-150 touchscreen, bought from five jays a long time ago for 5000 pesos... hehehehe... wordstar, lotus, monochrome, built-in thermal printer, F8 ra kutob ang function keys... hehehe... it's in our junk room - still alive (with a little coaxing)!!! apart from dust and smudges, this is exactly how it looks like:

http://www.hpmuseum.net/display_item.php?hw=43

[guilliam]

Sharp PC-1500 Pocket Computer(1982)

[img width=574 height=260]http://img145.imageshack.us/img145/4004/pc15000kd.jpg[/img]

http://www.pc1500.com/ -> for reference of games and applications and other reqources.

Technical specifications:
( http://www.old-computers.com/museum/...asp?st=1&c=965 )

RAM (total) : 2 / 6 / 10 / 18 Kb (0 or 1 ramcard of 4 / 8 / 16 Kb)
RAM available : 1,850 / 5,946 / 10,042 / 18,234 bytes
ROM : 16 Kb
CPU : LH-5801 8 bits CMOS
Text screen: 1 line of 26 characters
Graphic screen: 7 x 156 pixels
Sound : Tune, duration, and number adjustable
Size : 195 x 86 x 25 mm
Weight : 375 g. with batteries
Year : 1982
Power : 4 AA alkaline batteries, 6 Volts power adaptor

__________________________________________________ ________________________________________________

truly a classic! this is what led my bro(now a mainframe consultant) and i(on php/mysql) to have a taste of what BASIC programming language is. missed "labyrinth" and all the games!.. i was around 6 year old by then(1984).. remembering yesterday! and yes i still have a working piece,.. however not selling it a collectors item

sample labyrinth(game) code:

 5 INPUT "Initiering";Q$:IF Q$="J" THEN DIM N$(21)*32,Q!(20),N!(20),M!(20),H!(20):N=0
 10 1NPUT "Vad heter du";N$(21):IF N$(21)="" THEN 640 ELSE FOR M=0 TO N
 20 IF LEFT$(N$(M),LEN(N$(21)))=N$(21) THEN 30 ELSE NEXT M:M=M-1:N$(M)=N$(21):N=N+1
 30 CLS :DRAW(2,18):FOR A=4 TO 124 STEP 4:C=SGN(A MOD 8)*6-3:B=0
 40 IF C=-3 THEN B=4:IF RND>.5 THEN DRAW(A,31)-(A,29):DRAW(A,0) ELSE DRAW(A,0)-(A+3,0)
 50 FOR B=B TO 28 STEP 4:IF RND>.5 THEN DRAW(A,B)-(A,B+C) ELSE DRAW(A,B)-(A+3,B)
 60 NEXT B:NEXT A:BEEP :X=2:Y=3218:FOR P=0 TO 999:LOCATE 16,1
 80 PRINT USING"####";P;:Q$=INKEY$:IF Q$="" THEN 500
 85 E=0:F=0:Q=VAL(Q$)
 90 IF Q=6 THEN E=4 ELSE IF Q=2 THEN F=4 ELSE IF Q=8 THEN F=-4 ELSE IF Q=4 THEN E=-4
 100 DRAWC(X,Y MOD 32):IF POINT(X+E/2,(Y+F/2) MOD 32)=1 THEN BEEP 1:P=P+9 ELSE X=X+E:Y=Y+F
 110 DRAW(X,Y MOD 32):IF X>128 THEN BEEP :BEEP 1:BEEP :GOTO 600 ELSE NEXT P:END
 500 A=4*INT(RND*(32.5-X/4)+X/4-.5):B=4*INT(RND*8):C=SGN(A MOD 8)*6-3
 510 Q$=INKEY$:IF Q$>"" THEN 85 ELSE IF B=0 THEN IF C=-3 THEN 540
 520 IF POINT(A+1,B)=1 THEN DRAWC(A,B)-(A+3,B):DRAW(A,B)-(A,C+B):NEXT P:END
 530 DRAWC(A,B)-(A,C+B):DRAW(A,B)-(A+3,B):NEXT P:END
 540 IF POINT(A+1,0)=1 THEN DRAWC(A+1,0)-(A+3,0):DRAW(A,31)-(A,29):NEXT P:END
 550 DRAWC(A,31)-(A,29):DRAW(A,0)-(A+3,0):NEXT P:END
 600 IF INKEY$<>CHR$(13) THEN 600 ELSE CLS :N!(M)=N!(M)+1:R=(M!(M)*(N!(M)-1)+P)/N!(M)
 610 IF H!(M)>0 THEN IF P<H!(M) THEN H!(M)=P ELSE ELSE H!(M)=P
 615 IF N=1 THEN I=0:GOTO 637 ELSE FOR I=0 TO N-2:IF Q!(I)<>M THEN NEXT I:GOTO 630
 620 FOR I=I TO N-2:Q!(I)=Q!(I+1):NEXT I
 630 FOR I=0 TO N-2:IF M!(Q!(I))<R THEN NEXT I
 635 FOR J=N-2 TO I STEP -1:Q!(J+1)=Q!(J):NEXT J
 637 Q!(I)=M:M!(M)=R
 640 CLS :PRINT "namn";TAB(13);"Xm Xmin";:K=2
 645 FOR I=0 TO N-1:PRINT N$(Q!(I));TAB(12);USING"###";M!(Q!(I));" ";H!(Q!(I));
 647 IF LEN(N$(I))>12 THEN K=K+1
 650 IF (I+K) MOD 4=0 THEN IF INKEY$<>CHR$(13) THEN 650
 660 PRINT :NEXT I:GOTO 10

^^looks familiar?


[img width=600 height=478]http://img133.imageshack.us/img133/5024/sharpce153swboard9pc.jpg[/img]


[img width=600 height=273]http://img154.imageshack.us/img154/6258/sharppc15002or.jpg[/img]


anyone in cebu owns the same baby?


- guilliam

[popcorn]

NAA KO PROCESSOR 486 STILL RUNNING