HP-85 – Space Shuttle

Dieses BASIC Programm für den HP-85 zeichnet ein Space Shuttle. Das LIF Image kann direkt mit den HP-85 Emulatoren von Everett Kaser oder Olivier de Smet benutzt werden.

HP-85 Space Shuttle BASIC Programm:

1000 REM -----
1001 REM Converted from AutoCAD DWG
1002 REM by J. Keller 
1003 REM June 2013
1004 REM -----
1010 READ X1,X2,Y1,Y2
1015 GCLEAR @ SCALE X1,X2,Y1,Y2
1020 READ N@ IF N=0 THEN 7999
1025 READ X,Y
1030 MOVE X,Y2-Y @ N=N-1
1035 READ X,Y
1040 DRAW X,Y2-Y @ N=N-1
1045 IF N=0 THEN 1020
1050 GOTO 1035
1055 READ X,Y@ N=N-1
1060 PRINT "PU;PA";X;",";Y;";PD;"
1065 READ X,Y@ N=N-1
1070 PRINT "PA";X;",";Y;";"
1075 IF N=0 THEN 1035
1080 GOTO 1065
1090 DATA 0,3000,0,2250
1100 DATA 2,1155,879,1123,906
1101 DATA 2,2005,2,2005,58
1102 DATA 2,1899,489,1936,92
1103 DATA 2,2166,519,2076,582
1104 DATA 7,197,2031,225,2045,25
     5,2055,286,2060,318,2060
[...]
2033 DATA 2,1697,974,1683,918
2034 DATA 2,1677,895,1641,751
2035 DATA 2,1727,806,1521,776
2036 DATA 0
7999 END

1 Kommentar

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert.

Diese Website verwendet Akismet, um Spam zu reduzieren. Erfahre mehr darüber, wie deine Kommentardaten verarbeitet werden.