The Museum of HP Calculators
Truck for the HP-41C/CV/CX
This program is Copyright © HP and is used here by permission.
It was originally printed in the Games II Solution Book.
This program was entered and uploaded by
Tony Duell.
The Barcode for this program was provided by
Brian Ward.
This program is supplied without representation or warranty of any kind.
Tony Duell, Hewlett Packard and The Museum of HP Calculators therefore assume
no responsibility and shall have no liability, consequential or otherwise,
of any kind arising from the use of this program material or any part thereof.
Documentation Information (CD or source code)
How to get this Program to your Calculator (via
HP-IL, disk, wand, and fingers)
Download Binary (.raw) program for disk or PC HP-IL Card download
Download Hexadecimal (.dat) program for Serial Port download
Display the Program Barcode (.pdf) for printing and scanning
Program Listing
LINE KEYS
01 LBL "TRUCK"
02 FIX 00
03 SF 27
04 CF 29
05 CF 21
06 FS? 55
07 SF 21
08 LBL a
09 .009
10 LBL 61
11 CF IND X
12 ISG X
13 GTO 61
14 SREG 00
15 CLS
16 SREG 06
17 CLS
18 0
19 STO 14
20 "SEED ?"
21 PROMPT
22 STO 10
23 100
24 STO 15
25 10
26 STO 17
27 LBL 12
28 "ROUTE ?"
29 PROMPT
30 STO 11
31 97
32 X=Y?
33 GTO A
34 RDN
35 95
36 X=Y?
37 GTO A
38 RDN
39 89
40 X=Y?
41 X#Y?
42 GTO 12
43 LBL A
44 "SPEED ?"
45 PROMPT
46 X=0?
47 GTO A
48 ABS
49 STO 12
50 85
51 -
52 X>0?
53 GTO A
54 LBL 10
55 SF 28
56 "ROUTE NO. "
57 ARCL 11
58 AVIEW
59 PSE
60 "SPEED="
61 ARCL 12
62 "
MPH"
63 AVIEW
64 PSE
65 "MI. POST "
66 ARCL 14
67 AVIEW
68 PSE
69 "CH. SPEED/RT.?"
70 PROMPT
71 X=Y?
72 GTO 13
73 "SPEED-A/RT.-B"
74 PROMPT
75 LBL 13
76 XEQ 60
77 1
78 ST- 17
79 RCL 14
80 STO 13
81 RCL 12
82 ST+ 14
83 XEQ IND 11
84 GTO 22
85 LBL 60
86 RCL 12
87 X<=0?
88 XEQ 10
89 "BREAKER 19"
90 AVIEW
91 BEEP
92 XEQ 62
93 SF IND X
94 XEQ IND X
95 RTN
96 LBL 62
97 RCL 10
98 9821
99 *
100 .211327
101 +
102 FRC
103 STO 10
104 1 E1
105 *
106 INT
107 RTN
108 LBL 95
109 14
110 STO 18
111 135
112 STO 16
113 FS? 00
114 XEQ 19
115 290
116 STO 16
117 FS? 01
118 XEQ 19
119 445
120 STO 16
121 FS? 02
122 XEQ 19
123 575
124 STO 16
125 FS? 03
126 XEQ 19
127 RTN
128 LBL 14
129 RCL 12
130 55
131 -
132 X<=0?
133 RTN
134 "EEE...."
135 AVIEW
136 TONE 08
137 TONE 09
138 TONE 08
139 TONE 09
140 TONE 08
141 TONE 09
142 "SMOKEY"
143 AVIEW
144 PSE
145 2
146 *
147 ST- 15
148 "FINE OF $"
149 ARCL X
150 AVIEW
151 PSE
152 .25
153 ST- 17
154 RCL 16
155 STO 14
156 GTO 10
157 LBL 22
158 RCL 11
159 95
160 X=Y?
161 GTO 52
162 RCL 11
163 89
164 X=Y?
165 GTO 53
166 RCL 14
167 500
168 STO 18
169 -
170 X<0?
171 GTO 51
172 LBL 54
173 RCL 12
174 /
175 ST+ 17
176 RCL 18
177 STO 14
178 RCL 17
179 X<0?
180 GTO 55
181 "ON TIME"
182 AVIEW
183 PSE
184 LBL 56
185 "MONEY=$"
186 ARCL 15
187 AVIEW
188 0
189 STO 12
190 STOP
191 GTO D
192 LBL 55
193 "LATE"
194 AVIEW
195 PSE
196 25
197 *
198 ST+ 15
199 GTO 56
200 LBL 52
201 RCL 14
202 725
203 STO 18
204 -
205 X<0?
206 GTO 51
207 GTO 54
208 LBL 53
209 RCL 14
210 550
211 STO 18
212 -
213 X>0?
214 GTO 54
215 LBL 51
216 .009
217 LBL 57
218 XEQ 41
219 ISG X
220 GTO 57
221 GTO 10
222 LBL 41
223 FC? IND X
224 RTN
225 DSE IND X
226 RTN
227 CF IND X
228 RTN
229 LBL 89
230 16
231 STO 18
232 145
233 STO 16
234 FS? 04
235 XEQ 19
236 300
237 STO 16
238 FS? 05
239 XEQ 19
240 465
241 STO 16
242 FS? 06
243 XEQ 19
244 RTN
245 LBL 16
246 "*ROCKS*"
247 AVIEW
248 PSE
249 LBL 11
250 "***CRASH***"
251 LBL 21
252 AVIEW
253 PSE
254 "CALL WRECKER"
255 AVIEW
256 PSE
257 RCL 16
258 STO 14
259 XEQ 62
260 8
261 *
262 5
263 +
264 ST- 15
265 "REPAIRS-$"
266 ARCL X
267 AVIEW
268 PSE
269 2.5
270 ST- 17
271 GTO 10
272 LBL 97
273 18
274 STO 18
275 165
276 STO 16
277 FS? 07
278 XEQ 19
279 16
280 STO 18
281 405
282 STO 16
283 FS? 08
284 XEQ 19
285 20
286 STO 18
287 490
288 STO 16
289 FS? 09
290 XEQ 19
291 RTN
292 LBL 19
293 RCL 16
294 RCL 13
295 -
296 X<=0?
297 RTN
298 RCL 14
299 RCL 16
300 -
301 X<=0?
302 RTN
303 GTO IND 18
304 LBL 20
305 "SPLASH"
306 AVIEW
307 PSE
308 "WET FEET"
309 GTO 21
310 LBL 18
311 RCL 12
312 35
313 -
314 X<=0?
315 RTN
316 "-+-+SKID+-+-"
317 AVIEW
318 PSE
319 GTO 11
320 LBL 00
321 3
322 ST+ 00
323 LBL 23
324 XEQ 33
325 "M.P. 135 ON 95"
326 AVIEW
327 PSE
328 RTN
329 LBL 01
330 3
331 ST+ 01
332 LBL 24
333 XEQ 33
334 "M.P. 290 ON 95"
335 AVIEW
336 PSE
337 RTN
338 LBL 02
339 3
340 ST+ 02
341 LBL 25
342 XEQ 33
343 "M.P. 445 ON 95"
344 AVIEW
345 PSE
346 RTN
347 LBL 03
348 3
349 ST+ 03
350 LBL 26
351 XEQ 33
352 "M.P. 575 ON 95"
353 AVIEW
354 PSE
355 RTN
356 LBL 33
357 "SMOKEY AT"
358 AVIEW
359 PSE
360 RTN
361 LBL 04
362 3
363 ST+ 04
364 RDN
365 LBL 27
366 XEQ 17
367 "M.P. 145 ON 89"
368 AVIEW
369 PSE
370 GTO 15
371 LBL 05
372 3
373 ST+ 05
374 RDN
375 LBL 28
376 XEQ 17
377 "M.P. 300 ON 89"
378 AVIEW
379 PSE
380 GTO 15
381 LBL 06
382 4
383 ST+ 06
384 RDN
385 LBL 29
386 XEQ 17
387 "M.P. 465 ON 89"
388 AVIEW
389 PSE
390 GTO 15
391 LBL 17
392 "ROCK SLIDE"
393 AVIEW
394 PSE
395 RTN
396 LBL 07
397 3
398 ST+ 07
399 LBL 30
400 "WET ROAD AT"
401 AVIEW
402 PSE
403 "M.P. 165 ON 97"
404 AVIEW
405 PSE
406 "SPEED LMT. 35"
407 AVIEW
408 PSE
409 RTN
410 LBL 08
411 4
412 ST+ 08
413 RDN
414 LBL 31
415 XEQ 17
416 "M.P. 405 ON 97"
417 AVIEW
418 PSE
419 GTO 15
420 LBL 09
421 4
422 ST+ 09
423 RDN
424 LBL 32
425 "BRIDGE OUT"
426 AVIEW
427 PSE
428 "M.P. 490 ON 97"
429 AVIEW
430 PSE
431 LBL 15
432 "CLOSED "
433 ARCL IND X
434 " HR."
435 AVIEW
436 PSE
437 RTN
438 LBL B
439 RCL 12
440 X#0?
441 GTO 58
442 TONE 00
443 "NOT MOVING"
444 AVIEW
445 PSE
446 GTO 10
447 LBL 58
448 RCL 14
449 STO 16
450 "DRIVING TIME"
451 PROMPT
452 HR
453 STO 18
454 INT
455 X#0?
456 GTO B
457 XEQ 60
458 RCL 18
459 ABS
460 ST- 17
461 RCL 16
462 STO 13
463 RCL 12
464 RCL 18
465 *
466 ST+ 14
467 RCL 18
468 X<0?
469 CF 28
470 X<0?
471 XEQ 63
472 XEQ IND 11
473 FC? 28
474 XEQ 63
475 RCL 11
476 95
477 X=Y?
478 GTO 50
479 RCL 11
480 89
481 X=Y?
482 GTO 34
483 35
484 ENTER
485 100
486 XEQ 38
487 36
488 ENTER
489 340
490 XEQ 38
491 37
492 ENTER
493 400
494 XEQ 38
495 LBL 59
496 "NO EXIT"
497 AVIEW
498 PSE
499 GTO 22
500 LBL 63
501 X<> 13
502 X<> 14
503 X<> 13
504 RTN
505 LBL 35
506 89
507 STO 11
508 140
509 STO 14
510 GTO 39
511 LBL 36
512 89
513 STO 11
514 290
515 STO 14
516 GTO 39
517 LBL 37
518 89
519 STO 11
520 455
521 STO 14
522 LBL 39
523 .25
524 ST- 17
525 GTO 10
526 LBL 38
527 RCL 14
528 -
529 RND
530 X=0?
531 GTO IND Y
532 RTN
533 LBL 50
534 40
535 ENTER
536 130
537 XEQ 38
538 41
539 ENTER
540 285
541 XEQ 38
542 42
543 ENTER
544 430
545 XEQ 38
546 GTO 59
547 LBL 34
548 43
549 ENTER
550 135
551 XEQ 38
552 44
553 ENTER
554 285
555 XEQ 38
556 45
557 ENTER
558 450
559 XEQ 38
560 46
561 ENTER
562 140
563 XEQ 38
564 47
565 ENTER
566 290
567 XEQ 38
568 48
569 ENTER
570 455
571 XEQ 38
572 GTO 59
573 LBL 40
574 89
575 STO 11
576 135
577 STO 14
578 GTO 39
579 LBL 41
580 89
581 STO 11
582 285
583 STO 14
584 GTO 39
585 LBL 42
586 89
587 STO 11
588 450
589 STO 14
590 GTO 39
591 LBL 43
592 95
593 STO 11
594 130
595 STO 14
596 GTO 39
597 LBL 44
598 95
599 STO 11
600 285
601 STO 14
602 GTO 39
603 LBL 45
604 95
605 STO 11
606 430
607 STO 14
608 GTO 39
609 LBL 46
610 97
611 STO 11
612 100
613 STO 14
614 GTO 39
615 LBL 47
616 97
617 STO 11
618 340
619 STO 14
620 GTO 39
621 LBL 48
622 97
623 STO 11
624 400
625 STO 14
626 GTO 39
627 LBL D
628 "TIME:"
629 RCL 17
630 X<0?
631 " OVER"
632 X>0?
633 " TO GO"
634 AVIEW
635 PSE
636 HMS
637 ABS
638 STO 16
639 INT
640 CLA
641 ARCL X
642 "HR."
643 RCL 16
644 FRC
645 1 E2
646 *
647 STO 16
648 INT
649 ARCL X
650 "MN."
651 RCL 16
652 FRC
653 1 E2
654 *
655 INT
656 ARCL X
657 "SC."
658 AVIEW
659 STOP
660 GTO 10
661 LBL C
662 "STATUS:"
663 AVIEW
664 23.032
665 ENTER
666 .01
667 LBL 49
668 FS? IND X
669 TONE IND X
670 FS? IND X
671 XEQ IND Y
672 ISG X
673 ISG Y
674 GTO 49
675 GTO 10
676 END
Go back to the HP-41 software library
Go back to the general software library
Go
back to the main exhibit hall